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/Reduction/SANS/WriteQIS.ipf

    r472 r474  
    813813End 
    814814 
    815  
    816 //returns the path to the file, or null if cancel 
    817 Function/S DoOpenFileDialog(msg) 
    818         String msg 
    819          
    820         Variable refNum 
    821 //      String message = "Select a file" 
    822         String outputPath 
    823          
    824         Open/D/R/T="????"/M=msg refNum 
    825         outputPath = S_fileName 
    826          
    827         return outputPath 
    828 End 
    829  
    830 // returns the path to the file, or null if the user cancelled 
    831 // fancy use of optional parameters 
    832 //  
    833 // enforce short file names (26 characters) 
    834 Function/S DoSaveFileDialog(msg,[fname,suffix]) 
    835         String msg,fname,suffix 
    836         Variable refNum 
    837 //      String message = "Save the file as" 
    838  
    839         if(ParamIsDefault(fname)) 
    840 //              Print "fname not supplied" 
    841                 fname = "" 
    842         endif 
    843         if(ParamIsDefault(suffix)) 
    844 //              Print "suffix not supplied" 
    845                 suffix = "" 
    846         endif 
    847          
    848         String outputPath,tmpName,testStr 
    849         Variable badLength=0,maxLength=26,l1,l2 
    850          
    851          
    852         tmpName = fname + suffix 
    853          
    854         do 
    855                 badLength=0 
    856                 Open/D/M=msg/T="????" refNum as tmpName 
    857                 outputPath = S_fileName 
    858                  
    859                 testStr = ParseFilePath(0, outputPath, ":", 1, 0)               //just the filename 
    860                 if(strlen(testStr)==0) 
    861                         break           //cancel, allow exit 
    862                 endif 
    863                 if(strlen(testStr) > maxLength) 
    864                         badlength = 1 
    865                         DoAlert 2,"File name is too long. Is\r"+testStr[0,25]+"\rOK?" 
    866                         if(V_flag==3) 
    867                                 outputPath = "" 
    868                                 break 
    869                         endif 
    870                         if(V_flag==1)                   //my suggested name is OK, so trim the output 
    871                                 badlength=0 
    872                                 l1 = strlen(testStr)            //too long length 
    873                                 l1 = l1-maxLength               //number to trim 
    874                                 //Print outputPath 
    875                                 l2=strlen(outputPath) 
    876                                 outputPath = outputPath[0,l2-1-l1] 
    877                                 //Print "modified  ",outputPath 
    878                         endif 
    879                         //if(V_flag==2)  do nothing, let it go around again 
    880                 endif 
    881                  
    882         while(badLength) 
    883          
    884         return outputPath 
    885 End 
Note: See TracChangeset for help on using the changeset viewer.