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

make syntax snips inherit the style-list of the editors that contain them

Browse Source
This commit is contained in:
Robby Findler 2016-02-01 18:02:00 -06:00
parent 345a20c5e8
commit 55e34bd6d4
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gui-lib/mrlib/syntax-browser.rkt
View File

@ -308,6 +308,20 @@ needed to really make this work:
(send info-text end-edit-sequence))
(define outer-t (new text:hide-caret/selection%))
(inherit get-admin)
(define/override (set-admin a)
(super set-admin a)
(define new-admin (get-admin))
(when new-admin
(define sl (send (send new-admin get-editor) get-style-list))
(send outer-t set-style-list sl)
(define standard (send sl find-named-style "Standard"))
(send outer-t lock #f)
(send outer-t change-style standard 0 (send outer-t last-position))
(send outer-t lock #t)
(send info-text set-style-list sl)
(send output-text set-style-list sl)))
(super-instantiate ()
(editor outer-t)