gWidgets2 (version 1.0-9)

gexpandgroup: Constructor of box container widget with disclosure trigger and label

Description

For gexpandgroup, the visible assignment method is overridden to change the disclosure state

The change handler for a expandGroup is called when the group changes visibility

Usage

gexpandgroup(
  text = "",
  markup = FALSE,
  horizontal = TRUE,
  handler = NULL,
  action = NULL,
  container = NULL,
  ...,
  toolkit = guiToolkit()
)
.gexpandgroup(
  toolkit,
  text = "",
  markup = FALSE,
  horizontal = TRUE,
  handler = NULL,
  action = NULL,
  container = NULL,
  ...
)
# S3 method for GExpandGroup
visible (obj) <- value
# S3 method for GExpandGroup
addHandlerChanged(obj, handler, action = NULL, ...)

Arguments

text

Label text

markup

logical. Does text have markup? (Toolkit dependent: only implemented for RGtk2, in qtbase one can pass HTML formatted text)

horizontal

horizontal (TRUE) or vertical packing.

handler

handler called when state is toggled

action

passed to handler

container

parent container

...

passed to parent's add method

toolkit

toolkit

obj

object receiving event and emitting a signal to the handler

value

logical. If TRUE show, FALSE hide.

Value

An object of class GExpandGroup inheriting from GFrame

See Also

ggroup and gframe

Examples

# NOT RUN {
 if(interactive()) {
    w <- gwindow("Box containers")
    g <- gvbox(cont=w)                         # ggroup(horizonta=FALSE, ...)
    nb <- gnotebook(cont=g); gbutton("one", label="one", cont=nb)
    gframe("Frame", cont=g)
    pg <- gpanedgroup(cont=g);
    gbutton("one", cont=pg);
    gbutton("two", cont=pg)

    eg <- gexpandgroup(cont=g, horizontal=FALSE);
    glabel("Click above to hide", cont=eg);
    gbutton("one", cont=eg);
    gbutton("two", cont=eg)
}
# }