Migrate to Harbour

[cnavarro]

The following sample gives a warning:

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oWnd, oMen

    MENU oMen
        MENUITEM "Test" ACTION MSGINFO( "OK" )
    ENDMENU

    DEFINE WINDOW oWnd;
           MENU oMen

    ACTIVATE WINDOW oWnd

    RETURN NIL

Warning message:

Code: Select all  Expand view

Warning W0004  Codeblock parameter 'OMENUITEM' declared but not used in function 'MAIN'

I use /wb- in xHarbour. Any replacement in Harbour or any other solution?

EMG

Enrico

Compiling...
Harbour 3.2.0dev (r1307082134)
Copyright (c) 1999-2013, http://harbour-project.org/
Compiling 'enr1.prg' and generating preprocessed output to 'enr1.ppo'...
Lines 4218, Functions/Procedures 1
Generating C source output to 'enr1.c'... Done.
Borland C++ 5.82 for Win32 Copyright (c) 1993, 2005 Borland
enr1.c:
Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland
* Application successfully built *

using BuildH.bat

[Enrico Maria Giordano]

Antonio,

When I've seen the first message asking about OleDefaultArg()
I thought it's a joke and for sure harbour-devel list it's
not the place to ask about some basic OLE functionality in
Harbour. Please send such messages to harbour-user list in the
future.

As far as I can see, he's attitude is not changed in the last years, it became even worst.

He could be the best programmer in the world but how we can trust him?

EMG

[Enrico Maria Giordano]

Cristobal,

Compiling...
Harbour 3.2.0dev (r1307082134)
Copyright (c) 1999-2013, http://harbour-project.org/
Compiling 'enr1.prg' and generating preprocessed output to 'enr1.ppo'...
Lines 4218, Functions/Procedures 1
Generating C source output to 'enr1.c'... Done.
Borland C++ 5.82 for Win32 Copyright (c) 1993, 2005 Borland
enr1.c:
Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland
* Application successfully built *

using BuildH.bat

[/quote]

Full warning level is not activated in BuildH.bat. I absolutely can't do my work without full warning level.

EMG

[cnavarro]

Enrico, now I understand

[Enrico Maria Giordano]

Thank you, Cristobal. Any solutions?

EMG

[Antonio Linares]

Enrico,

have you tried using /w flag in Harbour ?

/w[<level>] set warning level number (0..3, default 1)

[cnavarro]

Antonio
Enrico use /w3, no?

[Enrico Maria Giordano]

Friends,

I'm using this:

Code: Select all  Expand view

SET HARBOURCMD=/a /es2 /gc0 /m /n /q /w3

and getting this:

Code: Select all  Expand view

Warning W0004  Codeblock parameter 'OMENUITEM' declared but not used in function 'MAIN'

In xHarbour I used this:

Code: Select all  Expand view

SET HARBOURCMD=/a /es2 /gc0 /m /n /q /w3 /wb-

but Harbour doesn't support /wb-.

EMG

[cnavarro]

Enrico, modify

#xcommand MENUITEM [ <oMenuItem> PROMPT ] [<cPrompt>] ;
[ MESSAGE <cMsg> ] ;
[ <checked: CHECK, CHECKED, MARK> ] ;
[ <enable: ENABLED, DISABLED> ] ;
[ <file: FILE, FILENAME, DISK> <cBmpFile> ] ;
[ <resource: RESOURCE, RESNAME, NAME> <cResName> ] ;
[ ACTION <uAction,...> ] ;
[ BLOCK <bAction> ] ;
[ <of: OF, MENU, SYSMENU> <oMenu> ] ;
[ ACCELERATOR <nState>, <nVirtKey> ] ;
[ <help: HELP> ] ;
[ <HelpId: HELP ID, HELPID> <nHelpId> ] ;
[ WHEN <uWhen> ] ;
[ <break: BREAK> ] ;
=> ;
[ <oMenuItem> := ] MenuAddItem( <cPrompt>, <cMsg>,;
<.checked.>, [ Upper(<(enable)>) == "ENABLED" ],;
[\{|<oMenuItem>| <uAction>\}],; /// AQUI
<cBmpFile>, <cResName>, <oMenu>, <bAction>, <nState>, <nVirtKey>,;
<.help.>, <nHelpId>, [<{uWhen}>], <.break.> )

Code: Select all  Expand view

#include "Fivewin.ch"

#xcommand MENUITEM [ <oMenuItem> PROMPT ] [<cPrompt>] ;
             [ MESSAGE <cMsg> ] ;
             [ <checked: CHECK, CHECKED, MARK> ] ;
             [ <enable: ENABLED, DISABLED> ] ;
             [ <file: FILE, FILENAME, DISK> <cBmpFile> ] ;
             [ <resource: RESOURCE, RESNAME, NAME> <cResName> ] ;
             [ ACTION <uAction,...> ] ;
             [ BLOCK <bAction> ] ;
             [ <of: OF, MENU, SYSMENU> <oMenu> ] ;
             [ ACCELERATOR <nState>, <nVirtKey> ] ;
             [ <help: HELP> ] ;
             [ <HelpId: HELP ID, HELPID> <nHelpId> ] ;
             [ WHEN <uWhen> ] ;
             [ <break: BREAK> ] ;
       => ;
          [ <oMenuItem> := ] MenuAddItem( <cPrompt>, <cMsg>,;
             <.checked.>, [ Upper(<(enable)>) == "ENABLED" ],;
             [\{|<oMenuItem>| <uAction>\}],;
             <cBmpFile>, <cResName>, <oMenu>, <bAction>, <nState>, <nVirtKey>,;
             <.help.>, <nHelpId>, [<{uWhen}>], <.break.> )

