Changeset 291
- Timestamp:
- Feb 21, 2008 5:15:15 PM (15 years ago)
- Location:
- sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files
- Files:
-
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v4.00/Packages/GlobalFit/GlobalFit2_NCNR_v40.ipf
r273 r291 210 210 ControlInfo/W=NewGlobalFitPanel#NewGF_GlobalControlArea NewGF_MaskingCheckBox 211 211 Variable useCursors = V_Value 212 if(useCursors )212 if(useCursors && waveexists(mw)) 213 213 //find the first 1, then find the zero 214 214 pt1 = 0 … … 1275 1275 if (doMasking) 1276 1276 Wave/Z mw = $(DataSets[i][MaskCol]) 1277 if (!WaveExists(mw)) 1277 // if (!WaveExists(mw)) 1278 if (!WaveExists(mw) && cmpstr(DataSets[i][MaskCol],"No Mask") != 0) // SRK - allow for no mask 1278 1279 errorWaveRow = i 1279 1280 errorWaveColumn = MaskCol 1280 1281 return NewGlobalFitNOMSKWAVE 1281 1282 endif 1282 if (wavePoints != numpnts(mw)) 1283 // if (wavePoints != numpnts(mw)) 1284 if ( (wavePoints != numpnts(mw)) && (cmpstr(DataSets[i][MaskCol],"No Mask") != 0) ) // SRK - allow for no mask 1283 1285 errorWaveRow = i 1284 1286 errorWaveColumn = MaskCol … … 1340 1342 1341 1343 if (doMasking) 1342 if ( (numtype(mw[j]) != 0) || (mw[j] == 0) ) 1344 // SRK keep points in data that has no Mask wave specified 1345 if(cmpstr(DataSets[i][MaskCol],"No Mask") == 0) // SRK - allow for no mask 1346 //do nothing, keep the point 1347 elseif ( (numtype(mw[j]) != 0) || (mw[j] == 0) ) 1343 1348 continue 1344 1349 endif … … 4010 4015 DataSets[i][startingNCols] = MaskingListWave[i][1] 4011 4016 else 4012 Redimension/N=(-1,startingNCols) DataSets 4013 DoAlert 0,"The mask wave \""+MaskingListWave[i][1]+"\" for Y wave \""+(DataSets[i][0])+"\" does not exist." 4014 return -1 4017 //SRK !!!! CHANGING THE BEHAVIOR !!!! 4018 // if no masking wave was specified, use the entire set (==1) 4019 // Redimension/N=(-1,startingNCols) DataSets 4020 // DoAlert 0,"The mask wave \""+MaskingListWave[i][1]+"\" for Y wave \""+(DataSets[i][0])+"\" does not exist." 4021 // return -1 4022 4023 DataSets[i][startingNCols] = "No Mask" 4024 //eSRK 4015 4025 endif 4016 4026 endfor -
sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v4.00/Packages/Wrapper_v40.ipf
r285 r291 19 19 20 20 //Create useful globals 21 21 Variable/G root:Packages:NIST:SANS_ANA_VERSION=4.00 22 22 String/G root:Packages:NIST:SANS_ANA_EXTENSION="_v40" 23 23 … … 72 72 //change draw order to put button over text of checkbox 73 73 Button button_0,pos={520,93},size={100,20},proc=DoTheFitButton,title="Do 1D Fit" 74 Button button_4,pos={520,130},size={100,20},proc=FeedbackButtonButtonProc,title="Feedback" 74 Button button_4,pos={520,126},size={100,20},proc=FeedbackButtonProc,title="Feedback" 75 Button button_5,pos={520,150},size={100,20},proc=FitHelpButtonProc,title="Help" 75 76 76 77 Edit/W=(20,174,634,435)/HOST=# … … 80 81 EndMacro 81 82 83 //open the Help file for the Fit Manager 84 Function FitHelpButtonProc(ba) : ButtonControl 85 STRUCT WMButtonAction &ba 86 87 switch( ba.eventCode ) 88 case 2: // mouse up 89 // click code here 90 DisplayHelpTopic "Fit Manager" 91 break 92 endswitch 93 94 return 0 95 End 96 97 82 98 //open the trac page for feedback 83 Function FeedbackButton ButtonProc(ba) : ButtonControl99 Function FeedbackButtonProc(ba) : ButtonControl 84 100 STRUCT WMButtonAction &ba 85 101 -
sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v4.00/PlotManager_v40.ipf
r257 r291 47 47 GroupBox group0_1,pos={222,123},size={50,4},title="multiple files" 48 48 GroupBox group1,pos={7,207},size={350,4} 49 Button button8,pos={238,50},size={100,20},proc=A_OneDLoader_HelpButton,title="Help" 49 50 EndMacro 51 52 //open the Help file for the Fit Manager 53 Function A_OneDLoader_HelpButton(ba) : ButtonControl 54 STRUCT WMButtonAction &ba 55 56 switch( ba.eventCode ) 57 case 2: // mouse up 58 // click code here 59 DisplayHelpTopic "Plot Manager" 60 break 61 endswitch 62 63 return 0 64 End 50 65 51 66 //uses the same data folder listing as the wrapper … … 142 157 ModifyGraph grid=1,mirror=2,standoff=0 143 158 ErrorBars $iStr Y,wave=($eStr,$eStr) 144 ModifyGraph tickUnit (left)=1159 ModifyGraph tickUnit=1 145 160 146 161 Label left "I(q)"
Note: See TracChangeset
for help on using the changeset viewer.