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

..

Browse Source 
original commit: f547c9ac864d3fa1e19ecf26ce4839d0f5e0e506
This commit is contained in:
Robby Findler 2004-01-02 14:29:17 +00:00
parent 99bb5db6cc
commit 65163abd23
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/framework/decorated-editor-snip.ss
View File

@ -179,7 +179,6 @@
(define decorated-editor-snip%
(class (decorated-editor-snip-mixin editor-snip%)
(printf "decorated-editor-snip% created\n")
(inherit get-editor get-style)
;; make-snip : -> this%
@ -195,11 +194,9 @@
(send (get-editor) write-to-file stream-out 0 'eof)))
(define/override (copy)
(printf "decorated editor snip copy called\n")
(let ([snip (make-snip)])
(send snip set-editor (send (get-editor) copy-self))
(send snip set-style (get-style))
(printf "decorated editor snip copy returning ~s\n" snip)
snip))
(super-new
@ -213,7 +210,6 @@
(define/public (make-snip stream-in) (make-object decorated-editor-snip%))
(define/override (read stream-in)
(printf "decoarated-edito-snipclass read\n")
(let ([snip (make-snip stream-in)])
(send (send snip get-editor) read-from-file stream-in #f)
snip))