steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix eval responder to work with 0.77 changes.

cvs
Chris Double 2005-08-24 04:52:52 +00:00
parent eb16e7a699
commit 88d75185db
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
contrib/cont-responder/eval-responder.factor
View File

@ -73,13 +73,13 @@ USE: sequences
#! Replace occurrences of single quotes with
#! backslash quote.
[
[ dup [ [[ CHAR: ' "\\'" ]] [[ CHAR: " "\\\"" ]] ] assoc [ , ] [ , ] ?ifte ] each
[ dup [ [[ CHAR: ' "\\'" ]] [[ CHAR: " "\\\"" ]] ] assoc [ % ] [ % ] ?ifte ] each
] make-string ;
: make-eval-javascript ( string -- string )
#! Give a string return some javascript that when
#! executed will set the eval textarea to that string.
[ "document.forms.main.eval.value=\"" , escape-quotes , "\"" , ] make-string ;
[ "document.forms.main.eval.value=\"" % escape-quotes % "\"" % ] make-string ;
: write-eval-link ( string -- )
#! Given text to evaluate, create an A HREF link which when
#! clicked sets the eval textarea to that value.