gui_rmb_focus2.p
| 1 |
def var cb as logical view-as toggle-box. |
|---|---|
| 2 |
def var ch1 as character. |
| 3 |
def var editor1 as character view-as editor size 20 by 2 label "Editor 1". |
| 4 |
def var slider1 as integer initial 1 view-as slider |
| 5 |
min-value 1 max-value 10 horizontal size-chars 20 by 2. |
| 6 |
def var sel1 as character label "Sel1" initial "Item 1" view-as selection-list single |
| 7 |
list-items "Item 1", "Item 2", "Item 3", "Item 4", "Item 5" |
| 8 |
scrollbar-vertical inner-chars 15 inner-lines 3. |
| 9 |
|
| 10 |
def var rb as integer initial 1 |
| 11 |
view-as radio-set |
| 12 |
radio-buttons "--1--", 1, "--2--", 2, "--3--", 3. |
| 13 |
|
| 14 |
def var comb1 as character |
| 15 |
view-as combo-box |
| 16 |
list-items "Combo1", "Combo2", "Combo3". |
| 17 |
|
| 18 |
def button btn-exit label "Exit". |
| 19 |
|
| 20 |
def frame frame1 ch1 skip(1) cb skip(1) rb skip(1) comb1 skip(1) editor1 skip(1) slider1 skip(1) sel1 skip(1) btn-exit with side-labels centered. |
| 21 |
|
| 22 |
frame frame1:height-pixels = 450. |
| 23 |
frame frame1:width-pixels = 360. |
| 24 |
|
| 25 |
enable all with frame frame1. |
| 26 |
|
| 27 |
on entry of cb |
| 28 |
do: |
| 29 |
message "Focus cb". |
| 30 |
end. |
| 31 |
|
| 32 |
on entry of ch1 |
| 33 |
do: |
| 34 |
message "Focus ch1". |
| 35 |
end. |
| 36 |
|
| 37 |
on entry of rb |
| 38 |
do: |
| 39 |
message "Focus rb". |
| 40 |
end. |
| 41 |
|
| 42 |
on entry of comb1 |
| 43 |
do: |
| 44 |
message "Focus comb1". |
| 45 |
end. |
| 46 |
|
| 47 |
on entry of editor1 |
| 48 |
do: |
| 49 |
message "Focus editor1". |
| 50 |
end. |
| 51 |
|
| 52 |
on entry of slider1 |
| 53 |
do: |
| 54 |
message "Focus slider1". |
| 55 |
end. |
| 56 |
|
| 57 |
on entry of sel1 |
| 58 |
do: |
| 59 |
message "Focus selection-list1". |
| 60 |
end. |
| 61 |
|
| 62 |
|
| 63 |
wait-for choose of btn-exit. |