From: Matt Birkholz Date: Wed, 5 Oct 2011 22:11:32 +0000 (-0700) Subject: Use fix-resizer-stack-vertical? to orient pointer. X-Git-Tag: mit-scheme-pucked-9.2.12~602 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2fa75fe5a30f7e7bd1e7f604d1672640b1b12ca0;p=mit-scheme.git Use fix-resizer-stack-vertical? to orient pointer. --- diff --git a/src/gtk/fix-layout.scm b/src/gtk/fix-layout.scm index faf617fef..6760e1610 100644 --- 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 )) (call-next-method widget) (%trace "; (fix-widget-realize-callback ) "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)