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

.

Browse Source 
original commit: 6124cc9502a63d48aefe86330bed5ef1383d14a9
This commit is contained in:
Matthew Flatt 2004-08-17 15:20:32 +00:00
parent ffa56a3edf
commit e0740a888e
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/mred/mred.ss
View File

@ -2586,7 +2586,7 @@
((void) after-move-to s x y ?)
(#t can-resize? s x y)
((void) on-resize s x y)
((void) after-resize s x y)
((void) after-resize s x y ?)
(#t can-reorder? s s2 ?)
((void) on-reorder s s2 ?)
((void) after-reorder s s2 ?)
@ -6588,8 +6588,9 @@
[m (make-object message% (protect& (path->string dir)) dir-pane)]
[lp (make-object horizontal-pane% f)]
[change-dir (lambda (d) (let ([sd (send d get-string-selection)])
(when sd
(set! dir (simplify-path (build-path dir sd)))
(reset-directory)))]
(reset-directory))))]
[dirs (make-object (class list-box%
(define/override (on-subwindow-char w e)
(cond