[cells-gtk-cvs] CVS update: root/gtk-ffi/gtk-other.lisp

[Peter Denno]

Update of /project/cells-gtk/cvsroot/root/gtk-ffi
In directory common-lisp.net:/tmp/cvs-serv18346/root/gtk-ffi

Modified Files:
	gtk-other.lisp 
Log Message:
Added some FF defs for notebooks and setting pane position.
Date: Wed Nov 16 02:46:52 2005
Author: pdenno

Index: root/gtk-ffi/gtk-other.lisp
diff -u root/gtk-ffi/gtk-other.lisp:1.8 root/gtk-ffi/gtk-other.lisp:1.9
--- root/gtk-ffi/gtk-other.lisp:1.8	Sat Oct  8 16:49:38 2005
+++ root/gtk-ffi/gtk-other.lisp	Wed Nov 16 02:46:51 2005
@@ -98,6 +98,8 @@
 		   (child c-pointer)))
   (gtk-paned-add2 ((paned c-pointer)
 		   (child c-pointer)))
+  (gtk-paned-set-position ((paned c-pointer)
+			   (pos int)))
   (gtk-hpaned-new ()
     c-pointer)
   (gtk-vpaned-new ()
@@ -222,6 +224,11 @@
   (gtk-notebook-popup-disable ((notebook c-pointer)))
   (gtk-notebook-set-homogeneous-tabs ((notebook c-pointer)
 				      (homogeneous-tabs boolean)))
+  (gtk-notebook-get-nth-page ((notebook c-pointer)
+			      (n int))
+    c-pointer)
+  (gtk-notebook-get-n-pages ((notebook c-pointer))
+   int)
 
   ;;label
   (gtk-label-new ((text c-string))