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

.

Browse Source 
original commit: f235799f371e99220124b972a81803d728e39d69
This commit is contained in:
Robby Findler 2004-02-18 03:39:56 +00:00
parent 59ab491de6
commit ca48645d9e
2 changed files with 36 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1368,8 +1368,12 @@
(send delegate-frame update-status-line 'plt:delegate #f)]))))) (send delegate-frame update-status-line 'plt:delegate #f)])))))
(super-instantiate ()))) (super-instantiate ())))
(define delegatee-text<%>
(interface ()
set-start/end-para))
(define delegatee-text% (define delegatee-text%
(class text:basic% (class* text:basic% (delegatee-text<%>)
(rename [super-on-paint on-paint]) (rename [super-on-paint on-paint])
(inherit get-admin) (inherit get-admin)
(define start-para #f) (define start-para #f)
@ -1470,7 +1474,7 @@
[b (box 0)]) [b (box 0)])
(position-location pos #f b top? #f #t) (position-location pos #f b top? #f #t)
(unbox b))) (unbox b)))
(super-instantiate ()) (super-new)
(inherit set-cursor) (inherit set-cursor)
(set-cursor (make-object cursor% 'arrow)) (set-cursor (make-object cursor% 'arrow))

8
collects/framework/private/text.ss
View File

@ -590,10 +590,10 @@
(set! linked-snips (if _d (set! linked-snips (if _d
(make-hash-table) (make-hash-table)
#f)) #f))
(when delegate (refresh-delegate))
(refresh-delegate)))
(define/private (refresh-delegate) (define/private (refresh-delegate)
(when delegate
(send delegate begin-edit-sequence) (send delegate begin-edit-sequence)
(send delegate lock #f) (send delegate lock #f)
(when (is-a? this scheme:text<%>) (when (is-a? this scheme:text<%>)
@ -620,7 +620,7 @@
'high)) 'high))
(reverse (get-highlighted-ranges))) (reverse (get-highlighted-ranges)))
(send delegate lock #t) (send delegate lock #t)
(send delegate end-edit-sequence)) (send delegate end-edit-sequence)))
(rename [super-highlight-range highlight-range]) (rename [super-highlight-range highlight-range])
(define/override highlight-range (define/override highlight-range
@ -717,7 +717,7 @@
(set! format _format)) (set! format _format))
(define/override (after-load-file success?) (define/override (after-load-file success?)
(super-after-load-file success?) (super-after-load-file success?)
(when (and delegate success?) (when success?
(refresh-delegate))) (refresh-delegate)))
(super-instantiate ()))) (super-instantiate ())))