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

...

Browse Source 
original commit: fdd53d529ab4b98f8ba5c0b796a36c393459f75d
This commit is contained in:
Mike MacHenry 2004-07-26 17:19:25 +00:00
parent ab9eec41d3
commit 1de2e6f2e7
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/embedded-gui/private/program-editor.ss
View File

@ -25,9 +25,11 @@ is being reset.
(lib "mred.ss" "mred") (lib "mred.ss" "mred")
(lib "etc.ss") (lib "etc.ss")
(lib "class.ss") (lib "class.ss")
(lib "framework.ss" "framework")
"snip-lib.ss") "snip-lib.ss")
(provide program-editor-mixin) (provide program-editor-mixin
program-editor%)
(define (program-editor-mixin %) (define (program-editor-mixin %)
(class % (class %
@ -83,4 +85,7 @@ is being reset.
(alert-of-modify) (alert-of-modify)
(super-after-delete start len)) (super-after-delete start len))
(super-new))) (super-new)))
(define program-editor%
(program-editor-mixin color:text%))
) )

7
collects/embedded-gui/private/verthoriz-alignment.ss
View File

@ -19,14 +19,15 @@
(define (vert/horiz-alignment type) (define (vert/horiz-alignment type)
(class* object% (alignment<%>) (class* object% (alignment<%>)
(init-field (parent false)) (init-field
[parent false]
[show? true])
(field (field
[pasteboard false] [pasteboard false]
[children empty] [children empty]
[min-width 0] [min-width 0]
[min-height 0] [min-height 0])
[show? true])
;; need base class for this method ;; need base class for this method
(define (show/hide-child child show?) (define (show/hide-child child show?)