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

...

Browse Source 
original commit: b4602473c67547f9cc51948e1b1d56ba59a30870
This commit is contained in:
Robby Findler 1999-05-02 18:56:35 +00:00
parent 6fe81d01e7
commit 11ade3119f
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/framework/frame.ss
View File

@ -152,9 +152,11 @@
(send (get-editor) on-close))]
[get-area-container% (lambda () panel:vertical-editor%)])
(private
[label (let-values ([(base name dir?) (split-path file-name)])
[label (if file-name
(let-values ([(base name dir?) (split-path file-name)])
(or name
file-name))]
file-name))
"Untitled")]
[label-prefix (application:current-app-name)]
[do-label
(lambda ()
@ -322,8 +324,9 @@
(when (send icon ok?)
(set-icon icon)))
(do-label)
(when file-name
(send (get-editor) load-file file-name 'guess #f))
(let ([canvas (get-canvas)])
(send (get-editor) load-file file-name 'guess #f)
(send canvas focus)))))
(define -text<%> (interface (-editor<%>)))