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