Ignore:
Timestamp:
Apr 7, 2009 3:06:39 PM (13 years ago)
Author:
ajj
Message:

Update to add option to load live data in TotalTemplate?.pxt

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/Dev/trunk/NCNR_User_Procedures/Common/NCNR_Package_Loader.ipf

    r476 r487  
    2626        StrVarOrDefault("root:Packages:NCNRItemStr3a","Load NCNR USANS Reduction Macros"), NCNR_USANSReductionLoader(StrVarOrDefault("root:Packages:NCNRItemStr3a","Load NCNR USANS Reduction Macros")) 
    2727        StrVarOrDefault("root:Packages:NCNRItemStr3b","-"), NCNR_USANSReductionLoader(StrVarOrDefault("root:Packages:NCNRItemStr3b","-")) 
     28         
     29        StrVarOrDefault("root:Packages:NCNRItemStr4a","Load NCNR SANS Live Data"), NCNR_SANSLiveLoader(StrVarOrDefault("root:Packages:NCNRItemStr4a","Load NCNR SANS Live Data")) 
     30        StrVarOrDefault("root:Packages:NCNRItemStr4b","-"), NCNR_SANSLiveLoader(StrVarOrDefault("root:Packages:NCNRItemStr4b","-")) 
    2831end 
    2932 
     
    262265        return(0) 
    263266End 
     267 
     268// now add for the SANS Live 
     269Function NCNR_SANSLiveLoader(itemStr) 
     270        String itemStr 
     271         
     272        if (str2num(stringByKey("IGORVERS",IgorInfo(0))) < 6.02) 
     273                Abort "Your version of Igor is lower than 6.02, these macros need version 6.02 or higher.... " 
     274        endif 
     275         
     276        NewDataFolder/O root:Packages           //create the folder for string variable 
     277        String/G root:Packages:NCNRItemSt4a = itemStr 
     278        String/G root:Packages:NCNRItemStr4b = itemStr 
     279        SVAR gMenuStr4a = root:Packages:NCNRItemStr4a 
     280        SVAR gMenuStr4b = root:Packages:NCNRItemStr4b 
     281         
     282        String SANSLive_WinList = "RT_Panel;SANS_Data;" 
     283        //SANSLive_WinList += "FitRPAPanel;SANS_Histo;drawMaskWin;Multiple_Reduce_Panel;NSORT_Panel;NSORT_Graph;CombineTable;ToCombine;Patch_Panel;" 
     284        //SANSLive_WinList += "ProtocolPanel;Schematic_Layout;Tile_2D;RAW_to_ASCII;Trans_Panel;TransFileTable;ScatterFileTable;Convert_to_Trans;" 
     285        //SANSLive_WinList += "WorkFileMath;Pref_Panel;Subtract_1D_Panel;Plot_Sub1D;SASCALC;MC_SASCALC;Saved_Configurations;TISANE;" 
     286        strswitch(itemStr)      // string switch 
     287                case "Load NCNR SANS Live Data":         
     288                        Execute/P "INSERTINCLUDE \"Includes_v520\"" 
     289                        Execute/P "COMPILEPROCEDURES " 
     290                        Execute/P ("Init_for_RealTime()") 
     291                 
     292                        gMenuStr4a = "Hide NCNR SANS Live Data" 
     293//                      gMenuStr2b = "Unload NCNR SANS Reduction Macros" 
     294                        gMenuStr4b = "-" 
     295                        BuildMenu "Macros" 
     296                         
     297                        break                                            
     298                case "Unload NCNR SANS Live Data":       
     299                // very dangerous - don't really want to implement this because it will surely crash 
     300                        Execute/P "DELETEINCLUDE \"Includes_v520\"" 
     301                        Execute/P "COMPILEPROCEDURES " 
     302                        DoWindow Main_Panel 
     303                        if(V_Flag) 
     304                                DoWindow/K Main_Panel 
     305                        endif 
     306 
     307                        gMenuStr4a = "Load NCNR SANS Live Data" 
     308                        gMenuStr4b = "-" 
     309                         
     310                        BuildMenu "Macros" 
     311                         
     312                        break 
     313                case "Hide NCNR SANS Live Data": 
     314                        HideShowWindowsInList(SANSLive_WinList,1) 
     315                 
     316                        gMenuStr4a = "Show NCNR SANS Reduction Macros" 
     317//                      gMenuStr2b = "Unload NCNR SANS Reduction Macros" 
     318                        gMenuStr4b = "-" 
     319                        BuildMenu "Macros" 
     320                         
     321                        break 
     322                case "Show NCNR SANS Reduction Macros":  
     323                        HideShowWindowsInList(SANSLive_WinList,0) 
     324                 
     325                        gMenuStr4a = "Hide NCNR SANS Reduction Macros" 
     326//                      gMenuStr2b = "Unload NCNR SANS Reduction Macros" 
     327                        gMenuStr4b = "-" 
     328                        BuildMenu "Macros" 
     329                         
     330                        break 
     331                default: 
     332                        Abort "Invalid Menu Selection" 
     333        endswitch 
     334 
     335end 
Note: See TracChangeset for help on using the changeset viewer.