(send a-panel:single active-child child) → void

child : (is-a?/c area<%>)

(send a-panel:single active-child) → (is-a?/c area<%>)

Sets the active child to be child

Returns the current active child.

(send a-panel:single after-new-child child) → void

child : subarea<%>

Overrides after-new-child in area-container<%>.

Hides this child by calling (send child show #f), unless this is the first child in which case it does nothing.

(send a-panel:single container-size)

→   exact-integer   exact-integer

Overrides container-size in area-container<%>.

Returns the maximum width of all the children and the maximum height of all of the children.

(send a-panel:single place-children)

→ (listof (list exact-integer exact-integer exact-integer exact-integer))

Overrides place-children in area-container<%>.

Returns the positions for single panels and panes.

(send a-panel:single-window container-size info)

→   exact-integer   exact-integer

info : (list-of (list exact-integer exact-integer boolean boolean?))

Overrides container-size in area-container<%>.

Factors the border width into the size calculation.

(send a-panel:dragable after-percentage-change) → void

This method is called when the user changes the percentage by dragging the bar between the children, or when a new child is added to the frame, but not when set-percentages is called.

Use get-percentages to find the current percentages.

(send a-panel:dragable set-percentages new-percentages) → void

new-percentages : (listof number)

Call this method to set the percentages that each window takes up of the panel.

The argument, new-percentages must be a list of numbers that sums to 1. It’s length must be equal to the number of children of the panel (see get-children) and each percentage must correspond to a number of pixels that is equal to or larger than the minimum with of the child, as reported by min-width.

(send a-panel:dragable get-percentages) → (listof numbers)

Return the current percentages of the children.

(send a-panel:dragable get-vertical?) → boolean?

This method controls the behavior of the other overridden methods in mixins that implement this interface.

If it returns #t, the panel will be vertically aligned and if it returns #f, they will be horizontally aligned.

(send a-panel:dragable set-orientation horizontal?) → void?

horizontal? : boolean?

Sets the orientation of the panel, switching it from behaving like a panel:horizontal-dragable<%> and panel:vertical-dragable<%>.

(send a-panel:dragable after-new-child child) → void

child : (instance-of (is-a?/c area<%>))

Overrides after-new-child in area-container<%>.

Updates the number of percentages to make sure that it matches the number of children and calls after-percentage-change.

(send a-panel:dragable on-subwindow-event   receiver             event)   →   boolean?

receiver : (instanceof window<%>)

event : (instanceof mouse-event%)

Overrides on-subwindow-event in window<%>.

When the cursor is dragging the middle bar around, this method handles the resizing of the two panes.

(send a-panel:dragable place-children   info       w       h)

→ (list-of (list exact-int exact-int exact-int exact-int))

info : (list-of (list exact-int exact-int))

w : exact-int

h : exact-int

Overrides place-children in area-container<%>.

Places the children vertically in the panel, based on the percentages returned from get-percentages. Also leaves a little gap between each pair of children.

(send a-panel:dragable container-size info) → two

info : list

Overrides container-size in area-container<%>.

Computes the minimum size the panel would have to be in order to have the current percentages (see get-percentages).

(send a-panel:vertical-dragable get-vertical?) → boolean?

Overrides get-vertical? in panel:dragable<%>.

Returns #t.

(send a-panel:horizontal-dragable get-vertical?) → boolean?

Overrides get-vertical? in panel:dragable<%>.

Returns #f.

(send a-panel:splitter split-vertical   canvas       maker)

→ (instance-of (is-a?/c canvas<%>))

canvas : (instance-of (is-a?/c canvas<%>))

maker   :   (-> (instance-of (is-a?/c splitter<%>))     (instance-of (is-a?/c canvas<%>)))

Splits the canvas vertically by creating a new instance using maker. This splitter object is passed as the argument to maker and should be used as the parent field of the newly created canvas.

(send a-panel:splitter split-horizontal   canvas       maker)

→ (instance-of (is-a?/c canvas<%>))

canvas : (instance-of (is-a?/c canvas<%>))

maker   :   (-> (instance-of (is-a?/c splitter<%>))     (instance-of (is-a?/c canvas<%>)))

Similar to split-vertical but splits horizontally.

(send a-panel:splitter collapse canvas) → void

canvas : (instance-of (is-a?/c canvas<%>))

Removes the given canvas from the splitter hierarchy and collapses any split panes as necessary.