Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!usc!sdd.hp.com!wuarchive!ukma!memstvx1!utkcs2!utkux1.utk.edu!danny
From: danny@utkux1.utk.edu (Danny W. McCampbell)
Newsgroups: comp.sys.mac.programmer
Subject: <None>
Message-ID: <1991May16.152915.11941@cs.utk.edu>
Date: 16 May 91 15:29:15 GMT
Sender: usenet@cs.utk.edu (USENET News Poster)
Distribution: usa
Organization: Univ of TN, Knoxville - CS Department
Lines: 30


Subject: Think Pascal 3.02  Bus Error....
Organization: University of Tennessee Computing Center

 I am still having problems with my program...

I get a bus error when trying to run this chunk of code....

It is not because I dispose of the Handle with the DisposHandle call...I 
checked that...

Why is the stupid thing crashing?   Why?  Why?  Why?

procedure Menus;
 begin
  ClearMenuBar;
  vBPMenuBar := GetNewMBar(BPMenuBar);
  SetMenuBar(vBPMenuBar);
  DisposHandle(vBPMenuBar);
  vAppleMenu := GetMHandle(AppleMenu);
  AddResMenu(vAppleMenu, 'DRVR');----Bus Error!!!
  DrawMenuBar;
 end;

I have an SE/30 with 8 megs of ram running Sys 7.0....

Danny W. McCampbell
Computer Operator/Systems Analyst
University of Tennessee
Office:  (615) 974-0138