Add image sliding mechanism

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

ChangeLog

@@ -1,3 +1,10 @@
+2002-01-21  Richard Frith-Macdonald  <rfm@gnu.org>
+
+	* Headers/Appkit/NSGraphicsContext.h: new method to slide image
+	across screen between windows.
+	* Source/NSGraphicsContext.m: dummy implementation
+	* Source/NSWorkspace.m: Use new method.
+
 Mon Jan 21 11:47:27 2002  Nicola Pero  <nicola@brainstorm.co.uk>
 
 	* Source/NSMenuItem.m ([-setSubmenu:]): When raising an exception

Headers/gnustep/gui/NSGraphicsContext.h

@@ -168,12 +168,13 @@ APPKIT_DECLARE NSGraphicsContext	*GSCurrentContext();
 - (void) unlockFocusView: (NSView*)aView needsFlush: (BOOL)flush;
 
 /*
- *	Drag and drop support
+ *	Drag and drop support etc
  */
 - (BOOL) _addDragTypes: (NSArray*)types toWindow: (NSWindow *)win;
 - (BOOL) _removeDragTypes: (NSArray*)types fromWindow: (NSWindow *)win;
 - (NSCountedSet*) _dragTypesForWindow: (NSWindow *)win;
 - (id <NSDraggingInfo>)_dragInfo;
+- (BOOL) _slideImage: (NSImage*)image from: (NSPoint)from to: (NSPoint)to;
 
 /* Private methods for printing */
 - (void) useFont: (NSString *)fontName;

Source/NSGraphicsContext.m

@@ -385,6 +385,12 @@ NSGraphicsContext	*GSCurrentContext()
   return nil;
 }
 
+- (BOOL) _slideImage: (NSImage*)image from: (NSPoint)from to: (NSPoint)to
+{
+  [self subclassResponsibility: _cmd];
+  return NO;
+}
+
 - (void) _postExternalEvent: (NSEvent *)event
 {
   [self subclassResponsibility: _cmd];

Source/NSWorkspace.m

@@ -971,7 +971,7 @@ inFileViewerRootedAtPath: (NSString *)rootFullpath
 	       from: (NSPoint)fromPoint
 		 to: (NSPoint)toPoint
 {
-  // FIXME
+  [GSCurrentContext() _slideImage: image from: fromPoint to: toPoint];
 }
 
 /*