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

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

@ -559,6 +559,9 @@
(make-hash-table) (make-hash-table)
#f)) #f))
(when delegate (when delegate
(refresh-delegate)))
(define/private (refresh-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<%>)
@ -585,7 +588,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
@ -683,12 +686,7 @@
(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 (and delegate success?)
(send delegate begin-edit-sequence) (refresh-delegate)))
(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)))
(super-instantiate ()))) (super-instantiate ())))
(define info<%> (interface (basic<%>))) (define info<%> (interface (basic<%>)))