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