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

.

Browse Source 
original commit: cf9cd44661707639b103b41d89c23e3ef7b1d77f
This commit is contained in:
Robby Findler 2005-05-24 23:12:50 +00:00
parent 297de41743
commit de0170e03a
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/framework/private/frame.ss
View File

@ -2282,12 +2282,11 @@
(define memory-text (make-object memory-text%)) (define memory-text (make-object memory-text%))
(send memory-text hide-caret #t) (send memory-text hide-caret #t)
(define show-memory-text? (define show-memory-text?
(or (with-handlers ([exn:fail:filesystem? (or (with-handlers ([exn:fail:filesystem? (λ (x) #f)])
(λ (x) #f)])
(directory-exists? (collection-path "cvs-time-stamp"))) (directory-exists? (collection-path "cvs-time-stamp")))
(with-handlers ([exn:fail:filesystem? (with-handlers ([exn:fail:filesystem? (λ (x) #f)])
(λ (x) #f)]) (or (directory-exists? (build-path (collection-path "framework") "CVS"))
(directory-exists? (build-path (collection-path "framework") "CVS"))))) (directory-exists? (build-path (collection-path "framework") ".svn"))))))
(define bday-click-canvas% (define bday-click-canvas%
(class canvas% (class canvas%