;+
;
;  Name: SPD_UI_EXIT
;  
;  Purpose: Exits the GUI
;  
;  Inputs: The info structure from the main gui
;          The event that led to this function call
;
;
;$LastChangedBy: egrimes $
;$LastChangedDate: 2015-06-30 13:45:30 -0700 (Tue, 30 Jun 2015) $
;$LastChangedRevision: 17999 $
;$URL: svn+ssh://thmsvn@ambrosia.ssl.berkeley.edu/repos/spdsoft/tags/spedas_4_0/spedas_gui/utilities/spd_ui_main_funcs/spd_ui_exit.pro $
;-
pro spd_ui_exit,event,info=info

  compile_opt idl2
  
 Print, 'Main SPEDAS GUI exited'
  IF N_Elements(info) NE 0 THEN BEGIN
  
    if obj_valid(info.historyWin) then begin
      info.historyWin->saveHistoryFile
    endif
  
;    obj_destroy,info.historywin
;    Obj_Destroy,info.statusBar
;    Obj_Destroy,info.pathBar
;    obj_destroy,info.drawObject
;    obj_destroy,info.loadedData
;    obj_destroy,info.windowStorage
  ENDIF
  Widget_Control, event.TOP, /Destroy
 ; if logical_true(!journal) then Journal
 ; WHILE !D.Window NE -1 DO WDelete, !D.Window
  if double(!version.release) lt 8 then heap_gc
  RETURN
  
end