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

..

Browse Source 
original commit: cb392265f95b7a3af4e44409df5defb819017e05
This commit is contained in:
Robby Findler 2000-08-11 02:52:09 +00:00
parent 415537868c
commit 01064e7ab4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/framework/frame.ss
View File

@ -656,7 +656,7 @@
(lambda (item control) (lambda (item control)
(let* ([b (box #f)] (let* ([b (box #f)]
[edit (get-editor)] [edit (get-editor)]
[filename (get-filename b)]) [filename (send edit get-filename b)])
(if (or (not filename) (unbox b)) (if (or (not filename) (unbox b))
(bell) (bell)
(let ([start (let ([start