<?xl version="0.1" encoding="SHIFT_JIS"?>







<vobj type="raw">



<Define> ^about-window-close ()

<Arguments>

	^id

	^data

</Arguments>

<Let>

	<VWindow refer.id="^id" visible="0"/>

</Let>

</Define>

<Define> ^about-homepage ()

<Arguments>

	^win ^data

</Arguments>

<Let>

<LaunchWWW> http://www.globalbase.org </LaunchWWW>

</Let>

</Define>



<Define> ^about-cosmos-window-data ()

</Define>



<Let>

<Env>

	^current-lang-env

</Env>



<set> ^about-cosmos-window-data

	<VWindow	name="about-cosmos-window"

    category="1"

    position="200,200" 

		resizable="0"

		spacing="0,0"

		attr="floating"

		descriptor="^menu-about-cosmos"

		close_event_handler="e/vobj/about-window-close"

		visible="0">

	<VVAlignView

		spacing="0,0"

		padding="20,20"

		alignh="fill"

		alignv="fill">



		<VHAlignView

			spacing="0,0"

			padding="0,0"

			alignh="fill"

			alignv="fill">

		<VVAlignView>

			<VDraw 		name="draw"

					spacing="0,0"

					padding="20,20"

					descriptor="COSMOS"

					image="file:images/logo1.jpg"/>

		</VVAlignView>

		</VHAlignView>

		<VHAlignView

			spacing="0,0"

			padding="0,0"

			alignh="fill"

			alignv="fill">

		<VVAlignView>

			<VStaticText 

					spacing="0,0"

					padding="0,0"

				alignh="fill" alignv="bottom" descriptor="COSMOS GLOBALBASE BROWSER" fsize="100"/>

		</VVAlignView>

		</VHAlignView>

		<VHAlignView

			spacing="0,0"

			padding="0,0"

			alignh="fill"

			alignv="fill">

		<VVAlignView>

			<VStaticText 

					spacing="0,0"

					padding="0,0"

				alignh="fill" alignv="bottom" descriptor="Powered by GLOBALBASE Project" fsize="100"/>

		</VVAlignView>

		</VHAlignView>



		<VHAlignView

			spacing="0,0"

			padding="0,0"

			alignh="fill"

			alignv="fill">

		<VVAlignView>

			<VPushButton	

					spacing="0,0"

					padding="10,10"

				alignh="fill" alignv="bottom" 

						vert_desc="0"

						descriptor="http://www.globalbase.org/" fsize="100"

						value_event_handler="e/vobj/about-homepage"/>

		</VVAlignView>

		</VHAlignView>





		<VHAlignView

			spacing="0,0"

			padding="0,0"

			alignh="fill"

			alignv="fill">

		<VVAlignView>

			<VStaticText 

					spacing="0,0"

					padding="10,10"

				alignh="fill" alignv="bottom" descriptor="^VersionPattern0" fsize="100"/>

		</VVAlignView>

		</VHAlignView>



		<VHAlignView

			spacing="0,0"

			padding="0,0"

			alignh="fill"

			alignv="fill">

		<VVAlignView>

			<VStaticText 

					spacing="0,0"

					padding="0,0"

				alignh="fill" alignv="bottom" descriptor="^CopyRightPattern0" fsize="100"/>

		</VVAlignView>

		</VHAlignView>

		<VHAlignView

			spacing="0,0"

			padding="0,0"

			alignh="fill"

			alignv="fill">

		<VVAlignView>

			<VStaticText 

					spacing="0,0"

					padding="0,0"

				alignh="fill" alignv="bottom" descriptor="All Right Reserved." fsize="100"/>

		</VVAlignView>

		</VHAlignView>

	</VVAlignView>

	</VWindow>

</set>

</Let>



<Define> ^about-cosmos-window ()

<Arguments>

	^call-window-id

	^query

</Arguments>

<vobj>



(PrintStd "about-cosmos-windw")

<SetStatus visible="1">

	(GetObjectID about-cosmos-window-data 'about-cosmos-window)

</SetStatus>



</vobj>

</Define>



</vobj>



