M3Tools/m3tools.pro at master · nettlejw/M3Tools · GitHub

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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
;
; Programmatically add M3 menu system
;
; Written, Aug 29 2007, Jeff Nettles, Brown University
;   inspired by CRISM CAT written by Shannon Pelkey
; Modified, Nov 29, 2008, Jeff Nettles, Brown University
;   redesigned to put menu categories in their own routine and add conditional menus.
;
pro m3tools_define_buttons, buttonInfo ;**************************************************************
compile_opt strictarr, hidden
;
;  PURPOSE:  This is the M3 main menu-creating routine.
;
;  simple (standard) error catching mechanism
;
CATCH, error
IF (error NE 0) THEN BEGIN
   catch, /cancel
   ok = m3_error_message()
   return
ENDIF
;
;  Top Level
;
topval = 'M3 Tools'
mainposn = ptr_new(0)
ENVI_DEFINE_MENU_BUTTON, buttonInfo, Value=topval, ref_value = 'File', /Sibling, position='after', /Menu
;
; Open m3 file utility
;
m3_menu_file, buttonInfo, topval, mainposn
*mainposn = *mainposn + 1
;
; Level 2 (Photometry) Routines
;
m3_menu_photom, buttonInfo, topval, mainposn
*mainposn = *mainposn + 1
;
; Parameters Routines
;
m3_menu_parameters, buttonInfo, topval, mainposn
*mainposn = *mainposn + 1
;;
;;  Polishing Routines
;;
;m3_menu_polishing, buttonInfo, topval, mainposn
;*mainposn = *mainposn + 1
;
;  Resampling Routines
;
*mainposn = *mainposn + 1
m3_menu_resampling, buttonInfo, topval, mainposn
;
;  Spectral Analysis Routines
;
*mainposn = *mainposn + 1
m3_menu_analysis, buttonInfo, topval, mainposn
;
;  Mosaic routines
;
*mainposn = *mainposn + 1
m3_menu_mapping, buttonInfo, topval, mainposn
;
;  Local Code added to the M3 Menu
;
*mainposn = *mainposn + 1
m3_menu_personal_code, buttonInfo, topval, mainposn
;
;  Preferences Routines
;
*mainposn = *mainposn + 1
m3_menu_preferences, buttonInfo, topval, mainposn
;
;  Help Menu
;
*mainposn = *mainposn + 1
m3_menu_help, buttonInfo, topval, mainposn
;
ptr_free, mainposn
;
end

pro m3tools, event
compile_opt strictarr
 ;placeholder - leave this as is
end