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


(PrintStd "===================== WPM")


<vobj type="raw">


<Define> ^wpm-window-ind ()
<Arguments>
	^LoadingTarget
</Arguments>
<Let>
<Env> ^vobj </Env>
<Env> ^current-lang-env </Env>

<vobjTarget>
	<VWindow	name="wpm-window"
		resizable="1"
		spacing="0,0"
		descriptor="^wpme-window-title"
		visible="0">
		<VgbWPMenuEdit
			min_size="200,100"
			padding="0,0"
			alignh="fill"
			alignv="fill"
			visible="1"
			ws="NormalStyle"

			wpme.WPConfigure="^wpme-WPConfigure"
			wpme.LoadingTarget="^LoadingTarget"
			wpme.openFunc="call-edit-warp-ind"
			
			wpme.qind.NewButton="^general-new"
			wpme.qind.DelButton="^general-del"
			wpme.qind.EditButton="^general-edit"
			
			wpme.Untitled="^general-untitled"
			wpme.Details="^general-details"
			wpme.Close="^general-close2"
			
			wpme.InfoItem="^wpme-infoItem"
			wpme.InfoContent="^wpme-infoContent"
			wpme.InfoMenuTitle="^wpme-infoMenuTitle"
			wpme.InfoMenuLink="^wpme-infoLinkMenu"
			wpme.InfoType="^wpme-infoType"
			wpme.InfoTitle="^wpme-infoTitle"
			wpme.InfoTracking="^wpme-infoTracking"
			wpme.InfoResolution="^wpme-infoResolution"
			wpme.InfoRotate="^wpme-infoRotate"
			wpme.InfoCenter_x="^wpme-infoCenter_x"
			wpme.InfoCenter_y="^wpme-infoCenter_y"
			wpme.InfoBase="^wpme-infoBase"
			wpme.InfoLockBase="^wpme-infoLockBase"
			wpme.InfoLayerEntry="^wpme-infoLayerEntry"
			wpme.InfoLayerFlags="^wpme-infoLayerFlags"

			wpme.LoadMenuLink="^wpme-LoadMenuLink"
			wpme.UnloadMenuLink="^wpme-UnloadMenuLink"
			wpme.OpenInIndWindow="^wpme-OpenInIndWindow"


			wpme.wpImg="file:button/wpm.gif"
			wpme.wpgroupImg="file:button/wpgroup.gif"
			
			qind.EditEvent="e/vobj/qind-edit-window"
			qind.Eye.raw="file:eye1.gif"
			qind.Eye.elr="v2h1"
			xltreeview.Dir="HorizontalLeftToRight"
			xltreeview.Img.raw="file:../../lib/direct.gif"
			xltreeview.Img.elr0="0,0,15,15"
			xltreeview.Img.elr1="0,15,15,30"
			xltreeview.Img.elr2="0,30,15,45"

			focus="1"
			/>
	</VWindow>
</vobjTarget>
</Let>
</Define>

<Define> ^call-edit-warp () ^sym
	(call-edit-warp-ind "#warpmenu")
</Define>


<Define> ^call-edit-warp-ind () ^sym
<Let>
<Sub>
	<win><wpm-window-ind> (GE sym 1) </wpm-window-ind></win>
</Sub>
<SetStatus visible="1" size="800,700">
	(GetObjectID win 'wpm-window)
</SetStatus>
</Let>
</Define>



</vobj>

