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

fixed a bug in run-after-edit-sequence

Browse Source 
svn: r10973

original commit: 8d0d6d5d28c2fe238b226684b9b57d4689466abe
This commit is contained in:
Robby Findler 2008-07-29 21:39:32 +00:00
parent d5aaa11307
commit a72f8b5589
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -258,8 +258,19 @@
[(not snip-admin)
(t)] ;; refresh-delayed? is always #t when there is no admin.
[(is-a? snip-admin editor-snip-editor-admin<%>)
(send (send (send (send snip-admin get-snip) get-admin) get-editor)
run-after-edit-sequence t sym)]
(let loop ([ed this])
(let ([snip-admin (send ed get-admin)])
(if (is-a? snip-admin editor-snip-editor-admin<%>)
(let ([up-one
(send (send (send snip-admin get-snip) get-admin) get-editor)])
(if (is-a? up-one basic<%>)
(send up-one run-after-edit-sequence t sym)
(loop up-one)))
;; here we are in an embdedded editor that is not
;; in an edit sequence and the "parents" of the embdedded editor
;; are all non-basic<%> objects, so we just run the thunk now.
(t))))]
[else
'(message-box "run-after-edit-sequence error"
(format "refresh-delayed? is #t but snip admin, ~s, is not an editor-snip-editor-admin<%>"