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

...

Browse Source 
original commit: ead65c4904e2709f0774badc378e392c435dc48f
This commit is contained in:
Robby Findler 2001-03-30 04:36:11 +00:00
parent 614c0a9e8d
commit 604760b7be
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/framework/private/finder.ss
View File

@ -70,7 +70,7 @@
(inherit center show)
(private
(private-field
[default-width 500]
[default-height 400]
dirs
@ -78,9 +78,7 @@
last-selected)
(private
[set-directory ; sets directory in listbox
(lambda (dir) ; dir is normalized
(when (directory-exists? dir)
(gui-utils:show-busy-cursor