FWD » Core Development » User Interface

/**

 * Test the 5937 issue 4: zero height of SELECTION-LIST in ChUI.

 * To make debugging simple, only one widget is left.

 */

DEFINE FRAME hFrame 

   WITH

      FONT 4

      SCROLLABLE

      SIZE-PIXELS 600 BY 500.

DEFINE VARIABLE hList AS WIDGET-HANDLE NO-UNDO.

CREATE SELECTION-LIST hList

  ASSIGN FRAME             = FRAME hFrame:HANDLE

        X                  = 10

        Y                  = 10

        WIDTH-PIXELS       = 70

        SENSITIVE          = TRUE

        VISIBLE            = FALSE

        DELIMITER          = ',':U

        MULTIPLE           = FALSE

        LIST-ITEMS         = "personeel,materieel,materiaal,dienst"

        INNER-LINES        = 4

        SCROLLBAR-VERTICAL = FALSE

        SCROLLBAR-HORIZONTAL = FALSE

        .

ON VALUE-CHANGED OF hList

DO:

   MESSAGE "list value changed to: " hList:SCREEN-VALUE.

END.

// hList:VISIBLE = TRUE.

// APPLY 'ENTRY' TO hList.

ENABLE ALL WITH FRAME hFrame.

WAIT-FOR CLOSE OF THIS-PROCEDURE.