From 6a2fb814ea8e73331986299660175051aee4b0d1 Mon Sep 17 00:00:00 2001 From: Kathy Gray Date: Tue, 17 Jan 2006 22:29:15 +0000 Subject: [PATCH] Corrected a bug where empty boxes were not being erased of cue-text after the first focus. Added a call to clear-cue-text on write. svn: r1853 --- collects/profjBoxes/private/example-box.ss | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/collects/profjBoxes/private/example-box.ss b/collects/profjBoxes/private/example-box.ss index 8943eebda1..0517968bbf 100644 --- a/collects/profjBoxes/private/example-box.ss +++ b/collects/profjBoxes/private/example-box.ss @@ -183,9 +183,13 @@ #;((is-a?/c editor-stream-out%) . -> . void?) ;; Write the example to file (define/public (write f) - (send type write-to-file f) - (send name write-to-file f) - (send value write-to-file f)) + (for-each (lambda (t) + (send* t + (begin-edit-sequence) + (clear-cue-text) + (write-to-file f) + (end-edit-sequence))) + (list type name value))) #;((is-a?/c editor-stream-out%) . -> . void?) ;; Read the state of the example in from file