.
original commit: cf9cd44661707639b103b41d89c23e3ef7b1d77f
This commit is contained in:
parent
297de41743
commit
de0170e03a
|
@ -2282,12 +2282,11 @@
|
|||
(define memory-text (make-object memory-text%))
|
||||
(send memory-text hide-caret #t)
|
||||
(define show-memory-text?
|
||||
(or (with-handlers ([exn:fail:filesystem?
|
||||
(λ (x) #f)])
|
||||
(or (with-handlers ([exn:fail:filesystem? (λ (x) #f)])
|
||||
(directory-exists? (collection-path "cvs-time-stamp")))
|
||||
(with-handlers ([exn:fail:filesystem?
|
||||
(λ (x) #f)])
|
||||
(directory-exists? (build-path (collection-path "framework") "CVS")))))
|
||||
(with-handlers ([exn:fail:filesystem? (λ (x) #f)])
|
||||
(or (directory-exists? (build-path (collection-path "framework") "CVS"))
|
||||
(directory-exists? (build-path (collection-path "framework") ".svn"))))))
|
||||
|
||||
(define bday-click-canvas%
|
||||
(class canvas%
|
||||
|
|
Loading…
Reference in New Issue
Block a user