#lang scheme
(require "../../mred-plugin.ss"
"../../mred-id.ss"
"../../controller.ss"
"../../default-values.ss"
"../../toolbox-frame.ss"
"../project/preview.ss" "../frame/preview.ss"
scheme/gui/base)
(make-plugin
[type 'dialog]
[tooltip "Dialog"]
[button-group "Containers"]
[widget-class preview-frame%] [code-gen-class dialog%] [parent-class (list dialog% frame% project%)] [necessary '(label parent)] [options '(id)]
( [label "Dialog"]
[width #f]
[height #f]
[x #f]
[y #f]
[style (prop:popup
(prop:some-of (list 'no-caption 'resize-border 'no-sheet)
'()))]
[enabled #t]
[border 0]
[spacing 0]
[alignment (alignment-values)]
[min-width 70]
[min-height 30]
[stretchable-width #t]
[stretchable-height #t]
))