home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / ARexxTools / TritonRexx376.lha / TritonRexx / Rexx / Menu.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-09-17  |  4.7 KB  |  158 lines
  1. /* Menu.rexx */
  2.  
  3. IF ~SHOW('LIBRARIES','tritonrexx.library') THEN DO
  4.    IF ~ADDLIB('tritonrexx.library',10,-30,0) THEN DO
  5.       SAY 'Kann die <tritonrexx.library> nicht öffnen!'
  6.       EXIT(10)
  7.    END
  8. END
  9.  
  10. windowtags =   WindowID(1),
  11.                WindowTitle('Menüs'),
  12.                PubScreenName('CygnusEdScreen1'),
  13.                BeginMenu('Projekt'),
  14.                   MenuItem('N_Neu',1),
  15.                   MenuItem('O_Öffnen...',2),
  16.                   'ItemBarlabel',
  17.                   MenuItem('S_Speichern',3),
  18.                   MenuItem('A_Speichern als...',4),
  19.                   'ItemBarlabel',
  20.                   MenuItemD('P_Drucken...',5),
  21.                   'ItemBarlabel',
  22.                   MenuItem('?_Info',6),
  23.                   'ItemBarlabel',
  24.                   MenuItem('Q_Beenden',7),
  25.                BeginMenu('Funktionen'),
  26.                   MenuItem('_F1_Funktion 1',11),
  27.                   MenuItem('_F2_Funktion 2',12),
  28.                   MenuItem('_F3_Funktion 3',13),
  29.                   'ItemBarlabel',
  30.                   BeginSub('Hilfe'),
  31.                      SubItem('_HELP_Allgemein',14),
  32.                      'SubBarlabel',
  33.                      SubItem('_SHIFT HELP_Tips & Tricks',15),
  34.                      SubItem('_CTRL HELP_Sonstiges',16),
  35.                   'ItemBarlabel',
  36.                   MenuItemC('I_Icons erzeugen?',17),
  37.                   MenuItemCC('3_Funktion 3 ein/aus',18),
  38.                'EndProject'
  39.  
  40. app = TR_CREATEAPP('TRCA_Name Menu')
  41.  
  42. IF app ~= '00000000'x THEN DO
  43.  
  44.    window = TR_OPENPROJECT(app,windowtags)
  45.  
  46.    IF window ~= '00000000'x THEN DO
  47.       ende = 0
  48.  
  49.       DO WHILE ende ~= 1
  50.          CALL TR_WAIT(app,'')
  51.  
  52.          DO WHILE TR_HANDLEMSG(app,'event')
  53.             IF event.trm_class = 'TRMS_KEYPRESSED' THEN DO
  54.                qualifier = D2C(event.trm_qualifier)
  55.  
  56.                SELECT
  57.                   WHEN event.trm_code = 80 & ~BITTST(qualifier,9) THEN
  58.                      SAY 'F1 - Funktion 1'
  59.  
  60.                   WHEN event.trm_code = 81 & ~BITTST(qualifier,9) THEN
  61.                      SAY 'F2 - Funktion 2'
  62.  
  63.                   WHEN event.trm_code = 82 & ~BITTST(qualifier,9) THEN DO
  64.                      IF ~TR_GETATTRIBUTE(window,13,'TRAT_Disabled') THEN
  65.                         SAY 'F3 - Funktion 3'
  66.                   END
  67.  
  68.                   WHEN event.trm_code = 95 & ~BITTST(qualifier,9) THEN DO
  69.                      IF BITTST(qualifier,3) THEN
  70.                         SAY 'CTRL HELP - Hilfe/Sonstiges'
  71.                      ELSE
  72.                         IF BITTST(qualifier,0) | BITTST(qualifier,1) THEN
  73.                            SAY 'SHIFT HELP - Hilfe/Tips & Tricks'
  74.                         ELSE
  75.                            SAY 'HELP - Hilfe/Allgemein'
  76.                   END
  77.  
  78.                   OTHERWISE
  79.                      NOP
  80.                END
  81.             END
  82.  
  83.             IF event.trm_class = 'TRMS_ACTION' THEN DO
  84.                SELECT
  85.                   WHEN event.trm_id = 1 THEN
  86.                      SAY 'Neu'
  87.  
  88.                   WHEN event.trm_id = 2 THEN
  89.                      SAY 'Öffnen'
  90.  
  91.                   WHEN event.trm_id = 3 THEN
  92.                      SAY 'Speichern'
  93.  
  94.                   WHEN event.trm_id = 4 THEN
  95.                      SAY 'Speichern als'
  96.  
  97.                   WHEN event.trm_id = 5 THEN
  98.                      SAY 'Drucken'
  99.  
  100.                   WHEN event.trm_id = 6 THEN
  101.                      SAY 'Info'
  102.  
  103.                   WHEN event.trm_id = 7 THEN
  104.                      ende = 1
  105.  
  106.                   WHEN event.trm_id = 11 THEN
  107.                      SAY 'Funktion 1'
  108.  
  109.                   WHEN event.trm_id = 12 THEN
  110.                      SAY 'Funktion 2'
  111.  
  112.                   WHEN event.trm_id = 13 THEN
  113.                      SAY 'Funktion 3'
  114.  
  115.                   WHEN event.trm_id = 14 THEN
  116.                      SAY 'Allgemeine Hilfe'
  117.  
  118.                   WHEN event.trm_id = 15 THEN
  119.                      SAY 'Tips & Tricks'
  120.  
  121.                   WHEN event.trm_id = 16 THEN
  122.                      SAY 'Sonstige Hilfe'
  123.  
  124.                   OTHERWISE
  125.                      NOP
  126.                END
  127.             END
  128.  
  129.             IF event.trm_class = 'TRMS_NEWVALUE' THEN DO
  130.                SELECT
  131.                   WHEN event.trm_id = 17 THEN DO
  132.                      IF event.trm_data = 0 THEN
  133.                         SAY 'Icons erzeugen ist ausgeschaltet'
  134.                      ELSE
  135.                         SAY 'Icons erzeugen ist eingeschaltet'
  136.                   END
  137.  
  138.                   WHEN event.trm_id = 18 THEN
  139.                      CALL TR_SETATTRIBUTE(window,13,'TRAT_Disabled',~event.trm_data)
  140.  
  141.                   OTHERWISE
  142.                      NOP
  143.                END
  144.             END
  145.  
  146.             IF event.trm_class = 'TRMS_CLOSEWINDOW' THEN
  147.                ende = 1
  148.          END
  149.       END
  150.  
  151.       CALL TR_CLOSEPROJECT(window)
  152.    END
  153.  
  154.    CALL TR_DELETEAPP(app)
  155. END
  156.  
  157. EXIT(0)
  158.