/*
Answer Dialog Links Patch by Eric Chatonet
sosmartsoftware.com
August 2005
*/
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 "on linkClicked" is in the script of cd 1 of stack "Answer Dialog"
answer info "This patch has been already applied." as sheet
disable btn "Apply Patch"
break
default
enable btn "Apply Patch"
end switch
end openStack
---------------------------------
function HomePath
local tFilePath
-----
put the stacks into tFilePath
filter tFilePath with "*revmenubar.rev"
if tFilePath = empty then
answer error "Could not find the right path." with "Sorry"
exit to top
else
set the itemDel to slash
put "license.rev" into item -3 to -1 of tFilePath
if there is a file tFilePath then return tFilePath
answer error "Could not find License.rev stack." with "Sorry"
exit to top
end if
end HomePath
@ Apply Patch Epon mouseUp local tCurPath,tSavePath,tFileType,tScript,tPrompt ----- set the cursor to watch ----- saving current home: put HomePath() into tCurPath -- C put tCurPath into tSavePath set the itemDel to slash put "license 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 cd 1 of stack "Answer Dialog" into tScript set the script of cd 1 of stack "Answer Dialog" to tScript & the script of btn "NewScript" save stack "Home" ----- cleaning up: disable the target put "Answer Dialog Links patch has been applied succesfully.
" & cr \ & cr & "To ensure the security, a copy of your previous Home stack has been saved as
" & tSavePath & ".
" into tPrompt replace cr with cr & "" & cr in tPrompt answer info tPrompt end mouseUp d cREVGeneral scriptChecksum c~Rĵ} handlerList mouseUp breakPoints scriptSelection char 1014 to 1013 bookmarks revUniqueID 1109926194716 prevHandler mouseUp tempScript scripton mouseUp
local tCurPath,tSavePath,tFileType,tScript,tPrompt
-----
set the cursor to watch
----- saving current home:
put HomePath() into tCurPath -- C
put tCurPath into tSavePath
set the itemDel to slash
put "license 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 cd 1 of stack "Answer Dialog" into tScript
set the script of cd 1 of stack "Answer Dialog" to tScript & the script of btn "NewScript"
save stack "Home"
----- cleaning up:
disable the target
put "<p><b>Answer Dialog Links patch has been applied succesfully.</b></p>" & cr \
& cr & "<p><i>To ensure the security, a copy of your previous Home 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
end mouseUp
Info x don linkClicked pLink if "@" is in pLink then revMail pLink else revGoUrl pLink end linkClicked (|~ cREVGeneral scriptChecksum n͛ל)r revUniqueID 1109926471772 bookmarks handlerList linkClicked tempScript prevHandler linkClickedscriptSelection char 1 to 0scripton linkClicked pLink
if "@" is in pLink then revMail pLink
else revGoUrl pLink
end linkClicked
3This patch for Revolution/DreamCard Answer Dialog " 1 2 Aallows to insert functional links in your prompts built in html. @ UPlease, note that the patched Answer Dialog will only recognize the following links: T 3A website address: http://www.sosmartsoftware.com/ ,A mailTo: eric.chatonet@sosmartsoftware.com ! How to apply this patch? ( Just click on the Apply Patch button. @ 1600 Note that the patch saves first a backup of your license.rev stack as license old.rev : so you will be able to revert to the previous state if you wish it by trashing the license.rev stack and suppressing the old suffix from the backup name. @ 1600 2 3 > H X U Enjoy! Eric Chatonet. 8If you desire to learn how to built answer dialogs in html providing styled prompts with links, just go to the So Smart Software website and download Tutorials Picker, a plugin that lets you access to many tutorials, one of which, called "Managing Answer Dialogs" , provides an automated html prompt builder :-) o o @ 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
NewScript Ep -- Addup from Answer Dialog Links Patch by Eric Chatonet (August 2005): on linkClicked pLink if "@" is in pLink then revMail pLink else revGoUrl pLink end linkClicked d R cREVGeneral scriptChecksum K'W+* bookmarks revUniqueID 1119423709526 handlerList linkClickedscriptSelection char 2 to 1 prevHandler closeStack tempScript script-- Addup from Answer Dialog Links Patch by Eric Chatonet (August 2005):
on linkClicked pLink
if "@" is in pLink then revMail pLink
else revGoUrl pLink
end linkClicked