MENUITEM with BLOCK command executed TWICE. (SOLVED)

[Horizon]

[Antonio Linares]

Dear Hakan,

In menu.prg please make these changes: (in the "else")

line 1574:

Code: Select all  Expand view  RUN

        if ::lPopup
            ::oMenuItemPopup = oMenuItem
         else  
            if ValType( oMenuItem:bBlock ) == "B"
               if oMenuItem:bWhen != nil .and. ! Eval( oMenuItem:bWhen, oMenuItem )
                  return nil
               endif
               ::oLastItem = oMenuItem
               if ::lPopup
                  ::oMenuItemPopup = oMenuItem
               endif
               Eval( oMenuItem:bBlock, oMenuItem )
            endif
         endif

Your example works fine with these changes

These changes will be included in the next FWH build

[Horizon]

Dear Hakan,

In menu.prg please make these changes: (in the "else")

line 1574:

Code: Select all  Expand view  RUN

        if ::lPopup
            ::oMenuItemPopup = oMenuItem
         else  
            if ValType( oMenuItem:bBlock ) == "B"
               if oMenuItem:bWhen != nil .and. ! Eval( oMenuItem:bWhen, oMenuItem )
                  return nil
               endif
               ::oLastItem = oMenuItem
               if ::lPopup
                  ::oMenuItemPopup = oMenuItem
               endif
               Eval( oMenuItem:bBlock, oMenuItem )
            endif
         endif

Your example works fine with these changes

These changes will be included in the next FWH build

Hi Antonio,

I use unmodifed fwh libs. Can you please send me change libs.

Thank you.

[Antonio Linares]

Hakan,

What C compiler do you use ?

[Horizon]

Hakan,

What C compiler do you use ?

Harbour & MSVC 2019 & FWH 21.02

[Antonio Linares]

Already sent to your email

[Horizon]

Already sent to your email

Thank you Antonio,

It solved my problem.