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

..

Browse Source 
original commit: 72c0e4c4c0ecafe65215fb0ac199a7ff979113d4
This commit is contained in:
Robby Findler 2003-01-15 18:08:16 +00:00
parent 5adacd87a6
commit d553228b36
1 changed files with 31 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -559,33 +559,36 @@
(make-hash-table)
#f))
(when delegate
(send delegate begin-edit-sequence)
(send delegate lock #f)
(when (is-a? this scheme:text<%>)
(send delegate set-tabs null (send this get-tab-size) #f))
(send delegate hide-caret #t)
(send delegate erase)
(send delegate set-style-list (get-style-list))
(let loop ([snip (find-first-snip)])
(when snip
(let ([copy-of-snip (copy snip)])
(send delegate insert
copy-of-snip
(send delegate last-position)
(send delegate last-position))
(loop (send snip next)))))
(for-each
(lambda (range)
(send delegate highlight-range
(range-start range)
(range-end range)
(range-color range)
(range-b/w-bitmap range)
(range-caret-space? range)
'high))
(reverse (get-highlighted-ranges)))
(send delegate lock #t)
(send delegate end-edit-sequence)))
(refresh-delegate)))
(define/private (refresh-delegate)
(send delegate begin-edit-sequence)
(send delegate lock #f)
(when (is-a? this scheme:text<%>)
(send delegate set-tabs null (send this get-tab-size) #f))
(send delegate hide-caret #t)
(send delegate erase)
(send delegate set-style-list (get-style-list))
(let loop ([snip (find-first-snip)])
(when snip
(let ([copy-of-snip (copy snip)])
(send delegate insert
copy-of-snip
(send delegate last-position)
(send delegate last-position))
(loop (send snip next)))))
(for-each
(lambda (range)
(send delegate highlight-range
(range-start range)
(range-end range)
(range-color range)
(range-b/w-bitmap range)
(range-caret-space? range)
'high))
(reverse (get-highlighted-ranges)))
(send delegate lock #t)
(send delegate end-edit-sequence))
(rename [super-highlight-range highlight-range])
(define/override highlight-range
@ -683,12 +686,7 @@
(define/override (after-load-file success?)
(super-after-load-file success?)
(when (and delegate success?)
(send delegate begin-edit-sequence)
(send delegate lock #f)
(send delegate load-file/gui-error filename format)
(send delegate set-filename #f)
(send delegate lock #t)
(send delegate end-edit-sequence)))
(refresh-delegate)))
(super-instantiate ())))
(define info<%> (interface (basic<%>)))