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

7
collects/mred/mred.ss
View File

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