/////////////////////////////////////////////////////////////////////
// PLAYER
/////////////////////////////////////////////////////////////////////

#command @ <row>, <col> PLAYER <name> ;
      [ OBJ <obj> ] ;
      [ <dummy1: OF, PARENT> <parent> ] ;
      [ WIDTH <w> ] ;
      [ HEIGHT <h> ] ;
      [ FILE <file> ] ;
      [ <noautosizewindow: NOAUTOSIZEWINDOW> ] ;
      [ <noautosizemovie : NOAUTOSIZEMOVIE> ] ;
      [ <noerrordlg: NOERRORDLG> ] ;
      [ <nomenu: NOMENU> ] ;
      [ <noopen: NOOPEN> ] ;
      [ <noplaybar: NOPLAYBAR> ] ;
      [ <showall: SHOWALL> ] ;
      [ <showmode: SHOWMODE> ] ;
      [ <showname: SHOWNAME> ] ;
      [ <showposition: SHOWPOSITION> ] ;
      [ HELPID <helpid> ] ;
      [ SUBCLASS <subclass> ] ;
      [ <invisible: INVISIBLE> ] ;
      [ <notabstop: NOTABSTOP> ] ;
      [ <disabled: DISABLED> ] ;
      [ <rtl: RTL> ] ;
   => ;
      [ <obj> := ] _OOHG_SelectSubClass( TPlayer(), [ <subclass>() ] ): ;
         Define( <(name)>, <(parent)>, <file>, <col>, <row>, <w>, <h>, ;
         <.noautosizewindow.>, <.noautosizemovie.>, <.noerrordlg.>, ;
         <.nomenu.>, <.noopen.>, <.noplaybar.>, <.showall.>, <.showmode.>, ;
         <.showname.>, <.showposition.>, <helpid>, <.invisible.>, ;
         <.notabstop.>, <.disabled.>, <.rtl.> )

#command PLAY PLAYER <name> OF <parent> ;
   => ;
      GetControlObject( <(name)>, <(parent)> ):Play()

#xcommand PLAY PLAYER <name> OF <parent> REVERSE ;
   => ;
      GetControlObject( <(name)>, <(parent)> ):PlayReverse()

#command STOP PLAYER <name> OF <parent> ;
   => ;
      GetControlObject( <(name)>, <(parent)> ):Stop()

#command PAUSE PLAYER <name> OF <parent> ;
   => ;
      GetControlObject( <(name)>, <(parent)> ):Pause()

#command CLOSE PLAYER <name> OF <parent> ;
   => ;
      GetControlObject( <(name)>, <(parent)> ):Close()

#command DESTROY PLAYER <name> OF <parent> ;
   => ;
      GetControlObject( <(name)>, <(parent)> ):Release()

#command EJECT PLAYER <name> OF <parent> ;
   => ;
      GetControlObject( <(name)>, <(parent)> ):Eject()

#command OPEN PLAYER <name> OF <parent> FILE <file> ;
   => ;
      GetControlObject( <(name)>, <(parent)> ):Open( <file> )

#command OPEN PLAYER <name> OF <parent> DIALOG ;
   => ;
      GetControlObject( <(name)>, <(parent)> ):OpenDialog()

#command RESUME PLAYER <name> OF <parent> ;
   => ;
      GetControlObject( <(name)>, <(parent)> ):Resume()

#command SET PLAYER <name> OF <parent> POSITION HOME ;
   => ;
      GetControlObject( <(name)>, <(parent)> ):PositionHome()

#command SET PLAYER <name> OF <parent> POSITION END ;
   => ;
      GetControlObject( <(name)>, <(parent)> ):PositionEnd()

#command SET PLAYER <name> OF <parent> REPEAT ON ;
   => ;
      GetControlObject( <(name)>, <(parent)> ):RepeatOn()

#command SET PLAYER <name> OF <parent> REPEAT OFF ;
   => ;
      GetControlObject( <(name)>, <(parent)> ):RepeatOff()

#command SET PLAYER <name> OF <parent> SPEED <speed> ;
   => ;
      GetControlObject( <(name)>, <(parent)> ):Speed( <speed> )

#command SET PLAYER <name> OF <parent> VOLUME <volume> ;
   => ;
      GetControlObject( <(name)>, <(parent)> ):Volume( <volume> )

#command SET PLAYER <name> OF <parent> ZOOM <zoom> ;
   => ;
      GetControlObject( <(name)>, <(parent)> ):Zoom( <zoom> )