home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / sys / mac / programm / 12884 < prev    next >
Encoding:
Internet Message Format  |  1992-07-22  |  3.9 KB
  1. Path: sparky!uunet!dtix!darwin.sura.net!mips!sdd.hp.com!hp-cv!ogicse!das-news.harvard.edu!cantaloupe.srv.cs.cmu.edu!crabapple.srv.cs.cmu.edu!andrew.cmu.edu!sr0o+
  2. From: sr0o+@andrew.cmu.edu (Steven Ritter)
  3. Newsgroups: comp.sys.mac.programmer
  4. Subject: Re: Removing the menubar?
  5. Message-ID: <kePQOia00WBM04mmoS@andrew.cmu.edu>
  6. Date: 22 Jul 92 12:35:58 GMT
  7. References: <1992Jul21.201452.23920@nic.umass.edu>
  8.     <1992Jul22.115153.20732@uswmrg.mrg.uswest.com.mrg.uswest.com>
  9. Organization: Doctoral student, Psychology, Carnegie Mellon, Pittsburgh, PA
  10. Lines: 93
  11. In-Reply-To: <1992Jul22.115153.20732@uswmrg.mrg.uswest.com.mrg.uswest.com>
  12.  
  13. >In article <1992Jul21.201452.23920@nic.umass.edu> not in use,
  14. >wonko@titan.ucc.umass.edu writes:
  15. >>I am writing a program for a client that is VERY unmac in its operation
  16. >>and I need to remove the MenuBar from the screen. I am Using Lightspeed
  17. >>pascal 4.0 and have looked in all the inside macss as well as my other
  18. >>normal sources. 
  19. > 
  20. >First, I assume that the program is interactive? Just a guess, don't
  21. >InitMenus() in the first place. No? 
  22. > 
  23. >But why? Do they find menus offensive? Did they have a traumatic
  24. >experience with a menu as a child, or do they just want to remove 
  25. >access to them to the user? What about when you are running
  26. >Multifinder/Sys7? I think there are a million questions that will 
  27. >pop up here. Would it be sufficient just to have the Apple, File, and 
  28. >Edit menus there? They wouldn't have to be functional, just stub in 
  29. >the MenuChoice() code, and don't do anything after MenuSelect().
  30.  
  31. Yeesh, we could all do without the lecture. The original poster said the
  32. program was "VERY unmac" so why not assume he had a good reason for it
  33. to be so? I've written a number of psychology experiments that hide the
  34. menubar because:
  35.  1. I need the extra screen real estate
  36.  2. It's visual distracting (for some tasks)
  37.  3. I would prefer that my subjects do the experiment rather than
  38. playing Tetris
  39.  
  40. Anyway, here's the code:
  41.  
  42. /*Code to hide the menubar*/
  43. /*Taken from the Usenet Mac Programmer's guide, page 258-260*/
  44. /*Call remove_menubar, passing a RgnHandle to hold the desktop region*/
  45. /*The function returns the height of the menubar*/
  46. /*Call restore_menubar to return everything to normal*/
  47.  
  48.  
  49. void SetMBarHeight(int newheight) {
  50.    MBarHeight = newheight;  /*MBarHeight is a low-mem global*/
  51. }                           /*It may not be supported in the future*/
  52.  
  53.  
  54. /*remove_menubar removes the menubar and adjusts the desktop*/
  55. /* so that the menu is gone*/
  56. /*It returns the original height of the menubar and sets gray_rgn to
  57. the*/ /*original gray region */
  58.  
  59. int remove_menubar (RgnHandle gray_rgn) {
  60. int old_height;
  61. RgnHandle newgray_region;
  62. Rect newgray_rect;
  63.  
  64.    old_height = GetMBarHeight();
  65.    SetMBarHeight(0);  /*shrink menubar to 0*/
  66.  
  67.    newgray_region = NewRgn();
  68.    CopyRgn(GetGrayRgn(),gray_rgn);
  69.    SetRect(&newgray_rect,screenBits.bounds.left,screenBits.bounds.top,
  70.            screenBits.bounds.right,screenBits.bounds.bottom);
  71.    RectRgn(newgray_region,&newgray_rect);
  72.    CopyRgn(newgray_region,GetGrayRgn());
  73.    PaintOne((WindowPeek)0L,newgray_region);/*update desktop over menubar rgn*/
  74.    CalcVis((WindowPeek)0L);
  75.    
  76.    DisposeRgn(newgray_region);
  77.    return old_height;
  78. }
  79.  
  80. /*restore_menubar puts it back*/
  81. void restore_menubar(int mbarheight,RgnHandle gray_rgn) {
  82. RgnHandle current_region;
  83. Rect mbarrect;
  84. RgnHandle mbar_region;
  85. WindowPeek front;
  86.  
  87.    SetRect(&mbarrect,screenBits.bounds.left,screenBits.bounds.top,
  88.            screenBits.bounds.right,screenBits.bounds.top+mbarheight);
  89.    mbar_region = NewRgn();
  90.    RectRgn(mbar_region,&mbarrect);
  91.    current_region = NewRgn();
  92.    SetMBarHeight(mbarheight);
  93.    CopyRgn(GetGrayRgn(),current_region);
  94.    CopyRgn(gray_rgn,GetGrayRgn());
  95.    front = (WindowPeek)FrontWindow();
  96.    CalcVis(front);
  97.    CalcVisBehind(front,mbar_region);
  98.    CalcVisBehind(front,current_region);
  99.    HiliteMenu(0);
  100.    DrawMenuBar();
  101.    DisposeRgn(current_region);
  102.    DisposeRgn(mbar_region);
  103. }
  104.  
  105. /*Steve*/
  106.