PRO testwid_event, event
    DroplistId = widget_info(event.top,find_by_uname = 'c''est lui')
   widget_control, event.id, get_uvalue=uval
   if n_elements(uval) EQ 0 then return
   case uval of
      'done':widget_control, event.top, /destroy
      'set':BEGIN 
         widget_control, event.id, get_value = value
         widget_control, DroplistId, set_value = value
      END
      'get':BEGIN 
         widget_control, DroplistId, get_value = value
         help,  value, /struct
      END
      ELSE:
   endcase
   return
end
PRO testwid, calendar, date0, _extra = ex
   base=widget_base(/COLUMN)
print, 'base=', base
   nothing = widget_label(base, value = 'beginning of the test')
;
   nothing = cw_calendar(base,calendar, date0, _extra = ex, uname = 'c''est lui', uvalue = 'c''est lui' )
print, 'cw_calendar ID =', nothing
;
   nothing = widget_label(base, value = 'end of the test')
    nothing = widget_text(base, value = string(calendar[0]), uvalue = 'set', /editable)
    nothing = widget_button(base, value = 'get', uvalue = 'get')
    nothing = widget_button(base, value = 'done', uvalue = 'done')
   widget_control, base, /REALIZE
   xmanager,'testwid', base
   return
end