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

..

Browse Source 
original commit: e8c83ca1402ffa9dfec6a551e18d27d51994379c
This commit is contained in:
Robby Findler 2003-06-03 03:44:44 +00:00
parent f398ad990a
commit 1177be3208
1 changed files with 21 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1096,51 +1096,58 @@
(define text-mode-mixin
(mixin (mode:surrogate-text<%>) (-text-mode<%>)
(rename [super-on-focus on-focus])
(define/override (on-focus text on?)
(super-on-focus text on?)
(define/override (on-focus text super-call on?)
(super-on-focus text super-call on?)
(super-call on?)
(send text highlight-parens (not on?)))
(rename [super-after-change-style after-change-style])
(define/override (after-change-style text start len)
(define/override (after-change-style text super-call start len)
(unless (send text local-edit-sequence?)
(unless (send text get-styles-fixed)
(when (send text has-focus?)
(send text highlight-parens))))
(super-after-change-style text start len))
(super-call start len)
(super-after-change-style text super-call start len))
(rename [super-after-edit-sequence after-edit-sequence])
(define/override (after-edit-sequence text)
(super-after-edit-sequence text)
(define/override (after-edit-sequence text super-call)
(super-after-edit-sequence text super-call)
(super-call)
(when (send text has-focus?)
(send text highlight-parens)))
(rename [super-after-insert after-insert])
(define/override (after-insert text start size)
(define/override (after-insert text super-call start size)
(unless (send text local-edit-sequence?)
(when (send text has-focus?)
(send text highlight-parens)))
(super-after-insert text start size))
(super-call start size)
(super-after-insert text super-call start size))
(rename [super-after-delete after-delete])
(define/override (after-delete text start size)
(define/override (after-delete text super-call start size)
(unless (send text local-edit-sequence?)
(when (send text has-focus?)
(send text highlight-parens)))
(super-after-delete text start size))
(super-call start size)
(super-after-delete text super-call start size))
(rename [super-after-set-size-constraint after-set-size-constraint])
(define/override (after-set-size-constraint text)
(define/override (after-set-size-constraint text super-call)
(unless (send text local-edit-sequence?)
(when (send text has-focus?)
(send text highlight-parens)))
(super-after-set-size-constraint text))
(super-call)
(super-after-set-size-constraint text super-call))
(rename [super-after-set-position after-set-position])
(define/override (after-set-position text)
(define/override (after-set-position text super-call)
(unless (send text local-edit-sequence?)
(when (send text has-focus?)
(send text highlight-parens)))
(super-after-set-position text))
(super-call)
(super-after-set-position text super-call))
(rename [super-on-disable-surrogate on-disable-surrogate])
(define/override (on-disable-surrogate text)