Added a little private method to allow implentation of NSTextView

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

Source/NSWindow.m

@@ -2036,10 +2036,14 @@ resetCursorRectsForView(NSView *theView)
   if (![aResponder acceptsFirstResponder])
     return NO;
 
+  /* So that the implementation of -resignFirstResponder in
+     _firstResponder might ask for what will be the new first
+     responder by calling our method _futureFirstResponder */
+  _futureFirstResponder = aResponder;
+
   /*
    * If there is a first responder tell it to resign.
-   * Change only if it replies Y
-   */
+   * Change only if it replies Y */
   if ((_firstResponder) && (![_firstResponder resignFirstResponder]))
     return NO;
 
@@ -3505,6 +3509,13 @@ resetCursorRectsForView(NSView *theView)
 
 @end
 
+@implementation NSWindow (GNUstepTextView)
+- (id) _futureFirstResponder
+{
+  return _futureFirstResponder;
+}
+@end
+
 BOOL GSViewAcceptsDrag(NSView *v, id<NSDraggingInfo> dragInfo)
 {
   NSPasteboard *pb = [dragInfo draggingPasteboard];