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

.

Browse Source 
original commit: 7cd33f126629ec81cceb18b570938b4222050400
This commit is contained in:
Matthew Flatt 2001-07-25 14:51:04 +00:00
parent 1b035742f3
commit 5cd135249c
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/mred/mred.ss
View File

@ -2915,7 +2915,7 @@
(define area-container<%>
(interface (area<%>)
reflow-container container-modified begin-container-sequence end-container-sequence
reflow-container container-flow-modified begin-container-sequence end-container-sequence
container-size
get-children change-children place-children
after-new-child
@ -2945,10 +2945,10 @@
(public
[after-new-child (lambda (c) (void))]
[reflow-container (entry-point (lambda () (send (send (get-wx-panel) get-top-level) force-redraw)))]
[container-modified (entry-point (lambda ()
(let ([p (get-wx-panel)])
(send p need-move-children)
(send p force-redraw))))]
[container-flow-modified (entry-point (lambda ()
(let ([p (get-wx-panel)])
(send p need-move-children)
(send p force-redraw))))]
[begin-container-sequence (entry-point (lambda () (send (send (get-wx-panel) get-top-level) begin-container-sequence)))]
[end-container-sequence (entry-point (lambda () (send (send (get-wx-panel) get-top-level) end-container-sequence)))]
[get-children (entry-point (lambda () (map wx->proxy (send (get-wx-panel) get-children))))]