On Saturday, November 2, 2002, at 10:54 PM, Alain Pastor wrote: > Has anyone succeeded in using the Carbon Toolbox function > CreateStandardFontMenu with _kHierarchicalFontMenuOption? > > This should give a Font menu with items sorted by name with a > hierarchical menu attached if necessary. Or so I believe. > > In addition, I would like to attach this ordered Font menu as a > hierarchical item of another menu (I don't know yet if it's doable). > > The code below crashes when _kHierarchicalFontMenuOption is set, > otherwise it seems to work: This slightly simplified version of your code works in both Classic and OS X 10.2.1. No crash. _kHierarchicalFontMenuOption = 1 toolbox fn CreateStandardFontMenu( MenuRef menu,¬ MenuItemIndex afterItem, Sint16 firstHierMenuID,¬ UInt32 options, UInt32 * outHierMenuCount) = OSStatus dim menuFont as MenuRef dim @ itemcount as UInt32 menuFont = fn NewMenu( 2, "Police" ) long if menuFont long if fn CreateStandardFontMenu( menuFont, 0, 200,¬ _kHierarchicalFontMenuOption, itemcount ) == _noErr InsertMenu( menuFont, 0 ) end if end if window 1 do handleevents until _nil // kill resources "plst", 0 Robert P.