/////////////////////////////////////////////////////////////////////
// WINDOW Commands
/////////////////////////////////////////////////////////////////////

#command RELEASE WINDOW <name> ;
   => ;
      DoMethod ( <(name)>, 'Release' )

#command RELEASE WINDOW ALL ;
   => ;
      ReleaseAllWindows()

#command RELEASE WINDOW MAIN ;
   => ;
      ReleaseAllWindows()

#xtranslate EXIT PROGRAM ;
   => ;
      ReleaseAllWindows()

#command ACTIVATE WINDOW <name, ...> [ <nowait: NOWAIT> ] ;
   => ;
      _ActivateWindow( \{<(name)>\}, <.nowait.> )

#command ACTIVATE WINDOW ALL ;
   => ;
      _ActivateAllWindows()

#command CENTER WINDOW <name> ;
   => ;
      DoMethod ( <(name)>, 'Center' )

#command MAXIMIZE WINDOW <name> ;
   => ;
      DoMethod ( <(name)>, 'Maximize' )

#command MINIMIZE WINDOW <name> ;
   => ;
      DoMethod ( <(name)>, 'Minimize' )

#command RESTORE WINDOW <name> ;
   => ;
      DoMethod ( <(name)>, 'Restore' )

#command SHOW WINDOW <name> ;
   => ;
      DoMethod ( <(name)>, 'Show' )

#command HIDE WINDOW <name> ;
   => ;
      DoMethod ( <(name)>, 'Hide' )

#xcommand FETCH [ PROPERTY ] [ WINDOW ] <Arg1> <Arg2> TO <Arg3> ;
   => ;
      <Arg3> := GetProperty( <(Arg1)>, <(Arg2)> )

#xcommand MODIFY [ PROPERTY ] [ WINDOW ] <Arg1> <Arg2> <Arg3> ;
   => ;
      SetProperty( <(Arg1)>, <(Arg2)>, <Arg3> )