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

.

Browse Source 
original commit: 392356b28451d7c8a52663b30dca42f9712a7d9e
This commit is contained in:
Matthew Flatt 2001-12-11 04:56:26 +00:00
parent 92c657782c
commit 49a6e83dec
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

@ -5248,7 +5248,7 @@
'(border))]
[update-ok (lambda () (send ok-button enable (not (null? (send (if dir? dirs files) get-selections)))))]
[select-this-dir (and dir?
(make-object button% "<- Select" dir-pane
(make-object button% "<- &Select" dir-pane
(lambda (b e)
(send f show #f)
(done))))]