From 52cd13572868ef79fe1ac6b6061f1a55a0a882c8 Mon Sep 17 00:00:00 2001
From: Andreas Fuchs <asf@boinkor.net>
Date: Tue, 16 Jun 2009 16:01:35 +0200
Subject: [PATCH] Fix a strange type error in scrolling that would manifest
 only on OS X.

---
 ChangeLog.n           | 5 +++++
 silica/db-scroll.lisp | 2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/ChangeLog.n b/ChangeLog.n
index bc7fea11..52acd6df 100644
--- a/ChangeLog.n
+++ b/ChangeLog.n
@@ -4,6 +4,11 @@ don't forget to change the version in utils/packages.lisp if you do anything
 user visible.
 
 *******************************************************************************
+2009-06-16  Andreas Fuchs  <afuchs@franz.com>
+
+	* silica/db-scroll.lisp: Fix a strange type error in scrolling that would crash on OS
+	  X with Motif 2.3 but not on other platforms.
+	
 2009-06-16  Andreas Fuchs  <afuchs@franz.com>
 	
 	* tk/xm-widgets.lisp: Fix the allocation of string lookup buffers for multibyte
diff --git a/silica/db-scroll.lisp b/silica/db-scroll.lisp
index 2df39cf0..d539c2df 100644
--- a/silica/db-scroll.lisp
+++ b/silica/db-scroll.lisp
@@ -292,7 +292,7 @@
               ;; Must go after bounding-rectangle-set-position
               (update-scroll-bars viewport)
               (if (medium-can-scroll-by-copy-region-p
-                   (sheet-medium medium)
+                   medium
                    (make-bounding-rectangle left top right bottom)
                    (pane-viewport-region sheet))
                   (progn
-- 
GitLab