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

svn: r3213

Browse Source
This commit is contained in:
Eli Barzilay 2006-06-04 07:42:02 +00:00
parent 6aa4f2965c
commit 953e3e8d1a
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/mred/private/path-dialog.ss
View File

@ -12,11 +12,6 @@
(send d set-delta-foreground "BLUE")
(send d set-delta 'change-underline #t)
d))
(define path-up-delta*
(let ([d (make-object wx:style-delta%)])
(send d set-delta-foreground "BLUE")
(send d set-delta 'change-underline #t)
d))
;; os-dependent stuff
(define win? (eq? 'windows (system-type)))
@ -559,7 +554,7 @@
(define dir-text
(let ([c (class (if win? combo-field% text-field%) (super-new)
(define editor (send this get-editor))
(define/public (lock) (send editor lock #t))
(define/public (lock) (send editor lock #t))
(define/public (unlock) (send editor lock #f))
(when win?
(let ([m (send this get-menu)])