FUNCTION MAIN()

    LOCAL oWnd, oMen

    MENU oMen
        MENUITEM "Test" ACTION MSGINFO( "OK" )
    ENDMENU


    DEFINE WINDOW oWnd;
           MENU oMen

    ACTIVATE WINDOW oWnd

    RETURN NIL

 

[Antonio Linares]

Enrico,

But this is what you wanted to get, right ?

Warning W0004 Codeblock parameter 'OMENUITEM' declared but not used in function 'MAIN'

[cnavarro]

Antonio

Cristobal,

Full warning level is not activated in BuildH.bat. I absolutely can't do my work without full warning level.

EMG

[Enrico Maria Giordano]

Cristobal,

Enrico, modify

#xcommand MENUITEM [ <oMenuItem> PROMPT ] [<cPrompt>] ;
[ MESSAGE <cMsg> ] ;
[ <checked: CHECK, CHECKED, MARK> ] ;
[ <enable: ENABLED, DISABLED> ] ;
[ <file: FILE, FILENAME, DISK> <cBmpFile> ] ;
[ <resource: RESOURCE, RESNAME, NAME> <cResName> ] ;
[ ACTION <uAction,...> ] ;
[ BLOCK <bAction> ] ;
[ <of: OF, MENU, SYSMENU> <oMenu> ] ;
[ ACCELERATOR <nState>, <nVirtKey> ] ;
[ <help: HELP> ] ;
[ <HelpId: HELP ID, HELPID> <nHelpId> ] ;
[ WHEN <uWhen> ] ;
[ <break: BREAK> ] ;
=> ;
[ <oMenuItem> := ] MenuAddItem( <cPrompt>, <cMsg>,;
<.checked.>, [ Upper(<(enable)>) == "ENABLED" ],;
[\{|<oMenuItem>| <uAction>\}],; /// AQUI
<cBmpFile>, <cResName>, <oMenu>, <bAction>, <nState>, <nVirtKey>,;
<.help.>, <nHelpId>, [<{uWhen}>], <.break.> )

Code: Select all  Expand view

#include "Fivewin.ch"

#xcommand MENUITEM [ <oMenuItem> PROMPT ] [<cPrompt>] ;
             [ MESSAGE <cMsg> ] ;
             [ <checked: CHECK, CHECKED, MARK> ] ;
             [ <enable: ENABLED, DISABLED> ] ;
             [ <file: FILE, FILENAME, DISK> <cBmpFile> ] ;
             [ <resource: RESOURCE, RESNAME, NAME> <cResName> ] ;
             [ ACTION <uAction,...> ] ;
             [ BLOCK <bAction> ] ;
             [ <of: OF, MENU, SYSMENU> <oMenu> ] ;
             [ ACCELERATOR <nState>, <nVirtKey> ] ;
             [ <help: HELP> ] ;
             [ <HelpId: HELP ID, HELPID> <nHelpId> ] ;
             [ WHEN <uWhen> ] ;
             [ <break: BREAK> ] ;
       => ;
          [ <oMenuItem> := ] MenuAddItem( <cPrompt>, <cMsg>,;
             <.checked.>, [ Upper(<(enable)>) == "ENABLED" ],;
             [\{|<oMenuItem>| <uAction>\}],;
             <cBmpFile>, <cResName>, <oMenu>, <bAction>, <nState>, <nVirtKey>,;
             <.help.>, <nHelpId>, [<{uWhen}>], <.break.> )

FUNCTION MAIN()

    LOCAL oWnd, oMen

    MENU oMen
        MENUITEM "Test" ACTION MSGINFO( "OK" )
    ENDMENU


    DEFINE WINDOW oWnd;
           MENU oMen

    ACTIVATE WINDOW oWnd

    RETURN NIL

 

I don't want to keep a modified fivewin.ch.

EMG

[Enrico Maria Giordano]

Antonio,

Enrico,

But this is what you wanted to get, right ?

Warning W0004 Codeblock parameter 'OMENUITEM' declared but not used in function 'MAIN'

No, as I don't see any OMENUITEM in my code.

EMG

[cnavarro]

Enrico, look the .ppo

Code: Select all  Expand view

    oMen := MenuBegin( .F.,,, .F., .F. )
        MenuAddItem( "Test",, .F.,, {|oMenuItem|MSGINFO( "OK" )},,,,,,, .F.,,, .F. )
    MenuEnd()

 

[Enrico Maria Giordano]

Cristobal,

Enrico, look the .ppo

Code: Select all  Expand view

    oMen := MenuBegin( .F.,,, .F., .F. )
        MenuAddItem( "Test",, .F.,, {|oMenuItem|MSGINFO( "OK" )},,,,,,, .F.,,, .F. )
    MenuEnd()

 

If you are suggesting to change tons of lines of code, well, it's not an option.

EMG