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

moved get/put file to container classes

Browse Source 
original commit: f31ae27261b78f2dd65649a3ce6da20227b4cef4
This commit is contained in:
Robby Findler 1996-08-13 15:35:00 +00:00
parent 4d706e2151
commit c5de481b18
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
collects/mred/finder.ss
View File

@ -266,7 +266,7 @@
[middle-panel (make-object mred:container:horizontal-panel% main-panel)]
[left-middle-panel (make-object mred:container:vertical-panel% middle-panel)]
[right-middle-panel (make-object mred:container:vertical-panel% middle-panel)]
[right-middle-panel (when multi-mode? (make-object mred:container:vertical-panel% middle-panel))]
[name-list (begin
(new-line)
(make-object mred:container:list-box%
@ -275,10 +275,10 @@
-1 -1
(if multi-mode? (* 1/2 WIDTH) WIDTH) 300
() wx:const-needed-sb))]
[save-panel (make-object mred:container:horizontal-panel% main-panel)]
[save-panel (when save-mode? (make-object mred:container:horizontal-panel% main-panel))]
[bottom-panel (make-object mred:container:horizontal-panel% main-panel)]
[result-list
(if multi-mode?
(when multi-mode?
(make-object mred:container:list-box%
right-middle-panel do-result-list
()
@ -288,17 +288,18 @@
-1 -1
(* 1/2 WIDTH) 300
() wx:const-needed-sb))]
[add-panel (make-object mred:container:horizontal-panel% left-middle-panel)]
[remove-panel (make-object mred:container:horizontal-panel% right-middle-panel)])
[add-panel (when multi-mode? (make-object mred:container:horizontal-panel% left-middle-panel))]
[remove-panel (when multi-mode? (make-object mred:container:horizontal-panel% right-middle-panel))])
(sequence
(send add-panel stretchable-in-y #f)
(send remove-panel stretchable-in-y #f)
(send name-list stretchable-in-x #t)
(when multi-mode?
(send add-panel stretchable-in-y #f)
(send remove-panel stretchable-in-y #f)
(send result-list stretchable-in-x #t))
(send name-list stretchable-in-x #t)
(send top-panel stretchable-in-y #f)
(send bottom-panel stretchable-in-y #f)
(send save-panel stretchable-in-y #f))
(when save-mode?
(send save-panel stretchable-in-y #f)))
(private
[name-field