[futurebasic] Re: [FB] Resmenus

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : December 2011 : Group Archive : Group : All Groups

From: Steve <mactech@...>
Date: Sun, 25 Dec 2011 21:53:15 -0500
I had the same issue.  Hierarchical resource menus don't work.   I used STR# resources for the strings and used AppendMenu to create them.

On Dec 25, 2011, at 9:47 PM, Robert Covington wrote:

> Intel FBtoC: Is there anything different about Resmenus, or some new something I might be lacking there as to a call that I should know about?
> 
> My resource based menus are not showing up, for some reason.
> 
> They are being called, to init, but they are not showing up after.
> 
> Example...main menu init function calls  fn InitFileMenu...but it is not showing up. My application menu is, and I can quit it.
> 
> local mode
> local fn InstallNoResHierMenu ( parentMenu, parentItem, childMenu )
> 
> long if fn SetMenuItemHierarchicalID( fn GetMenuHandle(parentMenu), parentItem, childMenu ) = _noErr
> INSERTMENU(FN NEWMENU(childMenu,""), -1)
> end if
> 
> end fn
> '~'1
> 
> local fn InitFileMenu
> // Function is being called, a beep here will beep
> Menu _FileMenu , _resMenu, _Enable // < -- not showing up
> Menu _NewUsingMenu,    _resSubMenu , _Enable
> Menu _ImportSubMenu,   _resSubMenu , _Enable
> Menu _MoviesSubMenu,   _resSubMenu , _Enable
> Menu _ExportSeqSubMenu,_resSubMenu, _Enable
> 
> fn InstallNoResHierMenu ( _FileMenu,_fOpenRecent,  _OpenRecentMenu )
> fn InstallNoResHierMenu ( _FileMenu,_fRestoreClosed, _RestoreRecentMenu )
> '~'1
> end fn
> 
> 
> --
> To unsubscribe, send ANY message to: futurebasic-unsubscribe@...
> To access the list archives, go to:  http://freegroups.net/groups/futurebasic/
>