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

fixed splitting to use new container classes

Browse Source 
original commit: fbb3320f780d3a9570211a43e4bb2839ba1ab646
This commit is contained in:
Robby Findler 1997-03-04 16:34:53 +00:00
parent 9bfacab65e
commit 04a9950eaa
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/mred/panel.ss
View File

@ -50,9 +50,12 @@
[parent (send canvas get-parent)] [parent (send canvas get-parent)]
[new-panel #f] [new-panel #f]
[left-split #f] [left-split #f]
[right-split #f]) [right-split #f]
[before #t])
(dynamic-wind (dynamic-wind
(lambda () (send frame set-perform-updates #f)) (lambda ()
(set! before (send frame delay-updates))
(send frame delay-updates #t))
(lambda () (lambda ()
(set! new-panel (make-object panel% parent)) (set! new-panel (make-object panel% parent))
(set! left-split (make-object canvas% new-panel)) (set! left-split (make-object canvas% new-panel))
@ -64,7 +67,7 @@
new-panel new-panel
x)) x))
before))))) before)))))
(lambda () (send frame set-perform-updates #t))) (lambda () (send frame delay-updates before)))
(send* media (remove-canvas canvas) (send* media (remove-canvas canvas)
(add-canvas left-split) (add-canvas left-split)
(add-canvas right-split)) (add-canvas right-split))