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

fix my stupidity

Browse Source
This commit is contained in:
Robby Findler 2011-10-02 18:14:55 -05:00
parent c455631eb3
commit 3bfce02bd6
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/framework/private/autosave.rkt
View File

@ -231,7 +231,7 @@
(disable-line) (disable-line)
(send msg2 set-label (string-constant autosave-deleted)))))] (send msg2 set-label (string-constant autosave-deleted)))))]
[recover [recover
(make-object button% (make-object button%
(string-constant autosave-recover) (string-constant autosave-recover)
hp hp
(λ (recover y) (λ (recover y)
@ -241,7 +241,7 @@
(send msg2 set-label (string-constant autosave-recovered!)) (send msg2 set-label (string-constant autosave-recovered!))
(send msg1 set-label (gui-utils:quote-literal-label (send msg1 set-label (gui-utils:quote-literal-label
(path->string filename-result) (path->string filename-result)
#:quote-amp #f))))))] #:quote-amp? #f))))))]
[disable-line [disable-line
(λ () (λ ()
(send recover enable #f) (send recover enable #f)
@ -302,7 +302,7 @@
(define msg2 (new message% (define msg2 (new message%
[label (gui-utils:quote-literal-label [label (gui-utils:quote-literal-label
(path->string filename) (path->string filename)
#:quote-amp #f)] #:quote-amp? #f)]
[parent vp])) [parent vp]))
(define ec (make-object editor-canvas% vp t)) (define ec (make-object editor-canvas% vp t))
(send t load-file filename) (send t load-file filename)