;+ ;NAME: ; omni_fileconfig ; ;PURPOSE: ; A widget that allows the user to set some of the !omni variable. The user ; can resettodefault, modify, and save the system variable. ; ;$LastChangedBy: aaflores $ ;$LastChangedDate: 2015-06-19 18:59:28 -0700 (Fri, 19 Jun 2015) $ ;$LastChangedRevision: 17927 $ ;$URL: svn+ssh://thmsvn@ambrosia.ssl.berkeley.edu/repos/spdsoft/tags/spedas_4_0/projects/omni/omni_fileconfig.pro $ ;-------------------------------------------------------------------------------- pro spd_ui_omni_init_struct,state,struct compile_opt idl2,hidden widget_control,state.localdir,set_value=struct.local_data_dir widget_control,state.remotedir,set_value=struct.remote_data_dir if struct.no_download eq 1 then begin widget_control,state.nd_off_button,set_button=1 endif else begin widget_control,state.nd_on_button,set_button=1 endelse if struct.no_update eq 1 then begin widget_control,state.nu_off_button,set_button=1 endif else begin widget_control,state.nu_on_button,set_button=1 endelse if struct.downloadonly eq 1 then begin widget_control,state.do_on_button,set_button=1 endif else begin widget_control,state.do_off_button,set_button=1 endelse widget_control,state.v_droplist,set_combobox_select=struct.verbose end PRO omni_fileconfig_event, event ; Get State structure from top level base Widget_Control, event.handler, Get_UValue=state, /No_Copy ; get the user value of the widget that caused this event err_xxx = 0 Catch, err_xxx IF (err_xxx NE 0) THEN BEGIN Catch, /Cancel Help, /Last_Message state.statusbar->update,'Error in File Config.' state.historywin->update,'Error in File Config.' Widget_Control, event.TOP, Set_UValue=state, /No_Copy widget_control, event.top,/destroy RETURN ENDIF Widget_Control, event.id, Get_UValue = uval CASE uval OF 'LOCALBROWSE':BEGIN ; display the file chooser window so the user can select the ; directory where they want their data files to reside widget_control, state.localDir, get_value=currentDir if currentDir ne '' then path = file_dirname(currentDir) dirName = Dialog_Pickfile(Title='Choose a Local Data Directory:', $ Dialog_Parent=state.master,path=currentDir, /directory, /must_exist); /fix_filter doesn't seem to make a difference on Windows. Does on unix. ; check to make sure the file selected actually is a tgt file IF is_string(dirName) THEN BEGIN !omni.local_data_dir = dirName widget_control, state.localDir, set_value=dirName ENDIF ELSE BEGIN ; ok = dialog_message('Selection is not a directory',/center) ENDELSE END 'LOCALDIR': BEGIN widget_control, state.localDir, get_value=currentDir !omni.local_data_dir = currentDir END 'REMOTEDIR': BEGIN widget_control, state.remoteDir, get_value=currentDir !omni.remote_data_dir = currentDir END 'NDON': BEGIN IF event.select EQ 1 then !omni.no_download=0 else !omni.no_download=1 END 'NDOFF': BEGIN IF event.select EQ 1 then !omni.no_download=1 else !omni.no_download=0 END 'NUON': BEGIN IF event.select EQ 1 then !omni.no_update=0 else !omni.no_update=1 END 'NUOFF': BEGIN IF event.select EQ 1 then !omni.no_update=1 else !omni.no_update=0 END 'DOON': BEGIN IF event.select EQ 1 then !omni.downloadonly=1 else !omni.downloadonly=0 END 'DOOFF': BEGIN IF event.select EQ 1 then !omni.downloadonly=0 else !omni.downloadonly=1 END 'VERBOSE': BEGIN !omni.verbose = long(widget_info(state.v_droplist,/combobox_gettext)) END 'RESET': BEGIN ; this is basically a cancel and will reset all values to ; the original values at the time this window was first ; displayed !omni=state.omni_cfg_save widget_control,state.localdir,set_value=!omni.local_data_dir widget_control,state.remotedir,set_value=!omni.remote_data_dir if !omni.no_download eq 1 then begin widget_control,state.nd_off_button,set_button=1 endif else begin widget_control,state.nd_on_button,set_button=1 endelse if !omni.no_update eq 1 then begin widget_control,state.nu_off_button,set_button=1 endif else begin widget_control,state.nu_on_button,set_button=1 endelse if !omni.downloadonly eq 1 then begin widget_control, state.do_on_button, set_button=1 endif else begin widget_Control, state.do_off_button, set_button=1 endelse widget_control,state.v_droplist,set_combobox_select=!omni.verbose state.historywin->update,'Resetting controls to saved values.' state.statusbar->update,'Resetting controls to saved values.' END 'RESETTODEFAULT': Begin omni_init, /reset spd_ui_omni_init_struct,state,!omni state.historywin->update,'Resetting configuration to default values.' state.statusbar->update,'Resetting configuration to default values.' END 'SAVE': BEGIN omni_write_config state.statusBar->update,'Saved omni_config.txt' state.historyWin->update,'Saved omni_config.txt' END ELSE: ENDCASE widget_control, event.handler, set_uval = state, /no_copy Return END ;-------------------------------------------------------------------------------- PRO omni_fileconfig, tab_id, historyWin, statusBar ;check whether the !omni system variable has been initialized defsysv, '!omni', exists=exists if not keyword_set(exists) then omni_init omni_cfg_save = !omni ;Build the widget bases master = Widget_Base(tab_id, /col, tab_mode=1,/align_left, /align_top) ;widget base for values to set vmaster = widget_base(master, /col, /align_left, /align_top) top = widget_base(vmaster,/row) ;Widget base for save, reset and exit buttons bmaster = widget_base(master, /row, /align_center, ypad=7) ll = max(strlen([!omni.local_data_dir, !omni.remote_data_dir]))+12 ;Now create directory text widgets configbase = widget_base(vmaster,/col) lbase = widget_base(configbase, /row, /align_left, ypad=5) flabel = widget_label(lbase, value = 'Local data directory: ') localdir = widget_text(lbase, /edit, /all_events, xsiz = ll, $ uval = 'LOCALDIR', val = !omni.local_data_dir) loc_browsebtn = widget_button(lbase,value='Browse', uval='LOCALBROWSE',/align_center) rbase = widget_base(configbase, /row, /align_left, ypad=5) flabel = widget_label(rbase, value = 'Remote data directory: ') remotedir = widget_text(rbase, /edit, /all_events, xsiz = ll, $ uval = 'REMOTEDIR', val = !omni.remote_data_dir) ;Next radio buttions nd_base = widget_base(configbase, /row, /align_left) nd_labelbase = widget_base(nd_base,/col,/align_center) nd_label = widget_label(nd_labelbase, value='Download Data:',/align_left, xsize=95) nd_buttonbase = widget_base(nd_base, /exclusive, column=2, uval="ND",/align_center) nd_on_button = widget_button(nd_buttonbase, value='Automatically ', uval='NDON',/align_left,xsize=120) nd_off_button = widget_button(nd_buttonbase, value='Use Local Data Only', uval='NDOFF',/align_left) nubase = widget_base(configbase, /row, /align_left) nu_labelbase = widget_base(nubase,/col,/align_center) nu_label = widget_label(nu_labelbase, value='Update Files:',/align_left, xsize=95) nu_buttonbase = widget_base(nubase, /exclusive, column=2, uval="NU",/align_center) nu_on_button = widget_button(nu_buttonbase, value='Update if Newer ', uval='NUON',/align_left,xsize=120) nu_off_button = widget_button(nu_buttonbase, value='Use Local Data Only', uval='NUOFF',/align_left) ;downloadonly option do_base = widget_base(configbase, /row, /align_left) do_labelbase = widget_base(do_base, /col, /align_center) do_label = widget_label(do_labelbase, value='Load into GUI:', /align_left, xsize=95) do_buttonbase = widget_base(do_base, /exclusive, column=2, uval='DO',/align_center) do_off_button = widget_button(do_buttonbase, value='Load data', uval='DOOFF', /align_left, xsize=120) do_on_button = widget_button(do_buttonbase, value='Download Files Only', uval='DOON', /align_left, xsize=120) ;Verbosity v_base = widget_base(configbase, /row, ypad=7) v_label = widget_label(v_base, value='Verbose (higher value = more comments): ') v_values = ['0', '1', '2','3', '4', '5', '6', '7', '8', '9', '10'] v_droplist = widget_Combobox(v_base, value=v_values, uval='VERBOSE', /align_center) ;buttons savebut = widget_button(bmaster, value = ' Save to File ', uvalue = 'SAVE') resetbut = widget_button(bmaster, value = ' Cancel ', uvalue = 'RESET') reset_to_dbutton = widget_button(bmaster, value = ' Reset to Default ', uvalue = 'RESETTODEFAULT') ;defaults for reset: def_values=[0,0,0,2] state = {localdir:localdir, master:master, remotedir:remotedir, omni_cfg_save:omni_cfg_save, $ nd_on_button:nd_on_button, nd_off_button:nd_off_button, $ nu_on_button:nu_on_button, nu_off_button:nu_off_button, $ do_on_button:do_on_button, do_off_button:do_off_button, $ v_values:v_values, v_droplist:v_droplist, statusBar:statusBar, $ def_values:def_values, historyWin:historyWin, tab_id:tab_id} spd_ui_omni_init_struct,state,!omni widget_control, master, set_uval = state, /no_copy widget_control, master, /realize ; msg = 'Editing omni configuration.' ; statusBar->update,msg ; historywin->update, msg ;keep windows in X11 from snaping back to ;center during tree widget events if !d.NAME eq 'X' then begin widget_control, master, xoffset=0, yoffset=0 endif xmanager, 'omni_fileconfig', master, /no_block END ;--------------------------------------------------------------------------------