gtk: Added gtk-paned-get-position, gtk-paned-set-position.

diff --git a/doc/gtk/gtk.texinfo b/doc/gtk/gtk.texinfo
index 9d122721b50d40bf6e9907554978d16d7efac70b..2b4df11242aa9c541dfcd469b0431e6ee3bd9d6d 100644 (file)
--- a/doc/gtk/gtk.texinfo
+++ b/doc/gtk/gtk.texinfo
@@ -12,7 +12,7 @@
 @copying
 This manual documents @acronym{Gtk} @value{VERSION}.
 
-Copyright @copyright{} 2008, 2009, 2010, 2011, 2012  Matthew Birkholz
+Copyright @copyright{} 2008, 2009, 2010, 2011, 2012, 2013  Matthew Birkholz
 
 @quotation
 Permission is granted to copy, distribute and/or modify this document
@@ -1576,6 +1576,17 @@ Returns @var{paned}'s first child, or @code{#f} if there is none.
 Returns @var{paned}'s second child, or @code{#f} if there is none.
 @end deffn
 
+@deffn {Generic Procedure} gtk-paned-get-position paned
+Returns the position of the divider between the two panes---the pixel
+size of child1.
+@end deffn
+
+@deffn {Generic Procedure} gtk-paned-set-position paned position
+Sets the position of the divider between the two panes, forcing
+child1's allocation to be @var{position} pixels.  A negative size
+causes the position to be unset.
+@end deffn
+
 @deffn Class <gtk-paned-view>
 A direct subclass of gtk-scrolled-view representing a reference to a
 GtkPanedView.  This is an extension to the Gtks, a specialization of

diff --git a/src/gtk/Includes/gtkpaned.cdecl b/src/gtk/Includes/gtkpaned.cdecl
index b67011e1846c54c746b74a85f86ac69d9b0de4f2..846444ae5be82af9b669ff0f3dddf640353d81a6 100644 (file)
--- a/src/gtk/Includes/gtkpaned.cdecl
+++ b/src/gtk/Includes/gtkpaned.cdecl
@@ -18,4 +18,13 @@ gtk-3.0/gtk/gtkpaned.h |#
        (paned (* GtkPaned))
        (child (* GtkWidget))
        (resize gboolean)
-       (shrink gboolean))
\ No newline at end of file
+       (shrink gboolean))
+
+(extern gint
+       gtk_paned_get_position
+       (paned (* GtkPaned)))
+
+(extern void
+       gtk_paned_set_position
+       (paned (* GtkPaned))
+       (position gint))
\ No newline at end of file

diff --git a/src/gtk/gtk-widget.scm b/src/gtk/gtk-widget.scm
index 90647d5da28aa6866fb62b9871119d1699d88191..bdb7762852c44131cb9e744d75e7438050d6b8bd 100644 (file)
--- a/src/gtk/gtk-widget.scm
+++ b/src/gtk/gtk-widget.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-Copyright (C) 2007, 2008, 2009, 2010, 2011, 2012  Matthew Birkholz
+Copyright (C) 2007, 2008, 2009, 2010, 2011, 2012, 2013  Matthew Birkholz
 
 This file is part of an extension to MIT/GNU Scheme.
 
@@ -768,6 +768,12 @@ USA.
   (C-call "gtk_paned_pack2" (gobject-alien paned) (gobject-alien child2)
          (if resize? 1 0) (if shrink? 1 0)))
 
+(define (gtk-paned-get-position paned)
+  (C-call "gtk_paned_get_position" (gobject-alien paned)))
+
+(define (gtk-paned-set-position paned child1-size)
+  (C-call "gtk_paned_set_position" (gobject-alien paned) child1-size))
+
 (define-class (<gtk-paned-view> (constructor ()))
     (<gtk-paned>))
 

diff --git a/src/gtk/gtk.pkg b/src/gtk/gtk.pkg
index c3aa43dcd9450855a682e1fa7e6bb503fda97b85..a2e690e394b4564559664fa15054d15e1ba1653e 100644 (file)
--- a/src/gtk/gtk.pkg
+++ b/src/gtk/gtk.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-Copyright (C) 2007, 2008, 2009, 2010, 2011, 2012  Matthew Birkholz
+Copyright (C) 2007, 2008, 2009, 2010, 2011, 2012, 2013  Matthew Birkholz
 
 This file is part of an extension to MIT/GNU Scheme.
 
@@ -214,6 +214,7 @@ USA.
          <gtk-paned> gtk-paned? gtk-paned-new
          gtk-paned-pack1 gtk-paned-pack2
          gtk-paned-get-child1 gtk-paned-get-child2
+         gtk-paned-get-position gtk-paned-set-position
          <gtk-paned-view> gtk-paned-view? gtk-paned-view-new)
   (import (gtk pango) make-pango-layout guarantee-pango-font-description))