/////////////////////////////////////////////////////////////////////
// TOOLBAR
/////////////////////////////////////////////////////////////////////

#xcommand DEFINE TOOLBAR <name> ;
      [ OBJ <obj> ] ;
      [ <dummy1: OF, PARENT> <parent> ] ;
      [ <dummy2: GRIPPERTEXT, CAPTION> <caption> ] ;
      [ ACTION <action> ] ;
      [ BUTTONSIZE <w>, <h> ] ;
      [ FONT <f> ] ;
      [ SIZE <s> ] ;
      [ <bold: BOLD> ] ;
      [ <italic: ITALIC> ] ;
      [ <underline: UNDERLINE> ] ;
      [ <strikeout: STRIKEOUT> ] ;
      [ TOOLTIP <tooltip> ] ;
      [ <own: OWNTOOLTIP> ] ;
      [ <flat: FLAT> ] ;
      [ <bottom: BOTTOM> ] ;
      [ <vertical: VERTICAL> ] ;
      [ <righttext: RIGHTTEXT> ] ;
      [ <border: BORDER> ] ;
      [ <break: BREAK> ] ;
      [ <rtl: RTL> ] ;
      [ SUBCLASS <subclass> ] ;
      [ <notabstop: NOTABSTOP> ] ;
   => ;
      [ <obj> := ] _OOHG_SelectSubClass( TToolBar(), [ <subclass>() ] ): ;
            Define( <(name)>, <(parent)>, 0, 0, <w>, <h>, <caption>, ;
            <{action}>, <f>, <s>, <tooltip>, <.flat.>, <.bottom.>, ;
            <.righttext.>, <.break.>, <.bold.>, <.italic.>, <.underline.>, ;
            <.strikeout.>, <.border.>, <.rtl.>, <.notabstop.>, <.vertical.>, ;
            <.own.> )

#xcommand END TOOLBAR [ <nobreak: NOBREAK> ] ;
   => ;
      _EndToolBar( ! <.nobreak.> )

#xcommand BUTTON <name> ;
      [ OBJ <obj> ] ;
      [ CAPTION <caption> ] ;
      [ PICTURE <bitmap> ] ;
      [ <dummy: ACTION, ON CLICK, ONCLICK> <action> ] ;
      [ TOOLTIP <tooltip> ] ;
      [ <separator: SEPARATOR> ] ;
      [ <autosize: AUTOSIZE> ] ;
      [ <dropdown: DROPDOWN> ] ;
      [ <wholedropdown: WHOLEDROPDOWN> ] ;
      [ <check: CHECK> ] ;
      [ <group: GROUP> ] ;
      [ SUBCLASS <subclass> ] ;
   => ;
      [ <obj> := ] _OOHG_SelectSubClass( TToolButton(), [ <subclass>() ] ): ;
            Define( <(name)>, 0, 0, <caption>, <{action}>,,, <bitmap>, ;
            <tooltip>,,, .f., <.separator.>, <.autosize.>, <.check.>, ;
            <.group.>, <.dropdown.>, <.wholedropdown.> )