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

..

Browse Source 
original commit: 66b994ad812701bb81802b48e2c6cdf1523b8fa8
This commit is contained in:
Robby Findler 2002-06-12 18:27:06 +00:00
parent b1c16cfbeb
commit 0403e29bdc
1 changed files with 217 additions and 216 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -40,6 +40,7 @@
save-file/gui-error)) save-file/gui-error))
(define basic-mixin (define basic-mixin
(let ([mred:get-file get-file])
(mixin (editor<%>) (basic<%>) (mixin (editor<%>) (basic<%>)
(inherit get-filename save-file) (inherit get-filename save-file)
@ -52,7 +53,7 @@
(let ([internal-filename (get-filename)]) (let ([internal-filename (get-filename)])
(if (or (not internal-filename) (if (or (not internal-filename)
(equal? internal-filename "")) (equal? internal-filename ""))
(get-file) (mred:get-file)
internal-filename)) internal-filename))
input-filename)]) input-filename)])
(if filename (if filename
@ -256,7 +257,7 @@
(finder:put-file f d)))] (finder:put-file f d)))]
(super-instantiate ()))) (super-instantiate ()))))
(define -keymap<%> (interface (basic<%>) get-keymaps)) (define -keymap<%> (interface (basic<%>) get-keymaps))
(define keymap-mixin (define keymap-mixin