FiveTech Support Forums

// FiveWin for Pocket PC - Building the main window

#include "FWCE.ch"

//----------------------------------------------------------------------------//


function Main()

   local oWnd

   DEFINE WINDOW oWnd TITLE "Tutor02"

      @ 5, 15 BUTTON "&Exit" SIZE 60, 30 ACTION oWnd:end()

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

return nil

//----------------------------------------------------------------------------//