DEFINE VARIABLE fillIn AS CHARACTER NO-UNDO.

DEFINE FRAME fr
  fillIn
  WITH TITLE "Frame" SIZE 70 BY 15 NO-LABELS .
fillIn:SCREEN-VALUE='a'.

DEFINE VARIABLE counter AS INTEGER NO-UNDO.
ON VALUE-CHANGED OF fillIn ANYWHERE DO:
  MESSAGE "valueChanged in browse: " counter.
  counter = counter + 1.
END.

ENABLE ALL WITH FRAME fr.

WAIT-FOR WINDOW-CLOSE OF DEFAULT-WINDOW.