Ignore:
Timestamp:
Feb 3, 2009 4:45:55 PM (14 years ago)
Author:
srkline
Message:

Moved DoFileSaveDialog? and DoFileOpenDialog? to PlotUtilsMacro_v40 since it is common to all packages. Then there is no need to duplicate functions and no new files to include.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/Dev/trunk/NCNR_User_Procedures/Analysis/WriteModelData_v40.ipf

    r473 r474  
    8484        if(dialog) 
    8585                PathInfo/S catPathName 
    86                 fullPath = A_DoSaveFileDialog("Save data as",fname=NameofWave(ywave)+".txt") 
     86                fullPath = DoSaveFileDialog("Save data as",fname=NameofWave(ywave)+".txt") 
    8787                If(cmpstr(fullPath,"")==0) 
    8888                        //user cancel, don't write out a file 
     
    101101End 
    102102 
    103 // returns the path to the file, or null if the user cancelled 
    104 // fancy use of optional parameters 
    105 //  
    106 // enforce short file names (26 characters) 
    107 // DUPLICATE of similar-named function in WriteQIS (including starts a bad dependency chain) 
    108 Function/S A_DoSaveFileDialog(msg,[fname,suffix]) 
    109         String msg,fname,suffix 
    110         Variable refNum 
    111 //      String message = "Save the file as" 
    112  
    113         if(ParamIsDefault(fname)) 
    114 //              Print "fname not supplied" 
    115                 fname = "" 
    116         endif 
    117         if(ParamIsDefault(suffix)) 
    118 //              Print "suffix not supplied" 
    119                 suffix = "" 
    120         endif 
    121          
    122         String outputPath,tmpName,testStr 
    123         Variable badLength=0,maxLength=26,l1,l2 
    124          
    125          
    126         tmpName = fname + suffix 
    127          
    128         do 
    129                 badLength=0 
    130                 Open/D/M=msg/T="????" refNum as tmpName 
    131                 outputPath = S_fileName 
    132                  
    133                 testStr = ParseFilePath(0, outputPath, ":", 1, 0)               //just the filename 
    134                 if(strlen(testStr)==0) 
    135                         break           //cancel, allow exit 
    136                 endif 
    137                 if(strlen(testStr) > maxLength) 
    138                         badlength = 1 
    139                         DoAlert 2,"File name is too long. Is\r"+testStr[0,25]+"\rOK?" 
    140                         if(V_flag==3) 
    141                                 outputPath = "" 
    142                                 break 
    143                         endif 
    144                         if(V_flag==1)                   //my suggested name is OK, so trim the output 
    145                                 badlength=0 
    146                                 l1 = strlen(testStr)            //too long length 
    147                                 l1 = l1-maxLength               //number to trim 
    148                                 //Print outputPath 
    149                                 l2=strlen(outputPath) 
    150                                 outputPath = outputPath[0,l2-1-l1] 
    151                                 //Print "modified  ",outputPath 
    152                         endif 
    153                         //if(V_flag==2)  do nothing, let it go around again 
    154                 endif 
    155                  
    156         while(badLength) 
    157          
    158         return outputPath 
    159 End 
Note: See TracChangeset for help on using the changeset viewer.