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

.

Browse Source 
original commit: 602d8368812d2ea936902810346f25f84c903d78
This commit is contained in:
Matthew Flatt 2001-12-19 15:22:18 +00:00
parent 1ada996aa3
commit bb608985ea
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/mred.ss
View File

@ -5162,7 +5162,7 @@
(letrec ([ok? #f] (letrec ([ok? #f]
[typed-name #f] [typed-name #f]
[dir (or directory last-visted-directory (current-directory))] [dir (or directory last-visted-directory (current-directory))]
[f (make-object dialog% (if put? "Save" "Open") parent 500 300)] [f (make-object dialog% (if dir? "Select Directory" (if put? "Save" "Open")) parent 500 300)]
[__ (when message [__ (when message
(let ([p (make-object vertical-pane% f)]) (let ([p (make-object vertical-pane% f)])
(send p stretchable-height #f) (send p stretchable-height #f)