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

