suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

changing variable names

Browse Source
This commit is contained in:
Danny Yoo 2011-08-26 23:53:08 -04:00
parent 938aba65a3
commit 12799cf5f1
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
web-world/examples/field/field.rkt
View File

@ -10,14 +10,14 @@
;; on-click: world view -> world ;; on-click: world view -> world
;; When the user clicks on the button, grab at the text of the ;; When the user clicks on the button, grab at the text of the
;; text-field. ;; text-field.
(define (on-click w v) (define (on-click w button-view)
(view-form-value (view-focus v "#text-field"))) (view-form-value (view-focus button-view "#text-field")))
;; draw: world view -> view ;; draw: world view -> view
;; Take the view, and replace the template with the world value. ;; Take the view, and replace the template with the world value.
(define (draw w v) (define (draw w dom)
(update-view-text (view-focus v "#template") (update-view-text (view-focus dom "#template")
w)) w))