Path: utzoo!utgpu!news-server.csri.toronto.edu!bonnie.concordia.ca!thunder.mcrcim.mcgill.edu!snorkelwacker.mit.edu!hsdndev!husc6!unix!mxmora
From: mxmora@unix.SRI.COM (Matt Mora)
Newsgroups: comp.sys.mac.programmer
Subject: Re: How to make disappearing menubar?
Message-ID: <23103@unix.SRI.COM>
Date: 11 Apr 91 17:01:17 GMT
References: <1CE00001.chkohlu@tbomb.ice.com>
Reply-To: mxmora@unix.sri.com (Matt Mora)
Organization: SRI International, Menlo Park, CA
Lines: 24


From the UMPG:
                    { Get some Regions to work with}
    Save_Region := NewRgn;
    MBar_Region := NewRgn;
    SetMBarHeight(0);
{}
    CopyRgn(GetGrayRgn, Save_Region);
          { Fix up GrayRgn to cover the old GrayRgn plus the Menu Bar Rect}
    RectRgn(MBar_Region, MBar_Rect);
    UnionRgn(GetGrayRgn, MBar_Region, GetGrayRgn);
             { Paint and fix up visRgn for any windows with exposed area}
    theWindow := WindowPeek(FrontWindow);
    PaintOne(theWindow, MBar_Region);
    PaintBehind(theWindow, MBar_Region);
    CalcVis(theWindow);
    CalcVisBehind(theWindow, MBar_Region);
    DisposeRgn(MBar_Region);                          { Clean up, leave}

-- 
___________________________________________________________
Matthew Mora                |   my Mac  Matt_Mora@sri.com
SRI International           |  my unix  mxmora@unix.sri.com
___________________________________________________________