home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / comp / sys / mac / programm / 20115 < prev    next >
Encoding:
Text File  |  1992-12-21  |  1.4 KB  |  41 lines
  1. Newsgroups: comp.sys.mac.programmer
  2. Path: sparky!uunet!caen!nic.umass.edu!titan.ucc.umass.edu!rjr
  3. From: rjr@titan.ucc.umass.edu (Richard J. Resnick)
  4. Subject: Beginner's Hierarchical Menu Problem
  5. Message-ID: <BzKItx.qs@nic.umass.edu>
  6. Sender: usenet@nic.umass.edu (USENET News System)
  7. Organization: University of Massachusetts, Amherst
  8. Date: Sun, 20 Dec 1992 17:20:21 GMT
  9. Lines: 30
  10.  
  11. I am returning to the Mac environment, and getting stuck (as usual) on
  12. what seem to be trivialities.
  13.  
  14. I am trying to make a simple FONT menu, which will be a hierarchical
  15. menu under a menu called SPECIAL. I built the resources correctly, and
  16. the FONT menu, res_id = 100, was built empty in the resource editor,
  17. so that I could call AddResMenu to load it up.
  18.  
  19. My code looks something like this:
  20.  
  21. (*Loads up the Desk Accesories in the Apple Menu*)
  22.   aMenu := GetMHandle(APPLE_MENU_ID);
  23.   AddResMenu(aMenu, 'DRVR');
  24.  
  25. (*Tries to load up the Fonts in the FONT_MENU*)
  26.   aMenu := GetMHandle(FONT_MENU_ID);
  27.   InsertMenu(aMenu, -1);
  28.   AddResMenu(aMenu, 'FONT');
  29.  
  30. The error that I get when I run this under Think Pascal is "Think
  31. Pascal unexpectedly quit", and when I build the application and run
  32. it, I get a missing coprocessor error. I didn't think that any of
  33. these routines called for a coprocessor!!
  34.  
  35. In terms of system: I am running an ugly Mac Classic, 4megs of ram,
  36. with no real upgrades of any sort. System 6.07.
  37.  
  38. Thanks in advance for any help you can give me.
  39.  
  40. Richard Resnick
  41.