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

.

Browse Source 
original commit: 2add41d62d94518d989cfbdf2ed8fb940e8274e1
This commit is contained in:
Robby Findler 2003-07-28 21:17:46 +00:00
parent 074fcf1f81
commit 0d0ff5d47c
2 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -181,10 +181,10 @@
[define has-focus #f]
(rename [super-on-focus on-focus])
(override on-focus)
[define on-focus
[define/override on-focus
(lambda (x)
(set! has-focus x))]
(set! has-focus x)
(super-on-focus x))]
(public has-focus?)
[define has-focus?
(lambda ()
@ -213,9 +213,8 @@
[define edit-sequence-queue null]
[define edit-sequence-ht (make-hash-table)]
[define in-local-edit-sequence? #f]
(public local-edit-sequence? run-after-edit-sequence extend-edit-sequence-queue)
[define local-edit-sequence? (lambda () in-local-edit-sequence?)]
[define run-after-edit-sequence
[define/public local-edit-sequence? (lambda () in-local-edit-sequence?)]
[define/public run-after-edit-sequence
(case-lambda
[(t) (run-after-edit-sequence t #f)]
[(t sym)
@ -249,7 +248,7 @@
(void)])))
(t))
(void)])]
[define extend-edit-sequence-queue
[define/public extend-edit-sequence-queue
(lambda (l ht)
(hash-table-for-each ht (lambda (k t)
(hash-table-put!

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

@ -1111,9 +1111,9 @@
(rename [super-after-edit-sequence after-edit-sequence])
(define/override (after-edit-sequence text super-call)
(super-after-edit-sequence text super-call)
(when (send text has-focus?)
(send text highlight-parens)))
(super-after-edit-sequence text super-call)
(when (send text has-focus?)
(send text highlight-parens)))
(rename [super-after-insert after-insert])
(define/override (after-insert text super-call start size)