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

made decorated-editor-snip into a mixin

Browse Source 
original commit: a3b7f2c0312f7fc5eafc09c68c5294336d486dbc
This commit is contained in:
Mike MacHenry 2003-12-15 19:21:57 +00:00
parent 73c8cbf194
commit db663a8865
1 changed files with 30 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,22 +1,14 @@
(module decorated-editor-snip mzscheme (module decorated-editor-snip mzscheme
(provide decorated-editor-snip% (provide decorated-editor-snip%
decorated-editor-snipclass%) decorated-editor-snipclass%
decorated-editor-snip-mixin)
(require (lib "class.ss") (require (lib "class.ss")
(lib "mred.ss" "mred")) (lib "mred.ss" "mred"))
(define decorated-editor-snip% (define (decorated-editor-snip-mixin super%)
(class editor-snip% (class super%
(inherit get-editor get-style)
;; make-snip : -> this%
;; returns an instance of this class. used in the copy method
(define/public (make-snip) (make-object decorated-editor-snip%))
;; make-editor : -> editor<%>
;; returns the editor to be used in this snip.
(define/public (make-editor) (make-object text%))
;; get-corner-bitmap : -> (union #f (is-a?/c bitmap%)) ;; get-corner-bitmap : -> (union #f (is-a?/c bitmap%))
;; returns the bitmap to be shown in the top right corner. ;; returns the bitmap to be shown in the top right corner.
@ -150,16 +142,6 @@
(send dc set-pen old-pen) (send dc set-pen old-pen)
(send dc set-brush old-brush)))) (send dc set-brush old-brush))))
(define/override write
(lambda (stream-out)
(send (get-editor) write-to-file stream-out 0 'eof)))
(define/override (copy)
(let ([snip (make-snip)])
(send snip set-editor (send (get-editor) copy-self))
(send snip set-style (get-style))
snip))
(inherit set-min-width set-min-height get-margin) (inherit set-min-width set-min-height get-margin)
(define/public (reset-min-sizes) (define/public (reset-min-sizes)
(let ([bm (get-corner-bitmap)]) (let ([bm (get-corner-bitmap)])
@ -188,14 +170,38 @@
(send bm get-width) (send bm get-width)
0)))] 0)))]
[else 4])]) [else 4])])
(super-instantiate () (super-new
(editor (make-editor))
(with-border? #f) (with-border? #f)
(top-margin top-margin) (top-margin top-margin)
(left-margin left-margin))) (left-margin left-margin)))
(reset-min-sizes))) (reset-min-sizes)))
(define decorated-editor-snip%
(class (decorated-editor-snip-mixin editor-snip%)
(inherit get-editor get-style)
;; make-snip : -> this%
;; returns an instance of this class. used in the copy method
(define/public (make-snip) (make-object decorated-editor-snip%))
;; make-editor : -> editor<%>
;; returns the editor to be used in this snip.
(define/public (make-editor) (make-object text%))
(define/override write
(lambda (stream-out)
(send (get-editor) write-to-file stream-out 0 'eof)))
(define/override (copy)
(let ([snip (make-snip)])
(send snip set-editor (send (get-editor) copy-self))
(send snip set-style (get-style))
snip))
(super-new
(editor (make-editor)))))
(define decorated-editor-snipclass% (define decorated-editor-snipclass%
(class snip-class% (class snip-class%