PRO get_text_event,event
;-------------------------------------------------------------------
;   This procedure manages events generated by the get_text GUI
;-------------------------------------------------------------------
common textblock,text

widget_control,event.id,GET_UVALUE=uvalue
print,"get_text event uvalue:",uvalue

case uvalue of
  'done' : begin
    WIDGET_CONTROL,event.top,GET_UVALUE=text_widget
    WIDGET_CONTROL,text_widget,GET_VALUE=text
    WIDGET_CONTROL,event.top,/DESTROY
   end
endcase

return
end