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

<vobj type="raw">

<!--
<Define> ^ARS_NONE	0</Define>
<Define> ^ARS_DENY	1</Define>
<Define> ^ARS_ACCEPT	2</Define>
<Define> ^ARS_NOT_USE	3</Define>
<Define> ^ARS_REQUIRED	4</Define>
<Define> ^ARS_SEND_PERMIT	5</Define>
-->

<Define> ^LaunchWWW_dialog ()
<Arguments>
	^a ^b
</Arguments>
	<LaunchWWW> ^url </LaunchWWW>
</Define>

<Define> ^authentification-header ()
<Arguments>
</Arguments>
<Let>
<Sub>
<description-enabled>
	<If> (= (IfDef description-url "") "")
	<Then> 0 </Then>
	<Else> 1 </Else>
	</If>
</description-enabled>
<url>(IfDef description-url "")</url>
<description>(IfDef description "Untitled")</description>
<type>(IfDef type "0")</type>
<name>(IfDef name "")</name>
</Sub>
	<VVAlignView
		alignh="fill"
		alignv="fill"
		padding="0,0"
		spacing="0,0"
		visible="1">
		<VBackColorView
			alignh="fill"
			alignv="fill"
			padding="0,0"
			spacing="0,0"
			color="#0080FF"
			visible="1">
			<VStaticText descriptor="^description" align="fill" fsize="150"/>
		</VBackColorView>
		<modal-authentification-header-sentence-1>
			^name ^type
		</modal-authentification-header-sentence-1>
		<Switch>
		<Case> (= ([Cast type="integer"] status) ARS_NONE)
			<VHAlignView
				alignh="fill"
				alignv="fill"
				padding="0,0"
				spacing="0,0"
				visible="1">
			<VStaticText descriptor="^authentification-status" alignh="left"  fsize="100"/>
			<VPopupButton name="auth-status"
					descriptor="auth-status"
					fsize="100"
					alignh="left"
					value="0">
				(List general-disable general-enable)
			</VPopupButton>
			<VPushButton
				name="www"
				alignh="right"
				descriptor="^general-details"
				default_button="0"
				enabled="^description-enabled"
				value_event_handler="e/current/LaunchWWW_dialog"
				visible="1"
				/>
			</VHAlignView>
		</Case>
		<Case> (= ([Cast type="integer"] status) ARS_DENY)
			<VHAlignView
				alignh="left"
				alignv="fill"
				padding="0,0"
				spacing="0,0"
				visible="1">
			<VStaticText descriptor="^authentification-status"  alignh="left" fsize="100"/>
			<VStaticText descriptor="^authentification-deny"  alignh="left" fsize="100"/>
			<VPopupButton name="auth-status"
					descriptor="auth-status"
					fsize="100"
					alignh="left"
					value="1">
				(List general-disable general-enable)
			</VPopupButton>
			<VPushButton
				name="www"
				alignh="right"
				descriptor="^general-details"
				default_button="0"
				enabled="^description-enabled"
				value_event_handler="e/current/LaunchWWW_dialog"
				visible="1"
				/>
			</VHAlignView>
		</Case>
		<Case> (= ([Cast type="integer"] status) ARS_ACCEPT)
			<VHAlignView
				alignh="left"
				alignv="fill"
				padding="0,0"
				spacing="0,0"
				visible="1">
			<VStaticText descriptor="^authentification-status"  alignh="left" fsize="100"/>
			<VStaticText descriptor="^authentification-accept"  alignh="left" fsize="100"/>
			<VPopupButton name="auth-status"
					descriptor="auth-status"
					fsize="100"
					alignh="left"
					value="1">
				(List general-disable general-enable)
			</VPopupButton>
			<VPushButton
				name="www"
				alignh="right"
				descriptor="^general-details"
				default_button="0"
				enabled="^description-enabled"
				value_event_handler="e/current/LaunchWWW_dialog"
				visible="1"
				/>
			</VHAlignView>
		</Case>
		<Case> (= ([Cast type="integer"] status) ARS_REQUIRED)
