Click above to get retro games delivered to your door ever month!

#xcommand SET MESSAGE [ OF <oWnd> ] ;
             [ TO <cMsg> ] ;
             [ <center: CENTER, CENTERED> ] ;
             [ <clock: CLOCK, TIME> ] ;
             [ <date: DATE> ] ;
             [ <kbd: KEYBOARD> ] ;
             [ FONT <oFont> ] ;
             [ <color: COLOR, COLORS> <nClrFore> [,<nClrBack> ] ] ;
             [ <inset: NO INSET, NOINSET> ] ;
       => ;
          <oWnd>:oMsgBar := TMsgBar():New( <oWnd>, <cMsg>, <.center.>,;
                                            <.clock.>, <.date.>, <.kbd.>,;
                                            <nClrFore>, <nClrBack>, <oFont>,;
                                            [!<.inset.>] )

#xcommand DEFINE MESSAGE [ BAR ] [<oMsg>] ;
             [ OF <oWnd> ] ;
             [ PROMPT <cMsg> ] ;
             [ <center: CENTER, CENTERED> ] ;
             [ <clock: CLOCK, TIME> ] ;
             [ <date: DATE> ] ;
             [ <kbd: KEYBOARD> ] ;
             [ FONT <oFont> ] ;
             [ <color: COLOR, COLORS> <nClrFore> [,<nClrBack> ] ] ;
             [ <inset: NO INSET, NOINSET> ] ;
      => ;
         [<oMsg>:=] <oWnd>:oMsgBar := TMsgBar():New( <oWnd>, <cMsg>, <.center.>,;
                                      <.clock.>, <.date.>, <.kbd.>,;
                                      <nClrFore>, <nClrBack>, <oFont>,;
                                      [!<.inset.>] )

#xcommand DEFINE MSGITEM [<oMsgItem>] ;
             [ OF <oMsgBar> ] ;
             [ PROMPT <cMsg> ] ;
             [ SIZE <nSize> ] ;
             [ FONT <oFont> ] ;
             [ <color: COLOR, COLORS> <nClrFore> [,<nClrBack> ] ] ;
             [ ACTION <uAction> ] ;
       => ;
          [<oMsgItem>:=] TMsgItem():New( <oMsgBar>, <cMsg>, <nSize>,;
                                         <oFont>, <nClrFore>, <nClrBack>, .t.,;
                                         [<{uAction}>] )

/*----------------------------------------------------------------------------//