<?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>





