[cells-cvs] CVS cells-gtk3/gtk-ffi

[phildebrandt]

Update of /project/cells/cvsroot/cells-gtk3/gtk-ffi
In directory clnet:/tmp/cvs-serv29766/gtk-ffi

Modified Files:
	gtk-ffi.asd gtk-other.lisp 
Log Message:
Ingo's patches:  activate features in test-gtk.asd, clisp fixes, cells2 leftovers


--- /project/cells/cvsroot/cells-gtk3/gtk-ffi/gtk-ffi.asd	2008/04/14 16:43:55	1.2
+++ /project/cells/cvsroot/cells-gtk3/gtk-ffi/gtk-ffi.asd	2008/06/02 13:38:21	1.3
@@ -9,7 +9,7 @@
 ;;; Step 2 -- If you built or downloaded the libcellsgtk library, uncomment the next line.
 
 ;;; features
-(pushnew :libcellsgtk *features*)
+;;(pushnew :libcellsgtk *features*)
 
 (asdf:defsystem :gtk-ffi
   :name "gtk-ffi"
--- /project/cells/cvsroot/cells-gtk3/gtk-ffi/gtk-other.lisp	2008/05/05 15:30:14	1.3
+++ /project/cells/cvsroot/cells-gtk3/gtk-ffi/gtk-other.lisp	2008/06/02 13:38:21	1.4
@@ -20,9 +20,9 @@
 
 
 (def-gtk-lib-functions :gtk
-  ;; main-loop
-  (gtk-init :void
-	    ((argc :pointer) (argv :pointer)))
+    ;; main-loop
+    (gtk-init :void
+	      ((argc :pointer) (argv :pointer)))
   (gtk-init-check gtk-boolean
 		  ((argc :pointer)
 		   (argv :pointer)))
@@ -41,6 +41,15 @@
   (gtk-main-level :int ())
   (gtk-get-current-event-time :unsigned-int ())
 
+  ;; misc
+  (gtk-misc-set-alignment :void
+			  ((widget :pointer)
+			   (xalign :float)
+			   (yalign :float)))
+  (gtk-misc-set-padding :void
+			((widget :pointer)
+			 (xpad :float)
+			 (ypad :float)))
   ;;container
   (gtk-container-add :pointer
 		     ((container :pointer)
@@ -54,10 +63,10 @@
   (gtk-container-get-border-width :unsigned-int
 				  ((container :pointer)))
   (gtk-container-set-resize-mode :void
-				  ((container :pointer)
-				   (mode :unsigned-int)))
+				 ((container :pointer)
+				  (mode :unsigned-int)))
   (gtk-container-get-resize-mode :unsigned-int
-				  ((container :pointer)))
+				 ((container :pointer)))
   ;;box
   (gtk-box-pack-start :void
 		      ((box :pointer)
@@ -257,6 +266,8 @@
   (gtk-notebook-set-current-page :void
 				 ((notebook :pointer)
 				  (page-num :int)))
+  (gtk-notebook-get-current-page :int
+				 ((notebook :pointer)))
   (gtk-notebook-set-tab-pos :void
 			    ((notebook :pointer)
 			     (pos :int)))