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

..

Browse Source 
original commit: 0be4d776abf3baaf547643618e63a11631171080
This commit is contained in:
Robby Findler 2002-09-04 17:33:04 +00:00
parent 18f707cdd1
commit 2cd49392aa
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/gui-utils.ss
View File

@ -677,7 +677,9 @@
(super-make-object (string-constant warning) parent)
(let* ([panel (make-object vertical-panel% this)]
(let* ([outer-panel (make-object horizontal-panel% this)]
[warning-msg (make-object message% 'caution outer-panel)]
[panel (make-object vertical-panel% outer-panel)]
[msg
(make-object message%
(format (string-constant file-is-not-saved) filename)