home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / clarion / library / alrt / alrt.cla < prev    next >
Text File  |  1988-07-27  |  2KB  |  108 lines
  1.       PROGRAM
  2.  
  3.       INCLUDE ('STD_KEYS')
  4.  
  5.       MAP
  6.         PROC(TEST1)
  7.         PROC(TEST2)
  8.         INCLUDE('ALRT.CPY')
  9.       .
  10.  
  11. SAVALERTS GROUP            ! WHATEVER THIS GROUP CONTAINS IT
  12. SA      SHORT,DIM(16,2)    ! MUST BE AT LEAST 64 BYTES LONG
  13.       .            ! THE LEM DOES NO CHECKING ON THIS
  14.  
  15.       CODE
  16.  
  17.       SETHUE(7,0)
  18.       BLANK
  19.       SETHUE()
  20.  
  21.       ALERT(F2_KEY)
  22.  
  23.       TEST1
  24.  
  25.       TEST2
  26.  
  27.  
  28. TEST1 PROCEDURE
  29.  
  30. S1         Screen      Window(11,40),Hue(7,0,0)
  31.            Row(1,1)      String('╔═{38}╗')
  32.            Row(2,1)      Repeat(9);String('║<0{38}>║') .
  33.            Row(11,1)  String('╚═{38}╝')
  34.            Row(2,5)      String('ONLY F10 ALERTED FOR THIS SCREEN')
  35. Msg           Row(10,6)  String(30)
  36.            Row(4,8)      String('FIELD1:')
  37.          Col(15)  Entry(@S20),Use(F1)
  38.            Row(6,8)      String('FIELD2:')
  39.          Col(15)  Entry(@S20),Use(F2)
  40.            Row(8,8)      String('FIELD3:')
  41.          Col(15)  Entry(@S20),Use(F3)
  42.          .
  43.  
  44. F1 STRING(20)
  45. F2 STRING(20)
  46. F3 STRING(20)
  47.  
  48.  
  49.       CODE
  50.  
  51.       GETALERT(SAVALERTS)
  52.       ALERT()     !CLEAR ALL ACTIVE ALERTS
  53.       ALERT(F10_KEY) !ALERT JUST F10_KEY
  54.  
  55.       OPEN(S1)
  56.  
  57.       LOOP
  58.         ACCEPT
  59.         MSG = ''
  60.         IF KEYCODE() = F10_KEY
  61.           MSG = CENTER('GOT F10',SIZE(MSG))
  62.         ELSE
  63.           MSG = CENTER('NOT F10',SIZE(MSG))
  64.         .
  65.         IF FIELD() = ?F3
  66.           PUTALERT(SAVALERTS)
  67.           RETURN
  68.         .
  69.       .
  70.  
  71. TEST2 PROCEDURE
  72.  
  73. S2         Screen      Window(11,40),Hue(7,0,0)
  74.            Row(1,1)      String('╔═{38}╗')
  75.            Row(2,1)      Repeat(9);String('║<0{38}>║') .
  76.            Row(11,1)  String('╚═{38}╝')
  77.            Row(2,7)      String('F2 SHOULD BE ONLY ALERTED KEY')
  78. Msg           Row(10,6)  String(30)
  79.            Row(4,8)      String('FIELD1:')
  80.          Col(15)  Entry(@S20),Use(F1)
  81.            Row(6,8)      String('FIELD2:')
  82.          Col(15)  Entry(@S20),Use(F2)
  83.            Row(8,8)      String('FIELD3:')
  84.          Col(15)  Entry(@S20),Use(F3)
  85.          .
  86.  
  87. F1 STRING(20)
  88. F2 STRING(20)
  89. F3 STRING(20)
  90.  
  91.  
  92.       CODE
  93.  
  94.       OPEN(S2)
  95.  
  96.       LOOP
  97.         ACCEPT
  98.         MSG = ''
  99.         IF KEYCODE() = F2_KEY
  100.           MSG = CENTER('GOT F2',SIZE(MSG))
  101.         ELSE
  102.           MSG = CENTER('NOT F2',SIZE(MSG))
  103.         .
  104.         IF FIELD() = ?F3 THEN RETURN.
  105.       .
  106.  
  107.  
  108.