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

.

Browse Source 
original commit: 69fc1cca1cab5f4a52a88c9ea043df840ae9e4a0
This commit is contained in:
Robby Findler 2004-02-19 03:18:41 +00:00
parent 9d6dbfa937
commit 3e2fcb897b
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -394,6 +394,7 @@
(define file<%> (define file<%>
(interface (-keymap<%>) (interface (-keymap<%>)
get-filename/untitled-name get-filename/untitled-name
get-can-close-parent
update-frame-filename)) update-frame-filename))
(define file-mixin (define file-mixin
(mixin (-keymap<%>) (file<%>) (mixin (-keymap<%>) (file<%>)
@ -467,13 +468,16 @@
(get-filename/untitled-name) (get-filename/untitled-name)
(string-constant close-anyway) (string-constant close-anyway)
#t #t
this) (or (get-top-level-window)
(get-can-close-parent)))
[(continue) #t] [(continue) #t]
[(save) (save-file)] [(save) (save-file)]
[else #f]))]) [else #f]))])
(and user-allowed-or-not-modified (and user-allowed-or-not-modified
(super-can-close?)))) (super-can-close?))))
(define/public (get-can-close-parent) #f)
(define/override (get-keymaps) (define/override (get-keymaps)
(cons (keymap:get-file) (super-get-keymaps))) (cons (keymap:get-file) (super-get-keymaps)))
(super-new))) (super-new)))