home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / comp / sys / mac / programm / 18369 < prev    next >
Encoding:
Text File  |  1992-11-13  |  1.9 KB  |  70 lines
  1. Newsgroups: comp.sys.mac.programmer
  2. Path: sparky!uunet!pageworks.com!world!eff!sol.ctr.columbia.edu!zaphod.mps.ohio-state.edu!uwm.edu!cs.utexas.edu!bcm!aio!mark@cheers.jsc.nasa.gov
  3. From: mark@cheers.jsc.nasa.gov (Mark Manning)
  4. Subject: To:jafl@cco.caltech.edu
  5. Message-ID: <1992Nov13.150807.28333@aio.jsc.nasa.gov>
  6. Sender: news@aio.jsc.nasa.gov (USENET News System)
  7. Organization: Simulacron I
  8. Date: Fri, 13 Nov 1992 15:08:07 GMT
  9. Lines: 59
  10.  
  11. Sorry to waste bandwidth guys and gals...but the e-mail demon punted my
  12. return mail back to me. :(
  13.  
  14. John,
  15.  
  16.    I've checked all of the numbers.  They all match with no discrepancies.
  17. Here is the code for the menu layout so you can see how I've done it.  If
  18. there is anything wrong with it, please let me know.  Thanks.
  19.  
  20.     ClearMenuBar;
  21.     gAppleMenu := GetMenu( kAppleMenu );
  22.     InsertMenu( gAppleMenu, 0);
  23.     AddResMenu( gAppleMenu, 'DRVR');
  24.     DrawMenuBar;                    {    Draw the menu bar    }
  25.  
  26.     gFileMenu := GetMenu( kFileMenu );
  27.     InsertMenu( gFileMenu, 0 );
  28.     DrawMenuBar;                    {    Draw the menu bar    }
  29.  
  30.     gEditMenu := GetMenu( kEditMenu );
  31.     InsertMenu( gEditMenu, 0 );
  32.     DrawMenuBar;                    {    Draw the menu bar    }
  33.  
  34.     gFormMenu := GetMenu( kFormMenu );
  35.     InsertMenu( gFormMenu, 0);
  36.     DrawMenuBar;                    {    Draw the menu bar    }
  37.  
  38.     gOptMenu := GetMenu( kOptMenu );
  39.     InsertMenu( gOptMenu, 0 );
  40.     DrawMenuBar;                    {    Draw the menu bar    }
  41.  
  42.     gFormatMenu := GetMenu( kFormatMenu );
  43.     InsertMenu( gFormatMenu, 0 );
  44.  
  45.     gFontMenu := GetMenu( kFontMenu );
  46.     AddResMenu( gFontMenu, 'FONT' );
  47.     InsertMenu( gFontMenu, -1 );
  48.     DrawMenuBar;
  49.  
  50.     GetSizeList;
  51.  
  52.     gSizeMenu := GetMenu( kSizeMenu );
  53.  
  54.     for tSizeNum := 1 to 256 do
  55.         if gSizeList[tSizeNum] then
  56.             begin
  57.                 NumToString( tSizeNum, tSizeName );
  58.                 AppendMenu( gSizeMenu, tSizeName );
  59.                 end;
  60.  
  61.     InsertMenu( gSizeMenu, -1 );
  62.     DrawMenuBar;
  63.  
  64.     gStyleMenu := GetMenu( kStyleMenu );
  65.     InsertMenu( gStyleMenu, -1 );
  66.     DrawMenuBar;
  67.  
  68. Let me know if you see anything wrong with how I'm doing this.  And
  69. again I'm sorry that I've had to place this here.
  70.