Changeset 422

Timestamp:

02/13/2008 01:39:13 (7 months ago)

Author:

why

Message:

• shoes/canvas.c: added gutter method for getting the width of the vertical scrollbar.
  

Location:

trunk/shoes

Files:

• canvas.c (modified) (1 diff)
• canvas.h (modified) (1 diff)
• ruby.h (modified) (1 diff)

trunk/shoes/canvas.c

@@ -195 +195 @@
   SETUP();
   return INT2NUM(canvas->fully);
+}
+
+VALUE
+shoes_canvas_get_gutter_width(VALUE self)
+{
+  int scrollwidth = 0;
+  GET_STRUCT(canvas, canvas);
+#ifdef SHOES_WIN32
+  scrollwidth = GetSystemMetrics(SM_CXVSCROLL);
+#endif
+#ifdef SHOES_QUARTZ
+  GetThemeMetric(kThemeMetricScrollBarWidth, &scrollwidth)
+#endif
+#ifdef SHOES_GTK
+  GtkRequisition req;
+  GtkWidget *vsb = gtk_scrolled_window_get_vscrollbar(GTK_SCROLLED_WINDOW(canvas->slot.box));
+  gtk_widget_size_request(vsb, &req);
+  scrollwidth = req.width;
+#endif
+  return INT2NUM(scrollwidth);
 }
 

trunk/shoes/canvas.h

@@ -257 +257 @@
 VALUE shoes_canvas_get_scroll_top(VALUE);
 VALUE shoes_canvas_set_scroll_top(VALUE, VALUE);
+VALUE shoes_canvas_get_gutter_width(VALUE);
 VALUE shoes_canvas_nostroke(VALUE);
 VALUE shoes_canvas_stroke(int, VALUE *, VALUE);

trunk/shoes/ruby.h

@@ -111 +111 @@
   f("scroll_top", get_scroll_top, 0); \
   f("scroll_top=", set_scroll_top, 1); \
+  f("gutter", get_gutter_width, 0); \
   f("style", style, -1); \
   f("nostroke", nostroke, 0); \