#!/bin/sh # MetaCard 2.4 stack # The following is not ASCII text, # so now would be a good time to q out of more exec mc $0 "$@"  rangeSlider@1\ Range Slider ULucida GrandeULucida Grande ULucida Grande ULucida Grande UOsaka,Japanese UGeneva cREVGeneralstackfileversion2.7 Pon moveTriangle pLeft,pMeter,pRight,pFld,pRange,x,y if not the uAllowDrag of the target then exit moveTriangle put height of image pMeter into H if the target contains "Left" then --//Left or Right//--- set the loc of the target to min(item 1 of the loc of btn pRight-20,max(x,left of image pMeter)),\ min(bottom of image pMeter-2,max(y,top of image pMeter+ H)) else set the loc of the target to min(right of image pMeter,max(x,item 1 of the loc of btn pLeft + 20)),\ min(bottom of image pMeter -2,max(y,top of image pMeter+ H)) end if set the loc of fld pFld to item 1 of the loc of the target,item 2 of the loc of the target + 16 set the rect of grc pRange to item 1 of the loc of btn pLeft, item 2 of the rect of btn pLeft +3, \ item 1 of the loc of btn pRight, item 4 of the rect of btn pLeft -2 end moveTriangle on putTheNumber put char 2 of word 2 of the target into myFirstName --//L or R //---- put char 2 to 4 of word 2 of the name of the owner of the target into ownerName --//Group name is Red //-- put (item 1 of the loc of the target - item 1 of the rect of image (ownerName &"Meter")) into fld (myFirstName &"Fld") set the uAllowDrag of the target to false end putTheNumber  cREVGeneralscriptChecksumao_ !hcL; bookmarks handlerListmoveTriangle putTheNumberscriptSelectionchar 858 to 857 prevHandler moveTriangle tempScriptscript

on moveTriangle pLeft,pMeter,pRight,pFld,pRange,x,y

if not the uAllowDrag of the target then exit moveTriangle

put height of image pMeter into H

if the target contains "Left" then --//Left or Right//---

set the loc of the target to min(item 1 of the loc of btn pRight-20,max(x,left of image pMeter)),\

min(bottom of image pMeter-2,max(y,top of image pMeter+ H))

else

set the loc of the target to min(right of image pMeter,max(x,item 1 of the loc of btn pLeft + 20)),\

min(bottom of image pMeter -2,max(y,top of image pMeter+ H))

end if

set the loc of fld pFld to item 1 of the loc of the target,item 2 of the loc of the target + 16

set the rect of grc pRange to item 1 of the loc of btn pLeft, item 2 of the rect of btn pLeft +3, \

item 1 of the loc of btn pRight, item 4 of the rect of btn pLeft -2

end moveTriangle

on putTheNumber

put char 2 of word 2 of the target into myFirstName --//L or R //----

put char 2 to 4 of word 2 of the name of the owner of the target into ownerName --//Group name is Red //--

put (item 1 of the loc of the target - item 1 of the rect of image (ownerName &"Meter")) into fld (myFirstName &"Fld")

set the uAllowDrag of the target to false

end putTheNumber

Red i`J!,9 cREVGeneral revUniqueID 1197306496343 bookmarks handlerList tempScript prevHandlerscriptSelection char 1 to 0script RedMeter  b'TPNG  IHDR1gAMAOX2tEXtSoftwareAdobe ImageReadyqe<IDATxb?(`b Q0 F6 FZf X/̚5(d' `Pt?\>{8s? 1 gtTj(kbZ뇒@Sa(e_U$C0b~ V2%f4[bu?R(8mɀ(a#e"PA0X[x @1C P^, j   -q@[5C9U0?ZZ1qK4t}h x j lr?RTa rR&Rqa֣P/L fhfA9t`0  A%pZ\b߀k%Hn>0dHMOGaH(@{u(f Hʈ`w?:&@ #u# M졒~U(`E`p@hhQ0@Q0 F8 #Ш`^f;Qt.Q0 F8 &j!^Ҏ@/@F( F Q0 F8 FP`YFb67hK`h`Fa >@hQ0@vF( WίJIENDB` cREVGeneral revUniqueID 1197296517115 RedRangeK@xx:  cREVGeneral revUniqueID 1197299987047 LeftTrianglebB ! on mouseDown set the uAllowDrag of me to true end mouseDown on mouseMove x,y moveTriangle LeftTriangle,RedMeter,RightTriangle,LFld,RedRange,x,y end mouseMove on mouseUp putTheNumber end mouseUp on mouseRelease mouseUp end mouseRelease on mouseLeave mouseUp end mouseLeave @7 uAllowDragfalse cREVGeneralscriptChecksum0Q&kљI_ revUniqueID 1197285083250 bookmarks handlerList3mouseDown mouseMove mouseUp mouseRelease mouseLeave tempScript prevHandler mouseDownscriptSelectionchar 134 to 133script

on mouseDown

set the uAllowDrag of me to true

end mouseDown

on mouseMove x,y

moveTriangle LeftTriangle,RedMeter,RightTriangle,LFld,RedRange,x,y

end mouseMove

on mouseUp

putTheNumber

end mouseUp

on mouseRelease

mouseUp

end mouseRelease

on mouseLeave

mouseUp

end mouseLeave

RightTrianglebB  on mouseDown set the uAllowDrag of me to true end mouseDown on mouseMove x,y moveTriangle LeftTriangle,RedMeter,RightTriangle,RFld,RedRange,x,y end mouseMove on mouseUp putTheNumber end mouseUp on mouseRelease mouseUp end mouseRelease on mouseLeave mouseUp end mouseLeave @17 uAllowDragfalse cREVGeneralscriptChecksum\*3e revUniqueID 1197289279363 bookmarks handlerList3mouseDown mouseMove mouseUp mouseRelease mouseLeave tempScript prevHandler mouseDownscriptSelectionchar 134 to 133script

on mouseDown

set the uAllowDrag of me to true

end mouseDown

on mouseMove x,y

moveTriangle LeftTriangle,RedMeter,RightTriangle,RFld,RedRange,x,y

end mouseMove

on mouseUp

putTheNumber

end mouseUp

on mouseRelease

mouseUp

end mouseRelease

on mouseLeave

mouseUp

end mouseLeave

 LFld  D% cREVGeneral revUniqueID 1197298876375 47 RFld  %D' cREVGeneral bookmarks revUniqueID 1197298941278 handlerList prevHandler tempScriptscript 214meterTriangle.png 8on mouseDown put word 2 of the target end mouseDown  PNG  IHDR GgAMAOX2tEXtSoftwareAdobe ImageReadyqe<IDATxbbA] X  @J l{d9bbjY L$qbD2d5kGbf 0 Ą%:Yb5U"@tcIENDB` cREVGeneralscriptChecksum~xDݲCG#z bookmarks revUniqueID 1197779212454 handlerList mouseDownscriptSelection char 30 to 29 prevHandler mouseDown tempScriptscriptZ

on mouseDown

put word 2 of the target

end mouseDown

 Label Field DjTL cREVTable currentview:

Rev2.7 以降では、

grc "RedRange" をBlending 70% でセットします。

左上の三角は、どこか見えない所に移動させます。

 cREVGeneral revUniqueID 1197783756800 Rev2.7 NM0g0o0   /grc "RedRange" 0Blending 70% 0g0000W0~0Y0     /]N 0nN 0o00i0S0K0H0j0Db@0kyR0U0[0~0Y0 .