41 lines
1.5 KiB
Racket
41 lines
1.5 KiB
Racket
#lang scribble/doc
|
|
@(require "common.ss")
|
|
|
|
@defclass/title[group-box-panel% vertical-panel% ()]{
|
|
|
|
A group-box panel arranges its subwindows in a single column, but also
|
|
draws an optional label at the top of the panel and a border around
|
|
the panel content.
|
|
|
|
Unlike most panel classes, a group-box panel's horizontal and vertical
|
|
margins default to @scheme[2].
|
|
|
|
|
|
@defconstructor[([label label-string?]
|
|
[parent (or/c (is-a?/c frame%) (is-a?/c dialog%)
|
|
(is-a?/c panel%) (is-a?/c pane%))]
|
|
[style (listof (one-of/c 'deleted)) null]
|
|
[font (is-a?/c font%) small-control-font]
|
|
[enabled any/c #t]
|
|
[vert-margin (integer-in 0 1000) 2]
|
|
[horiz-margin (integer-in 0 1000) 2]
|
|
[border (integer-in 0 1000) 0]
|
|
[spacing (integer-in 0 1000) 0]
|
|
[alignment (list/c (one-of/c 'left 'center 'right)
|
|
(one-of/c 'top 'center 'bottom))
|
|
'(center top)]
|
|
[min-width (integer-in 0 10000) _graphical-minimum-width]
|
|
[min-height (integer-in 0 10000) _graphical-minimum-height]
|
|
[stretchable-width any/c #t]
|
|
[stretchable-height any/c #t])]{
|
|
|
|
Creates a group pane whose title is @scheme[label].
|
|
|
|
@DeletedStyleNote[@scheme[style] @scheme[parent]]{group panel}
|
|
|
|
@FontKWs[@scheme[font]] @WindowKWs[@scheme[enabled]] @SubareaKWs[] @AreaKWs[]
|
|
|
|
|
|
}}
|
|
|