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

.

Browse Source 
original commit: dea7a3781836800b3a38f8fd719d561f6aac28ae
This commit is contained in:
Matthew Flatt 2001-07-24 18:07:17 +00:00
parent 67c2782508
commit 548c47f060
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mred/mred.ss
View File

@ -2879,7 +2879,7 @@
[(minh min-height) (param get-wx-panel min-height)]
[(sw stretchable-width) (param get-wx-panel stretchable-in-x)]
[(sh stretchable-height) (param get-wx-panel stretchable-in-y)]
[get-graphical-min-size (entry-point (lambda () (send wx get-hard-minimum-size)))])
[get-graphical-min-size (entry-point (lambda () (apply values (send wx get-graphical-min-size))))])
(private-field
[wx (mk-wx)])
(sequence
@ -2915,7 +2915,7 @@
(define area-container<%>
(interface (area<%>)
reflow-container begin-container-sequence end-container-sequence
reflow-container container-modified begin-container-sequence end-container-sequence
container-size
get-children change-children place-children
after-new-child
@ -2945,6 +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))))]
[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))))]