/////////////////////////////////////////////////////////////////////
// DEFINE WINDOW - Standalone version
/////////////////////////////////////////////////////////////////////

#xcommand DEFINE WINDOW <w> ;
      [ OBJ <obj> ] ;
      [ <dummy: OF, PARENT> <parent> ] ;
      [ AT <row>, <col> ] ;
      [ WIDTH <wi> ] ;
      [ HEIGHT <h> ] ;
      [ VIRTUAL WIDTH <vWidth> ] ;
      [ VIRTUAL HEIGHT <vHeight> ] ;
      [ TITLE <title> ] ;
      [ ICON <icon> ] ;
      [ <main:  MAIN> ] ;
      [ <child: CHILD> ] ;
      [ <modal: MODAL> ] ;
      [ <modalsize: MODALSIZE> ] ;
      [ <splitchild: SPLITCHILD> ] ;
      [ <mdi: MDI> ] ;
      [ <mdiclient: MDICLIENT> ] ;
      [ <mdichild: MDICHILD> ] ;
      [ <internal: INTERNAL> ] ;
      [ <noshow: NOSHOW> ] ;
      [ <topmost: TOPMOST> ] ;
      [ <noautorelease: NOAUTORELEASE> ] ;
      [ <nominimize: NOMINIMIZE> ] ;
      [ <nomaximize: NOMAXIMIZE> ] ;
      [ <nosize: NOSIZE> ] ;
      [ <nosysmenu: NOSYSMENU> ] ;
      [ <nocaption: NOCAPTION> ] ;
      [ CURSOR <cursor> ] ;
      [ ON INIT <InitProcedure> ] ;
      [ ON MOVE <MoveProcedure> ] ;
      [ ON RELEASE <ReleaseProcedure> ] ;
      [ ON INTERACTIVECLOSE <interactivecloseprocedure> ] ;
      [ ON MOUSECLICK <ClickProcedure> ] ;
      [ ON MOUSEDRAG <MouseDragProcedure> ] ;
      [ ON MOUSEMOVE <MouseMoveProcedure> ] ;
      [ ON SIZE <SizeProcedure> ] ;
      [ ON MAXIMIZE <MaximizeProcedure> ] ;
      [ ON MINIMIZE <MinimizeProcedure> ] ;
      [ ON RESTORE <RestoreProcedure> ] ;
      [ ON PAINT <PaintProcedure> ] ;
      [ BACKCOLOR <backcolor> ] ;
      [ FONT <FontName> ] ;
      [ SIZE <FontSize> ] ;
      [ FONTCOLOR <FontColor> ] ;
      [ NOTIFYICON <NotifyIcon> ] ;
      [ NOTIFYTOOLTIP <NotifyIconTooltip> ] ;
      [ ON NOTIFYCLICK <NotifyLeftClick> ] ;
      [ <dummy02: ONGOTFOCUS, ON GOTFOCUS> <GotFocusProcedure> ] ;
      [ ON LOSTFOCUS <LostFocusProcedure> ] ;
      [ ON SCROLLUP <scrollup> ] ;
      [ ON SCROLLDOWN <scrolldown> ] ;
      [ ON SCROLLLEFT <scrollleft> ] ;
      [ ON SCROLLRIGHT <scrollright> ] ;
      [ ON HSCROLLBOX <hScrollBox> ] ;
      [ ON VSCROLLBOX <vScrollBox> ] ;
      [ <helpbutton:  HELPBUTTON> ] ;
      [ <rtl: RTL> ] ;
      [ GRIPPERTEXT <grippertext> ] ;
      [ <break: BREAK> ] ;
      [ <focused: FOCUSED> ] ;
      [ SUBCLASS <subclass> ] ;
      [ <clientarea: CLIENTAREA> ] ;
      [ ON RCLICK <RClickProcedure> ] ;
      [ ON MCLICK <MClickProcedure> ] ;
      [ ON DBLCLICK <DblClickProcedure> ] ;
      [ ON RDBLCLICK <RDblClickProcedure> ] ;
      [ ON MDBLCLICK <MDblClickProcedure> ] ;
      [ MINWIDTH <minwidth> ] ;
      [ MAXWIDTH <maxwidth> ] ;
      [ MINHEIGHT <minheight> ] ;
      [ MAXHEIGHT <maxheight> ] ;
      [ BACKIMAGE <backimage> [ <stretch: STRETCH> ] ] ;
   => ;
      [ <obj> := ] DefineWindow( <(w)>, <title>, <col>, <row>, <wi>, <h>, ;
            <.nominimize.>, <.nomaximize.>, <.nosize.>, <.nosysmenu.>, ;
            <.nocaption.>, <{InitProcedure}>, <{ReleaseProcedure}>, ;
            <{MouseDragProcedure}>, <{SizeProcedure}>, <{ClickProcedure}>, ;
            <{MouseMoveProcedure}>, <backcolor>, <{PaintProcedure}>, ;
            <.noshow.>, <.topmost.>, <icon>, <FontName>, <FontSize>, ;
            <NotifyIcon>, <NotifyIconTooltip>, <{NotifyLeftClick}>, ;
            <{GotFocusProcedure}>, <{LostFocusProcedure}>, <vHeight>, ;
            <vWidth>, <{scrollleft}>, <{scrollright}>, <{scrollup}>, ;
            <{scrolldown}>, <{hScrollBox}>, <{vScrollBox}>, <.helpbutton.>, ;
            <{MaximizeProcedure}>, <{MinimizeProcedure}>, <cursor>, ;
            <.noautorelease.>, <(parent)>, <{interactivecloseprocedure}>, ;
            <.focused.>, <.break.>, <grippertext>, <.rtl.>, <.main.>, ;
            <.splitchild.>, <.child.>, <.modal.>, <.modalsize.>, <.mdi.>, ;
            <.internal.>, <.mdichild.>, <.mdiclient.>, [ <subclass>() ], ;
            <.clientarea.>, <{RestoreProcedure}>, <{RClickProcedure}>, ;
            <{MClickProcedure}>, <{DblClickProcedure}>, ;
            <{RDblClickProcedure}>, <{MDblClickProcedure}>, <minwidth>, ;
            <maxwidth>, <minheight>, <maxheight>, <{MoveProcedure}>, ;
            <backimage>, <.stretch.>, <FontColor> ) ;;
      DECLARE WINDOW <w>


