#!/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 "$@"
revPropList 3 < , PropList Plugin
U ms sans serif
W ms sans serif
U Verdana U Verdana U Verdana
@U Verdana U ms sans serif
cREVLoadInfo load startup @ < ,
fldProperties )k ] cREVGeneral revUniqueID
1008741741038 ` @ y
Get Properties 1 Epon mouseUp
beep
put the selectedObject into PropObj
if PropObj is empty then
answer warning "Please Select an Object First"
exit mouseUp
end if
put the long name of PropObj into fld "fldObject1"
--lock screen
put the properties of PropObj into thearray
put the keys of thearray into keyList
set itemDel to tab
repeat with thisItem = 1 to the number of lines in the keys of thearray
put item 3 of line thisItem of fld "fldProperties" into t3
put item 4 of line thisItem of fld "fldProperties" into t4
put line thisItem of keyList into t1
put thearray[line thisItem of keyList] into t2
replace linefeed with " " in t2
put t1 & tab & t2 & tab & t3 & tab & t4 into line thisItem of fld "fldProperties"
end repeat
--unlock screen
end mouseUp
" 4 v cREVGeneral scriptChecksum Wc.5
2
bookmarks revUniqueID
1008658341098 handlerList mouseUpscriptSelection char 768 to 767 prevHandler mouseUp tempScript script on mouseUp
beep
put the selectedObject into PropObj
if PropObj is empty then
answer warning "Please Select an Object First"
exit mouseUp
end if
put the long name of PropObj into fld "fldObject1"
--lock screen
put the properties of PropObj into thearray
put the keys of thearray into keyList
set itemDel to tab
repeat with thisItem = 1 to the number of lines in the keys of thearray
put item 3 of line thisItem of fld "fldProperties" into t3
put item 4 of line thisItem of fld "fldProperties" into t4
put line thisItem of keyList into t1
put thearray[line thisItem of keyList] into t2
replace linefeed with " " in t2
put t1 & tab & t2 & tab & t3 & tab & t4 into line thisItem of fld "fldProperties"
end repeat
--unlock screen
end mouseUp
titles @
zu ] cREVGeneral revUniqueID
1008741741038 "Property1 Value1 Property2 Value2
! New Button A` @ 1 [ cREVGeneral revUniqueID
1008743653749
fldObject1 )` N , cREVGeneral revUniqueID
1008743731355 ` @ O
* Mac Stack Height Flipper
Bon mouseUp
if the altKey is down then
if the style of this stack is palette then
set the style of this stack to topLevel
else
set the style of this stack to palette
end if
exit mouseUp
end if
if the width of stack "revPropList" is 60 then set the rect of this stack to the topLeft of this stack, the left of this stack + 391, the top of this stack + 410
else set the rect of this stack to the topLeft of this stack, the left of this stack + 60, the top of this stack + 44
end mouseUp
@ < , cContractedStackHeight 400cExpandedStackHeight 500 cREVGeneral scriptChecksum sg`=0U' revUniqueID
1007887317041
bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 504 to 503script eon mouseUp
if the altKey is down then
if the style of this stack is palette then
set the style of this stack to topLevel
else
set the style of this stack to palette
end if
exit mouseUp
end if
if the width of stack "revPropList" is 60 then set the rect of this stack to the topLeft of this stack, the left of this stack + 391, the top of this stack + 410
else set the rect of this stack to the topLeft of this stack, the left of this stack + 60, the top of this stack + 44
end mouseUp
info.png @ < , PNG
IHDR < , HL
7iCCPPhotoshop ICC profile xwTSϽ7PkhRH
H.*1 J "6DTpDQ2(C"QDqpIdy͛ ~kg}ֺ LX Xňg` l pBF|،l *? Y"1 P\8=W%Oɘ4M0J"Y2Vs,[|e92<se'9`2&ctI@o|N6 (.sSdl-c(2-y H_/XZ.$&\SM07#1ؙY r fYym";8980m-m(]v^D W~
emi ]P`/ u}q |^R,g+\Kk)/C_|Rax8t1C^7nfzDp 柇 u $/ED˦L L[B@ٹЖX!@~ (* {d+} G͋љς}WL$cGD2QZ4 E@@ A(q`1D `'u46ptc48.`R0)
@Rt C XCP %CBH@R f[(t
CQhz#0 Zl`O828 .p|O×X
?:0FBx$ !i@ڐ H[EE1PL ⢖V6QP>U(j
MFk t,:.FW 8c1L &ӎ9ƌaX:
rbl1
{{{;}#tp8_\8"Ey.,X%%Gщ1-9ҀKl.oo/O$&'=JvMޞ