/////////////////////////////////////////////////////////////////////
// HOTKEY
/////////////////////////////////////////////////////////////////////

#command DEFINE HOTKEY <name> ;
      [ OBJ <obj> ] ;
      [ <dummy1: OF, PARENT> <parent> ] ;
      [ KEY <key> ] ;
      [ MODIFIERS <mod> ] ;
      [ ACTION <action> ] ;
      [ SUBCLASS <subclass> ] ;
      [ <disabled: DISABLED> ] ;
   => ;
      [ <obj> := ] _OOHG_SelectSubClass( THotKey(), [ <subclass>() ] ): ;
            Define( <(name)>, <(parent)>, <mod>, <key>, <{action}>, <disabled> )