/////////////////////////////////////////////////////////////////////
// FRAME
/////////////////////////////////////////////////////////////////////

#xcommand @ <row>, <col> FRAME <name> ;
      [ OBJ <obj> ] ;
      [ <dummy1: OF, PARENT> <parent> ] ;
      [ CAPTION <caption> ] ;
      [ WIDTH <w> ] ;
      [ HEIGHT <h> ] ;
      [ FONT <fontname> ] ;
      [ SIZE <fontsize> ] ;
      [ <bold: BOLD> ] ;
      [ <italic: ITALIC> ] ;
      [ <underline: UNDERLINE> ] ;
      [ <strikeout: STRIKEOUT> ] ;
      [ BACKCOLOR <backcolor> ] ;
      [ FONTCOLOR <fontcolor> ] ;
      [ <opaque: OPAQUE> ] ;
      [ <transparent: TRANSPARENT> ] ;
      [ <rtl: RTL> ] ;
      [ <invisible: INVISIBLE> ] ;
      [ <disabled: DISABLED> ] ;
      [ SUBCLASS <subclass> ] ;
=>;
      [ <obj> := ] _OOHG_SelectSubClass( TFrame(), [ <subclass>() ] ): ;
         Define( <(name)>, <(parent)>, <row>, <col>, <w>, <h>, <caption>, ;
         <fontname>, <fontsize>, <.opaque.>, <.bold.>, <.italic.>, ;
         <.underline.>, <.strikeout.>, <backcolor>, <fontcolor>, ;
         <.transparent.>, <.rtl.>, <.invisible.>, <.disabled.> )