FRM 40738 - Argument 2 to builtin CREATE_TIMER

Question

Recently I migrated from forms 4.5 to forms6i (6.0.8.17.1). Everything worked fine until a few weeks ago. Every new fmx-file I create, gives a very strange error when the user moves his mouse over the icons in the toolbar: 'FRM 40738 - Argument 2 to builtin CREATE_TIMER'. The developers cannot reproduce this bug because it only occurs on the PC's of the users.
Can somebody help me?

Answer 1

-- BEGIN WHEN_MOUSE_ENTER
BEGIN
IF SUBSTR(NAME_IN('SYSTEM.MOUSE_ITEM'),1,INSTR(NAME_IN('SYSTEM.MOUSE_ITEM'),'.')-1) = 'TOOLBAR'
THEN
HINT.ShowButtonHelp;
END IF;
EXCEPTION
WHEN VALUE_ERROR THEN
null;
WHEN OTHERS THEN
null;
END;
-- END WHEN_MOUSE_ENTER
-- ShowButtonHelp is a procedure in a PL\SQL library
PROCEDURE ShowButtonHelp( timedelay NUMBER := 500) IS
t Timer := Find_Timer(BUTTONHELPTIMER);
BEGIN
IF NOT on_windows THEN
RETURN;
END IF;
IF NOT Id_Null(t) THEN
Delete_Timer(t);
END IF;
sync_mouse_info;
IF mouse_item IS NOT NULL AND
mouse_item_is_iconic_button THEN
IF mouse_item_label IS NOT NULL THEN
t := Create_Timer(BUTTONHELPTIMER,timedelay,NO_REPEAT);
END IF;
ELSE
HideButtonHelp;
END IF;
END;
-- sync_mouse_info is a procedure in a PL\SQL library
PROCEDURE sync_mouse_info IS
BEGIN
mouse_item := Name_In('SYSTEM.MOUSE_ITEM');
mouse_canvas := Name_In('SYSTEM.MOUSE_CANVAS');
appInst := TO_NUMBER(
Get_Application_Property(APPLICATION_INSTANCE));
IF mouse_item IS NOT NULL THEN
hWind := TO_NUMBER(
Get_Item_Property(mouse_item,WINDOW_HANDLE));
mouse_item_hint := Get_Item_Property(mouse_item,HINT_TEXT);
IF SUBSTR(mouse_item_hint,1,1) = CHR(0) THEN
mouse_item_hint := NULL;
END IF;
ELSE
hWind := NULL;
END IF;
END;