// Test FILL-IN widgets with RIGHT alignment.

// This is just for repeatable test results, no issues are known
// for different session numeric format values
SESSION:SET-NUMERIC-FORMAT(",",".").

DEFINE VARIABLE decimalVar AS DECIMAL VIEW-AS FILL-IN SIZE-CHARS 30 BY 1.
DEFINE VARIABLE integerVar AS INTEGER VIEW-AS FILL-IN SIZE-CHARS 30 BY 1.
DEFINE VARIABLE logicalVar AS LOGICAL VIEW-AS FILL-IN SIZE-CHARS 30 BY 1.

DEFINE FRAME fr decimalVar SKIP integerVar SKIP logicalVar WITH NO-LABELS.

ON VALUE-CHANGED OF decimalVar, integerVar, logicalVar
  MESSAGE "VALUE-CHANGED: " SELF:NAME SELF:SCREEN-VALUE NOW.

ENABLE ALL WITH FRAME fr.

WAIT-FOR CLOSE OF CURRENT-WINDOW.