PRO Main_Event, event
Widget_Control, event.top, /Destroy
END

PRO Main
tlb = Widget_Base(Column=1)
button = Widget_Button(tlb, Value='Done')
field = CW_Field(tlb, Title='Comment:', $
   Value='Widget Programming is FUN!', $
   UValue='FIELD', XSize=30)
Widget_Control, tlb, /Realize
XManager, 'main', tlb
END