Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!sdd.hp.com!elroy.jpl.nasa.gov!ncar!gatech!utkcs2!utkux1.utk.edu!danny
From: danny@utkux1.utk.edu ("Danny W. McCampbell")
Newsgroups: comp.sys.mac.programmer
Subject: Think Pascal 3.02 Problems...
Message-ID: <1991May14.180045.483@cs.utk.edu>
Date: 14 May 91 18:00:45 GMT
Sender: usenet@cs.utk.edu (USENET News Poster)
Distribution: usa
Organization: University of Tennessee Computing Center
Lines: 26

I am write a chunk of code that simple draws the Menu Bar for my program, 
but when I run it from within Think Pascal 3.02 I get a bus error at the 
designated line:

 procedure Menus;
 begin	{Menus}
  ClearMenuBar;		{Clear old Menu Bar}
  vBPMBAR := GetNewMBar(BPMBAR);		{Get the MBAR for BP}
  SetMenuBar(vBPMBAR);						{Set BP's MBAR as current Menu Bar}
  DisposHandle(vBPMBAR);					{Release handle from Memory}
  vAppleMenu := GetMHandle(AppleMenu);	{Get the handle for the Apple Menu}
  AddResMenu(vAppleMenu, 'DRVR');			{Add the Desk Accessories}
  DrawMenuBar;								{Draw the Menu Bar now}-----------Bus Error right 
here!
 end;		{Menus}

I have an SE/30 with 8 megs of Ram running 7.0b4.

Please help me out.  Thanks

Danny McCampbell
Computer Operator/Systems Analyst
University of Tennessee (Knoxville)
2339 Dunford Hall
Knoxville,  TN  37916
Phone:  (615)  974-0138