![Exclamation :!:](./images/smilies/icon_exclaim.gif)
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
Antonio Linares wrote:Dear Hakan,
In menu.prg please make these changes: (in the "else")
line 1574:
- Code: Select all Expand view
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
Antonio Linares wrote:Hakan,
What C compiler do you use ?
Antonio Linares wrote:Already sent to your email
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 129 guests