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