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

Java example boxes: omit cue text from save-and-loaded or cut-and-paste boxes

Browse Source 
svn: r1850
This commit is contained in:
Matthew Flatt 2006-01-17 20:35:57 +00:00
parent 9e6f6a67b0
commit f81cf986b5
3 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/embedded-gui/doc.txt
View File

@ -324,6 +324,10 @@ _cue-text%_ is (cue-text-mixin text%)
color : string = "gray"
behavior : (listof (symbols 'on-focus 'on-char)) = '(on-focus)
> (send a-cue-text clear-cue-text)
Clears the cue text, if it's still present.
============================================================
The following functions are useful for working with snips

2
collects/embedded-gui/private/cue-text.ss
View File

@ -28,7 +28,7 @@
#;(-> void)
;; Clears the cue-text if it's still there.
(define (clear-cue-text)
(define/public (clear-cue-text)
(when first-focus?
(set! first-focus? false)
(erase)

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

@ -163,13 +163,13 @@
((drscheme:unit:get-program-editor-mixin)
(editor:keymap-mixin text:basic%))))]
[type (new (single-line-text-mixin program-editor%)
(cue-text (string-constant profjBoxes-type))
(cue-text (if copy-constructor "" (string-constant profjBoxes-type)))
(behavior '(on-char)))]
[name (new (single-line-text-mixin program-editor%)
(cue-text (string-constant profjBoxes-name))
(cue-text (if copy-constructor "" (string-constant profjBoxes-name)))
(behavior '(on-char)))]
[value (new program-editor%
(cue-text (string-constant profjBoxes-value))
(cue-text (if copy-constructor "" (string-constant profjBoxes-value)))
(behavior '(on-char)))])
#;(-> (is-a?/c text%))
@ -190,14 +190,18 @@
#;((is-a?/c editor-stream-out%) . -> . void?)
;; Read the state of the example in from file
(define/public (read-from-file f)
(send type read-from-file f)
(send name read-from-file f)
(send value read-from-file f))
(for-each (lambda (t)
(send* t
(begin-edit-sequence)
(clear-cue-text)
(read-from-file f)
(end-edit-sequence)))
(list type name value)))
(super-new)
(when copy-constructor
(send (send copy-constructor get-type) copy-self-to type)
(send (send copy-constructor get-type) copy-self-to type)
(send (send copy-constructor get-name) copy-self-to name)
(send (send copy-constructor get-value) copy-self-to value))