// Test FILL-IN widgets with LEFT 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 INIT 12345.67 VIEW-AS FILL-IN SIZE-CHARS 30 BY 1.
DEFINE VARIABLE integerVar AS INTEGER INIT 1234567 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 integerVar logicalVar WITH SIDE-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.