On this page:
set-orientation
get-orientation

Inherited methods:

from window<%>

accept-drop-files

client->screen

enable

focus

get-client-size

get-cursor

get-handle

get-height

get-label

get-plain-label

get-size

get-width

get-x

get-y

has-focus?

is-enabled?

is-shown?

on-drop-file

on-focus

on-move

on-size

on-subwindow-char

on-subwindow-event

on-superwindow-enable

on-superwindow-show

popup-menu

refresh

screen->client

set-cursor

set-label

show

from area<%>

get-graphical-min-size

get-parent

get-top-level-window

min-height

min-width

stretchable-height

stretchable-width

from subarea<%>

horiz-margin

vert-margin

from area-container<%>

add-child

after-new-child

begin-container-sequence

border

change-children

container-flow-modified

container-size

delete-child

end-container-sequence

get-alignment

get-children

place-children

reflow-container

set-alignment

spacing

Version: 4.1

horizontal-panel% : class?

  superclass: panel%

A horizontal panel arranges its subwindows in a single row. See also panel%.

(new horizontal-panel%

 

 

 

[parent parent]

 

 

 [

[style style]

 

 

 

[enabled enabled]

 

 

 

[vert-margin vert-margin]

 

 

 

[horiz-margin horiz-margin]

 

 

 

[border border]

 

 

 

[spacing spacing]

 

 

 

[alignment alignment]

 

 

 

[min-width min-width]

 

 

 

[min-height min-height]

 

 

 

[stretchable-width stretchable-width]

 

 

 

[stretchable-height stretchable-height]])

 

  (is-a?/c horizontal-panel%)

  

parent

 

:

 

(or/c (is-a?/c frame%) (is-a?/c dialog%)

      (is-a?/c panel%) (is-a?/c pane%))

  style : (listof (one-of/c 'border 'deleted)) = null

  enabled : any/c = #t

  vert-margin : (integer-in 0 1000) = 0

  horiz-margin : (integer-in 0 1000) = 0

  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))

 

 

 

=

 

'(left center)

  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

If the 'border style is specified, the window is created with a thin border (only in this case, the client size of the panel may be less than its total size). If style includes 'deleted, then the panel is created as hidden, and it does not affect its parent’s geometry; the panel can be made active later by calling parent’s add-child method.

For information about the enabled argument, see window<%>. For information about the horiz-margin and vert-margin arguments, see subarea<%>. For information about the border, spacing, and alignment arguments, see area-container<%>. For information about the min-width, min-height, stretchable-width, and stretchable-height arguments, see area<%>.

(send a-horizontal-panel set-orientation horizontal?)  void?

  horizontal? : boolean?

Sets the orientation of the panel, switching it between the behavior of the vertical-panel% and that of the horizontal-panel%.

(send a-horizontal-panel get-orientation)  boolean?

Initially returns #t, but if set-orientation is called, this method returns whatever the last value passed to it was.