Unable to to add pull-down menu to the schematic window

Hi,

I am trying to add pull-down menu to the schematic window.

procedure( CCSCreateSchematicMyToolsPulldownMenu()
let(()
if( boundp( 'CCSSchMyToolsMenu )
then CCSSchMyToolsMenu
else
hiCreatePulldownMenu(
'CCSSchMyToolsMenu ; Item name
"My Tools" ; Item text
list(
hiCreateMenuItem(
?name 'GetListOfSelectedPins
?itemText "Print list of selected pins"
?callback "GetListOfSelectedPins()"
);hiCreateMenuItem

hiCreateMenuItem(
?name 'CreateAMSNetlist
?itemText "Create AMS netlist"
?callback "CreateAmsNetlistFromCurrentCell()"
);hiCreateMenuItem
);list
);hiCreatePulldownMenu
);if
) ; let
) ; CCSSchematicMenuTrigger

procedure( CCSSchematicMenuTrigger(@optional (triggerArgs getCurrentWindow()))
let(( banner window )

; Determine if the argument is a trigger argument list or a window.
if( typep( triggerArgs ) == 'list then
window = triggerArgs->window
else
window = triggerArgs
)

banner=hiGetBannerMenus( window )
unless( member( 'CCSSchMyToolsMenu banner )
printf("Creating custom menu in window %L\n" window)
CCSCreateSchematicMyToolsPulldownMenu()
hiInsertBannerMenu( window CCSSchMyToolsMenu length(banner)-3 )
);unless
);let
) ; procedure

deRegUserTriggers("schematic" nil nil 'CCSSchematicMenuTrigger)
deRegUserTriggers("schematicXL" nil nil 'CCSSchematicMenuTrigger)

If i am opening schematic view directly or if i am opening schematic inside ADE-XL and running CCSSchematicMenuTrigger procedure manually menu is added. But when I am opening schematic from ADE-XL (open design in tab) the menu is not added. What am I doing wrong?

Thank you.