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

fix eval-responder for recent factor changes

cvs
Chris Double 2005-08-27 03:46:46 +00:00
parent 62525efedc
commit c19ec60942
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

@ -79,7 +79,7 @@ USE: sequences
: make-eval-javascript ( string -- string ) : make-eval-javascript ( string -- string )
#! Give a string return some javascript that when #! Give a string return some javascript that when
#! executed will set the eval textarea to that string. #! 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 ;
: write-eval-link ( string -- ) : write-eval-link ( string -- )
#! Given text to evaluate, create an A HREF link which when #! Given text to evaluate, create an A HREF link which when
#! clicked sets the eval textarea to that value. #! clicked sets the eval textarea to that value.
@ -115,7 +115,7 @@ USE: sequences
#! Return an html fragment dispaying the source #! Return an html fragment dispaying the source
#! of the given word. #! of the given word.
dup dup dup dup
<namespace> [ {{ }} clone [
"browser" "responder" set "browser" "responder" set
<table border= "1" table> <table border= "1" table>
<tr> <th colspan= "2" th> "Source" write </th> </tr> <tr> <th colspan= "2" th> "Source" write </th> </tr>