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

fixed up dialogs

Browse Source 
original commit: fffa221b4206aa2e31c6bc8efe9cb5761c2542d4
This commit is contained in:
Robby Findler 1996-08-28 21:45:41 +00:00
parent 9a3dc853d6
commit 06986d6750
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
collects/mred/finder.ss
View File

@ -73,15 +73,15 @@
(loop base-dir dir-list menu-list) (loop base-dir dir-list menu-list)
; No more ; No more
(values dir-list menu-list)))))]) (values dir-list menu-list)))))])
(set! dirs dir-list) (set! dirs (reverse dir-list))
(send dir-choice clear) (send dir-choice clear)
(let loop ([choices menu-list]) (let loop ([choices (reverse menu-list)])
(unless (null? choices) (unless (null? choices)
(send dir-choice append (car choices)) (send dir-choice append (car choices))
(loop (cdr choices)))) (loop (cdr choices))))
(send dir-choice set-selection (sub1 (length dirs))) (send dir-choice set-selection 0)
(send dir-choice set-size -1 -1 -1 -1)) (send top-panel force-redraw))
(send name-list clear) (send name-list clear)
(send name-list set (send name-list set
@ -259,11 +259,9 @@
(private (private
[main-panel (make-object mred:container:vertical-panel% this)] [main-panel (make-object mred:container:vertical-panel% this)]
[top-panel (make-object mred:container:horizontal-panel% main-panel)] [top-panel (make-object mred:container:horizontal-panel% main-panel)]
[_ (make-object mred:container:message% top-panel prompt)] [_1 (make-object mred:container:message% top-panel prompt)]
[dir-choice (make-object mred:container:choice% [dir-choice (make-object mred:container:choice% top-panel do-dir '())]
top-panel do-dir '() -1 -1 -1 -1
'("XXXXXXXXXXXXXXXXXXXXXXXXXXX"))]
[middle-panel (make-object mred:container:horizontal-panel% main-panel)] [middle-panel (make-object mred:container:horizontal-panel% main-panel)]
[left-middle-panel (make-object mred:container:vertical-panel% middle-panel)] [left-middle-panel (make-object mred:container:vertical-panel% middle-panel)]
[right-middle-panel (when multi-mode? (make-object mred:container:vertical-panel% middle-panel))] [right-middle-panel (when multi-mode? (make-object mred:container:vertical-panel% middle-panel))]
@ -291,6 +289,7 @@
[add-panel (when multi-mode? (make-object mred:container:horizontal-panel% left-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))]) [remove-panel (when multi-mode? (make-object mred:container:horizontal-panel% right-middle-panel))])
(sequence (sequence
(send main-panel spacing 1)
(when multi-mode? (when multi-mode?
(send add-panel stretchable-in-y #f) (send add-panel stretchable-in-y #f)
(send remove-panel stretchable-in-y #f) (send remove-panel stretchable-in-y #f)