| 1 | PRO testwid_event, event |
|---|
| 2 | DroplistId = widget_info(event.top,find_by_uname = 'c''est lui') |
|---|
| 3 | widget_control, event.id, get_uvalue=uval |
|---|
| 4 | if n_elements(uval) EQ 0 then return |
|---|
| 5 | case uval of |
|---|
| 6 | 'done':widget_control, event.top, /destroy |
|---|
| 7 | 'set':BEGIN |
|---|
| 8 | widget_control, event.id, get_value = value |
|---|
| 9 | widget_control, DroplistId, set_value = value |
|---|
| 10 | END |
|---|
| 11 | 'get':BEGIN |
|---|
| 12 | widget_control, DroplistId, get_value = value |
|---|
| 13 | help, value, /struct |
|---|
| 14 | END |
|---|
| 15 | ELSE: |
|---|
| 16 | endcase |
|---|
| 17 | return |
|---|
| 18 | end |
|---|
| 19 | PRO testwid, calendar, date0, _extra = ex |
|---|
| 20 | base=widget_base(/COLUMN) |
|---|
| 21 | print, 'base=', base |
|---|
| 22 | nothing = widget_label(base, value = 'beginning of the test') |
|---|
| 23 | ; |
|---|
| 24 | nothing = cw_calendar(base,calendar, date0, _extra = ex, uname = 'c''est lui', uvalue = 'c''est lui' ) |
|---|
| 25 | print, 'cw_calendar ID =', nothing |
|---|
| 26 | ; |
|---|
| 27 | nothing = widget_label(base, value = 'end of the test') |
|---|
| 28 | nothing = widget_text(base, value = string(calendar[0]), uvalue = 'set', /editable) |
|---|
| 29 | nothing = widget_button(base, value = 'get', uvalue = 'get') |
|---|
| 30 | nothing = widget_button(base, value = 'done', uvalue = 'done') |
|---|
| 31 | widget_control, base, /REALIZE |
|---|
| 32 | xmanager,'testwid', base |
|---|
| 33 | return |
|---|
| 34 | end |
|---|
