- Timestamp:
- Sep 21, 2007 3:18:47 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
sans/SANSReduction/trunk/Put in User Procedures/SANS_Reduction_v5.00/Correct.ipf
r116 r167 958 958 endif 959 959 //get input from the user 960 NewDataFolder/O root: tmp_trans961 Variable/G root: tmp_trans:inputTrans=0.9962 Variable/G root: tmp_trans:returnCode=0960 NewDataFolder/O root:myGlobals:tmp_trans 961 Variable/G root:myGlobals:tmp_trans:inputTrans=0.9 962 Variable/G root:myGlobals:tmp_trans:returnCode=0 963 963 DoTransInput(type) 964 NVAR inputTrans=root: tmp_trans:inputTrans965 NVAR code=root: tmp_trans:returnCode964 NVAR inputTrans=root:myGlobals:tmp_trans:inputTrans 965 NVAR code=root:myGlobals:tmp_trans:returnCode 966 966 newTrans=inputTrans //keep a copy before deleting everything 967 967 newCode=code … … 970 970 Endif 971 971 // printf "You entered %g and the code is %g\r",newTrans,newCode 972 KillDataFolder root:tmp_trans972 // KillDataFolder root:tmp_trans 973 973 974 974 if(newCode==1) … … 987 987 988 988 // Print "ignore now" 989 NVAR val=root: tmp_trans:returnCode989 NVAR val=root:myGlobals:tmp_trans:returnCode 990 990 val=0 //code for ignore once 991 991 … … 1002 1002 DrawText 15,125,"(Reset this in Preferences)" 1003 1003 SetVariable setvar0,pos={20,170},size={160,17},limits={0,1,0.01} 1004 SetVariable setvar0,value= root: tmp_trans:inputTrans,title="New Transmission"1004 SetVariable setvar0,value= root:myGlobals:tmp_trans:inputTrans,title="New Transmission" 1005 1005 1006 1006 Button button0,pos={36,56},size={120,20},proc=IgnoreNowButton,title="Ignore This Time" … … 1015 1015 1016 1016 // Print "ignore always" 1017 NVAR val=root: tmp_trans:returnCode1017 NVAR val=root:myGlobals:tmp_trans:returnCode 1018 1018 val=1 //code for ignore always 1019 1019 DoWindow/K tmp_GetInputPanel // Kill self … … 1024 1024 1025 1025 // Print "use new Value" 1026 NVAR val=root: tmp_trans:returnCode1026 NVAR val=root:myGlobals:tmp_trans:returnCode 1027 1027 val=2 //code for use new Value 1028 1028 DoWindow/K tmp_GetInputPanel // Kill self … … 1033 1033 1034 1034 // Print "Abort" 1035 NVAR val=root: tmp_trans:returnCode1035 NVAR val=root:myGlobals:tmp_trans:returnCode 1036 1036 val=4 //code for abort 1037 1037 DoWindow/K tmp_GetInputPanel // Kill self
Note: See TracChangeset
for help on using the changeset viewer.