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

..

Browse Source 
original commit: 3eb89658e986688336212fb24e1f9e1de240cf43
This commit is contained in:
Robby Findler 2003-07-03 13:20:36 +00:00
parent 8696934cca
commit 0f1905d48e
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/framework/private/editor.ss
View File

@ -81,7 +81,7 @@
(opt-lambda ([input-filename #f] (opt-lambda ([input-filename #f]
[fmt 'guess] [fmt 'guess]
[show-errors? #t]) [show-errors? #t])
(let ([filename (if (or (not input-filename) (let ([filename (if (or (not input-filename)
(equal? input-filename "")) (equal? input-filename ""))
(let ([internal-filename (get-filename)]) (let ([internal-filename (get-filename)])
(if (or (not internal-filename) (if (or (not internal-filename)
@ -201,10 +201,11 @@
(let* ([snip (send editor-admin get-snip)] (let* ([snip (send editor-admin get-snip)]
[snip-admin (send snip get-admin)]) [snip-admin (send snip get-admin)])
(loop (send snip-admin get-editor)))] (loop (send snip-admin get-editor)))]
[(send text get-canvas) => (lambda (canvas) [(send text get-canvas)
(send canvas get-top-level-window))] =>
[else (lambda (canvas)
#f]))))] (send canvas get-top-level-window))]
[else #f]))))]
(public editing-this-file?) (public editing-this-file?)
[define editing-this-file? (lambda () #f)] [define editing-this-file? (lambda () #f)]