/* if first char is '@' then start procedure were set by
* programmer explicitly and should have the highest priority
* in other case it's the name of first public function in
* first linked moudule which is used if there is no
* HARBOUR_START_PROCEDURE in code
p := ( @XBROWSE() )
? P
HB_ExecFromArray( p, { "STATES.DBF" } )
p := ( @XBROWSE() )
p := HB_FuncPtr( "XBROWSE" )
// C:\FWH\SAMPLES FUNCMAIN.PRG
#include "FiveWin.ch"
STATIC oWnd
FUNCTION Principal() // INIT PROCEDURE Principal // Main
? "I am the Principal() function"
Main()
RETURN NIL
FUNCTION Main()
? "I am the Main() function"
RETURN NIL
// FIN / END
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 91 guests