58 lines
1.7 KiB
Racket
58 lines
1.7 KiB
Racket
#lang scheme/base
|
|
(require scheme/class
|
|
"../syntax.ss"
|
|
"snip.ss"
|
|
"private.ss"
|
|
(only-in "cycle.ss" popup-menu%))
|
|
|
|
(provide editor-admin%)
|
|
|
|
(defclass editor-admin% object%
|
|
(super-new)
|
|
|
|
(define standard 0) ; used to recognize standard display
|
|
(define/public (get-s-standard) standard)
|
|
(define/public (set-s-standard v) (set! standard v))
|
|
|
|
(def/public (get-dc [maybe-box? [x #f]] [maybe-box? [y #f]])
|
|
(when x (set-box! x 0.0))
|
|
(when y (set-box! y 0.0))
|
|
#f)
|
|
|
|
(define/private (do-get-view x y w h)
|
|
(when x (set-box! x 0.0))
|
|
(when y (set-box! y 0.0))
|
|
(when w (set-box! w 0.0))
|
|
(when h (set-box! h 0.0)))
|
|
|
|
(def/public (get-view [maybe-box? x] [maybe-box? y]
|
|
[maybe-box? w] [maybe-box? h]
|
|
[any? [full? #f]])
|
|
(do-get-view x y w h))
|
|
|
|
(def/public (get-max-view [maybe-box? x] [maybe-box? y]
|
|
[maybe-box? w] [maybe-box? h]
|
|
[any? [full? #f]])
|
|
(get-view x y w h full?))
|
|
|
|
(def/public (scroll-to [real? localx] [real? localy] [real? w] [real? h] [any? [refresh? #t]]
|
|
[(symbol-in start none end) [bias 'none]])
|
|
(void))
|
|
|
|
(def/public (grab-caret [(symbol-in immediate display global) [dist 'global]])
|
|
(void))
|
|
|
|
(def/public (resized [any? redraw-now]) (void))
|
|
|
|
(def/public (needs-update [real? x] [real? y]
|
|
[nonnegative-real? w] [nonnegative-real? h])
|
|
(void))
|
|
|
|
(def/public (update-cursor) (void))
|
|
|
|
(def/public (refresh-delayed?) #f)
|
|
|
|
(def/public (popup-menu [popup-menu% m] [real? x] [real? y]) #f)
|
|
|
|
(def/public (modified [any? mod?]) (void)))
|