CX_SYSTEM_OBJECT::EnterKeyInterrupt

Module(TestKeyInterrupt)
[
  Var(count) Msg(ALFA, BETA, GAMMA)


  Define(DoSomething)
        -> count
        do
           FindAll(CX_PERSON)
           iterate { String count String(" (%d)") + PutValue(win) }
           Decr(count) count ifnot break
        loop;

  ALFA:
  BETA:
  GAMMA: OpenWindow(itWin, 1)


  INITIALIZE: [ ESC ] (ALFA) NULL SystemObject Call(EnterKeyInterrupt)
              [ ALT 0x31 ] (BETA) NULL SystemObject Call(EnterKeyInterrupt)
              [ SHIFT CTRL 0x20 ] (GAMMA) NULL SystemObject Call(EnterKeyInterrupt)
]


Window(win, 23, 23, 1000, 100, "Test Key Interrupt")
{
  Button(b, BLUE, 33, 70, 120, 7, "push me")
  [
    SELECT: 1000 DoSomething  // start processing
  ]

  Attach(b, BOTTOM, 11)
}


Window(itWin, 1023, 23, 335, 50, "...")
[
  ALFA: "ESCAPE ..." PutValue
  BETA: "ALT 1 ..." PutValue
  GAMMA: "SHIFT CTRL SPACE ..." PutValue
]
{
  Button(b1, GREEN, DEFAULT, 15, 23, 100, 7, "continue")
  [
    SELECT: CloseWindow FinishInput // to continue
  ]
  Button(b2, RED, 210, 23, 100, 7, "cancel")
  [
    SELECT: CloseWindow cancel // abort processing immediately
  ]
}