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

.

Browse Source 
original commit: e1ac793fb4ef1820d08880f642078800c801db5f
This commit is contained in:
Matthew Flatt 2004-11-29 15:38:51 +00:00
parent 691c4c6145
commit 7c1848b268
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/framework/private/color.ss
View File

@ -662,10 +662,13 @@
(super on-focus on?)
(match-parens (not on?)))
(define/augment (on-change)
;; >>> super was not here <<<
(define/augment (after-split-snip pos)
(modify)
(inner (void) on-change))
(inner (void) after-split-snip pos))
(define/augment (after-merge-snips pos)
(modify)
(inner (void) after-merge-snips pos))
(define/augment (after-edit-sequence)
(when (has-focus?)
@ -676,7 +679,6 @@
(unless (local-edit-sequence?)
(when (has-focus?)
(match-parens)))
(modify)
(inner (void) after-set-position))
(define/augment (after-change-style a b)
@ -684,14 +686,12 @@
(unless (local-edit-sequence?)
(when (has-focus?)
(match-parens))))
(modify)
(inner (void) after-change-style a b))
(define/augment (on-set-size-constraint)
(unless (local-edit-sequence?)
(when (has-focus?)
(match-parens)))
(modify)
(inner (void) on-set-size-constraint))
(define/augment (after-insert edit-start-pos change-length)