#!/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 "$@"
revAltBackdrop on altGetInfo
answer "Version 0.9"
end altGetInfo
on altSetColor
answer color
set the altBackDropColor of me to it
save me
end altSetColor
on toggleBackdrop
if the backdrop is "none" then
set the backdrop to the altBackdropColor of me
else
set the backdrop to none
end if
end toggleBackdrop
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
s A altBackdropColor 0,128,192 cREVGeneral scriptChecksum Z&[Aiߖ^
bookmarks handlerList /altGetInfo
altSetColor
toggleBackdrop
openStackscriptSelection char 657 to 656 prevHandler toggleBackdrop tempScript script on altGetInfo
answer "Version 0.9"
end altGetInfo
on altSetColor
answer color
set the altBackDropColor of me to it
save me
end altSetColor
on toggleBackdrop
if the backdrop is "none" then
set the backdrop to the altBackdropColor of me
else
set the backdrop to none
end if
end toggleBackdrop
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
@ s A altPlug.png @
altOpenVisible falsealtPlugFileName revAltBackdrop.rev
altOnClickMe toggleBackdropaltMenu Info
-
Set ColoraltMenuHandlers altGetInfo
altSetColor /toggles the backdrop, right-click to set color PNG
IHDR szz gAMA a QIDATxM4gRd{ YpVRUP b.*l!o,$ٲ>vd[~-~%UD BQ hRp8B } > aeƻ
L@2 }%L k
+"elzTL̫/ӕ>}ImFGHS+j
? ~&9'ޖ\[9=E*Dfmb7j *lD sk=Y
d+/{jUYn;s5 Y ^zn 8w0Oe$sG
ʛO )ڐ8g/o߁} Nq8FG^pVXvenݕSxr;cz߂he.+'=w\{tc^sn/ Vk.Y+nf@lSDΣ| +x[s:}/@V1S1
h^;YsR9fTa*6MH)'+d%@
p [&bLaפ8ZRahR,i}me뉀,6`
! PxF!%'& Th*iq90 IENDB` cREVGeneral revUniqueID
1042874011522