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

.

Browse Source 
original commit: 8ce11627dc7aa32453bdc564d8134d6a2a242ee4
This commit is contained in:
Matthew Flatt 2004-02-19 20:35:34 +00:00
parent 3e2fcb897b
commit defae7acaa
3 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mred/mred-sig.ss
View File

@ -54,10 +54,10 @@
editor-snip-editor-admin<%> editor-snip-editor-admin<%>
editor-stream-in% editor-stream-in%
editor-stream-in-base% editor-stream-in-base%
editor-stream-in-string-base% editor-stream-in-bytes-base%
editor-stream-out% editor-stream-out%
editor-stream-out-base% editor-stream-out-base%
editor-stream-out-string-base% editor-stream-out-bytes-base%
editor-wordbreak-map% editor-wordbreak-map%
editor<%> editor<%>
end-busy-cursor end-busy-cursor

13
collects/mred/mred.ss
View File

@ -6507,7 +6507,7 @@
(let ([v (send dir-text get-value)]) (let ([v (send dir-text get-value)])
(if (or dir? (directory-exists? v)) (if (or dir? (directory-exists? v))
(begin (begin
(set! dir v) (set! dir (string->path v))
(reset-directory)) (reset-directory))
;; Maybe specifies a file: ;; Maybe specifies a file:
(let-values ([(super file) (let-values ([(super file)
@ -6571,8 +6571,8 @@
(lambda (b e) (lambda (b e)
(send f show #f) (send f show #f)
(done))))] (done))))]
[path-string-locale<? (lambda (p) [path-string-locale<? (lambda (p1 p2)
(string-locale<? (path->string p)))] (string-locale<? (path->string p1) (path->string p2)))]
[reset-directory (lambda () [reset-directory (lambda ()
(wx:begin-busy-cursor) (wx:begin-busy-cursor)
(let ([dir-exists? (directory-exists? dir)]) (let ([dir-exists? (directory-exists? dir)])
@ -6594,7 +6594,8 @@
(let-values ([(ds fs) (let-values ([(ds fs)
(let loop ([l l][ds null][fs null]) (let loop ([l l][ds null][fs null])
(cond (cond
[(null? l) (values (cons ".." (quicksort ds path-string-locale<?)) [(null? l) (values (cons (string->path "..")
(quicksort ds path-string-locale<?))
(quicksort fs path-string-locale<?))] (quicksort fs path-string-locale<?))]
[(and (not dot?) [(and (not dot?)
(char=? (string-ref (path->string (car l)) 0) #\.)) (char=? (string-ref (path->string (car l)) 0) #\.))
@ -6603,7 +6604,7 @@
[else (loop (cdr l) (cons (car l) ds) fs)]))]) [else (loop (cdr l) (cons (car l) ds) fs)]))])
(set! dir-paths ds) (set! dir-paths ds)
(send dirs set (map path->string ds)) (send dirs set (map path->string ds))
(set! file-paths ds) (set! file-paths fs)
(send files set (map path->string fs)) (send files set (map path->string fs))
(send dirs enable #t) (send dirs enable #t)
(unless dir? (unless dir?
@ -6775,7 +6776,7 @@
(and (positive? (string-length a)) (and (positive? (string-length a))
(not (or (char-alphabetic? (string-ref a 0)) (not (or (char-alphabetic? (string-ref a 0))
(char-numeric? (string-ref a 0)) (char-numeric? (string-ref a 0))
(char=? #\- (string-ref a))))))]) (char=? #\- (string-ref a 0))))))])
;; Sort space-starting first (for Xft), and ;; Sort space-starting first (for Xft), and
;; otherwise push names that start with an ;; otherwise push names that start with an
;; ASCII non-letter/digit/hyphen to the end ;; ASCII non-letter/digit/hyphen to the end

2
collects/mred/private/kernel.ss
View File

@ -362,6 +362,7 @@
on-event on-event
on-paint) on-paint)
(define-private-class dc% dc<%> object% #f (define-private-class dc% dc<%> object% #f
glyph-exists?
end-page end-page
end-doc end-doc
start-page start-page
@ -519,6 +520,7 @@
on-set-focus on-set-focus
on-kill-focus) on-kill-focus)
(define-class font% object% #f (define-class font% object% #f
screen-glyph-exists?
get-font-id get-font-id
get-size-in-pixels get-size-in-pixels
get-underlined get-underlined