#!/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 "$@" BManaging Titlebars2"Q/* Decorations Stack By Eric Chatonet 3/6/05 http://www.sosmartsoftware.com/ */ Managing Titlebars ULucida Grande ULucida Grande WLucida Grande WLucida Grande WCourier UCourier UCourier UCourier AULucida Grande @ULucida GrandePulldown Menu cREVGeneral scriptChecksum9pAu69Q debugObjects breakPoints handlerListscriptSelection char 42 to 41 bookmarks tempScript prevHandlercommandKeyDownscripta

/*

Decorations Stack

By Eric Chatonet

3/6/05

http://www.sosmartsoftware.com/

*/

 Pon preOpenStack set the style of this stack to modeless set the loc of this stack to the screenLoc end preOpenStack ------------------------------------ on UpdateDecorations local tNum,tDecorationsList ----- put 0 into tNum repeat with i = 1064 to 1066 if the hilite of btn ID i and the enabled of btn ID i then put the short name of btn ID i & comma after tDecorationsList add 1 to tNum end if end repeat delete last char of tDecorationsList set the decorations of this stack to "title," & tDecorationsList if tDecorationsList <> empty then if tNum = 3 then put "set the decorations of this stack to default" into fld "Deco" else put "set the decorations of this stack to" && quote & "title,menu," & tDecorationsList & quote into fld "Deco" else put "set the decorations of this stack to" && quote & "title,menu" & quote into fld "Deco" end if select text of fld "Deco" end UpdateDecorations  cREVGeneralscriptChecksumV(+LIN\ ɘ bookmarks breakPoints handlerListpreOpenStack UpdateDecorationsscriptSelection char 16 to 15 prevHandler preOpenStack tempScript

on preOpenStack

set the style of this stack to modeless

set the loc of this stack to the screenLoc

end preOpenStack

------------------------------------

on UpdateDecorations

local tNum,tDecorationsList

-----

put 0 into tNum

repeat with i = 1064 to 1066

if the hilite of btn ID i and the enabled of btn ID i then

put the short name of btn ID i & comma after tDecorationsList

add 1 to tNum

end if

end repeat

delete last char of tDecorationsList

set the decorations of this stack to "title," & tDecorationsList

if tDecorationsList <> empty then

if tNum = 3 then put "set the decorations of this stack to default" into fld "Deco"

else put "set the decorations of this stack to" && quote & "title,menu," & tDecorationsList & quote into fld "Deco"

else

put "set the decorations of this stack to" && quote & "title,menu" & quote into fld "Deco"

end if

select text of fld "Deco"

end UpdateDecorations

script

on preOpenStack

set the style of this stack to modeless

set the loc of this stack to the screenLoc

end preOpenStack

------------------------------------

on UpdateDecorations

local tNum,tDecorationsList

-----

put 0 into tNum

repeat with i = 1064 to 1066

if the hilite of btn ID i and the enabled of btn ID i then

put the short name of btn ID i & comma after tDecorationsList

add 1 to tNum

end if

end repeat

delete last char of tDecorationsList

set the decorations of this stack to "title," & tDecorationsList

if tDecorationsList <> empty then

if tNum = 3 then put "set the decorations of this stack to default" into fld "Deco"

else put "set the decorations of this stack to" && quote & "title,menu," & tDecorationsList & quote into fld "Deco"

else

put "set the decorations of this stack to" && quote & "title,menu" & quote into fld "Deco"

end if

select text of fld "Deco"

end UpdateDecorations

@06>?ABlackCheckmark.png PNG  IHDR  pHYs  gAMA|Q cHRMz%u0`:o_FxIDATxb` 17 R@L:̤/@,0@1I +x%@LħHW ť$@PIV dĊK806IENDB` cREVGeneral revUniqueID 1109347801497 0Deco)pqon enterInField do target end enterInField ------------------- on returnInField do target end returnInField @ cREVGeneralscriptChecksumZlvgd,=j bookmarks revUniqueID 1109849448492 handlerListenterInField returnInFieldscriptSelectionchar 112 to 111 prevHandlerenterKey tempScriptscript

on enterInField

do target

end enterInField

-------------------

on returnInField

do target

end returnInField

 Aset the decorations of this stack to "title,menu,minimize,close"6 ,i0Ion mouseUp local tStyle ----- put the short name of the target into tStyle if the style of this stack <> tStyle then set the style of this stack to tStyle if the enabled of grp "CheckBoxes" then set the enabled of btn "Minimize" to tStyle <> "palette" UpdateDecorations -- C select text of fld "Deco" end mouseUp .n| Window Style  cREVGeneralscriptChecksumrw?1GAu\0t revUniqueID 1109856297295 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelectionchar 266 to 265scriptD

on mouseUp

local tStyle

-----

put the short name of the target into tStyle

if the style of this stack <> tStyle then set the style of this stack to tStyle

if the enabled of grp "CheckBoxes" then set the enabled of btn "Minimize" to tStyle <> "palette"

UpdateDecorations -- C

select text of fld "Deco"

end mouseUp

4 topLevel`d"[R TopLevel cREVGeneral revUniqueID 1109856284783 5palette`d"rRPalette cREVGeneral bookmarks revUniqueID 1109856285697 handlerListmouseUp prevHandler tempScriptscript > ,i0on mouseUp local tNum ----- put the hilitedButton of me into tNum switch tNum case 1 disable grp "CheckBoxes" set the decorations of this stack to empty put "set the decorations of this stack to empty" into fld "Deco" break case 2 enable grp "CheckBoxes" UpdateDecorations -- C end switch if tNum = 2 then set the enabled of btn "Minimize" to the style of this stack <> "palette" select text of fld "Deco" end mouseUp .;|Title Bar Style  cREVGeneralscriptChecksum۽Vٜ+O. revUniqueID 1109857369930 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelectionchar 329 to 328script;

on mouseUp

local tNum

-----

put the hilitedButton of me into tNum

switch tNum

case 1

disable grp "CheckBoxes"

set the decorations of this stack to empty

put "set the decorations of this stack to empty" into fld "Deco"

break

case 2

enable grp "CheckBoxes"

UpdateDecorations -- C

end switch

if tNum = 2 then set the enabled of btn "Minimize" to the style of this stack <> "palette"

select text of fld "Deco"

end mouseUp

;Without Title BarhDGv cREVGeneral revUniqueID 1109857161985 =hd=GTitle Bar with: cREVGeneral bookmarks revUniqueID 1109857211709 handlerListmouseUp prevHandler tempScriptscript  Info pon linkClicked pLink lock screen go stack "revDocs" if revAppVersion() = 2.5 then put pLink into fld "Find" set the menuhistory of btn "Filter type" to 1 send "mouseUp" to btn "Go" end if end linkClicked  cREVGeneralscriptChecksumb|"A"S revUniqueID 1109350253372 bookmarks handlerList linkClicked tempScript prevHandler linkClickedscriptSelectionchar 225 to 224script

on linkClicked pLink

lock screen

go stack "revDocs"

if revAppVersion() = 2.5 then

put pLink into fld "Find"

set the menuhistory of btn "Filter type" to 1

send "mouseUp" to btn "Go"

end if

end linkClicked

 #How-To stack #009 by Eric Chatonet @" 3/3/05 Initial release @  @1606    75/10/05 Consideration of Revolution2.5.1 enhancements  @1606 . B5/30/05 Miscellaneous changes for Tutorials Picker compatibility  @1606 9 QThis stack shows all the different title bars a window can display with Rev 2.x. @P Enjoy! @  With Rev versions prior to 2.5.1, the Stack Property Inspector dialog lets you choose between 4 sets of title bar controls (with wrong illustrations :-) but 4 interesting combinations are absent (close box only for instance). Then you will have a better control by scripting! @1600 " @# 2With Rev 2.5.1, all options are now available :-) @1 @ The menu keyword affects the visible of the menus on Windows and Unix. Then if you remove this keyword from the code, the menu bar will not be shown on Windows and Unix (ignored on Mac OS). @1600   Other keywords that affect the window appearance can be included as system (Mac OS X, Unix and Windows only), noShadow (Mac OS X only) and metal (Mac OS X only). @1600 E F L$ p x   P Paste the code into the message box and apply it to the stack of your choice. @1600 G H 7See decorations property in the docs for more details.    ' B `SSS.png  Hon mouseDown revGoUrl "http://www.sosmartsoftware.com" end mouseDown "-PNG  IHDR". pHYs.#.#x?v 9iCCPPhotoshop ICC profilexڝwTTϽwz0z.0. Qf Ml@DEHb!(`HPb0dFJ|yyǽgs{.$O./ 'z8WGбx0Y驾A@$/7z HeOOҬT_lN:K"N3"$F/JPrb[䥟}Qd[Sl1x{#bG\NoX3I[ql2$ 8xtrp/8 pCfq.Knjm͠{r28?.)ɩL^6g,qm"[Z[Z~Q7%" 3R`̊j[~: w!$E}kyhyRm333: }=#vʉe tqX)I)B>== <8Xȉ9yP:8p΍Lg kk Ѐ$t!0V87`ɀ2A. @JPA#h'@8 .: ``a!2D!UH 2 dA>P ECqB**Z:]B=h~L2  5pN:|ó@ QC !H,G6 H9R ]H/r Aw( Q(OTJCm@*QGQ-(j MF+ 6h/*t:].G7Зw7 Xa<1:L1s3bXyeb~19 vGĩp+5qy^ oó|= ?'Htv`Ba3BDxHxE$Չ"XAP44077&9$An0;T2421t.54ld+s;# V]=iY9FgM֚k&=%Ō:nc1gcbcfX.}lGv{c)LŖN퉛w/p+/<j$.$%&㒣OdxTԂԑ4i3|o~C:&S@L u[Uo3C3OfIgwdO|;W-wsz 17jl8c͉̈́3+{%lKWr[ $ llGmnacOkE&EEY׾2⫅;K,KhtiN=e²{^-_V^Oo§s]?TWީrjVQ=w}`嚢zԶiו8>k׍ E  [ly邟~_Y53rW򯎼^{7so}x>|쇊z>yzgAMA|Q cHRMz%u0`:o_F"IDATxbax& O?"?z$<@,X< dz,,2{H?Hk4^B˧̌<4i_rD@,hgaӊb:޾zo]ǷDr8 4y6{5ݕ]WMż#٩ƧoZQqm8$Iyon0w 3+ `8 K d+ ,?ۏҟ]xۥW/~g33+?@S_B9.3_823J{;kc :e'HfCqΈ#{x#Sxs`]Ϛ[^>Y5c+?8r2,FF zh(~(M Ѱ狻v%?d|\>}aeE,^%oΦU{ǃ_Tdگ?w>ytfo <"JYղC"%.686lq-dG &pK\j{H@FeoFWwnAςDE|Փg{Y8~#%̅~f^U8]#50Ln>n^>~f[v6&߰ d cvF>H?~ߟ郹,",Z9}WX%ëXDHĄŠ 9J02qrrﳃ_+yop6E[?;3R.QYy844>?ǛGW50s[s|DYޜs%fq-9_KLu~W=\j^n+!a&lgǯ^ӏ]m rB#ǻ? hV.n6%Lz<х ;'￿ ?g{3蟿~/,r6 ~rOmsy9<9'x9 s-RXxծ|:,>̲ܿ?R= w3< 0 C_>;%'o3_?*imcރ?"2BqN.z6UI/"N~|zʲ/Ho_8AII[9Ԟ|d/O^0Q-$*ۻ= ?:Ű̢*'c*fy_ο> ^Q0si.c``_̒NL l [{p H),x]^ F o1ٍ-w}R0XxkqF_bh6^ . f6F Y. M;S.!IΞz+ *rO3߿z:;;El9%5<{{ˣa!0F6q!qNq M ߿,Oمye-d~82ċsɫ }?R\]WɫJEYDMI\XBV^]$L\ҺJj\6_d x }#ǩB__=r{ 73昳ps0+hڙ7}T~˻oya!!#v</^#.+YXUGN?FSHERTYQHXVDWߞ\RP&-<*e|o:ԹDZO\C7VUAqc㗶ɔ2SRS^!ѕ򊼡r2\vont@W޳2.>eͩ\Pvw׾zY-NݛoM7+Iq+Z( V2{sW/~PvKꙟ(wnZ_V!_xDľTbƯ@I]u &vnn:aAJJ}0-{aQf_>\~A>/x a|x]=҆'?X=ۜ\VqIe̩>[g$\be4 KkabEXOH9 ϟqɍO^-V`ʇ{<~y1I 2sps2 }g,,j2 UWUgWĿ630~}go |mĦ#".$"oϸd⃥>_v>AFN~A&HFLOhpIY PW&У O7., ٲ;|e  ,(|w(㷕 ~ մ6岛6mcC  ŋ"Ogw^z`)PK(B ]SLhُn gyf quc|xw铦-Wfh9Ӌn?zzȅ<U6t5J{ʜ&'O;/?_SģNZƯƐ1D#Ey8rD9*{2hl8zi{᧖UqP$(M[QWc 'Ӆn@ȏ>ov7V9:V Ɇ12 QWB`"EkyщYeWާӝwZ\i+7M4+' 6 7J7tAcV3! abF$Lup!5ӭ4ՠn es=>zZ$g?./}<9YS8RGJRpVܩ-M/)=PXT<_1CWMr!lqy[KIE 1A fzY-3W‘W]d7ۑRVͿ h(Tb 69|yfʖ V&%a&'Jt^c N@JXJԎ0yof6>0S'_!à-c0_cFˮ ¶ 2.5 XjS%-X%ԑ0ꀣÝz]m?^8%g*@̶2)x+[V,$p59'>qdI@%˟x/Ⱥ)e9RJ)sRCbN+$ %\w7[:·mwhMNl'bIг܂:m֐kuF]i.w/_ߞo]e3 p ؂_.b,&kWLZSϯ_nlvӓ~K@LTKT]PRV }xuc&G%+v6FQIUVPqyV<<>~z';;0v..Vf&fv6VfV`A痏RQJEME&X@w2(9XW.wLrjɲ&(A[հxUe||RZ*)b< D.N`Q+,'ۤ ԳQxɗ<~}i]`b'lg54`g|}ƉOOE.FB XKl ɻuVGDTT`}yBXvRbgW1P燔vx4v  _vM{Dun` `C73\&vU+_R^;LJן_]>[DLk~5+RigvYJQˏ[̎ZN32;?߿???ٝ;?>|sbҒڞR?>~x!*h/|&xwoJDX̎[cƒ+_ X'*fZ+k”WCּs Ý _=l>$ٹ#WTOGOGp[`0W'=?Ǡw\"zi+'Z{7Μ r7/_ZAˋfeTxoW@Ps&on?MM(WT ֥y E 6!ßon7?ҿ?>zr[ Ƿ7?y򆘦<^\۽bꅅ Wuov>ZBݩ>SV'_]:2@W_?6Zd~|t󯰲S_:w5w~O_7;GL7H^츹kfamo>xtv!޳+O=`F`]7^\9xɉ-o8ee~¯oo iWԿ=4!MU3A~1?@KOa}`~H/7737?>o(2A_?{u'>7 `==Wpi}dϧ'v.Ⱦ2Y^<ӇXyy~~{'6~u+h ë >q^!eV w2{*wξ ?pf/+po?>+a%,-G!xs{ UziN:Lȉj?bFbFZ`X!C_5 lfUHv#H{ y*ϊa-Xc \|(:mJ[}pwwK\ӻ^7#`@jE f{&0HaOeR^b:"8r G#Rτ%P>-Z[XhWCC VAGL[X _DGY36ؘs`AX@z?6e_4B+LI=88hY X"=G1"978H3X˄ ۦ { nfh !l8t~C)yyޞoՙoo-Hu,k-Te5ʈfFK\{Hpehu?" GDÆGZK'h?D⡕B>,,7ug'H= `ı} /Q@60,lk1'!l"F?M!H \2nha?h"?͈+#Ă'?[BX?Z'$V} e@)ii@:TZVJ@, \͌o'zM[{@D}3<bhT``4Ӥ(IENDB` cREVGeneralscriptChecksum`}^.e bookmarks revUniqueID 1109350299073 handlerList mouseDownscriptSelection char 13 to 12 prevHandler tempScriptscript

on mouseDown

revGoUrl "http://www.sosmartsoftware.com"

end mouseDown

@ Flche2.png z PNG  IHDR Kpl_ pHYs  gAMA|Q cHRMz%u0`:o_FIDATxb?,Xv$ϯ.?~~e'P#@11 @?~23_k_?V@p /÷>|()%ţ,%-F2\@ *n w JU牓/_ o_ū(II` b`AM]Nk5 _ ,?d+@021~K?@fӬ ~W XXY};w<||| ߿}Kw^W@koǑ74;Gڷo_߿uLL7qe`&Fqϟ_sPuFFfbA8`(10r=zk~ TxNP`=l|,IENDB` cREVGeneral revUniqueID 1109350346443  Label Field  cREVGeneral revUniqueID 1109848485103 #Play with the different options...? CheckBoxesi2on mouseUp UpdateDecorations -- C end mouseUp OZ}J cREVGeneralscriptChecksumn'xQ revUniqueID 1109858304742 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelection char 37 to 36script

on mouseUp

UpdateDecorations -- C

end mouseUp

( minimizehdS^uMinimize/Iconify cREVGeneral revUniqueID 1109849180513 ) maximizehdSsuMaximize/Zoom cREVGeneral revUniqueID 1109849180514 *closehdSuClose cREVGeneral revUniqueID 1109849180515  A Label Field d cREVGeneral revUniqueID 1109859677823 Code: