Changeset 472 for sans/Dev/trunk/NCNR_User_Procedures/Analysis/WriteModelData_v40.ipf

Timestamp:

Feb 3, 2009 3:57:08 PM (14 years ago)

Author:

srkline

Message:

A large number of changes and fixes:

--168/169/170: panels and windows are now at least on-screen for all packages. Tested
with 1024x768 resolution.
-- closed ticket 176 which was a question about resampling data to generate error estimates
on fitted parameters. Useful for reflectometry, not needed for SANS.
--157: bug of low Q power law extrapolation in Invariant fixed by avoiding q==0
--178/180: Tr/Tw? notification in USANS. log/lin checkbox for display.
--167: saveData checkbox for USANS not behaving well. turns off/on better now.
--197: changed all (?) 1D writing routines to enforce 26 characters as the maximum length
to make sure that file loading will never exceed 31 characters

-- lots of changes to MonteCarlo? and SASCALC

• SASCALC now enforces *exact* lens conditions, rather than a close approximation
• improved MonteCarlo? interface panel
• added writer for simlulated VAX binary data file
• can save 2D as ABS or raw counts
• can freeze w/no offset

File:

• sans/Dev/trunk/NCNR_User_Procedures/Analysis/WriteModelData_v40.ipf (modified) (3 diffs)

sans/Dev/trunk/NCNR_User_Procedures/Analysis/WriteModelData_v40.ipf

@@ -56 +56 @@
 end
 
+// always asks for a file name
 Function fWriteModelData(xwave,ywave,delim,term)
         Wave xwave,ywave
@@ -61 +62 @@
         
         String formatStr="",fullpath=""
-        Variable refnum
+        Variable refnum,dialog=1
+        
         //setup delimeter and terminator choices
         If(cmpstr(delim,"tab")==0)
@@ -80 +82 @@
         Endif
         
-        Open/D/T="????" refnum as NameofWave(ywave)+".txt"      //doesn't open file
-        If(cmpstr(S_filename,"")==0)
-                //user cancel, don't write out a file
-                Close/A
-                Abort "no data file was written"
+        if(dialog)
+                PathInfo/S catPathName
+                fullPath = DoSaveFileDialog("Save data as",fname=NameofWave(ywave)+".txt")
+                If(cmpstr(fullPath,"")==0)
+                        //user cancel, don't write out a file
+                        Close/A
+                        Abort "no data file was written"
+                Endif
+                //Print "dialog fullpath = ",fullpath
         Endif
-        fullpath=S_filename
+        
         Open refnum as fullpath