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