Check menue item does not work

Question

Hello,
I create a menu item MI_DEBUG of type Check in a submenu named EXTRAS_MENU.
In the menu item code I want to enable debug logging of the current user actions.
In the Menu Startup Code I set the status UNCHECKED.
When the user clicks the menu item I want the status to be changed to CHECKED and back on a second click
Menu Startup Code
DECLARE
    mi_id   MENUITEM;
BEGIN
    mi_id   := find_menu_item('EXTRAS_MENU.MI_DEBUG');
    IF id_null(mi_id) THEN
        my_debug.pl('EXTRAS_MENU.MI_DEBUG not found','zvc_menu.mmb Menu Startup Code');
    ELSE
        set_menu_item_property(mi_id,CHECKED,PROPERTY_FALSE);
    END IF;
END;Menu Item Code
DECLARE
    mi_id   MENUITEM;
BEGIN
    mi_id   := find_menu_item('EXTRAS_MENU.MI_DEBUG');
    IF id_null(mi_id) THEN
        my_debug.pl('EXTRAS_MENU.MI_DEBUG not found','zvc_menu.mmb mi_debug');
    ELSE
        my_debug.pl('EXTRAS_MENU.MI_DEBUG found','zvc_menu.mmb mi_debug');
        my_debug.pl('Status '||get_menu_item_property(mi_id,CHECKED),'zvc_menu.mmb mi_debug');
        IF get_menu_item_property(mi_id,CHECKED) = 'TRUE' THEN
            my_debug.pl('property(CHECKED) = TRUE','zvc_menu.mmb mi_debug');
            set_menu_item_property(mi_id,CHECKED,PROPERTY_FALSE);
        ELSE
            my_debug.pl('property(CHECKED) = FALSE','zvc_menu.mmb mi_debug');
            set_menu_item_property(mi_id,CHECKED,PROPERTY_TRUE);
        END IF;
    END IF;
END;But I never get the checked sign in the menu and every time my debug messages say, that the property CHECKED = 'TRUE'.
I even have tried it with PROPERTY_ON/OFF as some examples suggest, but it doesn't work.
Any ideas what is wrong with my code?
Forms [32 Bit] Version 11.1.1.4.0 (Production)
Oracle Database 11g Enterprise Edition Release 11.2.0.2.0 - 64bit Production
Regards
Marcus

Answer 1

Hm. In that case the only thing that comes to my mind is to apply the latest patchset for forms 11gR1 which is 11.1.1.6 if memory serves.Not possible, applying patches requires tons of tests for many applications.
Does it work in a previous version of forms?This is a new menu item and I have not other version available to test.
Another thing I found: When I open or close a form after clicking the menu item, then the check mark appears. Changing the label of an item works without opening a form.
Therefore I changed my Menu Item Code to
DECLARE
    mi_id   MENUITEM;
BEGIN
    mi_id   := find_menu_item('EXTRAS_MENU.MI_DEBUG');
    IF id_null(mi_id) THEN
        my_debug.pl('EXTRAS_MENU.MI_DEBUG not found','zvc_menu.mmb mi_debug');
    ELSE
        my_debug.pl('EXTRAS_MENU.MI_DEBUG found','zvc_menu.mmb mi_debug');
        my_debug.pl('Status '||get_menu_item_property(mi_id,CHECKED),'zvc_menu.mmb mi_debug');
        IF get_menu_item_property(mi_id,CHECKED) = 'TRUE' THEN
            my_debug.pl('property(CHECKED) = TRUE','zvc_menu.mmb mi_debug');
            set_menu_item_property(mi_id,CHECKED,PROPERTY_FALSE);
            set_menu_item_property(mi_id,LABEL,'Debug on');
        ELSE
            my_debug.pl('property(CHECKED) = FALSE','zvc_menu.mmb mi_debug');
            set_menu_item_property(mi_id,CHECKED,PROPERTY_TRUE);
            set_menu_item_property(mi_id,LABEL,'Debug off');
        END IF;
    END IF;
END;Now when I click the menu item the first time, the label changes immediately, but not the check mark. When I click the menu item a second time without opening a form the label does not change, this means, that the property CHECKED is only changed, when a form is opend/closed.
Even better: The initial label id Debug, clicking the item should change it to+ Debug on+ and on subsequent clicks change between Debug on and Debug off
1. Click -> Label changes to "Debug on", check mark unchanged
2. open a form
3. Check mark is shown but label is the default Debug
4. close the form
5. Check mark is not shown, label is back to Debug on
6. Repeat step 2 - 5 with the same result
Different sequences of clicking and opening/closing forms give seemingly random combinations of check mark on/off and label texts.
Conclusion:
A menu check item is a very obstinate thing. I will not use it if I can avoid it.
Regards
Marcus