Project

General

Profile

bug3630-no-initial-dir.p

Alexei Kaigorodov, 05/08/2019 02:40 AM

Download (364 Bytes)

 
1 
DEFINE VARIABLE cFile AS CHARACTER NO-UNDO.
2 
DEFINE BUTTON next-button LABEL "Choose".
3 

    		
  

  

    
      4
    
    
      
FORM next-button


    		
  

  

    
      5
    
    
      
  WITH FRAME but-frame.


    		
  

  

    
      6
    
    
      
  


    		
  

  

    
      7
    
    
      
ON CHOOSE OF next-button DO:


    		
  

  

    
      8
    
    
      
    SYSTEM-DIALOG GET-FILE cFile


    		
  

  

    
      9
    
    
      
    TITLE      "Choose a file ?"


    		
  

  

    
      10
    
    
      
 //   INITIAL-DIR "."


    		
  

  

    
      11
    
    
      
    .


    		
  

  

    
      12
    
    
      
END.


    		
  

  

    
      13
    
    
      

    		
  

  

    
      14
    
    
      
ENABLE cFile next-button  WITH FRAME but-frame.


    		
  

  

    
      15
    
    
      
WAIT-FOR WINDOW-CLOSE OF CURRENT-WINDOW.