pro wtext_event,event
widget_control,event.id,get_uvalue=widget
case widget of 
  'CANCEL': widget_control,event.top,/destroy
  'TEXT': begin
    if event.type eq 0 then begin
;     print,'event.ch (byte)  =$',event.ch,'$'
;     print,'event.ch (string)=$',string(event.ch),'$'
      if event.ch eq 10 then begin
        print,'Carriage Return'
      endif
    endif
    
    widget_control,event.id,get_value=text
    print,' '
    print,'Text = ' & print,text,format='(a)'
  end
  else: print,'unknown event widget=',widget 
endcase
end
;-----------------------------------------------------------------------
pro wtext
  tlb = widget_base(column=1)
  wtext = widget_text(tlb,/editable,xsize=75,ysize=50,/scroll,/all_events,$
  uvalue='TEXT',value=['Line 1','Line 2','Line 3'])
  cancel = widget_button(tlb,value='CANCEL',uvalue='CANCEL')
  widget_control,tlb,/realize
  xmanager,'wtext',tlb,/no_block
end