original commit: cf9cd44661707639b103b41d89c23e3ef7b1d77f
This commit is contained in:
Robby Findler 2005-05-24 23:12:50 +00:00
parent 297de41743
commit de0170e03a

View File

@ -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%