Some small bugfixes

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

ChangeLog

@@ -1,3 +1,12 @@
+Fri May 28 15:15:00 1999  Richard Frith-Macdonald <richard@brainstorm.co.uk>
+
+	* Source/NSPanel.m: ([-canBecomeKeyWindow]) return NO only if the
+	_becomesKeyOnlyIfNeeded is set.
+	([-canBecomeMainWindow]) always return NO.
+	NSRun... functions make the panel key and order front.
+	* Source/NSButton.m: ([-performClick:]) lock and unlock focus round
+	call to the cell.
+
 Thu May 27 19:40:00 1999  Richard Frith-Macdonald <richard@brainstorm.co.uk>
 
 	* Source/NSPasteboard.m: Tidy formatting and improve style slightly.

Source/NSButton.m

@@ -308,7 +308,9 @@ id _nsbuttonCellClass = nil;
 
 - (void) performClick: (id)sender
 {
+  [self lockFocus];
   [cell performClick: sender];
+  [self unlockFocus];
 }
 
 - (BOOL) performKeyEquivalent: (NSEvent *)anEvent

Source/NSPanel.m

@@ -105,6 +105,13 @@
 }
 
 - (BOOL) canBecomeKeyWindow
+{
+  if (_becomesKeyOnlyIfNeeded)
+    return NO;
+  return YES;
+}
+
+- (BOOL) canBecomeMainWindow
 {
   return NO;
 }
@@ -685,6 +692,7 @@ NSRunAlertPanel(NSString *title,
     }
 
   [panel center];
+  [panel makeKeyAndOrderFront: panel];
   result = [panel runModal];
   NSReleaseAlertPanel(panel);
   return result;
@@ -707,6 +715,7 @@ NSRunCriticalAlertPanel(NSString *title,
   va_end (ap);
 
   [panel center];
+  [panel makeKeyAndOrderFront: panel];
   result = [panel runModal];
   NSReleaseAlertPanel(panel);
   return result;
@@ -729,6 +738,7 @@ NSRunInformationalAlertPanel(NSString *title,
   va_end (ap);
 
   [panel center];
+  [panel makeKeyAndOrderFront: panel];
   result = [panel runModal];
   NSReleaseAlertPanel(panel);
   return result;
@@ -792,6 +802,7 @@ NSRunLocalizedAlertPanel(NSString *table,
     }
 
   [panel center];
+  [panel makeKeyAndOrderFront: panel];
   result = [panel runModal];
   NSReleaseAlertPanel(panel);
   return result;