Changed scrollbar support code so that it can work

with tcl and perl-tk.

1 files changed, 9 insertions, 0 deletions

diff --git a/generic/WidgetInfo.h b/generic/WidgetInfo.h
index 7f1fa35..5d3cccf 100644
--- a/generic/WidgetInfo.h
+++ b/generic/WidgetInfo.h
@@ -247,9 +247,14 @@ typedef struct _ZnWInfo {
   /* Scrollbar management */
   ZnPoint		origin;			/* Coordinate mapped to the upper left corner
 						 * of the zinc window. */
+#ifdef PTK
+  LangCallback		*x_scroll_cmd;
+  LangCallback		*y_scroll_cmd;
+#else
   char			*x_scroll_cmd;		/* Command prefixes for communicating with */
   char			*y_scroll_cmd;		/* scrollbars.  NULL means no scrollbar.
 						 * Malloc'ed */
+#endif
   int			x_scroll_incr;		/* If >0, defines a grid for horiz/vert */
   int			y_scroll_incr;		/* scrolling.  This is the size of the "unit",
 						 * and the left edge of the screen will always
@@ -260,8 +265,12 @@ typedef struct _ZnWInfo {
 int			scroll_yc;		/* scrollbars). */
   ZnBool		confine;		/* When true, it is not possible to scroll the
 						 * viewing area past the scroll region. */
+#ifdef PTK
+  Arg			region;
+#else
   char			*region;		/* Scroll region option string source of the
 						 * scroll_region above. */
+#endif
   /* Perf measurement variables. */
 #ifndef _WIN32
   ZnChrono		this_draw_chrono;