#!/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 "$@"
revAltPropList 3 on altShowPropList
palette this stack
show this stack
end altShowPropList
on altGetInfo
answer first word of fld info
end altGetInfo
on openStack
if word 1 of the systemVersion is "NT" and word 2 of the systemVersion > 5 then
put queryRegistry("HKEY_CURRENT_USER\Control Panel\Colors\MenuBar") into tColor
if tColor <> "" then
put word 1 of tColor,word 2 of tColor,word 3 of tColor into tColor
set the backgroundColor of this stack to tColor
end if
end if
end openStack
revstack false PropList Plugin
U ms sans serif
W ms sans serif
U Verdana U Verdana U Verdana
@U Verdana U ms sans serif cREVGeneral scriptChecksum {嶨>m'k
bookmarks handlerList $altShowPropList
altGetInfo
openStack tempScript prevHandler altShowPropListscriptSelection char 486 to 485script on altShowPropList
palette this stack
show this stack
end altShowPropList
on altGetInfo
answer first word of fld info
end altGetInfo
on openStack
if word 1 of the systemVersion is "NT" and word 2 of the systemVersion > 5 then
put queryRegistry("HKEY_CURRENT_USER\Control Panel\Colors\MenuBar") into tColor
if tColor <> "" then
put word 1 of tColor,word 2 of tColor,word 3 of tColor into tColor
set the backgroundColor of this stack to tColor
end if
end if
end openStack
cREVLoadInfo load chosen @
fldProperties )k ] cREVGeneral revUniqueID
1008741741038 ` @ y
Get Properties 1 Epon mouseUp
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"
if t2 <> t4 or t1<>t3 then
if t3 is not empty then
set the textColor of line thisItem of fld "fldProperties" to red
end if
else
set the textColor of line thisItem of fld "fldProperties" to black
end if
end repeat
unlock screen
end mouseUp
" 4 v cREVGeneral scriptChecksum ٯDgE-) revUniqueID
1008658341098
bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 893 to 892script on mouseUp
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"
if t2 <> t4 or t1<>t3 then
if t3 is not empty then
set the textColor of line thisItem of fld "fldProperties" to red
end if
else
set the textColor of line thisItem of fld "fldProperties" to black
end if
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
* 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ޞ