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

...

Browse Source 
original commit: 542a5cb8f2a7f7adb4315c3857beb33478a1cd6a
This commit is contained in:
Robby Findler 2000-08-11 19:49:25 +00:00
parent 01064e7ab4
commit f60545b04e
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/framework/frame.ss
View File

@ -71,7 +71,10 @@
[super-on-close on-close] [super-on-close on-close]
[super-on-focus on-focus]) [super-on-focus on-focus])
(public (public
[get-filename (lambda () #f)]) [get-filename
(case-lambda
[() (get-filename #f)]
[(b) #f])])
(private (private
[after-init? #f]) [after-init? #f])
(override (override
@ -577,9 +580,11 @@
(override (override
[get-filename [get-filename
(lambda () (case-lambda
[() (get-filename #f)]
[(b)
(let ([e (get-editor)]) (let ([e (get-editor)])
(and e (send e get-filename))))] (and e (send e get-filename b)))])]
[on-close [on-close
(lambda () (lambda ()
(super-on-close) (super-on-close)