'----------------------------------------------------------------
'SCRIPT:    avu-DirectoryGet
'PROJECT:   gavos.apr, avcsus 
'DATE:      01-18-96
'AUTHOR:    John Ganter, Sandia National Labs, jganter@sandia.gov
'DESC:      gets a directory using a File dialog box
'DESC2:     !!!! User has to CANCEL in dialog box
'CALLED BY: avu-ScriptSaverCaller
'CALL AS:   av.Run("avu-DirectoryGet", strDirStart)
'ARG01:     strDirStart: starting dir, e.g. "c:\a"
'RETURNS:   string
'EXPECTS:   <nothing>
'CALLS TO:  <nothing>   
''''2----------------------------------------------------------------
 
  fnDefault = SELF.AsFileName
  aPattern = "*.*"
  strFileWinTitle = "Choose a Directory and then CANCEL"

  'this is a kluge; the user has to cancel, which returns no file, but
  'does set the CWD
  
  fnReturned = FileDialog.Put (fnDefault, aPattern, strFileWinTitle)

  fnDir = FileName.GetCWD.GetFullName
  Return fnDIR

'----end of script---------------------------------------------------