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

<vobj type="raw">

<Define> ^win-close-event ()
<Arguments> ^id </Arguments>
        (Quit)
</Define>

<Define> ^modal-require-save ()
<Arguments>
	^data
</Arguments>
<Let>
<Env> ^vobj </Env>
<Env> ^current-lang-env </Env>

<vobjTarget>
	<VWindow	name="window"
			attr="modal"
			category="1"
			resizable="0"
			spacing="0,0"
			descriptor=""
			visible="0">
		<VVAlignView
			alignh="fill"
			alignv="fill"
			padding="10,10"
			spacing="10,10"
			visible="1">
			
			<VHAlignView
				alignh="fill"
				alignv="fill"
				padding="10,10"
				spacing="10,10"
				visible="1">
				<modal-require-save-sentence>
					^data
				</modal-require-save-sentence>
			</VHAlignView>
			<VHAlignView
				alignh="fill"
				alignv="fill"
				padding="10,10"
				spacing="10,10"
				visible="1">

				<VPushButton
					name="dontsave"
					alignh="right"
					descriptor="^general-dontsave"
					visible="1"
					/>
				<VPushButton
				<VPushButton
					name="cancel"
					alignh="right"
					descriptor="^general-cancel"
					cancel_button="1"
					visible="1"
					/>
				<VPushButton
					name="save"
					alignh="right"
					descriptor="^general-save"
					default_button="1"
					visible="1"
					/>
			</VHAlignView>
		</VVAlignView>
	</VWindow>
	<vobjWaitSync/>
</vobjTarget>
</Let>
</Define>


<Define> ^modal-require-save-untitled ()
<Arguments>
	^data
</Arguments>
<Let>
<Env> ^vobj </Env>
<Env> ^current-lang-env </Env>

<vobjTarget>
	<VWindow	name="window"
			attr="modal"
			category="1"
			resizable="0"
			spacing="0,0"
			descriptor=""
			visible="0">
		<VVAlignView
			alignh="fill"
			alignv="fill"
			padding="10,10"
			spacing="10,10"
			visible="1">
			
			<VHAlignView
				alignh="fill"
				alignv="fill"
				padding="10,10"
				spacing="10,10"
				visible="1">
				<modal-require-save-untitled-sentence/>
			</VHAlignView>
			<VHAlignView
				alignh="fill"
				alignv="fill"
				padding="10,10"
				spacing="10,10"
				visible="1">

				<VPushButton
					name="dontsave"
					alignh="right"
					descriptor="^general-dontsave"
					visible="1"
					/>
				<VPushButton
				<VPushButton
					name="cancel"
					alignh="right"
					descriptor="^general-cancel"
					cancel_button="1"
					visible="1"
					/>
				<VPushButton
					name="save"
					alignh="right"
					descriptor="^general-save"
					default_button="1"
					visible="1"
					/>
			</VHAlignView>
		</VVAlignView>
	</VWindow>
	<vobjWaitSync/>
</vobjTarget>
</Let>
</Define>

<Define> ^modal-already-exist-file ()
<Arguments>
	^data
</Arguments>
<Let>
<Env> ^vobj </Env>
<Env> ^current-lang-env </Env>

<vobjTarget>
	<VWindow	name="window"
			attr="modal"
			category="1"
			resizable="0"
			spacing="0,0"
			descriptor=""
			visible="0">
		<VVAlignView
			alignh="fill"
			alignv="fill"
			padding="10,10"
			spacing="10,10"
			visible="1">
			
			<VHAlignView
				alignh="fill"
				alignv="fill"
				padding="10,10"
				spacing="10,10"
				visible="1">
				<modal-already-exist-file-sentence>
					^data
				</modal-already-exist-file-sentence>
			</VHAlignView>
			<VHAlignView
				alignh="fill"
				alignv="fill"
				padding="10,10"
				spacing="10,10"
				visible="1">

				<VPushButton
					name="save"
					alignh="right"
					descriptor="^general-ok2"
					default_button="1"
					visible="1"
					/>
			</VHAlignView>
		</VVAlignView>
	</VWindow>
	<vobjWaitSync/>
</vobjTarget>
</Let>
</Define>


<Define> ^modal-cannot-open-file ()
<Arguments>
	^data
</Arguments>
<Let>
<Env> ^vobj </Env>
<Env> ^current-lang-env </Env>

<vobjTarget>
	<VWindow	name="window"
			attr="modal"
			category="1"
			resizable="0"
			spacing="0,0"
			descriptor=""
			visible="0">
		<VVAlignView
			alignh="fill"
			alignv="fill"
			padding="10,10"
			spacing="10,10"
			visible="1">
			
			<VHAlignView
				alignh="fill"
				alignv="fill"
				padding="10,10"
				spacing="10,10"
				visible="1">
				<modal-cannot-open-file-sentence>
					^data
				</modal-cannot-open-file-sentence>
			</VHAlignView>
			<VHAlignView
				alignh="fill"
				alignv="fill"
				padding="10,10"
				spacing="10,10"
				visible="1">

				<VPushButton
					name="save"
					alignh="right"
					descriptor="^general-ok2"
					default_button="1"
					visible="1"
					/>
			</VHAlignView>
		</VVAlignView>
	</VWindow>
	<vobjWaitSync/>
</vobjTarget>
</Let>
</Define>


<Define> ^modal-quit-application ()
<Arguments>
	^data
</Arguments>
<Let>
<Env> ^vobj </Env>
<Env> ^current-lang-env </Env>

<vobjTarget>
	<VWindow	name="window"
			attr="modal"
			category="1"
			resizable="0"
			spacing="0,0"
			descriptor=""
			visible="0">
		<VVAlignView
			alignh="fill"
			alignv="fill"
			padding="10,10"
			spacing="10,10"
			visible="1">
			
			<VHAlignView
				alignh="fill"
				alignv="fill"
				padding="10,10"
				spacing="10,10"
				visible="1">
				<modal-quit-application-sentence>
					^data
				</modal-quit-application-sentence>
			</VHAlignView>
			<VHAlignView
				alignh="fill"
				alignv="fill"
				padding="10,10"
				spacing="10,10"
				visible="1">

				<VPushButton
					name="save"
					alignh="right"
					descriptor="^force-to-exit"
					default_button="0"
					visible="1"
					/>
			</VHAlignView>
		</VVAlignView>
	</VWindow>
	<vobjWaitSync/>
</vobjTarget>
</Let>
</Define>

</vobj>

