This patch adds def-c-output code for show-tabs, current-page, show-border
Index: cells-gtk/layout.lisp
===================================================================
RCS file: /project/cells-gtk/cvsroot/root/cells-gtk/layout.lisp,v
retrieving revision 1.8
diff -u -r1.8 layout.lisp
--- cells-gtk/layout.lisp 19 Feb 2006 20:11:45 -0000 1.8
+++ cells-gtk/layout.lisp 22 Jul 2006 04:21:13 -0000
@@ -242,6 +242,16 @@
(setf (current-page self) (show-page self)))
#+clisp (call-next-method))
+(def-c-output show-tabs ((self notebook))
+ (gtk-notebook-set-show-tabs (id self) new-value))
+
+(def-c-output current-page ((self notebook))
+ (when new-value (gtk-notebook-set-current-page (id self) new-value)))
+
+(def-c-output show-border ((self notebook))
+ (gtk-notebook-set-show-border (id self) new-value))
+
+
(def-widget alignment ()
((xalign :accessor xalign :initarg :xalign :initform 0.5)
(yalign :accessor yalign :initarg :yalign :initform 0.5)
_______________________________________________
cells-gtk-devel site list
[email protected]
http://common-lisp.net/mailman/listinfo/cells-gtk-devel
