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

Corrected a bug where empty boxes were not being erased of cue-text after

Browse Source 
the first focus. Added a call to clear-cue-text on write.

svn: r1853
This commit is contained in:
Kathy Gray 2006-01-17 22:29:15 +00:00
parent f81cf986b5
commit 6a2fb814ea
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/profjBoxes/private/example-box.ss
View File

@ -183,9 +183,13 @@
#;((is-a?/c editor-stream-out%) . -> . void?) #;((is-a?/c editor-stream-out%) . -> . void?)
;; Write the example to file ;; Write the example to file
(define/public (write f) (define/public (write f)
(send type write-to-file f) (for-each (lambda (t)
(send name write-to-file f) (send* t
(send value write-to-file f)) (begin-edit-sequence)
(clear-cue-text)
(write-to-file f)
(end-edit-sequence)))
(list type name value)))
#;((is-a?/c editor-stream-out%) . -> . void?) #;((is-a?/c editor-stream-out%) . -> . void?)
;; Read the state of the example in from file ;; Read the state of the example in from file