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

make the slashes in the top box appear normal so its clear that there are separate links there

Browse Source 
svn: r3137
This commit is contained in:
Eli Barzilay 2006-05-30 21:47:52 +00:00
parent 3cb131bece
commit be47aa5e82
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -27,7 +27,7 @@
(let ([l (map (lambda (s) (if (eq? / s) path-separator-re-str s)) strs)]) (let ([l (map (lambda (s) (if (eq? / s) path-separator-re-str s)) strs)])
(regexp (apply string-append l)))) (regexp (apply string-append l))))
(define end-separators-re (make-re "["/"]+$")) (define end-separators-re (make-re "["/"]+$"))
(define initial-/dir-part-re (make-re "^["/"]*[^"/"]+")) (define initial-/dir-part-re (make-re "^["/"]*([^"/"]+)"))
(define initial-dir/-part-re (make-re "^.*?["/"]")) (define initial-dir/-part-re (make-re "^.*?["/"]"))
(define default-filters (if win? '(("Any" "*.*")) '(("Any" "*")))) (define default-filters (if win? '(("Any" "*.*")) '(("Any" "*"))))
@ -201,7 +201,7 @@
(let loop ([i 0]) (let loop ([i 0])
(let ([m (regexp-match-positions initial-/dir-part-re dir i)]) (let ([m (regexp-match-positions initial-/dir-part-re dir i)])
(when m (when m
(send edit change-style path-up-delta (caar m) (cdar m)) (send edit change-style path-up-delta (caadr m) (cdadr m))
(send edit set-clickback (caar m) (cdar m) (send edit set-clickback (caar m) (cdar m)
(lambda _ (enter-text (substring dir 0 (cdar m))))) (lambda _ (enter-text (substring dir 0 (cdar m)))))
(loop (cdar m))))) (loop (cdar m)))))