Update of /project/cells-gtk/cvsroot/root/gtk-ffi In directory common-lisp.net:/tmp/cvs-serv16210/root/gtk-ffi Modified Files: gtk-other.lisp Log Message: More gtk and gdk FF declarations. Date: Sat Oct 8 16:49:38 2005 Author: pdenno Index: root/gtk-ffi/gtk-other.lisp diff -u root/gtk-ffi/gtk-other.lisp:1.7 root/gtk-ffi/gtk-other.lisp:1.8 --- root/gtk-ffi/gtk-other.lisp:1.7 Tue Jun 28 18:56:23 2005 +++ root/gtk-ffi/gtk-other.lisp Sat Oct 8 16:49:38 2005 @@ -65,6 +65,9 @@ (spacing int)) c-pointer nil nil) + (gtk-drawing-area-new () + c-pointer) + ;;table (gtk-table-new ((rows uint) (columns uint) @@ -313,6 +316,8 @@ (gtk-widget-show ((widget c-pointer))) (gtk-widget-show-all ((widget c-pointer))) (gtk-widget-hide ((widget c-pointer))) + (gtk-widget-hide-all ((widget c-pointer))) + (gtk-widget-hide-on-delete ((widget c-pointer))) (gtk-widget-destroy ((widget c-pointer))) (gtk-widget-set-sensitive ((widget c-pointer) (sensitive boolean)) @@ -568,6 +573,21 @@ c-pointer) (gtk-text-view-set-buffer ((text-view c-pointer) (buffer c-pointer))) + (gtk-text-view-get-buffer ((text-view c-pointer)) + c-pointer) + (gtk-text-view-set-wrap-mode ((text-view c-pointer) + (wrap-mode int))) + (gtk-text-view-set-editable ((text-view c-pointer) + (setting boolean))) + (gtk-text-view-scroll-to-iter ((text-view c-pointer) + (iter c-pointer) + (within-margin double-float) + (use-align boolean) + (xalign double-float) + (yalign double-float)) + boolean) + (gtk-text-view-scroll-mark-onscreen ((text-view c-pointer) + (mark c-pointer))) ;;text-buffer (gtk-text-buffer-new ((table c-pointer)) @@ -629,6 +649,9 @@ boolean) (gtk-text-buffer-set-modified ((buffer c-pointer) (setting boolean))) + (gtk-text-buffer-move-mark ((buffer c-pointer) + (mark c-pointer) + (where c-pointer))) ;;text-iter (gtk-text-iter-free ((iter c-pointer))) @@ -688,7 +711,11 @@ (gtk-check-version ((required-major uint) (required-minor uint) (required-micro uint)) - c-string)) + c-string) + (gtk-widget-create-pango-layout ((widget c-pointer) + (text c-string)) + c-pointer)) + #+libcellsgtk (def-gtk-lib-functions :cgtk @@ -705,7 +732,16 @@ (gtk-adds-widget-visible-p ((widget c-pointer)) int) (gtk-adds-widget-mapped-p ((widget c-pointer)) - int)) + int) + (gtk-adds-widget-window ((widget c-pointer)) + c-pointer) + (gtk-adds-color-new () + c-pointer) + (gtk-adds-color-set-rgb ((gdkcolor c-pointer) + (red uint) + (green uint) + (blue uint)))) + #-libcellsgtk (defmacro you-need-libcellsgtk (&body names) @@ -723,7 +759,10 @@ gtk-adds-text-iter-new gtk-adds-tree-iter-new gtk-adds-widget-mapped-p - gtk-adds-widget-visible-p)) + gtk-adds-widget-visible-p + gtk-adds-widget-window + gtk-adds-color-new + gtk-adds-color-set-rgb))