/////////////////////////////////////////////////////////////////////
// INTERNAL
/////////////////////////////////////////////////////////////////////

#command DEFINE INTERNAL <name> ;
      [ AT <row>, <col> ] ;
      [ OBJ <obj> ] ;
      [ <dummy1: OF, PARENT> <parent> ] ;
      [ <dummy06: ACTION, ONCLICK, ON CLICK> <action> ] ;
      [ WIDTH <width> ] ;
      [ HEIGHT <height> ] ;
      [ BACKCOLOR <backcolor> ] ;
      [ TOOLTIP <tooltip> ] ;
      [ <dummy02: ONGOTFOCUS, ON GOTFOCUS> <gotfocus> ] ;
      [ <dummy04: ONLOSTFOCUS, ON LOSTFOCUS> <lostfocus> ] ;
      [ <border: BORDER> ] ;
      [ <clientedge: CLIENTEDGE> ] ;
      [ CURSOR <cursor> ] ;
      [ VIRTUAL WIDTH <vWidth> ] ;
      [ VIRTUAL HEIGHT <vHeight> ] ;
      [ ON MOUSEDRAG <MouseDragProcedure> ] ;
      [ ON MOUSEMOVE <MouseMoveProcedure> ] ;
      [ <notabstop: NOTABSTOP> ] ;
      [ HELPID <helpid> ] ;
      [ <invisible: INVISIBLE> ] ;
      [ <rtl: RTL> ] ;
      [ SUBCLASS <subclass> ] ;
      [ <transparent: TRANSPARENT> ] ;
   => ;
      [ <obj> := ] _OOHG_SelectSubClass( TInternal(), [ <subclass>() ] ): ;
            Define( <(name)>, <(parent)>, <col>, <row>, <{action}>, ;
            <width>, <height>, <backcolor>, <tooltip>, <gotfocus>, ;
            <lostfocus>, <.transparent.>, <.border.>, <.clientedge.>, ;
            <cursor>, <vHeight>, <vWidth>, <MouseDragProcedure>, ;
            <MouseMoveProcedure>, <notabstop>, <helpid>, <.invisible.>, ;
            <.rtl.> )

#command END INTERNAL ;
   => ;
      _EndInternal()