Use fix-resizer-stack-vertical? to orient pointer.

diff --git a/src/gtk/fix-layout.scm b/src/gtk/fix-layout.scm
index faf617fef1493f5ed3ce35dc78cb31b24caf2a8a..6760e16109c60feeee99a27278c167e9fb080446 100644 (file)
--- a/src/gtk/fix-layout.scm
+++ b/src/gtk/fix-layout.scm
@@ -141,14 +141,13 @@ USA.
     unspecific))
 
 (define (allocate-callback widget GtkAllocation)
-  (%trace2 "; allocate-callback "widget" "GtkAllocation"\n")
   (let ((alien (gobject-alien widget))
        (x (C-> GtkAllocation "GtkAllocation x"))
        (y (C-> GtkAllocation "GtkAllocation y"))
        (width (C-> GtkAllocation "GtkAllocation width"))
        (height (C-> GtkAllocation "GtkAllocation height"))
        (rect (fix-widget-geometry widget)))
-    (%trace ";   allocated "width"x"height" to "widget"\n")
+    (%trace "; allocated "width"x"height" at "x","y" for "widget"\n")
     (set-fix-rect! rect x y width height)
     ;; For gtk-widget-get-size and random toolkit methods.
     (C->= alien "GtkWidget allocation x" x)
@@ -748,12 +747,10 @@ USA.
 (define-method fix-widget-realize-callback ((widget <fix-resizer>))
   (call-next-method widget)
   (%trace "; (fix-widget-realize-callback <fix-resizer>) "widget"\n")
-  (let ((geom (fix-widget-geometry widget)))
-    (set-fix-widget-pointer-shape!
-     widget (if (fix:< (fix-rect-width geom)
-                      (fix-rect-height geom))
-               'sb-h-double-arrow
-               'sb-v-double-arrow)))
+  (set-fix-widget-pointer-shape!
+   widget (if (fix-resizer-stack-vertical? widget)
+             'sb-v-double-arrow
+             'sb-h-double-arrow))
   (set-fix-widget-expose-handler! widget resizer-expose-handler)
   (set-fix-widget-enter-notify-handler! widget resizer-enter-handler)
   (set-fix-widget-leave-notify-handler! widget resizer-leave-handler)