;+ ; Contains the request procedure ; and associated procedures ; ; :Author: ; Gaëlle Boisnard ; ; :History: ; 2005/10/05: Created ; ; 2005/10/05: Last Edit ;- ; ;+ ; Launch the process of getting the data with the wanted parameters, ; once the user agreed on the filename ;- PRO on_accept_filename, ev common R_MODE, selectedmode, tabfileinter common R_LOG, r_infomode_txt, r_infolog_txt common RDATA, r_df_but1, r_df_but2, r_df_but3a, r_df_but3b, r_df_but3c, $ r_df_but3d, r_df_but3e, r_df_but3, r_data_filename_txt, r_data_filename_but, r_bands_Abut, $ r_bands_Bbut, r_bands_Cbut,r_bands_H1but, r_bands_H2but t1=systime(/seconds) widget_control, ev.id, sensitive=0 workpath=getenv('ROOT_RPWS') ;--------------------------------------- ; Bands output ;--------------------------------------- bands=widget_info(r_bands_Abut, /button_set)+2*widget_info(r_bands_Bbut, /button_set)+ $ 4*widget_info(r_bands_Cbut, /button_set)+8*widget_info(r_bands_H1but, /button_set)+ $ 16*widget_info(r_bands_H2but, /button_set) widget_control, r_data_filename_txt, get_value=filename case (strmid(filename, 0, 1))[0] of 'R': begin a=get_n1datarecords(workpath+filename, *tabfileinter, bands) end 'P': begin a=get_n2datarecords(workpath+filename, *tabfileinter, bands) end else: begin widget_control, r_infolog_txt, set_value='The first letter of the name must be', /append widget_control, r_infolog_txt, set_value=' R if N1 data', /append widget_control, r_infolog_txt, set_value=' P if N2 data', /append widget_control, r_infolog_txt, set_value=' N3 if N3 data', /append end endcase print, systime(/seconds)-t1 widget_control, r_data_filename_txt, set_value='' widget_control, r_infolog_txt, set_value='The file '+filename+' has been created', /append widget_control, r_infolog_txt, set_value='The file '+filename+'.b has been created', /append ptr_free, tabfileinter end ;+ ; Changes in the widget application when the ABC band is selected ;- PRO r_ABCband, ev common comABC, r_ABC_list1, r_ABC_list2, r_ABC_list3, r_ABC_list4, r_ABC_list5, r_ABC_list6, $ r_ABC_list7, r_ABC_list8, r_ABC_list9 if (ev.index ne 0) then begin widget_control, r_ABC_list2, /sensitive widget_control, r_ABC_list3, /sensitive widget_control, r_ABC_list4, /sensitive widget_control, r_ABC_list5, /sensitive widget_control, r_ABC_list6, /sensitive widget_control, r_ABC_list7, /sensitive widget_control, r_ABC_list8, /sensitive widget_control, r_ABC_list9, /sensitive endif else begin widget_control, r_ABC_list2, sensitive=0 widget_control, r_ABC_list3, sensitive=0 widget_control, r_ABC_list4, sensitive=0 widget_control, r_ABC_list5, sensitive=0 widget_control, r_ABC_list6, sensitive=0 widget_control, r_ABC_list7, sensitive=0 widget_control, r_ABC_list8, sensitive=0 widget_control, r_ABC_list9, sensitive=0 endelse end ;+ ; Changes in the widget application when the H1 band is selected ;- PRO r_H1band, ev common ComH1, r_H1_list1, r_H1_list2, r_H1_list3, r_H1_list4, r_H1_list5, r_H1_list6, $ r_H1_list7, r_H1_list8, r_H1_list9, r_H1_list10b, r_H1_list10c, r_H1_list11b, r_H1_list11c, $ r_H1_list12 if (ev.index ne 0) then begin widget_control, r_H1_list2, /sensitive widget_control, r_H1_list3, /sensitive widget_control, r_H1_list4, /sensitive widget_control, r_H1_list5, /sensitive widget_control, r_H1_list6, /sensitive widget_control, r_H1_list7, /sensitive widget_control, r_H1_list8, /sensitive widget_control, r_H1_list9, /sensitive widget_control, r_H1_list10b, /sensitive widget_control, r_H1_list10c, /sensitive widget_control, r_H1_list11b, /sensitive widget_control, r_H1_list11c, /sensitive widget_control, r_H1_list12, /sensitive endif else begin widget_control, r_H1_list2, sensitive=0 widget_control, r_H1_list3, sensitive=0 widget_control, r_H1_list4, sensitive=0 widget_control, r_H1_list5, sensitive=0 widget_control, r_H1_list6, sensitive=0 widget_control, r_H1_list7, sensitive=0 widget_control, r_H1_list8, sensitive=0 widget_control, r_H1_list9, sensitive=0 widget_control, r_H1_list10b, sensitive=0 widget_control, r_H1_list10c, sensitive=0 widget_control, r_H1_list11b, sensitive=0 widget_control, r_H1_list11c, sensitive=0 widget_control, r_H1_list12, sensitive=0 endelse end ;+ ; Changes in the widget application when the H2 band is selected ;- PRO r_H2band, ev common comH2, r_H2_list1, r_H2_list2, r_H2_list3, r_H2_list4, r_H2_list5, r_H2_list6, $ r_H2_list7, r_H2_list8, r_H2_list9, r_H2_list10b, r_H2_list10c, r_H2_list11b, r_H2_list11c, $ r_H2_list12 if (ev.index ne 0) then begin widget_control, r_H2_list2, /sensitive widget_control, r_H2_list3, /sensitive widget_control, r_H2_list4, /sensitive widget_control, r_H2_list5, /sensitive widget_control, r_H2_list6, /sensitive widget_control, r_H2_list7, /sensitive widget_control, r_H2_list8, /sensitive widget_control, r_H2_list9, /sensitive widget_control, r_H2_list10b, /sensitive widget_control, r_H2_list10c, /sensitive widget_control, r_H2_list11b, /sensitive widget_control, r_H2_list11c, /sensitive widget_control, r_H2_list12, /sensitive endif else begin widget_control, r_H2_list2, sensitive=0 widget_control, r_H2_list3, sensitive=0 widget_control, r_H2_list4, sensitive=0 widget_control, r_H2_list5,sensitive=0 widget_control, r_H2_list6, sensitive=0 widget_control, r_H2_list7, sensitive=0 widget_control, r_H2_list8,sensitive=0 widget_control, r_H2_list9, sensitive=0 widget_control, r_H2_list10b,sensitive=0 widget_control, r_H2_list10c,sensitive=0 widget_control, r_H2_list11b, sensitive=0 widget_control, r_H2_list11c, sensitive=0 widget_control, r_H2_list12, sensitive=0 endelse end ;+ ; Exit procedure of the request application ;- PRO r_exit, ev common COM widget_control, r_Wind, /destroy r_Wind=0 end ;+ ; Call the functions which give the description of the selected ; directory ;- PRO r_list_onclick, ev common COM3, r_list, r_list_lst index=ev.index directory=(*((*r_list)->getnameslist()))[index] answer=getfiles(directory) end PRO request_event, ev end ;+ ; Description of the request window ; ; :Uses: ; getfiles, get_n1datarecords, get_n2datarecords ;- PRO request r_base=widget_base(event_pro='r_exit', /row) common COM common MODE_TAB, bandname, antenX, antenZ, OnOff, timeinteg, sign, modetab, datalevel, freqfilt common COM3, r_list, r_list_lst common comABC, r_ABC_list1, r_ABC_list2, r_ABC_list3, r_ABC_list4, r_ABC_list5, r_ABC_list6, $ r_ABC_list7, r_ABC_list8, r_ABC_list9 common ComH1, r_H1_list1, r_H1_list2, r_H1_list3, r_H1_list4, r_H1_list5, r_H1_list6, $ r_H1_list7, r_H1_list8, r_H1_list9, r_H1_list10b, r_H1_list10c, r_H1_list11b, r_H1_list11c, $ r_H1_list12 common comH2, r_H2_list1, r_H2_list2, r_H2_list3, r_H2_list4, r_H2_list5, r_H2_list6, $ r_H2_list7, r_H2_list8, r_H2_list9, r_H2_list10b, r_H2_list10c, r_H2_list11b, r_H2_list11c, $ r_H2_list12 common RTIME, r_time_from_txt, r_time_to_txt ;common RMODE, common RDATA, r_df_but1, r_df_but2, r_df_but3a, r_df_but3b, r_df_but3c, r_df_but3d, r_df_but3e, $ r_df_but3, r_data_filename_txt, r_data_filename_but, r_bands_Abut, r_bands_Bbut, r_bands_Cbut, $ r_bands_H1but, r_bands_H2but common RMODE_CYCLE, r_mode_list, r_cycle_txt1, r_cycle_txt2 common R_LOG, r_infomode_txt, r_infolog_txt bandname=['-', 'ABC', '-', 'H1', '-','H2'] antenX=['-', '+X', '-X', string(177b)+'X', 'Off'] antenZ=['-', 'Z', 'Off'] freqfilt=['-', '8', '16', '32', '-', '1', '2', '4', '8'] OnOff=['-', 'On', 'Off'] timeinteg=['-', '125 ms', '250 ms', '500 ms', '1000 ms', '-', '20 ms', '40 ms', '80 ms', '160 ms', $ '-', '10 ms', '20 ms', '40 ms', '180 ms'] sign=['=', '>=', '=', '<='] modetab=['-', 'Analysis', 'Sounder', 'Calibration', 'Millisecond'] datalevel=['K', 'N1', 'N2', 'N3a', 'N3b', 'N3c', 'N3d', 'N3'] r_list=ptr_new(obj_new('displaylist', *mlist)) if (ptr_valid(*r_list->getnameslist())) then begin r_list1=*(*r_list->getnameslist()) endif else begin r_list1=[''] endelse r_Wind=widget_base(kill_notify='r_exit', units=2, xsize=41.5, ysize=34, x_scroll_size=40, y_scroll_size=30, $ xpad=0.5, ypad=0.5, /row, /scroll, group_leader=mWind, title='REQUEST') r_list_base=widget_base(r_Wind, /column) r_list_lbl=widget_label(r_list_base, value='Files') r_list_lst=widget_list(r_list_base, value=r_list1, event_pro='r_list_onclick', units=2, $ xsize=15, ysize=30) r_update_but=widget_button(r_list_base, value='Update', event_pro='on_r_update') r_base_request=widget_base(r_Wind, /column) r_base_mode=widget_base(r_base_request, frame=1, /column) r_ABC_lbl=widget_label(r_base_mode, value='ABC Band', /align_center) r_ABC_base=widget_base(r_base_mode, /row) r_ABC_base1=widget_base(r_ABC_base, units=2, xsize=2, /column) r_ABC_lbl1=widget_label(r_ABC_base1, value='Band') r_ABC_list1=widget_droplist(r_ABC_base1, value=bandname(0:1), $ event_pro='r_ABCband') r_ABC_base2=widget_base(r_ABC_base, units=2, xsize=2.5, /column) r_ABC_lbl2=widget_label(r_ABC_base2, value='Antenna X') r_ABC_list2=widget_droplist(r_ABC_base2, value=antenX, units=2, xsize=2.5, $ sensitive=0) r_ABC_base3=widget_base(r_ABC_base, units=2, xsize=2.5, /column) r_ABC_lbl3=widget_label(r_ABC_base3, value='Antenna Z') r_ABC_list3=widget_droplist(r_ABC_base3, value=antenZ, units=2, xsize=2.5, $ sensitive=0) r_ABC_base4=widget_base(r_ABC_base, units=2, xsize=2.5, /column) r_ABC_lbl4=widget_label(r_ABC_base4, value='N freq/filter') r_ABC_list4=widget_droplist(r_ABC_base4, value=freqfilt(0:3), sensitive=0) r_ABC_base5=widget_base(r_ABC_base, units=2, xsize=2, /column) r_ABC_lbl5=widget_label(r_ABC_base5, value='auto') r_ABC_list5=widget_droplist(r_ABC_base5, value=onoff, sensitive=0) r_ABC_base6=widget_base(r_ABC_base, units=2, xsize=2, /column) r_ABC_lbl6=widget_label(r_ABC_base6, value='cross') r_ABC_list6=widget_droplist(r_ABC_base6,value=onoff, sensitive=0) r_ABC_base7=widget_base(r_ABC_base, units=2, xsize=2, /column) r_ABC_lbl7=widget_label(r_ABC_base7, value='Df') r_ABC_list7=widget_droplist(r_ABC_base7,value=onoff, sensitive=0) r_ABC_base8=widget_base(r_ABC_base, units=2, xsize=3.5, /column) r_ABC_lbl8=widget_label(r_ABC_base8,value='Integration time') r_ABC_list8=widget_droplist(r_ABC_base8, value=timeinteg(0:4), sensitive=0) r_ABC_base9=widget_base(r_ABC_base, units=2, xsize=3, /column) r_ABC_lbl9=widget_label(r_ABC_base9, value='Repeat Count') r_ABC_list9=widget_text(r_ABC_base9, value='', sensitive=0, /editable) ; ---------------------------------------------- ; Band H1 ;----------------------------------------------- r_H1_lbl=widget_label(r_base_mode, value='H1 Band', /align_center) r_H1_base=widget_base(r_base_mode, /row) r_H1_base0=widget_base(r_H1_base, /column) r_H1_base1=widget_base(r_H1_base, units=2, xsize=2, /column) r_H1_lbl1=widget_label(r_H1_base1, value='Band') r_H1_base1a=widget_base(r_H1_base1, /row) r_H1_list1=widget_droplist(r_H1_base1a, value=bandname(2:3), event_pro='r_H1band') r_H1_base2=widget_base(r_H1_base, units=2, xsize=2.5, /column) r_H1_lbl2=widget_label(r_H1_base2, value='Antenna X') r_H1_base2a=widget_base(r_H1_base2, /row) r_H1_list2=widget_droplist(r_H1_base2a, value=antenX, sensitive=0) r_H1_base3=widget_base(r_H1_base, units=2, xsize=2.5, /column) r_H1_lbl3=widget_label(r_H1_base3, value='Antenna Z') r_H1_base3a=widget_base(r_H1_base3, /row) r_H1_list3=widget_droplist(r_H1_base3a, value=antenZ, sensitive=0) r_H1_base4=widget_base(r_H1_base, units=2, xsize=2.5, /column) r_H1_lbl4=widget_label(r_H1_base4, value='N freq/filter') r_H1_base4a=widget_base(r_H1_base4, /row) r_H1_list4=widget_droplist(r_H1_base4a, value=freqfilt(4:8), sensitive=0) r_H1_base5=widget_base(r_H1_base, units=2, xsize=2, /column) r_H1_lbl5=widget_label(r_H1_base5, value='auto') r_H1_base5a=widget_base(r_H1_base5, /row) r_H1_list5=widget_droplist(r_H1_base5a, value=onoff, sensitive=0) r_H1_base6=widget_base(r_H1_base, units=2, xsize=2, /column) r_H1_lbl6=widget_label(r_H1_base6, value='cross') r_H1_base6a=widget_base(r_H1_base6, /row) r_H1_list6=widget_droplist(r_H1_base6a, value=onoff, sensitive=0) r_H1_base7=widget_base(r_H1_base, units=2, xsize=2, /column) r_H1_lbl7=widget_label(r_H1_base7, value='Df') r_H1_base7a=widget_base(r_H1_base7, /row) r_H1_list7=widget_droplist(r_H1_base7a, value=onoff, sensitive=0) r_H1_base8=widget_base(r_H1_base, units=2, xsize=3, /column) r_H1_lbl8=widget_label(r_H1_base8, value='Integration time') r_H1_base8a=widget_base(r_H1_base8, /row) r_H1_list8=widget_droplist(r_H1_base8a, value=timeinteg(5:9), sensitive=0) r_H1_base9=widget_base(r_H1_base, units=2, xsize=3, /column) r_H1_lbl9=widget_label(r_H1_base9, value='Repeat Count') r_H1_base9a=widget_base(r_H1_base9, /row) r_H1_list9=widget_text(r_H1_base9a, value='', sensitive=0, /editable) r_H1_base10=widget_base(r_H1_base, units=2, xsize=4, /column) r_H1_lbl10=widget_label(r_H1_base10, value='Fmin') r_H1_base10a=widget_base(r_H1_base10, /row) r_H1_list10b=widget_droplist(r_H1_base10a, value=sign(0:1), sensitive=0) r_H1_list10c=widget_text(r_H1_base10a, value='', sensitive=0, /editable) r_H1_base11=widget_base(r_H1_base, units=2, xsize=4, /column) r_H1_lbl11=widget_label(r_H1_base11, value='Fmax') r_H1_base11a=widget_base(r_H1_base11, /row) r_H1_list11b=widget_droplist(r_H1_base11a, value=sign(2:3), sensitive=0) r_H1_list11c=widget_text(r_H1_base11a, value='', sensitive=0, /editable) r_H1_base12=widget_base(r_H1_base, units=2, xsize=2.5, /column) r_H1_lbl12=widget_label(r_H1_base12, value='Step (*25kHz)') r_H1_base12a=widget_base(r_H1_base12, /row) r_H1_list12=widget_text(r_H1_base12, value='', /editable, sensitive=0) ; ---------------------------------------------- ; Band H2 ;----------------------------------------------- H2_lbl=widget_label(r_base_mode, value='H2 Band', /align_center) r_H2_base=widget_base(r_base_mode, /row) r_H2_base1=widget_base(r_H2_base, units=2, xsize=2, /column) r_H2_lbl1=widget_label(r_H2_base1, value='Band') r_H2_base1a=widget_base(r_H2_base1, /row) r_H2_list1=widget_droplist(r_H2_base1a, value=bandname(4:5), event_pro='r_H2band') r_H2_base2=widget_base(r_H2_base, units=2, xsize=2.5, /column) r_H2_lbl2=widget_label(r_H2_base2, value='Antenna X') r_H2_base2a=widget_base(r_H2_base2, /row) r_H2_list2=widget_droplist(r_H2_base2a, value=antenX, sensitive=0) r_H2_base3=widget_base(r_H2_base, units=2, xsize=2.5, /column) r_H2_lbl3=widget_label(r_H2_base3, value='Antenna Z') r_H2_base3a=widget_base(r_H2_base3, /row) r_H2_list3=widget_droplist(r_H2_base3a, value=antenZ, sensitive=0) r_H2_base4=widget_base(r_H2_base, units=2, xsize=2.5, /column) r_H2_lbl4=widget_label(r_H2_base4, value='N freq/filter') r_H2_base4a=widget_base(r_H2_base4, /row) r_H2_list4=widget_droplist(r_H2_base4a, value=freqfilt(4:8), sensitive=0) r_H2_base5=widget_base(r_H2_base, units=2, xsize=2, /column) r_H2_lbl5=widget_label(r_H2_base5, value='auto') r_H2_base5a=widget_base(r_H2_base5, /row) r_H2_list5=widget_droplist(r_H2_base5a, value=onoff, sensitive=0) r_H2_base6=widget_base(r_H2_base, units=2, xsize=2, /column) r_H2_lbl6=widget_label(r_H2_base6, value='cross') r_H2_base6a=widget_base(r_H2_base6, /row) r_H2_list6=widget_droplist(r_H2_base6a, value=onoff, sensitive=0) r_H2_base7=widget_base(r_H2_base, units=2, xsize=2, /column) r_H2_lbl7=widget_label(r_H2_base7, value='Df') r_H2_base7a=widget_base(r_H2_base7, /row) r_H2_list7=widget_droplist(r_H2_base7, value=onoff, sensitive=0) r_H2_base8=widget_base(r_H2_base, units=2, xsize=3, /column) r_H2_lbl8=widget_label(r_H2_base8, value='Integration time') r_H2_base8a=widget_base(r_H2_base8, /row) r_H2_list8=widget_droplist(r_H2_base8a, value=timeinteg(10:14), sensitive=0) r_H2_base9=widget_base(r_H2_base, units=2, xsize=3, /column) r_H2_lbl19=widget_label(r_H2_base9, value='Repeat Count') r_H2_base9a=widget_base(r_H2_base9, /row) r_H2_list9=widget_text(r_H2_base9a, value='', sensitive=0, /editable) r_H2_base10=widget_base(r_H2_base, units=2, xsize=4, /column) r_H2_lbl10=widget_label(r_H2_base10, value='Fmin') r_H2_base10a=widget_base(r_H2_base10, /row) r_H2_list10b=widget_droplist(r_H2_base10a, value=sign(0:1), sensitive=0) r_H2_list10c=widget_text(r_H2_base10a, value='', sensitive=0, /editable) r_H2_base11=widget_base(r_H2_base, units=2, xsize=4, /column) r_H2_lbl11=widget_label(r_H2_base11, value='Fmax') r_H2_base11a=widget_base(r_H2_base11, /row) r_H2_list11b=widget_droplist(r_H2_base11a, value=sign(2:3), /align_top, sensitive=0) r_H2_list11c=widget_text(r_H2_base11a, value='',sensitive=0, /align_top, /editable) r_H2_base12=widget_base(r_H2_base, units=2, xsize=2.5, /column) r_H2_lbl12=widget_label(r_H2_base12, value='Step (*50kHz)') r_H2_base12a=widget_base(r_H2_base12, /row) r_H2_list12=widget_text(r_H2_base12a, value='', /editable, sensitive=0) ;----------------------------------------- ; Mode: A:analysis, S: sond, C: calibration, M: ms ;----------------------------------------- r_mode_base=widget_base(r_base_request, frame=1, /column) r_mode_lbl=widget_label(r_mode_base, value='Mode') r_mode_list=widget_droplist(r_mode_base, value=modetab) ;----------------------------------------- ; Duration of the cycle ;----------------------------------------- r_cycle_base=widget_base(r_base_request, frame=1, /column) r_cycle_lbl=widget_label(r_cycle_base, value='Duration of the cycle (s)') r_cycle_base1=widget_base(r_cycle_base, /row) r_cycle_lbl1=widget_label(r_cycle_base1, value='between') r_cycle_txt1=widget_text(r_cycle_base1, value='', /editable) r_cycle_lbl2=widget_label(r_cycle_base1, value='and') r_cycle_txt2=widget_text(r_cycle_base1, value='', /editable) ;----------------------------------------- ; Definition of the time interval ;----------------------------------------- r_base_timeinter=widget_base(r_base_request, frame=1, /column) r_time_lbl=widget_label(r_base_timeinter, value='Select the time interval') r_time_lbl1=widget_label(r_base_timeinter, $ value='Format: yyyy/mm/dd hh:mm:ss or yyyy//ddd hh:mm:ss') r_time_base=widget_base(r_base_timeinter, /row) r_time_from_txt=widget_text(r_time_base, value='', /editable) r_to_lbl=widget_label(r_time_base, value='to') r_time_to_txt=widget_text(r_time_base, value='', /editable) ;----------------------------------------- ; Description of the output format ;----------------------------------------- r_base_data=widget_base(r_base_request, frame=1, /row) r_output_base=widget_base(r_base_data, frame=1, /column) r_dataform_lbl=widget_label(r_output_base, value='Select the output format') r_dataform_togglebase=widget_base(r_output_base, /row, /exclusive) r_df_but1=widget_button(r_dataform_togglebase, value='n1') r_df_but2=widget_button(r_dataform_togglebase, value='n2') r_df_but3a=widget_button(r_dataform_togglebase, value='n3a') r_df_but3b=widget_button(r_dataform_togglebase, value='n3b' ) r_df_but3c=widget_button(r_dataform_togglebase, value='n3c') r_df_but3d=widget_button(r_dataform_togglebase, value='n3d') r_df_but3e=widget_button(r_dataform_togglebase, value='n3e') r_df_but3=widget_button(r_dataform_togglebase, value='n3') r_bands_base=widget_base(r_base_data, frame=1, /column) r_bands_lbl=widget_label(r_bands_base, value='Select which bands you want') r_bands_togglebase=widget_base(r_bands_base, /nonexclusive, /row) r_bands_Abut=widget_button(r_bands_togglebase, value='A') r_bands_Bbut=widget_button(r_bands_togglebase, value='B') r_bands_Cbut=widget_button(r_bands_togglebase, value='C') r_bands_H1but=widget_button(r_bands_togglebase, value='H1') r_bands_H2but=widget_button(r_bands_togglebase, value='H2') r_outputname_base=widget_base(r_base_data, /column, frame=1) r_data_filename_lbl=widget_label(r_outputname_base, value='Name of the output data file:') r_data_filename_txt=widget_text(r_outputname_base, value='', /editable) r_data_filename_but=widget_button(r_outputname_base, value='Accept this name', $ sensitive=0, event_pro='on_accept_filename') ;----------------------------------------------------- ; MENU BUTTONS ;----------------------------------------------------- r_but_base=widget_base(r_base_request, /row) r_valid_but=widget_button(r_but_base, value='Valid', event_pro='r_valid') r_exit_but=widget_button(r_but_base, value='Exit', event_pro='r_exit') r_help_but=widget_button(r_but_base, value='Help', event_pro='help') ;----------------------------------------------------- ; LOG ;----------------------------------------------------- r_log_base=widget_base(r_base_request, /row, frame=1) r_infomode_base=widget_base(r_log_base, /column) r_infomode_lbl=widget_label(r_infomode_base, value='Info about the selected mode') r_infomode_txt=widget_text(r_infomode_base, value='', units=2, xsize=70, ysize=15, /wrap, /scroll) r_infolog_base=widget_base(r_log_base, /column) r_infolog_lbl=widget_label(r_infolog_base, value='Info') r_infolog_txt=widget_text(r_infolog_base, value='', units=2, xsize=70, ysize=15, /wrap, /scroll) widget_control, r_Wind, /realize xmanager, 'request', r_Wind end