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

..

Browse Source 
original commit: 03b8795e49e84c7613f4f283b6aaefc71c2e729f
This commit is contained in:
Robby Findler 2002-06-20 22:28:36 +00:00
parent c8a393689c
commit b61a2d220a
4 changed files with 15 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,3 +1,4 @@
(module editor mzscheme (module editor mzscheme
(require (lib "unitsig.ss") (require (lib "unitsig.ss")
(lib "class.ss") (lib "class.ss")
@ -223,20 +224,24 @@
(super-after-edit-sequence) (super-after-edit-sequence)
(let ([queue edit-sequence-queue] (let ([queue edit-sequence-queue]
[ht edit-sequence-ht] [ht edit-sequence-ht]
[find-enclosing-edit [find-enclosing-editor
(lambda (edit) (lambda (editor)
(let ([admin (send edit get-admin)]) (let ([admin (send editor get-admin)])
(cond (cond
[(is-a? admin editor-snip-editor-admin<%>) [(is-a? admin editor-snip-editor-admin<%>)
(send (send (send admin get-snip) get-admin) get-editor)] (send (send (send admin get-snip) get-admin) get-editor)]
[else #f])))]) [else #f])))])
(set! edit-sequence-queue null) (set! edit-sequence-queue null)
(set! edit-sequence-ht (make-hash-table)) (set! edit-sequence-ht (make-hash-table))
(let loop ([edit (find-enclosing-edit this)]) (let loop ([editor (find-enclosing-editor this)])
(cond (cond
[(and edit (not (send edit local-edit-sequence?))) [(and editor
(loop (find-enclosing-edit edit))] (is-a? editor basic<%>)
[edit (send edit extend-edit-sequence-queue queue ht)] (not (send editor local-edit-sequence?)))
(loop (find-enclosing-editor editor))]
[(and editor
(is-a? editor basic<%>))
(send editor extend-edit-sequence-queue queue ht)]
[else [else
(hash-table-for-each ht (lambda (k t) (t))) (hash-table-for-each ht (lambda (k t) (t)))
(for-each (lambda (t) (t)) queue)]))))] (for-each (lambda (t) (t)) queue)]))))]

1
collects/framework/private/frame.ss
View File

@ -116,6 +116,7 @@
get-filename)) get-filename))
(define basic-mixin (define basic-mixin
(mixin ((class->interface frame%)) (basic<%>) (mixin ((class->interface frame%)) (basic<%>)
(rename [super-can-close? can-close?] (rename [super-can-close? can-close?]
[super-on-close on-close] [super-on-close on-close]
[super-on-focus on-focus]) [super-on-focus on-focus])

3
collects/framework/private/group.ss
View File

@ -88,8 +88,7 @@
(get-name (frame-frame f2)))))]) (get-name (frame-frame f2)))))])
(for-each (for-each
(lambda (menu) (lambda (menu)
(for-each (lambda (item) (send item delete)) (for-each (lambda (item) (send item delete)) (send menu get-items))
(send menu get-items))
(instantiate menu:can-restore-menu-item% () (instantiate menu:can-restore-menu-item% ()
(label (string-constant bring-frame-to-front...)) (label (string-constant bring-frame-to-front...))
(parent menu) (parent menu)

1
collects/framework/test.ss
View File

@ -1,3 +1,4 @@
(module test mzscheme (module test mzscheme
(require (lib "mred.ss" "mred") (require (lib "mred.ss" "mred")
(lib "class.ss") (lib "class.ss")