Skip to content
Snippets Groups Projects
Commit 52cd1357 authored by Andreas Fuchs's avatar Andreas Fuchs
Browse files

Fix a strange type error in scrolling that would manifest only on OS X.

parent 273738fb
No related branches found
No related tags found
No related merge requests found
...@@ -4,6 +4,11 @@ don't forget to change the version in utils/packages.lisp if you do anything ...@@ -4,6 +4,11 @@ don't forget to change the version in utils/packages.lisp if you do anything
user visible. 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> 2009-06-16 Andreas Fuchs <afuchs@franz.com>
* tk/xm-widgets.lisp: Fix the allocation of string lookup buffers for multibyte * tk/xm-widgets.lisp: Fix the allocation of string lookup buffers for multibyte
......
...@@ -292,7 +292,7 @@ ...@@ -292,7 +292,7 @@
;; Must go after bounding-rectangle-set-position ;; Must go after bounding-rectangle-set-position
(update-scroll-bars viewport) (update-scroll-bars viewport)
(if (medium-can-scroll-by-copy-region-p (if (medium-can-scroll-by-copy-region-p
(sheet-medium medium) medium
(make-bounding-rectangle left top right bottom) (make-bounding-rectangle left top right bottom)
(pane-viewport-region sheet)) (pane-viewport-region sheet))
(progn (progn
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment