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

fix bug with choosing "/" from the directory navigator, change color of "/" prefix

Browse Source 
svn: r3723
This commit is contained in:
Eli Barzilay 2006-07-16 10:22:04 +00:00
parent 3c80a10235
commit 0dba7be788
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -297,9 +297,9 @@
(unless (null? items)
(let ([j (+ i (string-length (caar items)))])
(when (cdar items)
(send edit change-style path-up-delta i j)
(unless (zero? i) (send edit change-style path-up-delta i j))
(send edit set-clickback i
(if (eq? i 0) j (add1 j)) ; inclucde the sep
(if (zero? i) j (add1 j)) ; inclucde the sep
(lambda _ (enter-text (cdar items)) (do-enter))))
(loop j (cdr items)))))
(send dir-text lock))
@ -430,7 +430,7 @@
[selections (send path-list get-selections)]
[many? (and multi? (equal? "" sel)
(<= 1 (length selections)))])
(cond [(and isdir? (not (equal? "" sel)))
(cond [(and isdir? (or (not (equal? "" sel)) (root? sel0)))
;; chose a directory -- go there
(set-dir path) (send* text* (erase) (select-all)) (set-ok?)]
[(and /? isfile?)