/////////////////////////////////////////////////////////////////////
// DEFINE WINDOW - Template version (using FMG file with LOAD WINDOW)
/////////////////////////////////////////////////////////////////////

#xcommand DEFINE WINDOW TEMPLATE ;
      [ OBJ <obj> ] ;
      [ <dummy: OF, PARENT> <parent> ] ;
      [ AT <row>, <col> ] ;
      [ WIDTH <wi> ] ;
      [ HEIGHT <h> ] ;
      [ VIRTUAL WIDTH <vWidth> ] ;
      [ VIRTUAL HEIGHT <vHeight> ] ;
      [ TITLE <title> ] ;
      [ ICON <icon> ] ;
      [ <main:  MAIN> ] ;
      [ <child: CHILD> ] ;
      [ <modal: MODAL> ] ;
      [ <modalsize: MODALSIZE> ] ;
      [ <splitchild: SPLITCHILD> ] ;
      [ <mdi: MDI> ] ;
      [ <mdiclient: MDICLIENT> ] ;
      [ <mdichild: MDICHILD> ] ;
      [ <internal: INTERNAL> ] ;
      [ <noshow: NOSHOW> ] ;
      [ <topmost: TOPMOST> ] ;
      [ <noautorelease: NOAUTORELEASE> ] ;
      [ <nominimize: NOMINIMIZE> ] ;
      [ <nomaximize: NOMAXIMIZE> ] ;
      [ <nosize: NOSIZE> ] ;
      [ <nosysmenu: NOSYSMENU> ] ;
      [ <nocaption: NOCAPTION> ] ;
      [ CURSOR <cursor> ] ;
      [ ON INIT <InitProcedure> ] ;
      [ ON MOVE <MoveProcedure> ] ;
      [ ON RELEASE <ReleaseProcedure> ] ;
      [ ON INTERACTIVECLOSE <interactivecloseprocedure> ] ;
      [ ON MOUSECLICK <ClickProcedure> ] ;
      [ ON MOUSEDRAG <MouseDragProcedure> ] ;
      [ ON MOUSEMOVE <MouseMoveProcedure> ] ;
      [ ON SIZE <SizeProcedure> ] ;
      [ ON MAXIMIZE <MaximizeProcedure> ] ;
      [ ON MINIMIZE <MinimizeProcedure> ] ;
      [ ON RESTORE <RestoreProcedure> ] ;
      [ ON PAINT <PaintProcedure> ] ;
      [ BACKCOLOR <backcolor> ] ;
      [ FONT <FontName> ] ;
      [ SIZE <FontSize> ] ;
      [ FONTCOLOR <FontColor> ] ;
      [ NOTIFYICON <NotifyIcon> ] ;
      [ NOTIFYTOOLTIP <NotifyIconTooltip> ] ;
      [ ON NOTIFYCLICK <NotifyLeftClick> ] ;
      [ <dummy02: ONGOTFOCUS, ON GOTFOCUS> <GotFocusProcedure> ] ;
      [ ON LOSTFOCUS <LostFocusProcedure> ] ;
      [ ON SCROLLUP <scrollup> ] ;
      [ ON SCROLLDOWN <scrolldown> ] ;
      [ ON SCROLLLEFT <scrollleft> ] ;
      [ ON SCROLLRIGHT <scrollright> ] ;
      [ ON HSCROLLBOX <hScrollBox> ] ;
      [ ON VSCROLLBOX <vScrollBox> ] ;
      [ <helpbutton:  HELPBUTTON> ] ;
      [ <rtl: RTL> ] ;
      [ GRIPPERTEXT <grippertext> ] ;
      [ <break: BREAK> ] ;
      [ <focused: FOCUSED> ] ;
      [ SUBCLASS <subclass> ] ;
      [ <clientarea: CLIENTAREA> ] ;
      [ ON RCLICK <RClickProcedure> ] ;
      [ ON MCLICK <MClickProcedure> ] ;
      [ ON DBLCLICK <DblClickProcedure> ] ;
      [ ON RDBLCLICK <RDblClickProcedure> ] ;
      [ ON MDBLCLICK <MDblClickProcedure> ] ;
      [ MINWIDTH <minwidth> ] ;
      [ MAXWIDTH <maxwidth> ] ;
      [ MINHEIGHT <minheight> ] ;
      [ MAXHEIGHT <maxheight> ] ;
      [ BACKIMAGE <backimage> [ <stretch: STRETCH> ] ] ;
   => ;
      [ <obj> := ] DefineWindow(, <title>, <col>, <row>, <wi>, <h>, ;
            <.nominimize.>, <.nomaximize.>, <.nosize.>, <.nosysmenu.>, ;
            <.nocaption.>, <{InitProcedure}>, <{ReleaseProcedure}>, ;
            <{MouseDragProcedure}>, <{SizeProcedure}>, <{ClickProcedure}>, ;
            <{MouseMoveProcedure}>, <backcolor>, <{PaintProcedure}>, ;
            <.noshow.>, <.topmost.>, <icon>, <FontName>, <FontSize>, ;
            <NotifyIcon>, <NotifyIconTooltip>, <{NotifyLeftClick}>, ;
            <{GotFocusProcedure}>, <{LostFocusProcedure}>, <vHeight>, ;
            <vWidth>, <{scrollleft}>, <{scrollright}>, <{scrollup}>, ;
            <{scrolldown}>, <{hScrollBox}>, <{vScrollBox}>, <.helpbutton.>, ;
            <{MaximizeProcedure}>, <{MinimizeProcedure}>, <cursor>, ;
            <.noautorelease.>, <(parent)>, <{interactivecloseprocedure}>, ;
            <.focused.>, <.break.>, <grippertext>, <.rtl.>, <.main.>, ;
            <.splitchild.>, <.child.>, <.modal.>, <.modalsize.>, <.mdi.>, ;
            <.internal.>, <.mdichild.>, <.mdiclient.>, [ <subclass>() ], ;
            <.clientarea.>, <{RestoreProcedure}>, <{RClickProcedure}>, ;
            <{MClickProcedure}>, <{DblClickProcedure}>, ;
            <{RDblClickProcedure}>, <{MDblClickProcedure}>, <minwidth>, ;
            <maxwidth>, <minheight>, <maxheight>, <{MoveProcedure}>, ;
            <backimage>, <.stretch.>, <FontColor> )


/////////////////////////////////////////////////////////////////////
// DEFINE WINDOW STRUCTURE CLOSING COMMAND
/////////////////////////////////////////////////////////////////////

#command END WINDOW ;
   => ;
      _EndWindow ()