(PrintStd popupbutton-enabled)
			<VHAlignView
				alignh="left"
				alignv="fill"
				padding="0,0"
				spacing="0,0"
				visible="1">
			<VStaticText descriptor="^authentification-status" alignh="left" fsize="100"/>
			<VStaticText descriptor="^authentification-required"  alignh="left" fsize="100"/>
			<VPopupButton name="auth-status" enabled="^popupbutton-enabled"
					descriptor="auth-status"
					fsize="100"
					alignh="left"
					value="0">
				(List general-disable general-enable)
			</VPopupButton>
			<VPushButton
				name="www"
				alignh="right"
				descriptor="^general-details"
				default_button="0"
				enabled="^description-enabled"
				value_event_handler="e/current/LaunchWWW_dialog"
				visible="1"
				/>
			</VHAlignView>
		</Case>
		<Case> (= ([Cast type="integer"] status) ARS_SEND_PERMIT)
			<VHAlignView
				alignh="left"
				alignv="fill"
				padding="0,0"
				spacing="0,0"
				visible="1">
			<VStaticText descriptor="^authentification-status" alignh="left" fsize="100"/>
			<VPopupButton name="auth-status" enabled="^popupbutton-enabled"
					descriptor="auth-status"
					fsize="100"
					alignh="left"
					value="1">
				(List general-disable general-enable)
			</VPopupButton>
			<VPushButton
				name="www"
				alignh="right"
				descriptor="^general-details"
				default_button="0"
				enabled="^description-enabled"
				value_event_handler="e/current/LaunchWWW_dialog"
				visible="1"
				/>
			</VHAlignView>
		</Case>
		</Switch>
	</VVAlignView>
</Let>
</Define>

<Define> ^authentification-unsupport ()
<Arguments>
	^no ^data
</Arguments>
<Let>
<Env> ^vobj </Env>
<Env> ^current-lang-env </Env>
<Sub>
<url>http://www.globalbase.org/</url>
</Sub>
<GetAttribute type="env"> (car data) </GetAttribute>

(PrintStd data)
(PrintStd type)
<vobjTarget>
	<VVAlignView
		alignh="fill"
		alignv="fill"
		padding="10,10"
		spacing="10,10"
		visible="1">
		
		<authentification-header popupbutton-enabled="0"/>
		<VHAlignView
			alignh="fill"
			alignv="fill"
			padding="10,10"
			spacing="10,10"
			visible="1">
			<modal-authentification-unsupport-sentence>
				^type
			</modal-authentification-unsupport-sentence>
		</VHAlignView>
		<VHAlignView
			alignh="fill"
			alignv="fill"
			padding="10,10"
			spacing="10,10"
			visible="1">

			<VPushButton
				name="www"
				alignh="right"
				descriptor="^general-version-up-info"
				default_button="0"
				value_event_handler="e/current/LaunchWWW_dialog"
				visible="1"
				/>
		</VHAlignView>
	</VVAlignView>
	<vobjWaitSync/>
</vobjTarget>
</Let>
</Define>


<Define> ^fix-user-passwd ()
<Arguments>
	^no ^data
</Arguments>
<Let>
<Env> ^vobj </Env>
<Env> ^current-lang-env </Env>
<GetAttribute type="env"> (car data) </GetAttribute>
<Let>
<Sub>
<user>(IfDef user "")</user>
<passwd>(IfDef passwd "")</passwd>
</Sub>
(PrintStd data)
(PrintStd type)
<vobjTarget>
	<VVAlignView
		alignh="fill"
		alignv="fill"
		padding="10,10"
		spacing="10,10"
		visible="1">
		
		<authentification-header popupbutton-enabled="1"/>
		<VHAlignView
			alignh="fill"
			alignv="fill"
			padding="10,10"
			spacing="10,10"
			visible="1">
			<modal-authentification-fix-user-passwd-sentence/>
		</VHAlignView>
		<VHAlignView
			alignh="fill"
			alignv="fill"
			padding="30,10"
			spacing="30,10"
			visible="1">
		<VTableView alignv="FILL" alignh="FILL" rows="2" cols="2" homogeneous="0">
			<TR>
				<TD>
				<VStaticText descriptor="^general-user-name" alignh="left"  fsize="120"/>
				</TD>
				<TD>
				<VEditText name="user" min_len="20" max_len="20" fsize="120"
						descriptor="^user"/>
				</TD>
			</TR>
			<TR>
				<TD>
				<VStaticText descriptor="^general-passwd" alignh="left"  fsize="120"/>
				</TD>
				<TD>
				<VEditText name="passwd" min_len="20" max_len="20" fsize="120"
						descriptor="^passwd"/>
				</TD>
			</TR>
		</VTableView>
		</VHAlignView>
	</VVAlignView>
	<vobjWaitSync/>
</vobjTarget>
</Let>
</Let>
</Define>



<Define> ^localhost-root ()
<Arguments>
	^no ^data
</Arguments>
	()
</Define>


</vobj>

