on preOpenStack
set the loc of this stack to the screenloc
set the style of this stack to "modeless"
end preOpenStack
---------------------------------
on openStack
switch
case "revUpdatePalette" is in the script of btn "section" of cd "RevCard" of stack "RevTemplatePalette"
answer info "This patch has been already applied." as sheet
disable btn "Apply Patch"
break
default
enable btn "Apply Patch"
end switch
end openStack
@ Apply Patch Epon mouseUp local tCurPath,tSavePath,tFileType,tScript,tLineNo,tPrompt,tResult ----- set the cursor to watch ----- saving current RevTemplatePalette: put the filename of stack "RevTemplatePalette" into tCurPath put tCurPath into tSavePath set the itemDel to slash put "RevPalette old.rev" into item -1 of tSavePath if the platform = "MacOS" then put the fileType into tFileType set the fileType to "revoRSTK" end if put url("binfile:" & tCurPath) into url("binfile:" & tSavePath) put the result into tResult if the platform = "MacOS" then set the fileType to tFileType if tResult <> empty then answer error "An error occured when saving a backup of your current home stack." \ & cr & cr & "Process has been stopped." with "Sorry" as sheet exit mouseUp end if ------ put the script of btn "section" of cd "RevCard" of stack "RevTemplatePalette" into tScript put lineOffset("resizeStack",tScript) into tLineNo disable the target if tLineNo <> 0 then put cr & " revUpdatePalette" after line tLineNo of tScript set the script of btn "section" of cd "RevCard" of stack "RevTemplatePalette" to tScript save stack "RevTemplatePalette" ----- cleaning up: put "Properties palette patch has been succesfully applied.
" & cr \ & cr & "To ensure security, a copy of the standard properties palette stack has been saved as
" & tSavePath & ".
" into tPrompt replace cr with cr & "" & cr in tPrompt answer info tPrompt as sheet else put "Properties palette patch could not be applied for un unknown reason.
" into tPrompt answer info tPrompt with "Sorry" as sheet end if end mouseUp b d cREVGeneral scriptChecksum \ЌQ{[G breakPoints handlerList mouseUpscriptSelection char 1701 to 1700 revUniqueID 1109926194716 bookmarks tempScript prevHandler mouseUpscripton mouseUp
local tCurPath,tSavePath,tFileType,tScript,tLineNo,tPrompt,tResult
-----
set the cursor to watch
----- saving current RevTemplatePalette:
put the filename of stack "RevTemplatePalette" into tCurPath
put tCurPath into tSavePath
set the itemDel to slash
put "RevPalette old.rev" into item -1 of tSavePath
if the platform = "MacOS" then
put the fileType into tFileType
set the fileType to "revoRSTK"
end if
put url("binfile:" & tCurPath) into url("binfile:" & tSavePath)
put the result into tResult
if the platform = "MacOS" then set the fileType to tFileType
if tResult <> empty then
answer error "An error occured when saving a backup of your current home stack." \
& cr & cr & "Process has been stopped." with "Sorry" as sheet
exit mouseUp
end if
------
put the script of btn "section" of cd "RevCard" of stack "RevTemplatePalette" into tScript
put lineOffset("resizeStack",tScript) into tLineNo
disable the target
if tLineNo <> 0 then
put cr & " revUpdatePalette" after line tLineNo of tScript
set the script of btn "section" of cd "RevCard" of stack "RevTemplatePalette" to tScript
save stack "RevTemplatePalette"
----- cleaning up:
put "<p><b>Properties palette patch has been succesfully applied.</b></p>" & cr \
& cr & "<p><i>To ensure security, a copy of the standard properties palette stack has been saved as</i></p><p><i>" & tSavePath & ".</i></p>" into tPrompt
replace cr with cr & "<p></p>" & cr in tPrompt
answer info tPrompt as sheet
else
put "<p><b>Properties palette patch could not be applied for un unknown reason.</b></p>" into tPrompt
answer info tPrompt with "Sorry" as sheet
end if
end mouseUp
Info x on linkClicked revmail "feedback@sosmartsoftware.com",,"About Answer Dialog Patch","Thanks for giving me your feedback!" & cr & cr end linkClicked (|& cREVGeneral scriptChecksum : ԝ4u10o bookmarks revUniqueID 1109926471772 handlerList linkClickedscriptSelection char 80 to 79 prevHandler linkClicked tempScript scripton linkClicked
revmail "feedback@sosmartsoftware.com",,"About Answer Dialog Patch","Thanks for giving me your feedback!" & cr & cr
end linkClicked
7Often I loose time switching back and forth the main option menu of any properties palette to refresh its contents because I have modified something directly in the layout or by running some code (custom properties, contents of a control, etc.) and the palette does not reflects these changes I have just made. % + This patch allows the property palette to be refreshed just by selecting again the same option menu item without having to switch to another pane and it is really less boring and faster... 6 6 ( Just click on the Apply Patch button. @ 1600 Note that the patch saves first a backup of the Toolset/revpalette.rev stack as revpalette old.rev : so you will be able to revert to the standard version if you wish it by trashing the Toolset/revpalette.rev stack and suppressing the old suffix from the backup name. @ 1600 1 2 @ : H @ R \ e W @ Enjoy! Eric Chatonet @ Flche2.png q PNG IHDR Kpl_ pHYs gAMA |Q cHRM z% u0 ` : o_F IDATxb?,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ϟ_sPuFFf bA8`(10r =zk~ Tx NP `=l|, IENDB` cREVGeneral revUniqueID 1110540770416 SSS.png Jon mouseDown revGoUrl "http://www.sosmartsoftware.com/" end mouseDown " -PNG IHDR " . pHYs .# .#x?v 9iCCPPhotoshop ICC profile xڝwTTϽwz0z.0. Qf Ml@DEHb!(`HPb0dFJ|yyǽgs{. $O ./ 'z8WGб x 0Y驾A@$/7z HeOOҬT _lN:K"N3"$F/JPrb[䥟}Qd [Sl1x{#bG\NoX3I[ql2 $ 8xtr p/8 pCfq.Knjm͠{r28?.)ɩL^6 g,qm"[Z[Z~Q7%" 3R `̊j[~ : w! $E}kyhyRm333 : }=#vʉe tqX)I)B>== <8Xȉ9on mouseDown
revGoUrl "http://www.sosmartsoftware.com/"
end mouseDown