Incorporated Benhur Stein's bug fixes.

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

ChangeLog

@@ -1,3 +1,11 @@
+Tue Oct 21 18:25:14 1997  Ovidiu Predescu <ovidiu@net-community.com>
+
+	* Incorporated some bug fixes from Benhur Stein
+	<Benhur-de-Oliveira.Stein@imag.fr>.
+	* Source/NSApplication.m (setDelegate:): Register the delegate for
+	receiving notifications.
+	* Source/NSView.m (visibleRect): Implemented.
+
 Tue Oct 21 16:21:06 1997  Ovidiu Predescu <ovidiu@net-community.com>
 
 	Fixed display optimization and the scrolling behavior in the presence

Source/NSApplication.m

@@ -866,6 +866,11 @@ static id NSApp;
 - (void)setDelegate:anObject
 {
   delegate = anObject;
+
+  if ([delegate respondsToSelector:@selector(applicationDidFinishLaunching:)])
+    [[NSNotificationCenter defaultCenter] addObserver:delegate
+	  selector:@selector(applicationDidFinishLaunching:)
+	  name:NSApplicationDidFinishLaunchingNotification object:self];
 }
 
 //

Source/NSClipView.m

@@ -106,14 +106,8 @@
 
   if (_copiesOnScroll)
     /* TODO: move the visible portion of the document */;
-  else {
+  else
-#if 1
+    [_documentView setNeedsDisplay:YES];
-    [self setNeedsDisplay:YES];
-#else
-    [self display];
-    [[self window] flushWindow];
-#endif
-  }
 }
 
 - (NSPoint)constrainScrollPoint:(NSPoint)proposedNewOrigin

Source/NSView.m

@@ -808,7 +808,14 @@ static NSRecursiveLock *gnustep_gui_nsview_lock = nil;
 
 - (NSRect)visibleRect
 {
-  return bounds;
+  if (!super_view)
+    return bounds;
+  else {
+    NSRect superviewsVisibleRect
+	= [self convertRect:[super_view visibleRect] fromView:super_view];
+
+    return NSIntersectionRect (superviewsVisibleRect, frame);
+  }
 }
 
 - (void)_addSubviewForNeedingDisplay:(NSView*)view