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

..

Browse Source 
original commit: 886380c581259d30e3c789fa5bf77125f5d490d6
This commit is contained in:
Robby Findler 2003-06-10 22:45:17 +00:00
parent 9a5ca8dcf2
commit 20dbafe0a0
1 changed files with 7 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
collects/framework/private/scheme.ss
View File

@ -12,7 +12,8 @@
(lib "mred.ss" "mred") (lib "mred.ss" "mred")
(lib "list.ss") (lib "list.ss")
(lib "thread.ss") (lib "thread.ss")
(lib "etc.ss")) (lib "etc.ss")
(lib "surrogate.ss"))
(provide scheme@) (provide scheme@)
@ -317,7 +318,7 @@
(send style-list find-named-style "Matching Parenthesis Style"))) (send style-list find-named-style "Matching Parenthesis Style")))
(define text-mixin (define text-mixin
(mixin (text:basic<%>) (-text<%>) (mixin (text:basic<%> host<%>) (-text<%>)
(inherit begin-edit-sequence (inherit begin-edit-sequence
delete delete
end-edit-sequence end-edit-sequence
@ -1098,7 +1099,6 @@
(rename [super-on-focus on-focus]) (rename [super-on-focus on-focus])
(define/override (on-focus text super-call on?) (define/override (on-focus text super-call on?)
(super-on-focus text super-call on?) (super-on-focus text super-call on?)
(super-call on?)
(send text highlight-parens (not on?))) (send text highlight-parens (not on?)))
(rename [super-after-change-style after-change-style]) (rename [super-after-change-style after-change-style])
@ -1107,22 +1107,19 @@
(unless (send text get-styles-fixed) (unless (send text get-styles-fixed)
(when (send text has-focus?) (when (send text has-focus?)
(send text highlight-parens)))) (send text highlight-parens))))
(super-call start len)
(super-after-change-style text super-call start len)) (super-after-change-style text super-call start len))
(rename [super-after-edit-sequence after-edit-sequence]) (rename [super-after-edit-sequence after-edit-sequence])
(define/override (after-edit-sequence text super-call) (define/override (after-edit-sequence text super-call)
(super-after-edit-sequence text super-call) (super-after-edit-sequence text super-call)
(super-call) (when (send text has-focus?)
(when (send text has-focus?) (send text highlight-parens)))
(send text highlight-parens)))
(rename [super-after-insert after-insert]) (rename [super-after-insert after-insert])
(define/override (after-insert text super-call start size) (define/override (after-insert text super-call start size)
(unless (send text local-edit-sequence?) (unless (send text local-edit-sequence?)
(when (send text has-focus?) (when (send text has-focus?)
(send text highlight-parens))) (send text highlight-parens)))
(super-call start size)
(super-after-insert text super-call start size)) (super-after-insert text super-call start size))
(rename [super-after-delete after-delete]) (rename [super-after-delete after-delete])
@ -1130,7 +1127,6 @@
(unless (send text local-edit-sequence?) (unless (send text local-edit-sequence?)
(when (send text has-focus?) (when (send text has-focus?)
(send text highlight-parens))) (send text highlight-parens)))
(super-call start size)
(super-after-delete text super-call start size)) (super-after-delete text super-call start size))
(rename [super-after-set-size-constraint after-set-size-constraint]) (rename [super-after-set-size-constraint after-set-size-constraint])
@ -1138,7 +1134,6 @@
(unless (send text local-edit-sequence?) (unless (send text local-edit-sequence?)
(when (send text has-focus?) (when (send text has-focus?)
(send text highlight-parens))) (send text highlight-parens)))
(super-call)
(super-after-set-size-constraint text super-call)) (super-after-set-size-constraint text super-call))
(rename [super-after-set-position after-set-position]) (rename [super-after-set-position after-set-position])
@ -1146,7 +1141,6 @@
(unless (send text local-edit-sequence?) (unless (send text local-edit-sequence?)
(when (send text has-focus?) (when (send text has-focus?)
(send text highlight-parens))) (send text highlight-parens)))
(super-call)
(super-after-set-position text super-call)) (super-after-set-position text super-call))
(rename [super-on-disable-surrogate on-disable-surrogate]) (rename [super-on-disable-surrogate on-disable-surrogate])
@ -1172,7 +1166,7 @@
(super-instantiate ()))) (super-instantiate ())))
(define -text% (text-mixin text:info%)) (define -text% (text-mixin (mode:host-text-mixin text:info%)))
(define text-mode% (text-mode-mixin mode:surrogate-text%)) (define text-mode% (text-mode-mixin mode:surrogate-text%))