195 lines
6.5 KiB
Prolog
195 lines
6.5 KiB
Prolog
;
|
|
; IDL Widget Interface Procedures. This Code is automatically
|
|
; generated and should not be modified.
|
|
|
|
;
|
|
; Generated on: 07/17/2014 10:24.23
|
|
;
|
|
pro WID_pcrdv_base_event, Event
|
|
|
|
wTarget = (widget_info(Event.id,/NAME) eq 'TREE' ? $
|
|
widget_info(Event.id, /tree_root) : event.id)
|
|
|
|
|
|
wWidget = Event.top
|
|
|
|
case wTarget of
|
|
|
|
Widget_Info(wWidget, FIND_BY_UNAME='WID_pcrdv_base'): begin
|
|
end
|
|
Widget_Info(wWidget, FIND_BY_UNAME='W_load_raw_file_1'): begin
|
|
if( Tag_Names(Event, /STRUCTURE_NAME) eq 'WIDGET_BUTTON' )then $
|
|
load_raw_file, Event
|
|
end
|
|
Widget_Info(wWidget, FIND_BY_UNAME='W_load_sata_file'): begin
|
|
if( Tag_Names(Event, /STRUCTURE_NAME) eq 'WIDGET_BUTTON' )then $
|
|
load_sata_file, Event
|
|
end
|
|
Widget_Info(wWidget, FIND_BY_UNAME='W_load_pcrdv_file'): begin
|
|
if( Tag_Names(Event, /STRUCTURE_NAME) eq 'WIDGET_BUTTON' )then $
|
|
load_pcrdv_file, Event
|
|
end
|
|
Widget_Info(wWidget, FIND_BY_UNAME='W_load_par_file'): begin
|
|
if( Tag_Names(Event, /STRUCTURE_NAME) eq 'WIDGET_BUTTON' )then $
|
|
load_par_file, Event
|
|
end
|
|
Widget_Info(wWidget, FIND_BY_UNAME='W_load_idcdu_file'): begin
|
|
if( Tag_Names(Event, /STRUCTURE_NAME) eq 'WIDGET_BUTTON' )then $
|
|
load_idcdu_file, Event
|
|
end
|
|
Widget_Info(wWidget, FIND_BY_UNAME='WID_save_pcrdv_btn'): begin
|
|
if( Tag_Names(Event, /STRUCTURE_NAME) eq 'WIDGET_BUTTON' )then $
|
|
save_pcrdv_file, Event
|
|
end
|
|
Widget_Info(wWidget, FIND_BY_UNAME='WID_change_format_btn'): begin
|
|
if( Tag_Names(Event, /STRUCTURE_NAME) eq 'WIDGET_BUTTON' )then $
|
|
change_format, Event
|
|
end
|
|
Widget_Info(wWidget, FIND_BY_UNAME='WID_analyze_data_btn'): begin
|
|
if( Tag_Names(Event, /STRUCTURE_NAME) eq 'WIDGET_BUTTON' )then $
|
|
start_pcrdv_data_analysis, Event
|
|
end
|
|
Widget_Info(wWidget, FIND_BY_UNAME='WID_default_dir_tick_1'): begin
|
|
if( Tag_Names(Event, /STRUCTURE_NAME) eq 'WIDGET_BUTTON' )then $
|
|
manage_default_dir_flag, Event
|
|
end
|
|
Widget_Info(wWidget, FIND_BY_UNAME='WID_PCRDV_STOP_1_btn'): begin
|
|
if( Tag_Names(Event, /STRUCTURE_NAME) eq 'WIDGET_BUTTON' )then $
|
|
PCRDV_STOP_1, Event
|
|
end
|
|
Widget_Info(wWidget, FIND_BY_UNAME='WID_PCRDV_EXIT_btn'): begin
|
|
if( Tag_Names(Event, /STRUCTURE_NAME) eq 'WIDGET_BUTTON' )then $
|
|
PCRDV_EXIT, Event
|
|
end
|
|
else:
|
|
endcase
|
|
|
|
end
|
|
|
|
pro WID_pcrdv_base, GROUP_LEADER=wGroup, _EXTRA=_VWBExtra_
|
|
|
|
Resolve_Routine, 'pcrdv_gui_eventcb',/COMPILE_FULL_FILE ; Load event callback routines
|
|
|
|
WID_pcrdv_base = Widget_Base( GROUP_LEADER=wGroup, $
|
|
UNAME='WID_pcrdv_base' ,XOFFSET=5 ,YOFFSET=5 ,SCR_XSIZE=367 $
|
|
,SCR_YSIZE=366 $
|
|
,NOTIFY_REALIZE='wpcrdv_service_param_on_realize' $
|
|
,TITLE='PCRDV' ,SPACE=3 ,XPAD=3 ,YPAD=3)
|
|
|
|
|
|
init_wpcrdv_service_param, WID_pcrdv_base, _EXTRA=_VWBExtra_
|
|
|
|
|
|
WID_load_btn = Widget_Button(WID_pcrdv_base, UNAME='WID_load_btn' $
|
|
,XOFFSET=25 ,YOFFSET=19 ,SCR_XSIZE=150 ,SCR_YSIZE=50 $
|
|
,/ALIGN_CENTER ,/MENU ,VALUE='LOAD')
|
|
|
|
|
|
W_load_raw_file_1 = Widget_Button(WID_load_btn, $
|
|
UNAME='W_load_raw_file_1' ,VALUE='Load RAW file (.dat, .bin)')
|
|
|
|
|
|
W_load_sata_file = Widget_Button(WID_load_btn, $
|
|
UNAME='W_load_sata_file' ,VALUE='Load SATA file (.sata)')
|
|
|
|
|
|
W_load_pcrdv_file = Widget_Button(WID_load_btn, $
|
|
UNAME='W_load_pcrdv_file' ,VALUE='Load PCRDV file (.cmp)')
|
|
|
|
|
|
W_load_par_file = Widget_Button(WID_load_btn, $
|
|
UNAME='W_load_par_file' ,VALUE='Load PAR file (.net, .bin,'+ $
|
|
' .dat)')
|
|
|
|
|
|
W_load_idcdu_file = Widget_Button(WID_load_btn, $
|
|
UNAME='W_load_idcdu_file' ,VALUE='Load IDCDU file (.idcdu)')
|
|
|
|
|
|
WID_save_pcrdv_btn = Widget_Button(WID_pcrdv_base, $
|
|
UNAME='WID_save_pcrdv_btn' ,XOFFSET=185 ,YOFFSET=18 $
|
|
,SCR_XSIZE=150 ,SCR_YSIZE=50 ,SENSITIVE=0 ,/ALIGN_CENTER $
|
|
,VALUE='SAVE')
|
|
|
|
|
|
WID_change_format_btn = Widget_Button(WID_pcrdv_base, $
|
|
UNAME='WID_change_format_btn' ,XOFFSET=25 ,YOFFSET=161 $
|
|
,SCR_XSIZE=150 ,SCR_YSIZE=50 ,SENSITIVE=0 ,/ALIGN_CENTER $
|
|
,VALUE='CHANGE FORMAT DATA')
|
|
|
|
|
|
WID_analyze_data_btn = Widget_Button(WID_pcrdv_base, $
|
|
UNAME='WID_analyze_data_btn' ,XOFFSET=185 ,YOFFSET=161 $
|
|
,SCR_XSIZE=150 ,SCR_YSIZE=50 ,SENSITIVE=0 ,/ALIGN_CENTER $
|
|
,VALUE='ANALYZE')
|
|
|
|
|
|
WID_source_file_txt = Widget_Text(WID_pcrdv_base, $
|
|
UNAME='WID_source_file_txt' ,XOFFSET=25 ,YOFFSET=89 $
|
|
,SCR_XSIZE=310 ,SCR_YSIZE=18 ,/NO_NEWLINE ,VALUE=[ ' ' ] $
|
|
,XSIZE=20 ,YSIZE=1)
|
|
|
|
|
|
WID_source_file_label = Widget_Label(WID_pcrdv_base, $
|
|
UNAME='WID_source_file_label' ,XOFFSET=29 ,YOFFSET=74 $
|
|
,/ALIGN_LEFT ,VALUE='Source file:')
|
|
|
|
|
|
WID_applied_format_txt = Widget_Text(WID_pcrdv_base, $
|
|
UNAME='WID_applied_format_txt' ,XOFFSET=25 ,YOFFSET=131 $
|
|
,SCR_XSIZE=310 ,SCR_YSIZE=18 ,/NO_NEWLINE ,VALUE=[ ' ' ] $
|
|
,XSIZE=20 ,YSIZE=1)
|
|
|
|
|
|
WID_applied_format_label = Widget_Label(WID_pcrdv_base, $
|
|
UNAME='WID_applied_format_label' ,XOFFSET=28 ,YOFFSET=116 $
|
|
,/ALIGN_LEFT ,VALUE='Applied format:')
|
|
|
|
|
|
WID_BASE_1 = Widget_Base(WID_pcrdv_base, UNAME='WID_BASE_1' $
|
|
,XOFFSET=30 ,YOFFSET=274 ,SCR_XSIZE=102 ,SCR_YSIZE=36 $
|
|
,TITLE='IDL' ,COLUMN=1 ,/NONEXCLUSIVE)
|
|
|
|
|
|
WID_default_dir_tick_1 = Widget_Button(WID_BASE_1, $
|
|
UNAME='WID_default_dir_tick_1' ,/ALIGN_LEFT ,VALUE='Default'+ $
|
|
' directory')
|
|
|
|
|
|
WID_total_batch_txt = Widget_Text(WID_pcrdv_base, $
|
|
UNAME='WID_total_batch_txt' ,XOFFSET=100 ,YOFFSET=230 $
|
|
,SCR_XSIZE=78 ,SCR_YSIZE=18 ,/WRAP ,VALUE=[ ' ' ] ,XSIZE=20 $
|
|
,YSIZE=1)
|
|
|
|
|
|
WID_total_num_batch_label = Widget_Label(WID_pcrdv_base, $
|
|
UNAME='WID_total_num_batch_label' ,XOFFSET=28 ,YOFFSET=232 $
|
|
,/ALIGN_LEFT ,VALUE='Num batch:')
|
|
|
|
|
|
WID_signal_available_label = Widget_Label(WID_pcrdv_base, $
|
|
UNAME='WID_signal_available_label' ,XOFFSET=210 ,YOFFSET=230 $
|
|
,/ALIGN_RIGHT ,VALUE='Signal: NOT AVAILABLE' ,/SUNKEN_FRAME)
|
|
|
|
|
|
WID_PCRDV_STOP_1_btn = Widget_Button(WID_pcrdv_base, $
|
|
UNAME='WID_PCRDV_STOP_1_btn' ,XOFFSET=151 ,YOFFSET=274 $
|
|
,SCR_XSIZE=83 ,SCR_YSIZE=41 ,/ALIGN_CENTER ,VALUE='STOP')
|
|
|
|
|
|
WID_PCRDV_EXIT_btn = Widget_Button(WID_pcrdv_base, $
|
|
UNAME='WID_PCRDV_EXIT_btn' ,XOFFSET=252 ,YOFFSET=274 $
|
|
,SCR_XSIZE=83 ,SCR_YSIZE=41 ,/ALIGN_CENTER ,VALUE='EXIT')
|
|
|
|
Widget_Control, /REALIZE, WID_pcrdv_base
|
|
|
|
XManager, 'WID_pcrdv_base', WID_pcrdv_base, /NO_BLOCK
|
|
|
|
end
|
|
;
|
|
; Empty stub procedure used for autoloading.
|
|
;
|
|
pro pcrdv_gui, GROUP_LEADER=wGroup, _EXTRA=_VWBExtra_
|
|
WID_pcrdv_base, GROUP_LEADER=wGroup, _EXTRA=_VWBExtra_
|
|
end
|