MsgBars support

[Antonio Linares]

Code: Select all  Expand view  RUN

#include "FiveMac.ch"

function Main()

   local oWnd
   
   DEFINE WINDOW oWnd TITLE "Tutor02" ;
       FROM 200, 200 TO 600, 400
       
   DEFINE MSGBAR OF oWnd    

   ACTIVATE WINDOW oWnd ;
      ON CLICK MsgInfo( "Click" ) ;
      VALID MsgYesNo( "Want to end ?" )  

return nil
 

[Antonio Linares]

[IBTC]

Great!

Is it also possible to use message bar with the menu? So we can use this:

Code: Select all  Expand view  RUN

MENUITEM [ <oMenuItem> PROMPT ] <cPrompt> ;  
 [ MESSAGE <cMsg> ];  
 [ ACTION <uAction> ] ;  
 [ ACCELERATOR <cKey> ]  

<cMsg> The associated message of this control.

And also Msgitems?

Thanks.

[Antonio Linares]

Ruediger,

Not yet, but surely we will have it soon