Avoid a bogus warning that was shown when a Save panel requires a file

type extension and the user has entered a file name without an
extension. In addition fix the filename method so that setting
allowsOtherFileTypes to YES works as advertised.


git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/gui/trunk@29126 72102866-910b-0410-8b05-ffd578937521

ChangeLog

@@ -1,3 +1,18 @@
+2009-12-15  Wolfgang Lux  <wolfgang.lux@gmail.com>
+
+	* Source/NSSavePanel.m (-ok:): Avoid the bogus warning that was
+	shown when the panel requires a file type extension and the user
+	has entered a file name without an extension.
+
+	* Source/NSSavePanel.m (-filename): Do not replace an existing
+	file type extension if allowsOtherFileTypes is set.
+
+	* Source/NSSavePanel.m (-runModalForDirectory:file,
+	-runModalForDirectory:file:relativeToWindow:,
+	-beginSheetForDirectory:file:modalForWindow:modalDelegate:...):
+	Initially enable the panel's OK button if a file name is provided
+	to the modal session.
+
 2009-12-15 Riccardo Mottola <rmottola@users.sf.net>
 
 	* Source/NSOutlineView.m: removed c99-isms

Source/NSSavePanel.m

@@ -1082,6 +1082,8 @@ selectCellWithString: (NSString*)title
 - (int) runModalForDirectory: (NSString*)path file: (NSString*)filename
 {
   [self _setupForDirectory: path file: filename];
+  if ([filename length] > 0)
+    [_okButton setEnabled: YES];
   return [NSApp runModalForWindow: self];
 }
 
@@ -1090,6 +1092,8 @@ selectCellWithString: (NSString*)title
 	    relativeToWindow: (NSWindow*)window
 {
   [self _setupForDirectory: path file: filename];
+  if ([filename length] > 0)
+    [_okButton setEnabled: YES];
   return [NSApp runModalForWindow: self
 		relativeToWindow: window];
 }
@@ -1102,6 +1106,8 @@ selectCellWithString: (NSString*)title
 		    contextInfo: (void *)contextInfo
 {
   [self _setupForDirectory: path file: filename];
+  if ([filename length] > 0)
+    [_okButton setEnabled: YES];
   [NSApp beginSheet: self
 	 modalForWindow: docWindow
 	 modalDelegate: delegate
@@ -1136,18 +1142,21 @@ selectCellWithString: (NSString*)title
       [_allowedFileTypes indexOfObject: @""] != NSNotFound)
     return _fullFileName;
 
-  /* add filetype extension only if the filename does not include an
+  /* add file type extension if the file name does not have an extension or
-     allowed one already */
+     the file name's extension is not one of the allowed extensions and the
+     save panel does not allow other extensions */
   fileType = [_fullFileName pathExtension];
-  if ([_allowedFileTypes indexOfObject: fileType] != NSNotFound)
+  if ([fileType length] == 0 ||
-    {
+      ((!_allowsOtherFileTypes &&
-      return _fullFileName;
+	[_allowedFileTypes indexOfObject: fileType] == NSNotFound)))
-    }
-  else
     {
       fileType = [_allowedFileTypes objectAtIndex: 0];
       return [_fullFileName stringByAppendingPathExtension: fileType];
     }
+  else
+    {
+      return _fullFileName;
+    }
 }
 
 - (NSURL *) URL
@@ -1175,7 +1184,7 @@ selectCellWithString: (NSString*)title
 {
   NSMatrix      *matrix;
   NSBrowserCell *selectedCell;
-  NSString      *filename, *ext, *req;
+  NSString      *filename;
   BOOL		isDir = NO;
 
   matrix = [_browser matrixInColumn: [_browser lastColumn]];
@@ -1216,21 +1225,25 @@ selectCellWithString: (NSString*)title
     }
 
   /* Warn user if a wrong extension was entered */
-  req = [self requiredFileType];
+  if (_allowedFileTypes != nil &&
-  ext = [_fullFileName pathExtension];
+      [_allowedFileTypes indexOfObject: @""] == NSNotFound)
-  if ([req length] > 0 && ![ext isEqualToString: req])
+    {
+      NSString *fileType = [_fullFileName pathExtension];
+      if ([fileType length] != 0 &&
+	  [_allowedFileTypes indexOfObject: fileType] == NSNotFound)
 	{
 	  int result;
 	  NSString *msgFormat, *butFormat;
-      NSString *altExt;
+	  NSString *altType, *requiredType;
 
+	  requiredType = [self requiredFileType];
 	  if ([self allowsOtherFileTypes])
 	    {
 	      msgFormat =
 		_(@"You have used the extension '.%@'.\n"
 		  @"The standard extension is '.%@'.'");
 	      butFormat = _(@"Use .%@");
-  	  altExt = ext;
+	      altType = fileType;
 	    }
 	  else
 	    {
@@ -1238,29 +1251,31 @@ selectCellWithString: (NSString*)title
 		_(@"You cannot save this document with extension '.%@'.\n"
 		  @"The required extension is '.%@'.");
 	      butFormat = _(@"Use .%@");
-  	  altExt = [ext stringByAppendingPathExtension: req];
+	      altType = [fileType stringByAppendingPathExtension: requiredType];
 	    }
 
 	  result = NSRunAlertPanel(_(@"Save"),
 		     msgFormat,
-		 [NSString stringWithFormat: butFormat, req],
+		     [NSString stringWithFormat: butFormat, requiredType],
 		     _(@"Cancel"),
-		 [NSString stringWithFormat: butFormat, altExt],
+		     [NSString stringWithFormat: butFormat, altType],
-		 ext, req);
+		     fileType, requiredType);
 	  switch (result)
 	    {
 	    case NSAlertDefaultReturn:
 	      filename = [_fullFileName stringByDeletingPathExtension];
-	  filename = [filename stringByAppendingPathExtension: req];
+	      filename =
+		[filename stringByAppendingPathExtension: requiredType];
 
 	      ASSIGN (_fullFileName, filename);
 	      setPath(_browser, _fullFileName);
 	      [self _setFileName: [_fullFileName lastPathComponent]];
 	      break;
 	    case NSAlertOtherReturn:
-	  if (altExt != ext)
+	      if (altType != fileType)
 		{
-	      filename = [_fullFileName stringByAppendingPathExtension: req];
+		  filename =
+		    [_fullFileName stringByAppendingPathExtension: requiredType];
 
 		  ASSIGN (_fullFileName, filename);
 		  setPath(_browser, _fullFileName);
@@ -1271,6 +1286,7 @@ selectCellWithString: (NSString*)title
 	      return;
 	    }
 	}
+    }
 
   filename = [_fullFileName stringByDeletingLastPathComponent];
   if ([_fm fileExistsAtPath: filename isDirectory: &isDir] == NO)