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))

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

@ -590,37 +590,37 @@
(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)
(send delegate begin-edit-sequence) (when delegate
(send delegate lock #f) (send delegate begin-edit-sequence)
(when (is-a? this scheme:text<%>) (send delegate lock #f)
(send delegate set-tabs null (send this get-tab-size) #f)) (when (is-a? this scheme:text<%>)
(send delegate hide-caret #t) (send delegate set-tabs null (send this get-tab-size) #f))
(send delegate erase) (send delegate hide-caret #t)
(send delegate set-style-list (get-style-list)) (send delegate erase)
(let loop ([snip (find-first-snip)]) (send delegate set-style-list (get-style-list))
(when snip (let loop ([snip (find-first-snip)])
(let ([copy-of-snip (copy snip)]) (when snip
(send delegate insert (let ([copy-of-snip (copy snip)])
copy-of-snip (send delegate insert
(send delegate last-position) copy-of-snip
(send delegate last-position)) (send delegate last-position)
(loop (send snip next))))) (send delegate last-position))
(for-each (loop (send snip next)))))
(lambda (range) (for-each
(send delegate highlight-range (lambda (range)
(range-start range) (send delegate highlight-range
(range-end range) (range-start range)
(range-color range) (range-end range)
(range-b/w-bitmap range) (range-color range)
(range-caret-space? range) (range-b/w-bitmap range)
'high)) (range-caret-space? range)
(reverse (get-highlighted-ranges))) 'high))
(send delegate lock #t) (reverse (get-highlighted-ranges)))
(send delegate end-edit-sequence)) (send delegate lock #t)
(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 ())))