#!/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 "$@" PropertyNameson preOpenStack if the platform is "MacOS" then set the accelText of btn 2 of cd 1 to "opt-M" else set the accelText of btn 2 of cd 1 to "alt-M" end if end preOpenStack Re ULucida Grande U ,japanese ULucida Grande UGeneva UOsaka,Japanese UOsaka,Japanese UGeneva cREVGeneralscriptChecksumjxZO bookmarks debugObjects handlerList preOpenStackscriptSelectionchar 168 to 167 prevHandler preOpenCard tempScriptscript

on preOpenStack

if the platform is "MacOS" then

set the accelText of btn 2 of cd 1 to "opt-M"

else

set the accelText of btn 2 of cd 1 to "alt-M"

end if

end preOpenStack

 P"function myPropList pObject put the properties of pObject into myProp combine myProp using return and "=" put myProp into tPropList put lineOffset("colors",tPropList) into colorLineNum delete line colorLineNum to (lineOffset("default", tPropList)-1) of tPropList put cr&"colors="&cr after line (colorLineNum -1) of tPropList return tPropList end myPropList function colorsList pObject put "foregroundColor,backgroundColor,hiliteColor,borderColor," &\ "topColor,bottomColor,shadowColor,focusColor" into colorlistNames split colorlistNames by comma put "colors="&cr into tList repeat with i=1 to the num of lines of the keys of colorlistNames put tab& colorlistNames[i] &"="& the colorlistNames[i] of pObject&cr after tList end repeat return tList end colorsList  cREVGeneralscriptChecksumkV=ߪm bookmarks handlerListmyPropList colorsList tempScript prevHandler colorsListscriptSelectionchar 800 to 799script9

function myPropList pObject

put the properties of pObject into myProp

combine myProp using return and "="

put myProp into tPropList

put lineOffset("colors",tPropList) into colorLineNum

delete line colorLineNum to (lineOffset("default", tPropList)-1) of tPropList

put cr&"colors="&cr after line (colorLineNum -1) of tPropList

return tPropList

end myPropList

function colorsList pObject

put "foregroundColor,backgroundColor,hiliteColor,borderColor," &\

"topColor,bottomColor,shadowColor,focusColor" into colorlistNames

split colorlistNames by comma

put "colors="&cr into tList

repeat with i=1 to the num of lines of the keys of colorlistNames

put tab& colorlistNames[i] &"="& the colorlistNames[i] of pObject&cr after tList

end repeat

return tList

end colorsList

  colorList)` cREVGeneralscriptChecksumُ B~ revUniqueID 1084100230064 bookmarks handlerList tempScript prevHandlermouseUpscriptSelection char 1 to 0script

 `w  propList)`& cREVGeneralscriptChecksumُ B~ revUniqueID 1084121537209 bookmarks handlerList tempScript prevHandlermouseUpscriptSelection char 1 to 0script

 `w' tScript1he_lon mouseUp get the script of this card answer information "Properties script:" &cr&cr& it end mouseUp bx0000000 cREVGeneralscriptChecksum-:"4cP_[ revUniqueID 1084124531730 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelection char 74 to 73script

on mouseUp

get the script of this card

answer information "Properties script:" &cr&cr& it

end mouseUp

field "PropList"Ex on mouseUp put "" into fld "propList" put the properties of fld "propList" into myProp combine myProp using return and "=" put myProp into fld "propList" put "fld propList" into pObject put colorsList(pObject) into fld "colorList" end mouseUp x cREVGeneralscriptChecksum[(kY!~+r< bookmarks revUniqueID 1084125610759 handlerListmouseUpscriptSelectionchar 260 to 259 prevHandlermouseUp tempScriptscript

on mouseUp

put "" into fld "propList"

put the properties of fld "propList" into myProp

combine myProp using return and "="

put myProp into fld "propList"

put "fld propList" into pObject

put colorsList(pObject) into fld "colorList"

end mouseUp

jpText4 X cREVGeneral bookmarks revUniqueID 1084129432073 handlerListscriptSelection char 1 to 0 prevHandler tempScriptscript 0000h0D0O0d0K0n  000000  Y 0H0f0D0~0Y  00"00000o  Opt+M (Mac)  Alt+M (Win)  jpText3 ?. cREVGeneral revUniqueID 1084129432074 T RM0N0Q0f  0000Y 0H0_NY0o  000000n0000g0Y  jpText1  cREVGeneral revUniqueID 1084129432075 00000000  jpText2  cREVGeneral revUniqueID 1084129432076 0000n00000000  jpText4 < cREVGeneral revUniqueID 1084130891211 SN 000000n  00000000 propColorListex on mouseUp put the name of me into tObject put myPropList(tObject) into fld "propList" put colorsList(tObject) into fld "colorList" end mouseUp 333333xBtn2opt-Mm cREVGeneral scriptChecksum863(zM handlerListmouseUp breakPointsscriptSelection char 46 to 45 revUniqueID 1084100116522 bookmarks tempScript prevHandler colorsListscript

on mouseUp

put the name of me into tObject

put myPropList(tObject) into fld "propList"

put colorsList(tObject) into fld "colorList"

end mouseUp

 propListex on mouseUp put the name of me into tObject put myPropList(tObject) into fld "propList" put colorsList(tObject) into fld "colorList" end mouseUp %x Btn1 List cREVGeneralscriptChecksum863(zM revUniqueID 1084100403346 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelectionchar 111 to 110script

on mouseUp

put the name of me into tObject

put myPropList(tObject) into fld "propList"

put colorsList(tObject) into fld "colorList"

end mouseUp