#lang scheme
(require "../../mred-id.ss"
"../../controller.ss"
"../../toolbox-frame.ss"
scheme/gui/base)
(provide preview-frame%)
(define preview-frame%
(class frame%
(init parent)
(init-field [show-at-init #t])
(super-new [parent (or (and (is-a? parent frame%) parent) toolbox-frame)])
(define/override (on-subwindow-event w e)
(when (and (equal? (send e get-event-type) 'left-down)
(is-a? w mred-widget<%>))
(controller-select-mred-id (send w get-mred-id))
)
#f
)
(define/override (on-move x y)
(send (send this get-mred-id) change-property-value 'x x)
(send (send this get-mred-id) change-property-value 'y y)
)
(define/override (on-size w h)
(send (send this get-mred-id) change-property-value 'width w)
(send (send this get-mred-id) change-property-value 'height h)
)
(send this show #t)
))