5937-simple-static.p
| 1 |
/** |
|---|---|
| 2 |
* Test the 5937 issue 4: zero height of SELECTION-LIST. |
| 3 |
* To make debugging simple, only one widget is left. |
| 4 |
* Unlike the 5937-simple, the SELECTION-LIST is a static widget here. |
| 5 |
*/ |
| 6 |
DEFINE VARIABLE hList AS CHARACTER NO-UNDO FORMAT "x(200)" |
| 7 |
VIEW-AS SELECTION-LIST |
| 8 |
SINGLE |
| 9 |
LIST-ITEMS "per", "materieel", "materiaal", "dienst" |
| 10 |
INNER-CHARS 10 |
| 11 |
INNER-LINES 4 |
| 12 |
. |
| 13 |
|
| 14 |
DEFINE FRAME hFrame |
| 15 |
hList AT X 10 Y 10 NO-LABEL |
| 16 |
WITH |
| 17 |
FONT 4 |
| 18 |
SCROLLABLE |
| 19 |
SIZE-PIXELS 600 BY 500. |
| 20 |
|
| 21 |
ON VALUE-CHANGED OF hList |
| 22 |
DO: |
| 23 |
MESSAGE "list value changed to: " hList:SCREEN-VALUE. |
| 24 |
END. |
| 25 |
|
| 26 |
// Setting these triggers in OE disables normal mouse operations. |
| 27 |
// In FWD it does not. |
| 28 |
ON DEFAULT-ACTION OF hList |
| 29 |
MESSAGE "ON DEFAULT-ACTION". |
| 30 |
ON LEFT-MOUSE-UP OF hList |
| 31 |
MESSAGE "ON LEFT-MOUSE-UP". |
| 32 |
ON RIGHT-MOUSE-UP OF hList |
| 33 |
MESSAGE "ON RIGHT-MOUSE-UP". |
| 34 |
ON LEFT-MOUSE-DOWN OF hList |
| 35 |
MESSAGE "ON LEFT-MOUSE-DOWN". |
| 36 |
ON RIGHT-MOUSE-DOWN OF hList |
| 37 |
MESSAGE "ON RIGHT-MOUSE-DOWN". |
| 38 |
|
| 39 |
ON LEAVE OF hList |
| 40 |
MESSAGE "ON LEAVE". |
| 41 |
ON TAB OF hList |
| 42 |
MESSAGE "ON TAB". |
| 43 |
ON BACK-TAB OF hList |
| 44 |
MESSAGE "ON BACK-TAB". |
| 45 |
ON F7 OF hList |
| 46 |
MESSAGE "ON F7". |
| 47 |
|
| 48 |
ENABLE ALL WITH FRAME hFrame. |
| 49 |
|
| 50 |
WAIT-FOR CLOSE OF THIS-PROCEDURE. |