This page uses frames:" & cr & "Can't retrieve relevant data from such an architecture." \ & cr & cr & "To" && pAction && "this reference manually:" & cr \ & cr & "1. Create a .txt file" \ & cr & "2. Put the URL into the first line of it" \ & cr & "3. Paste the contents of the page" \ & cr & "4. Name the file as you wish" \ & cr & "5. Drop the file into your local folder
" into tPrompt replace cr with "" & cr & "" in tPrompt -- that is the trick :-) answer error tPrompt as sheet end AnswerFramedPage cREVGeneral scriptChecksum fIm5d bookmarks handlerList kpreOpenStack preOpenCard selectionChanged rawKeyUp BuildCode revColorScript revSetupColors AnswerFramedPage breakPoints tempScript prevHandler BuildCodescriptSelection char 785 to 784script s
on preOpenStack
set the style of this stack to "modeless"
set the loc of this stack to the screenLoc
end preOpenStack
------------------------------------
on preOpenCard
put the scriptTextFont into tFont
if tFont = empty then
switch the platform
case "MacOS"
set the textFont of fld "Script" to "Courier"
break
case "Win32"
set the textFont of fld "Script" to "Courier New"
break
default
set the textFont of fld "Script" to "Helvetica"
end switch
else set the textFont of fld "Script" to tFont
set the textSize of fld "Script" to 12
put "Enter a prompt here" into fld "Text"
set the textFont of char 1 to -1 of fld "Text" to empty
lock messages
select text of fld "Text"
unlock messages
BuildCode --
enable btn "Show Dialog"
end preOpenCard
------------------------------------
on selectionChanged
BuildCode --
end selectionChanged
------------------------------------
on rawKeyUp
BuildCode --
set the enabled of btn "Show Dialog" to fld "Text" <> empty
set the enabled of btn "Copy" to fld "Script" <> empty
pass rawKeyUp
end rawKeyUp
------------------------------------
on BuildCode
if fld "Text" = empty then put empty into fld "Script"
else
if the hilite of btn "Use HTML" then
put the htmlText of fld "Text" into tPrompt
replace quote with quote && "& quote &" && quote in tPrompt
else
put fld "Text" into tPrompt
end if
repeat with i = 1 to the number of lines of tPrompt
if not the hilite of btn "Use HTML" and quote is in char 2 to -2 of line i of tPrompt then
put char 2 to -2 of line i of tPrompt into tempText
replace quote with quote && "& quote &" && quote in tempText
put tempText into char 2 to -2 of line i of tPrompt
end if
if char 1 of line i of tPrompt = quote then put "quote &" && quote into char 1 of line i of tPrompt
if char -1 of line i of tPrompt = quote then put quote && "& quote" into char -1 of line i of tPrompt
if word 1 of line i of tPrompt <> "quote" then put quote & line i of tPrompt into line i of tPrompt
if word -1 of line i of tPrompt <> "quote" then put line i of tPrompt & quote into line i of tPrompt
if i > 1 then put " & cr & " before line i of tPrompt
end repeat
replace cr with " \" & cr in tPrompt
put "put " before tPrompt
put " into tPrompt" after tPrompt
put cr & "answer" && the hilitedButtonName of grp "radio" && "tPrompt" && "with " after tPrompt
if fld "Default" <> empty then
if fld "Button3" <> empty then put quote & fld "Button3" & quote && "or " after tPrompt
if fld "Button2" <> empty then put quote & fld "Button2" & quote && "or " after tPrompt
put quote & fld "Default" & quote after tPrompt
end if
if fld "Title" <> empty then put " titled" && quote & fld "Title" & quote after tPrompt
if the hilite of btn "Sheet" then put " as sheet" after tPrompt
replace " &" && quote & quote & "" with empty in tPrompt
replace quote & quote with quote && "& quote &" && quote in tPrompt
put tPrompt & cr into fld "Script"
revColorScript --
end if
end BuildCode
------------------------------------------------
on revColorScript
global gREVScriptColors
if gREVScriptColors["if"] is empty then revSetupColors
put field "script" into tScript
put 1 into tCurrentWord
lock screen
set the textColor of word 1 to -1 of fld "script" to empty -- remove any colors in use
repeat for each word w in tScript
--block comment color
if char 1 to 2 of w is "/*" then
put true into tBlockComment
end if
if tBlockComment then
if char 1 to 2 of w is "*/" then
set the textColor of word tCurrentWord of fld "script" to "DarkOrchid4"
put false into tBlockComment
else
set the textColor of word tCurrentWord of fld "script" to "DarkOrchid4"
add 1 to tCurrentWord
next repeat
end if
end if
if char 1 of w is quote then
set the textColor of word tCurrentWord of field "script" to empty
add 1 to tCurrentWord
next repeat
end if
if gREVScriptColors[token 1 of w] is not empty then
set the textColor of token 1 of word tCurrentWord of field "script" to gREVScriptColors[token 1 of w]
end if
add 1 to tCurrentWord
end repeat
put min(lineoffset("#", tScript), lineoffset("--", tScript)) into tOldLine
if tOldLine is 0 then put max(lineoffset("#", tScript), lineoffset("--", tScript)) into tOldLine
put 0 into tLineNo
repeat -- while tOldLine is not 0
if tOldLine is 0 then exit repeat
add tOldLine to tLineNo
put line tLineNo of tScript into tCurrentLine
put the number of words in tCurrentLine into tNumWords
repeat with tCurrentWord = 1 to tNumWords
if char 1 of word tCurrentWord of tCurrentLine is "#" or char 1 to 2 of word tCurrentWord of tCurrentLine is "--" then
put the number of words in tCurrentLine into tNumWords
set the textColor of word tCurrentWord to tNumWords of line tLineNo of field "script" to "DarkOrchid4"
exit repeat
end if
end repeat
put min(lineoffset("#", tScript, tLineNo), lineoffset("--", tScript, tLineNo)) into tOldLine
if tOldLine is 0 then put max(lineoffset("#", tScript, tLineNo), lineoffset("--", tScript, tLineNo)) into tOldLine
end repeat
unlock screen
end revColorScript
------------------------------------------------
on revSetupColors
global gREVScriptColors
delete global gREVScriptColors
put the cCustomColorsList of stack "revPreferences" into tColorsList
put line 1 of the cBuiltInColors of stack "revPreferences" into tColor
replace "command" with tColor in tColorsList
repeat for each word w in the commandNames
put tColor into gREVScriptColors[w]
end repeat
put line 2 of the cBuiltInColors of stack "revPreferences" into tColor
replace "Control Structure" with tColor in tColorsList
repeat for each word w in "if then else repeat for with while on end switch case getprop setprop try catch"
put tColor into gREVScriptColors[w]
end repeat
put line 3 of the cBuiltInColors of stack "revPreferences" into tColor
replace "Functions" with tColor in tColorsList
repeat for each word w in the functionNames
put tColor into gREVScriptColors[w]
end repeat
put line 4 of the cBuiltInColors of stack "revPreferences" into tColor
replace "Property" with tColor in tColorsList
repeat for each word w in the propertyNames
put tColor into gREVScriptColors[w]
end repeat
put 1 into tCount
put the cCustomWordList of stack "revPreferences" into tWordsList
repeat for each line l in tWordsList
put line tCount of tColorsList into gREVScriptColors[l]
add 1 to tCount
end repeat
end revSetupColors
------------------------------------------------
on AnswerFramedPage pAction -- as an example; not used in this stack
put "<p><b>This page uses frames:</b>" & cr & "Can't retrieve relevant data from such an architecture." \
& cr & cr & "To" && pAction && "this reference manually:" & cr \
& cr & "<i>1. Create a .txt file" \
& cr & "2. Put the URL into the first line of it" \
& cr & "3. Paste the contents of the page" \
& cr & "4. Name the file as you wish" \
& cr & "5. Drop the file into your local folder</i></p>" into tPrompt
replace cr with "</p>" & cr & "<p>" in tPrompt -- that is the trick :-)
answer error tPrompt as sheet
end AnswerFramedPage
# . ! % @ 3 4 5 ' 6 Show Dialog Ep `on mouseUp BuildCode -- C do fld "Script" put "it variable contains:" && it end mouseUp d cREVGeneral scriptChecksum BsW ;: handlerList mouseUp breakPoints scriptSelection char 19 to 18 revUniqueID 1113288937307 bookmarks tempScript prevHandler mouseUpscript 2on mouseUp
BuildCode -- C
do fld "Script"
put "it variable contains:" && it
end mouseUp
Script )h @ #KV cREVGeneral revUniqueID 1113288980608 .put "Enter a prompt here
" into tPrompt @ blue * Aanswer info tPrompt with "Cancel" or "OK" titled "Test" as sheet @ blue @ brown # @ blue ; ` hL v a $E SSS.png Hon 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
Commands i %~ cREVGeneral revUniqueID 1113297858120 Text )` @ # Y" y cREVGeneral bookmarks revUniqueID 1113292456037 handlerList scriptSelection char 4 to 4 prevHandler tempScript script Enter a prompt here ` 4 Z h * a $ InfoIcon bB @ ] # " cREVGeneral revUniqueID 1113293876997 warningIcon bB @ " # cREVGeneral revUniqueID 1113294094450 ErrorIcon bB @ ! " cREVGeneral revUniqueID 1113294123655 Radio i +on mouseUp BuildCode -- C end mouseUp e ] o cREVGeneral scriptChecksum |Tzn` bookmarks revUniqueID 1113294653773 handlerList mouseUpscriptSelection char 29 to 28 prevHandler tempScript scripton mouseUp
BuildCode -- C
end mouseUp
info `@ i a cREVGeneral revUniqueID 1113293867980 warning `@ i cREVGeneral revUniqueID 1113294609789 error `@ i cREVGeneral revUniqueID 1113294613623 Label Field g d cREVGeneral revUniqueID 1113297501615 Default Button: Default )p $on returnInField end returnInField @ g d cREVGeneral scriptChecksum SMDƨ( revUniqueID 1113297502304 bookmarks handlerList returnInField tempScript prevHandler returnInFieldscriptSelection char 35 to 34script jon returnInField
end returnInField
OK Label Field d cREVGeneral revUniqueID 1113297502466 Button 2: Button2 )p $on returnInField end returnInField @ d cREVGeneral scriptChecksum SMDƨ( revUniqueID 1113297502652 bookmarks handlerList returnInField tempScript prevHandler scriptSelection char 35 to 34script jon returnInField
end returnInField
Cancel Label Field d cREVGeneral revUniqueID 1113297502805 Button 3: Button3 )p $on returnInField end returnInField @ d cREVGeneral scriptChecksum SMDƨ( revUniqueID 1113297503005 bookmarks handlerList returnInField tempScript prevHandler scriptSelection char 35 to 34script jon returnInField
end returnInField
Sheet `e eon mouseUp --set the enabled of grp "Title" to not the hilite of me BuildCode -- C end mouseUp ) Display as sheet (Mac OS X) cREVGeneral scriptChecksum 5OY0d7͠ revUniqueID 1113297775725 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 16 to 15scripton mouseUp
--set the enabled of grp "Title" to not the hilite of me
BuildCode -- C
end mouseUp
Title i * 1 cREVGeneral revUniqueID 1113298787159 Label Field # @ cREVGeneral revUniqueID 1113297647468 Title: Title )p %on returnInField end returnInField @ # " cREVGeneral scriptChecksum |x..Sv9)S ` revUniqueID 1113297647513 bookmarks handlerList returnInField tempScript prevHandler returnInFieldscriptSelection char 17 to 16script zon returnInField
end returnInField
Test StyleLabel v . cREVGeneral revUniqueID 1113298182143 <(Use the Rev Text menu to set text styles, fonts and sizes) ! Copy Ep on mouseUp put the selectedChunk into tChunk select text of fld "Script" copy wait 20 milliseconds if tChunk = empty then select empty else do "select" && tChunk end mouseUp F- 2 cREVGeneral scriptChecksum TX ^cs7Kdx% revUniqueID 1113299326432 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 48 to 47script Von mouseUp
put the selectedChunk into tChunk
select text of fld "Script"
copy
wait 20 milliseconds
if tChunk = empty then select empty
else do "select" && tChunk
end mouseUp
# Tab Menu } lon menuPick pItem lock screen set the visible of fld "Info" to pItem = "Discussion" set the visible of btn "Use HTML" to pItem <> "Discussion" set the visible of btn "Print" to pItem = "Discussion" if pItem = "Discussion" then hide fld "StyleLabel" else set the visible of fld "StyleLabel" to the hilite of btn "Use HTML" unlock screen end menuPick ~ Action Discussion cREVGeneral scriptChecksum !ˉbMSl|# bookmarks revUniqueID 1113300355119 handlerList menuPickscriptSelection char 211 to 210 prevHandler menuPick tempScript scripton menuPick pItem
lock screen
set the visible of fld "Info" to pItem = "Discussion"
set the visible of btn "Use HTML" to pItem <> "Discussion"
set the visible of btn "Print" to pItem = "Discussion"
if pItem = "Discussion" then hide fld "StyleLabel"
else set the visible of fld "StyleLabel" to the hilite of btn "Use HTML"
unlock screen
end menuPick
% Label Field #4 d cREVGeneral revUniqueID 1113300832798 Code: @ Flche2.png 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 1113305569943 . Use HTML hE on mouseUp lock screen set the visible of fld "StyleLabel" to the hilite of me if not the hilite of me then set the textStyle of char 1 to -1 of fld "Text" to plain end if BuildCode -- C unlock screen end mouseUp ) . cREVGeneral scriptChecksum 2O^Z'`ͺ{`E revUniqueID 1113312698287 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 202 to 201scripton mouseUp
lock screen
set the visible of fld "StyleLabel" to the hilite of me
if not the hilite of me then
set the textStyle of char 1 to -1 of fld "Text" to plain
end if
BuildCode -- C
unlock screen
end mouseUp
error rduit.png B # # PNG IHDR # # ٳY pHYs gAMA |Q cHRM z% u0 ` : o_F IDATxb`@ lwd` # Ģ@, 3f12c vR ARb9xAfr1 D59 UX9 C d %IB9 4:! @ :wAwt4 s @ 1kG !c jCO3@:aԸ&s|^\4rZ@ 1q/A>r1c:ʕ+ 1ȍ@ < b7?;^b!P@<@ i(ß-[ @ C & @d;b6Li w̶mcEr3z &c Dӓ'$B 2 Dc~ T=P? G @ 1EA֭ Kd iו+ n"+ $ \ 2:/&ZevvvX"'%GWjԾ!511D9 :y2jRap @'F A|Aˊ_ :DgtC %/ B @ )rު**!z -O*7 ! b H 0̎eTP|:;!@0 8!9j/J XFܖ$F C 1 ?@_'r59pмD9906 XaQC`N F:A'Oon rawKeyUp
end rawKeyUp
#How-To stack #014 by Eric Chatonet " 4/12/05 Initial release (5/15/05 Text font issue on Win32 fixed 45/27/05 Modified for Tutorial Picker compatibility , A7/31/05 Added fonts and sizes handling by the HTML code builder 7 ( Added quotes handling in prompt text TThis stack shows how to manage answer dialogs (with HTML formatting or not). Enjoy! S The Rev "built-in" Answer dialog is a simple stack you can see in the Application Browser (menu Tools) if you have checked the Revolution Ui Elements in Lists option in the View menu. ` ` e lAnswer dialog is a substack of the Home stack, the License.rev file in the Rev main folder on your desktop. # # ' 3 > - RThis means that you can carefully edit the scripts of this stack for learning :-) Q But... 6First, play with the code builder in the Action pane! 5 ~The correct code is created and colorized on the fly. So, you can easily understand it by switching or changing the settings. About the text edition area @ 1600 Use the Rev Text menu to apply text style(s), text font ot text size to any part of your prompt when the Use HTML option is checked. In all cases, to get a satisfactory layout: Y i q ? . - Add some extra carriage return if needed. * D - Don't hesitate to split long lines: depends on your Rev version. @ About buttons names @ 1600 9Rev Answer dialog allows specifying up to seven buttons. jHere only three are provided since it would not be a good idea to display more... for good ergonomics :-) |If the default button name is not filled in, the dialog displays a single button named OK: it is the Rev default behaviour. About the icons @ 1600 You can specify the icon which will be displayed on the left side of the dialog box with the first parameter: info, warning or error (without quotes). If you don't specify an icon, none is displayed. n n r t { C With Mac OS X, you can customize the displayed icons by addressing 2 global variables: gRevAppIcon and gRevAppSmallIcon (see the docs for more details). W W b g w ! About the "As Sheet" option @ 1600 This Mac OS X option has no effect on a previous Mac OS, Unix, or Windows system where the dialog is always displayed as a modal dialog box. # # glossary/Mac_OS.xml 1 7 glossary/Unix.xml 9 = glossary/Windows.xml B V % glossary/modal_dialog_box.xml { LWhen specifying as sheet, current title settings are ignored with Mac OS X. glossary/modal_dialog_box.xml 3 About the "Title" option @ 1600 `Win and Linux users are in the habit of naming such dialogs but it is not the case with Mac OS. dSo, purists will test the platform and display different dialogs according to the current platform. wWhen the as sheet option is used, the titled option is ignored on a Mac OS X system but will appear on another system. & , J U------------------------------------------------------------------------------------ @ T @ Building prompts JThe provided code builder produces only static dialogs (i.e. fixed text). xOften, you will need to build a dynamic prompt by concatenating quoted text, variables and/or properties. For instance: @ @ F 1 3 put fld "Name" && "is unavailable." into tPrompt @ blue , ' answer tPrompt with "Sorry" as sheet @ blue @ brown @ blue ! @ blue -Here the prompt depends on a field contents. VIf this field contains "Jones", the displayed prompt will be "Jones is unavailable.". vNevertheless, you can use the provided code builder to prepare a dialog and then add any valid container to the code. +When building a prompt, rules are simple : 2 Quote always any text (including objects names) @ 1600 0 n Concatenate different containers by using "&" or "&&" (the last one adds a space while the first does not). @ 1600 g h eNote that it is always more readable to use a variable (named here tPrompt) when building your code. d xMore advanced users will find a handler named AnswerFramedPage in the script of this card which might interest them ;-) . . > 9 U------------------------------------------------------------------------------------ @ T Managing the user answer ^An answer dialog is automatically dismissed when the user clicks on any button in the dialog. GIf there is a single button in your dialog, you have nothing to do ;-) aThe name of the button onto which the user clicked is placed by the engine into the it variable. T T V tWhen more than one button was specified, you have only to get the contents of the it variable and act consequently: R R T ' answer tPrompt with "Cancel" or "OK" @ blue @ brown if it = "Cancel" then @ brown @ brown -- your instructions @ brown @ hh"" DarkOrchid4 else @ brown -- your instructions @ brown @ hh"" DarkOrchid4 end if @ brown @ brown @ brown And more: 7 answer tPrompt with "Cancel" or "Dismiss" or "Go On" @ blue @ brown if it = "Cancel" then @ blue @ brown @ brown -- your instructions @ blue @ brown @ hh"" DarkOrchid4 else if it = "Dismiss" then @ blue @ brown @ brown -- your instructions @ blue @ brown @ hh"" DarkOrchid4 else @ blue @ brown -- your instructions @ blue @ brown @ hh"" DarkOrchid4 end if @ blue @ brown @ brown @ brown }You can use a switch control structure as well (with xTalks like Transcript, you can tell the story in one way or another): 7 answer tPrompt with "Cancel" or "Dismiss" or "Go On" @ blue @ brown switch it @ brown case "Cancel" then @ brown @ brown -- your instructions @ blue @ brown @ hh"" DarkOrchid4 break @ brown @ blue case "Dismiss" then @ brown @ brown -- your instructions @ blue @ brown @ hh"" DarkOrchid4 break @ brown @ blue case "Go On" then @ brown @ brown -- your instructions @ blue @ brown @ hh"" DarkOrchid4 break @ brown @ blue default @ blue @ red 3 AnswerErr -- custom handler for error trapping @ hh"" DarkOrchid4 $ end switch @ brown @ brown ]Sometimes, if the user clicks on a cancel button, you will want to abort the running script: 7 answer tPrompt with "Cancel" or "Dismiss" or "Go On" @ brown @ blue @ brown $ if it = "Cancel" then exit to top @ brown @ brown @ blue @ red 3 -- your instructions for Dismiss and Go On cases @ brown @ hh"" DarkOrchid4 @ hh"" DarkOrchid4 @ hh"" DarkOrchid4 " @ hh"" DarkOrchid4 ' @ hh"" DarkOrchid4 , @ hh"" DarkOrchid4 U------------------------------------------------------------------------------------ @ T Digging into the docs Answer command @ 1600 It keyword @ 1600 & operator @ 1600 if control structure @ 1600 switch control structure @ 1600 exit control structure @ 1600 < gRevAppIcon and gRevAppSmallIcon keywords (Mac OS X only) @ 1600 " ( ` g 5 6 Print Ep Aon mouseUp revPrintField the name of field "Info" end mouseUp % R cREVGeneral scriptChecksum 4p0G! bookmarks revUniqueID 1113391824819 handlerList mouseUpscriptSelection char 53 to 52 prevHandler mouseUp tempScript scripton mouseUp
revPrintField the name of field "Info"
end mouseUp