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)))