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

.

Browse Source 
original commit: ce7cd79abeaa7f6462c18165af704f423d0987ab
This commit is contained in:
Matthew Flatt 1999-07-20 21:36:09 +00:00
parent af0257fe2d
commit 865e66379d
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/mred/wrap/mred.ss
View File

@ -2623,7 +2623,7 @@
reflow-container reflow-container
container-size container-size
get-children change-children place-children get-children change-children place-children
on-new-child after-new-child
add-child delete-child add-child delete-child
border spacing border spacing
set-alignment get-alignment)) set-alignment get-alignment))
@ -2633,7 +2633,7 @@
(define (make-container% %) ; % implements area<%> (define (make-container% %) ; % implements area<%>
(class* % (area-container<%> internal-container<%>) (mk-wx get-wx-panel parent) (class* % (area-container<%> internal-container<%>) (mk-wx get-wx-panel parent)
(public (public
[on-new-child (lambda (c) (void))] [after-new-child (lambda (c) (void))]
[reflow-container (entry-point (lambda () (send (send (get-wx-panel) get-top-level) force-redraw)))] [reflow-container (entry-point (lambda () (send (send (get-wx-panel) get-top-level) force-redraw)))]
[get-children (entry-point (lambda () (map wx->proxy (ivar (get-wx-panel) children))))] [get-children (entry-point (lambda () (map wx->proxy (ivar (get-wx-panel) children))))]
[border (param get-wx-panel 'border)] [border (param get-wx-panel 'border)]
@ -2901,7 +2901,7 @@
[wx #f]) [wx #f])
(sequence (sequence
(super-init (lambda () (set! wx (mk-wx)) wx) (lambda () wx) label parent cursor) (super-init (lambda () (set! wx (mk-wx)) wx) (lambda () wx) label parent cursor)
(as-exit (lambda () (send parent on-new-child this)))))) (as-exit (lambda () (send parent after-new-child this))))))
;--------------------- Final mred class construction -------------------- ;--------------------- Final mred class construction --------------------
@ -3470,7 +3470,7 @@
style))) style)))
wx) wx)
parent) parent)
(send parent on-new-child this)))) (send parent after-new-child this))))
(define editor-canvas% (define editor-canvas%
(class basic-canvas% (parent [buffer #f] [style null] [scrolls-per-page 100]) (class basic-canvas% (parent [buffer #f] [style null] [scrolls-per-page 100])
@ -3549,7 +3549,7 @@
parent) parent)
(when buffer (when buffer
(set-editor buffer)) (set-editor buffer))
(send parent on-new-child this)))) (send parent after-new-child this))))
;-------------------- Final panel interfaces and class constructions -------------------- ;-------------------- Final panel interfaces and class constructions --------------------
@ -3575,7 +3575,7 @@
this this (mred->wx-container parent) null)) wx) this this (mred->wx-container parent) null)) wx)
(lambda () wx) parent) (lambda () wx) parent)
(send (send wx area-parent) add-child wx))) (send (send wx area-parent) add-child wx)))
(send parent on-new-child this))))) (send parent after-new-child this)))))
(define vertical-pane% (class pane% (parent) (sequence (super-init parent)))) (define vertical-pane% (class pane% (parent) (sequence (super-init parent))))
(define horizontal-pane% (class pane% (parent) (sequence (super-init parent)))) (define horizontal-pane% (class pane% (parent) (sequence (super-init parent))))
@ -3602,7 +3602,7 @@
this this (mred->wx-container parent) style)) wx) this this (mred->wx-container parent) style)) wx)
(lambda () wx) #f parent #f) (lambda () wx) #f parent #f)
(send (send wx area-parent) add-child wx))) (send (send wx area-parent) add-child wx)))
(send parent on-new-child this))))) (send parent after-new-child this)))))
(define vertical-panel% (class panel% args (sequence (apply super-init args)))) (define vertical-panel% (class panel% args (sequence (apply super-init args))))
(define horizontal-panel% (class panel% args (sequence (apply super-init args)))) (define horizontal-panel% (class panel% args (sequence (apply super-init args))))