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

fixed PR 8770, made stick man a little bit shorter

Browse Source 
svn: r6793

original commit: 541752ca35e6a2510cd51c4ee57f87d35195c9b7
This commit is contained in:
Robby Findler 2007-07-02 03:50:04 +00:00
parent 37bc6ec4ba
commit 9d8a56ad78
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -426,7 +426,9 @@
(define/public (update-frame-filename) (define/public (update-frame-filename)
(let* ([filename (get-filename)] (let* ([filename (get-filename)]
[name (if filename [name (if filename
(path->string (file-name-from-path (normalize-path filename))) (path->string
(file-name-from-path
filename))
(get-filename/untitled-name))]) (get-filename/untitled-name))])
(for-each (λ (canvas) (for-each (λ (canvas)
(let ([tlw (send canvas get-top-level-window)]) (let ([tlw (send canvas get-top-level-window)])