FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour MENUITEM with BLOCK command executed TWICE. (SOLVED)
Posts: 1387
Joined: Fri May 23, 2008 01:33 PM
Re: MENUITEM with BLOCK command executed TWICE.
Posted: Mon May 31, 2021 05:28 PM

:!:

Regards,



Hakan ONEMLI



Harbour & MSVC 2022 & FWH 23.06
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: MENUITEM with BLOCK command executed TWICE.
Posted: Tue Jun 01, 2021 09:48 AM
Dear Hakan,

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

line 1574:
Code (fw): Select all Collapse
         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
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1387
Joined: Fri May 23, 2008 01:33 PM
Re: MENUITEM with BLOCK command executed TWICE.
Posted: Tue Jun 01, 2021 11:20 AM
Antonio Linares wrote:Dear Hakan,

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

line 1574:
Code (fw): Select all Collapse
         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.
Regards,



Hakan ONEMLI



Harbour & MSVC 2022 & FWH 23.06
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: MENUITEM with BLOCK command executed TWICE.
Posted: Tue Jun 01, 2021 11:22 AM

Hakan,

What C compiler do you use ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1387
Joined: Fri May 23, 2008 01:33 PM
Re: MENUITEM with BLOCK command executed TWICE.
Posted: Tue Jun 01, 2021 11:34 AM
Antonio Linares wrote:Hakan,

What C compiler do you use ?


Harbour & MSVC 2019 & FWH 21.02
Regards,



Hakan ONEMLI



Harbour & MSVC 2022 & FWH 23.06
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: MENUITEM with BLOCK command executed TWICE.
Posted: Tue Jun 01, 2021 11:58 AM

Already sent to your email

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1387
Joined: Fri May 23, 2008 01:33 PM
Re: MENUITEM with BLOCK command executed TWICE.
Posted: Tue Jun 01, 2021 01:30 PM
Antonio Linares wrote:Already sent to your email


Thank you Antonio,

It solved my problem.
Regards,



Hakan ONEMLI



Harbour & MSVC 2022 & FWH 23.06

Continue the discussion