-
Notifications
You must be signed in to change notification settings - Fork 1
/
m3_menu_file.pro
66 lines (62 loc) · 2.38 KB
/
m3_menu_file.pro
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
pro m3_menu_file, buttonInfo, base_ref, mainposn, subteams
compile_opt strictarr, hidden
;
; error handling
;
CATCH, error
IF (error NE 0) THEN BEGIN
catch, /cancel
ok = m3_error_message()
return
ENDIF
;
; set up a branch coming off the main M3 Tools menu
;
;mainval = 'Open...'
;ENVI_DEFINE_MENU_BUTTON, buttonInfo, Value=mainval, $
; ref_value = base_ref, position=*mainposn, /Menu
; ;
; posn = 0
*mainposn = *mainposn + 1
ENVI_DEFINE_MENU_BUTTON, buttonInfo, Value = 'Open M3 file(s)', $
ref_value = base_ref, position = *mainposn, event_pro = 'm3_file_open', $
uvalue = 'not used'
;
*mainposn = *mainposn + 1
ENVI_DEFINE_MENU_BUTTON, buttonInfo, Value = 'M3 File Search Tool', $
ref_value = base_ref, position = *mainposn, event_pro = 'm3_file_search_tool', $
uvalue = 'not used'
;
*mainposn = *mainposn + 1
ENVI_DEFINE_MENU_BUTTON, buttonInfo, Value = 'Search using Input File', $
ref_value = base_ref, position = *mainposn, event_pro = 'm3_utils_search_from_basename', $
uvalue = 'not used'
;
*mainposn = *mainposn + 1
ENVI_DEFINE_MENU_BUTTON, buttonInfo, Value = 'Open M3 Spec. Library', $
ref_value = base_ref, position = *mainposn, event_pro = 'm3_open_speclib', $
uvalue = 'not used'
*mainposn = *mainposn + 1
ENVI_DEFINE_MENU_BUTTON, buttonInfo, Value= 'Display Albedo Quicklook', $
ref_value = base_ref, position = *mainposn, event_pro = 'm3_utils_disp_albedo', $
uvalue = 'not used', /separator
*mainposn = *mainposn + 1
ENVI_DEFINE_MENU_BUTTON, buttonInfo, Value= 'Display Thermal Quicklook', $
ref_value = base_ref, position = *mainposn, event_pro = 'm3_utils_disp_band84', $
uvalue = 'not used'
;*mainposn = *mainposn + 1
;ENVI_DEFINE_MENU_BUTTON, buttonInfo, Value= 'Get info on a strip', $
; ref_value = base_ref, position = *mainposn, event_pro = 'm3_filedb_report', $
; uvalue = 'not used', /separator
;
;*mainposn = *mainposn + 1
;ENVI_DEFINE_MENU_BUTTON, buttonInfo, Value= 'Open File Info CSV', $
; ref_value = base_ref, position = *mainposn, event_pro = 'm3_utils_open_files_db', $
; uvalue = 'not used', /separator
;
;*mainposn = *mainposn + 1
;ENVI_DEFINE_MENU_BUTTON, buttonInfo, Value= 'Open ACT Quickmap', $
; ref_value = base_ref, position = *mainposn, event_pro = 'm3_utils_open_quickmap', $
; uvalue = 'not used'
;
end