FiveTech Software tech support forums

Enrico Maria Giordano wrote:

Antonio Linares wrote:It should work fine, please try it

It is just one more stack call

Ok, I'll try, thank you.

It seems to work fine. I have to test it thoroughly. Thank you.

What do you think about something like this?

Code: Select all  Expand view

IF TYPE( "MAIN()" ) = "UI"
    MAIN()
    QUIT
ENDIF

Sorry, Enrico,
I forgot to answer you.

For 'INIT PROCEDURE' there is good documentation in the xHarbour Language Reference Guide.chm.
Also an example under 'EXIT PROCEDURE'.

Regards, Detlef

I don't understand your message, sorry. I already proposed (in my previous message) the following code at the end the INIT function:

Code: Select all  Expand view

IF TYPE( "MAIN()" ) = "UI"
    MAIN()
    QUIT
ENDIF

Works fine for me. I would only like to know your thoughts about it. If there is not a public function called MAIN the code behavior is the usual one. Otherwise the function MAIN is run and, at the end, a QUIT allows the program to exit.

Dear Enrico,

If it works fine for you then use it and lets wait to see if there are any issues

I'm not going to use it for now but I keep it for the future. Thank you.