commit 3e4edfb3bb06b71c639db74bcdf9845cc74330df parent 34f6418e1ea17e88c346e3a5e44c052f821878b6 Author: Ryan Culpepper <ryanc@racket-lang.org> Date: Fri, 26 Nov 2010 19:23:51 -0700 macro-stepper: dummy editor-admin for image creation original commit: a45792ca1c9cb02913ef479116ce4d2f11dae0b0 Diffstat:
| M | collects/macro-debugger/syntax-browser/image.rkt | | | 14 | ++++++++++++-- |
1 file changed, 12 insertions(+), 2 deletions(-)
diff --git a/collects/macro-debugger/syntax-browser/image.rkt b/collects/macro-debugger/syntax-browser/image.rkt @@ -48,8 +48,8 @@ TODO: tacked arrows (define (print-syntax-to-bitmap stx #:columns [columns (print-syntax-columns)]) (define t (prepare-editor stx columns)) - (define f (new frame% [label "dummy"])) - (define ec (new editor-canvas% (editor t) (parent f))) + (define admin (new dummy-admin%)) + (send t set-admin admin) (define dc (new bitmap-dc% (bitmap (make-object bitmap% 1 1)))) (define char-width (let* ([sl (send t get-style-list)] @@ -93,3 +93,13 @@ TODO: tacked arrows (new controller%) (new syntax-prefs/readonly%) columns (send t last-position)) t) + +;; dummy editor-admin +(define dummy-admin% + (class editor-admin% + (define the-dc (new bitmap-dc% (bitmap (make-object bitmap% 1 1)))) + (define/override (get-dc [x #f] [y #f]) + (when x (set-box! x 0.0)) + (when y (set-box! y 0.0)) + the-dc) + (super-new)))