home *** CD-ROM | disk | FTP | other *** search
/ PC Direkt 1995 March / PCD_395.iso / starview / pm2blci / german / example4.sr_ / EXAMPLE4.SRC
Encoding:
Text File  |  1994-01-18  |  2.8 KB  |  100 lines
  1. /*******************************************************************
  2. *  EXAMPLE4.SRC
  3. *  (c) 1992-1994 STAR DIVISION
  4. *******************************************************************/
  5.  
  6. #include "example4.hrc"
  7.  
  8. Menu MID_MENUBAR
  9. {
  10.     ItemList =
  11.     {
  12.         MenuItem
  13.         {
  14.             Text       = "~File";
  15.             Identifier = MID_FILE;
  16.             SubMenu    = Menu
  17.             {
  18.                 ItemList =
  19.                 {
  20.                     MenuItem
  21.                     {
  22.                         Text       = "~About...";
  23.                         Identifier = MID_ABOUT;
  24.                         About      = TRUE;
  25.                     };
  26.                     MenuItem
  27.                     {
  28.                         Separator = TRUE;
  29.                     };
  30.                     MenuItem
  31.                     {
  32.                         Text       = "~Exit...";
  33.                         Identifier = MID_QUIT;
  34.                     };
  35.                 };
  36.             };
  37.         };
  38.  
  39.         MenuItem
  40.         {
  41.             Text       = "~Color";
  42.             Identifier = MID_PENCOLOR;
  43.             SubMenu    = Menu
  44.             {
  45.                 ItemList =
  46.                 {
  47.                     MenuItem
  48.                     {
  49.                         Text       = "~Red";
  50.                         Identifier = MID_PENRED;
  51.                         Checkable  = TRUE;
  52.                     };
  53.                     MenuItem
  54.                     {
  55.                         Text       = "~Blue";
  56.                         Identifier = MID_PENBLUE;
  57.                         Checkable  = TRUE;
  58.                     };
  59.                     MenuItem
  60.                     {
  61.                         Text       = "~Yellow";
  62.                         Identifier = MID_PENYELLOW;
  63.                         Checkable  = TRUE;
  64.                     };
  65.                 };
  66.             };
  67.         };
  68.  
  69.         MenuItem
  70.         {
  71.             Text       = "~Width";
  72.             Identifier = MID_PENWIDTH ;
  73.             SubMenu    = Menu
  74.             {
  75.                 ItemList =
  76.                 {
  77.                     MenuItem
  78.                     {
  79.                         Text       = "~Small";
  80.                         Identifier = MID_PENSMALL;
  81.                         Checkable  = TRUE;
  82.                     };
  83.                     MenuItem
  84.                     {
  85.                         Text       = "~Medium";
  86.                         Identifier = MID_PENMEDIUM;
  87.                         Checkable  = TRUE;
  88.                     };
  89.                     MenuItem
  90.                     {
  91.                         Text       = "~Large";
  92.                         Identifier = MID_PENTHICK;
  93.                         Checkable  = TRUE;
  94.                     };
  95.                 };
  96.             };
  97.         };
  98.     };
  99. };
  100.