source: sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v4.00/SA_includes_v400.ipf @ 256

Last change on this file since 256 was 256, checked in by ajj, 15 years ago

Point includes at _v40 files

File size: 1.9 KB
Line 
1#pragma rtGlobals=1             // Use modern global access method.
2#pragma version=4.0
3#pragma IgorVersion=6.0
4
5//*************
6// the list of files to include in the SANS reduction experiment
7//  - files must be located somewhere in the User Procedures folder
8// or sub-folders
9//
10
11//always include the picker
12#include "SANSModelPicker_v40"                  version>=4.00
13//utility procedures
14#include "GaussUtils_v40"                               version>=4.00
15#include "PlotUtilsMacro_v40"                   version>=4.00
16#include "PlotManager_v40"                              version>=4.00
17
18#include "Wrapper_v40"
19#include "PlotUtils2D_v40"
20#include "GizmoCylinder_v40"
21
22Menu "SANS Models"
23        "Fit Manager", Init_WrapperPanel()
24        "Load Model Functions",Execute/P "INSERTINCLUDE \"SANSModelPicker_v40\"";Execute/P "COMPILEPROCEDURES ";Execute/P "ModelPicker_Panel()"
25        "Plot Manager", Show_Plot_Manager()
26        "Freeze Model"
27        "Write Model Data"
28        "-"
29        Submenu "Packages"
30                "Sum Two Models",Execute/P "INSERTINCLUDE \"SumSANSModels_v40\"";Execute/P "COMPILEPROCEDURES ";Execute/P "Init_SumModelPanel()"
31                "Global Fitting",Execute/P "INSERTINCLUDE \"GlobalFit2_NCNR_v40\"";Execute/P "COMPILEPROCEDURES ";Execute/P "WM_NewGlobalFit1#InitNewGlobalFitPanel()"
32                "Determine Invariant",Execute/P "INSERTINCLUDE \"Invariant_v40\"";Execute/P "COMPILEPROCEDURES ";Execute/P "Make_Invariant_Panel()"
33                "Do Linear Fits",Execute/P "INSERTINCLUDE \"LinearizedFits_v40\"";Execute/P "COMPILEPROCEDURES ";Execute/P "A_OpenFitPanel()"
34        End
35        "-"
36        "Feedback or Bug Report",OpenTracTicketPage()
37        "Open Help Movie Page",OpenHelpMoviePage()
38End
39
40Function OpenTracTicketPage()
41        DoAlert 1,"Your web browser will open to a page where you can submit your bug report or feature request. OK?"
42        if(V_flag==1)
43                BrowseURL "http://danse.chem.utk.edu/trac/newticket"
44        endif
45End
46
47Function OpenHelpMoviePage()
48        DoAlert 1,"Your web browser will open to a page where you can view help movies. OK? (You must have QuickTime installed)"
49        if(V_flag==1)
50                BrowseURL "ftp://webster.ncnr.nist.gov/pub/sans/kline/movies/"
51        endif
52End
Note: See TracBrowser for help on using the repository browser.