cells-gtk-cvs February 2006

cells-gtk-cvs@common-lisp.net

1 participants
69 discussions

[cells-gtk-cvs] CVS root/cells-gtk
by pdenno 16 Feb '06

16 Feb '06

Update of /project/cells-gtk/cvsroot/root/cells-gtk In directory common-lisp:/tmp/cvs-serv9292/root/cells-gtk Modified Files: conditions.lisp Log Message: trivial --- /project/cells-gtk/cvsroot/root/cells-gtk/conditions.lisp 2005/02/26 22:22:05 1.2 +++ /project/cells-gtk/cvsroot/root/cells-gtk/conditions.lisp 2006/02/16 18:12:15 1.3 @@ -21,18 +21,18 @@ (defmacro gtk-report-error (type string &body args) `(error ',type :format-string ,string :format-arguments (list ,@args))) -(define-condition gtk-continuable-error (condition) ()) +(define-condition gtk-continuable-error (condition) + ((text :initarg :text :reader text))) (define-condition gtk-cells-error (gtk-continuable-error) - ((format-string :initarg :format-string) - (format-arguments :initarg :format-arguments)) - (:report (lambda (err stream) - (with-slots (format-string format-arguments) err - (apply #'format stream format-string format-arguments))))) + ((format-string :initarg :format-string :reader format-string) + (format-arguments :initarg :format-arguments :reader format-arguments)) + (:report (lambda (c stream) + (apply #'format stream (format-string c) (format-arguments c))))) -(define-condition gtk-object-id-error (gtk-cells-error) - ()) +(define-condition gtk-object-id-error (gtk-cells-error) ()) -(define-condition gtk-user-signals-quit (condition) - ()) +(define-condition gtk-user-signals-quit (condition) ()) + +(export '(gtk-user-signals-quit gtk-continuable-error gtk-report-error))

1 0

[cells-gtk-cvs] CVS root/cells-gtk
by pdenno 16 Feb '06

16 Feb '06

Update of /project/cells-gtk/cvsroot/root/cells-gtk In directory common-lisp:/tmp/cvs-serv9273/root/cells-gtk Modified Files: cells-gtk.asd Log Message: trivial --- /project/cells-gtk/cvsroot/root/cells-gtk/cells-gtk.asd 2006/01/03 18:55:16 1.6 +++ /project/cells-gtk/cvsroot/root/cells-gtk/cells-gtk.asd 2006/02/16 18:11:08 1.7 @@ -11,7 +11,7 @@ (:file "widgets" :depends-on ("conditions")) (:file "layout" :depends-on ("widgets")) (:file "display" :depends-on ("widgets")) -#+notyet(:file "drawing" :depends-on ("widgets")) ; not ready yet. +; (:file "drawing" :depends-on ("widgets")) (:file "buttons" :depends-on ("widgets")) (:file "entry" :depends-on ("widgets")) (:file "tree-view" :depends-on ("widgets"))

1 0

[cells-gtk-cvs] CVS root/cells-gtk
by pdenno 16 Feb '06

16 Feb '06

Update of /project/cells-gtk/cvsroot/root/cells-gtk In directory common-lisp:/tmp/cvs-serv9254/root/cells-gtk Modified Files: buttons.lisp Log Message: trivial --- /project/cells-gtk/cvsroot/root/cells-gtk/buttons.lisp 2004/12/22 16:23:50 1.5 +++ /project/cells-gtk/cvsroot/root/cells-gtk/buttons.lisp 2006/02/16 18:10:10 1.6 @@ -85,7 +85,7 @@ :new-args (c? (and (upper self box) (list (if (eql (first (kids (fm-parent self))) self) - c-null + +c-null+ (id (first (kids (fm-parent self)))))))) :on-toggled (callback (widget event data) ;;(print (list :radio-button widget event data))

1 0

[cells-gtk-cvs] CVS
by pdenno 16 Feb '06

16 Feb '06

Update of /project/cells-gtk/cvsroot In directory common-lisp:/tmp/cvs-serv9159 Modified Files: INSTALL.TXT Log Message: New procedure *gtk-lib-path* is gone! Note testing of SBCL and new windows GTK+ lib --- /project/cells-gtk/cvsroot/INSTALL.TXT 2006/01/03 19:13:50 1.1 +++ /project/cells-gtk/cvsroot/INSTALL.TXT 2006/02/16 18:09:31 1.2 @@ -7,16 +7,13 @@ STEP 1: EVERYONE: Start lisp, change to this directory and do (load "load") -STEP 2: EVERYONE: If STEP 1 didn't go well, look at the settings of - *gtk-lib-path* in file ./root/gtk-ffi/gtk-ffi.asd +STEP 2: EVERYONE: (test-gtk::gtk-demo) -STEP 3: EVERYONE: (test-gtk::gtk-demo) - -STEP 4: ANYONE (optional) make libcellsgtk, (or get it from the cells-gtk site). To make: - 4a) In ./root/gtk-ffi 'make' - 4b) Move the library created to whatever *gtk-lib-path* is set to. - 4c) Uncomment the line (pushnew :libcellsgtk *features*) in ./root/gtk-ffi/gtk-ffi.asd - 4d) Recompile the distribution (remove fasls and type (load "load") again. +STEP 3: ANYONE (optional) make libcellsgtk, (or get it from the cells-gtk site). To make: + 3a) In ./root/gtk-ffi 'make' + 3b) Move the library created to where it will be found (Linux see /etc/ld.so.conf). + 3c) Uncomment the line (pushnew :libcellsgtk *features*) in ./root/gtk-ffi/gtk-ffi.asd + 3d) Recompile the distribution (remove fasls and type (load "load") again. TESTED ON: @@ -28,18 +25,17 @@ Lispworks 4.4 Pro, CMUCL 19c, CLISP 2.36 + SBCL 0.9.9.1 NOT TESTED SINCE SWITCHING TO CFFI: (as of 2006-01-03): AllegroCL - MACOS - SBCL - never tested, but probably pretty close to OK. + MACOSX ;;; -------- Windows Users --------------- - Get GTK and Install - http://gimp-win.sourceforge.net/stable.html + http://gimp-win.sourceforge.net/stable.html (I used version 2.8.9) Executing the setup.exe should add "C:\Program Files\Common Files\GTK\2.0\bin" to your path. You can verify that it has: @@ -50,6 +46,8 @@ Note: On windows under emacs with slime, the gtk window does not popup. You must start the application from a dos prompt. + (Solutions to this problem welcome!, probably involves putting something + like a call to gtk-iteration-do into some slime loop through a hook.) Known bugs: On Windows: Clisp crashes if

1 0

[cells-gtk-cvs] CVS root/gtk-ffi
by pdenno 16 Feb '06

16 Feb '06

Update of /project/cells-gtk/cvsroot/root/gtk-ffi In directory common-lisp:/tmp/cvs-serv9130/root/gtk-ffi Removed Files: gtk-definitions.lisp Log Message: Not used

1 0

[cells-gtk-cvs] CVS root/gtk-ffi
by pdenno 16 Feb '06

16 Feb '06

Update of /project/cells-gtk/cvsroot/root/gtk-ffi In directory common-lisp:/tmp/cvs-serv9113/root/gtk-ffi Modified Files: gtk-utilities.lisp Log Message: A few nils should have been +c-null+, use cffi:foreign-alloc --- /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-utilities.lisp 2006/02/11 03:48:09 1.17 +++ /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-utilities.lisp 2006/02/16 18:07:50 1.18 @@ -26,13 +26,13 @@ (defun g-signal-connect-data (self detailed-signal c-handler data destroy-data after) (uffi:with-cstrings ((c-detailed-signal detailed-signal)) - (let ((p4 (or data c-null))) + (let ((p4 (or data +c-null+))) (g_signal_connect_data self c-detailed-signal (wrap-func c-handler) p4 - (or destroy-data c-null) + (or destroy-data +c-null+) (if after 1 0))))) (uffi:def-function ("g_signal_connect_data" g_signal_connect_data) @@ -44,7 +44,7 @@ (or func-address 0)) -(defun gtk-signal-connect-swap (widget signal fun &key (after t) data destroy-data) +(defun gtk-signal-connect-swap (widget signal fun &key (after t) data (destroy-data +c-null+)) ; pod 0216 (g-signal-connect-closure widget signal (g-cclosure-new-swap (wrap-func fun) data destroy-data) after)) @@ -68,12 +68,12 @@ :null-terminated-p t) #-(or allegro lispworks) (with-foreign-object (bytes-written :int) - (g-locale-from-utf8 pointer -1 nil bytes-written nil))))) + (g-locale-from-utf8 pointer -1 +c-null+ bytes-written +c-null+))))) (defun to-gtk-string (str) "!!!! remember to free returned str pointer" (with-foreign-object (bytes-written :int) - (g-locale-to-utf8 str -1 c-null bytes-written c-null))) + (g-locale-to-utf8 str -1 +c-null+ bytes-written +c-null+))) (defmacro with-gdk-threads (&rest body) `(unwind-protect @@ -101,7 +101,7 @@ :data menu)) (defun gtk-list-store-new (col-types) - (let ((c-types (cffi:foreign-alloc :int :count (length col-types)))) ;(ffx:fgn-alloc :int (length col-types)))) + (let ((c-types (cffi:foreign-alloc :int :count (length col-types)))) (loop for type in col-types for n upfrom 0 do (setf (cffi:mem-aref c-types :int n) (coerce (as-gtk-type type) 'integer))) @@ -146,7 +146,7 @@ (gvi :post-set)))) (defun gtk-tree-store-new (col-types) - (let ((gtk-types (cffi:foreign-alloc :int :count (length col-types)))) ;(ffx:fgn-alloc :int (length col-types)) + (let ((gtk-types (cffi:foreign-alloc :int :count (length col-types)))) (loop for type in col-types for tn upfrom 0 do (setf (cffi:mem-aref gtk-types :int tn) (coerce (as-gtk-type type) 'integer)))

1 0

[cells-gtk-cvs] CVS root/gtk-ffi
by pdenno 16 Feb '06

16 Feb '06

Update of /project/cells-gtk/cvsroot/root/gtk-ffi In directory common-lisp:/tmp/cvs-serv9088/root/gtk-ffi Modified Files: gtk-tool.lisp Log Message: Now native CFFI --- /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-tool.lisp 2004/12/06 20:03:00 1.1 +++ /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-tool.lisp 2006/02/16 18:06:46 1.2 @@ -18,67 +18,92 @@ (in-package :gtk-ffi) - (def-gtk-lib-functions :gtk ;;toolbar - (gtk-toolbar-new () - c-pointer) - (gtk-toolbar-insert ((toolbar c-pointer) - (item c-pointer) - (pos int))) - (gtk-toolbar-set-show-arrow ((toolbar c-pointer) - (show-arrow boolean))) - (gtk-toolbar-set-orientation ((toolbar c-pointer) - (orientation int))) - (gtk-toolbar-set-tooltips ((toolbar c-pointer) - (enable boolean))) - (gtk-toolbar-set-style ((toolbar c-pointer) - (style int))) + (gtk-toolbar-new :pointer ()) + (gtk-toolbar-insert + :void + ((toolbar :pointer) + (item :pointer) + (pos :int))) + (gtk-toolbar-set-show-arrow + :void + ((toolbar :pointer) + (show-arrow :gtk-boolean))) + (gtk-toolbar-set-orientation + :void + ((toolbar :pointer) (orientation :int))) + (gtk-toolbar-set-tooltips + :void + ((toolbar :pointer) (enable :gtk-boolean))) + (gtk-toolbar-set-style + :void + ((toolbar :pointer) (style :int))) ;;tooltips - (gtk-tooltips-new () - c-pointer) - (gtk-tooltips-set-tip ((tooltips c-pointer) - (widget c-pointer) - (tip-text c-string) - (tip-private c-string))) - (gtk-tooltips-enable ((tooltips c-pointer))) - (gtk-tooltips-disable ((tooltips c-pointer))) - (gtk-tooltips-set-delay ((tooltips c-pointer) - (delay uint))) - ;;tool-item - (gtk-tool-item-new () - c-pointer) - (gtk-tool-item-set-homogeneous ((tool-item c-pointer) - (homogeneous boolean))) - (gtk-tool-item-set-expand ((tool-item c-pointer) - (expand boolean))) - (gtk-tool-item-set-tooltip ((tool-item c-pointer) - (tooltips c-pointer) - (tip-text c-string) - (tip-private c-string))) - (gtk-tool-item-set-is-important ((tool-item c-pointer) - (is-important boolean))) + (gtk-tooltips-new :pointer ()) + (gtk-tooltips-set-tip + :void + ((tooltips :pointer) + (widget :pointer) + (tip-text :gtk-string) + (tip-private :gtk-string))) + (gtk-tooltips-enable + :void + ((tooltips :pointer))) + (gtk-tooltips-disable + :void + ((tooltips :pointer))) + (gtk-tooltips-set-delay + :void + ((tooltips :pointer) (delay :unsigned-int))) - (gtk-separator-tool-item-new () - c-pointer) - (gtk-separator-tool-item-set-draw ((item c-pointer) - (draw boolean))) + ;;tool-item + (gtk-tool-item-new :pointer ()) + (gtk-tool-item-set-homogeneous + :void + ((tool-item :pointer) + (homogeneous :gtk-boolean))) + (gtk-tool-item-set-expand + :void + ((tool-item :pointer) (expand :gtk-boolean))) + (gtk-tool-item-set-tooltip + :void + ((tool-item :pointer) + (tooltips :pointer) + (tip-text :gtk-string) + (tip-private :gtk-string))) + (gtk-tool-item-set-is-important + :void + ((tool-item :pointer) + (is-important :gtk-boolean))) + (gtk-separator-tool-item-new :pointer ()) + (gtk-separator-tool-item-set-draw + :void + ((item :pointer) (draw :gtk-boolean))) ;;tool-button - (gtk-tool-button-new ((icon-widget c-pointer) - (label c-pointer)) - c-pointer) - (gtk-tool-button-new-from-stock ((stock-id c-string)) - c-pointer) - (gtk-tool-button-set-label ((tool-button c-pointer) - (label c-pointer))) - (gtk-tool-button-set-use-underline ((tool-button c-pointer) - (use-underline boolean))) - (gtk-tool-button-set-stock-id ((tool-button c-pointer) - (stock-id c-string))) - (gtk-tool-button-set-icon-widget ((tool-button c-pointer) - (icon-widget c-pointer))) - (gtk-tool-button-set-label-widget ((tool-button c-pointer) - (label-widget c-pointer)))) - + (gtk-tool-button-new + :pointer + ((icon-widget :pointer) (label :pointer))) + (gtk-tool-button-new-from-stock + :pointer + ((stock-id :gtk-string))) + (gtk-tool-button-set-label + :void + ((tool-button :pointer) (label :pointer))) + (gtk-tool-button-set-use-underline + :void + ((tool-button :pointer) + (use-underline :gtk-boolean))) + (gtk-tool-button-set-stock-id + :void + ((tool-button :pointer) (stock-id :gtk-string))) + (gtk-tool-button-set-icon-widget + :void + ((tool-button :pointer) + (icon-widget :pointer))) + (gtk-tool-button-set-label-widget + :void + ((tool-button :pointer) + (label-widget :pointer)))) \ No newline at end of file

1 0

[cells-gtk-cvs] CVS root/gtk-ffi
by pdenno 16 Feb '06

16 Feb '06

Update of /project/cells-gtk/cvsroot/root/gtk-ffi In directory common-lisp:/tmp/cvs-serv9069/root/gtk-ffi Modified Files: gtk-other.lisp Log Message: Now native CFFI --- /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-other.lisp 2006/02/11 03:46:42 1.12 +++ /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-other.lisp 2006/02/16 18:06:06 1.13 @@ -18,757 +18,869 @@ (in-package :gtk-ffi) + (def-gtk-lib-functions :gtk ;; main-loop - (gtk-init ((argc (c-ptr-null int)) - (argv c-pointer))) - (gtk-init-check ((argc (c-ptr-null int)) - (argv c-pointer)) - boolean) - (gtk-events-pending () - boolean) - (gtk-main-iteration () - boolean) - (gtk-main-iteration-do ((blocking boolean)) - boolean nil nil) - (gtk-main ()) - (gtk-main-quit ()) - (gtk-main-level () int) - (gtk-get-current-event-time () - uint32) + (gtk-init :void + ((argc :pointer) (argv :pointer))) + (gtk-init-check :gtk-boolean + ((argc :pointer) + (argv :pointer))) + (gtk-events-pending :gtk-boolean ()) + (gtk-main-iteration :gtk-boolean ()) + (gtk-main-iteration-do :gtk-boolean + ((blocking :gtk-boolean))) + (gtk-main :void ()) + (gtk-main-quit :void ()) + (gtk-main-level :int ()) + (gtk-get-current-event-time :unsigned-int ()) ;;container - (gtk-container-add ((container c-pointer) - (widget c-pointer)) - c-pointer) - (gtk-container-remove ((container c-pointer) - (widget c-pointer))) + (gtk-container-add :pointer + ((container :pointer) + (widget :pointer))) + (gtk-container-remove :void + ((container :pointer) + (widget :pointer))) ;;box - (gtk-box-pack-start ((box c-pointer) - (widget c-pointer) - (expand boolean) - (fill boolean) - (padding int)) - nil nil nil) - (gtk-box-pack-start-defaults ((box c-pointer) - (widget c-pointer))) - (gtk-box-set-homogeneous ((box c-pointer) - (homogeneous boolean)) - nil nil nil) - (gtk-box-set-spacing ((box c-pointer) - (spacing int))) - (gtk-hbox-new ((homogeneous boolean) - (spacing int)) - c-pointer nil nil) - (gtk-vbox-new ((homogeneous boolean) - (spacing int)) - c-pointer nil nil) - - (gtk-drawing-area-new () - c-pointer) + (gtk-box-pack-start :void + ((box :pointer) + (widget :pointer) + (expand :gtk-boolean) + (fill :gtk-boolean) + (padding :int))) + (gtk-box-pack-start-defaults :void + ((box :pointer) + (widget + :pointer))) + (gtk-box-set-homogeneous :void + ((box :pointer) + (homogeneous + :gtk-boolean))) + (gtk-box-set-spacing :void + ((box :pointer) + (spacing :int))) + (gtk-hbox-new :pointer + ((homogeneous :gtk-boolean) + (spacing :int))) + (gtk-vbox-new :pointer + ((homogeneous :gtk-boolean) + (spacing :int))) + (gtk-drawing-area-new :pointer ()) ;;table - (gtk-table-new ((rows uint) - (columns uint) - (homogeneous boolean)) - c-pointer nil nil) - (gtk-table-attach ((table c-pointer) - (child c-pointer) - (l-attach uint) - (r-attach uint) - (t-attach uint) - (b-attach uint) - (x-options int) - (y-options int) - (x-padding int) - (y-padding int))) - (gtk-table-attach-defaults ((table c-pointer) - (child c-pointer) - (l-attach uint) - (r-attach uint) - (t-attach uint) - (b-attach uint))) - (gtk-table-set-homogeneous ((table c-pointer) - (homogeneous boolean)) - nil nil nil) + (gtk-table-new :pointer + ((rows :unsigned-int) + (columns :unsigned-int) + (homogeneous :gtk-boolean))) + (gtk-table-attach :void + ((table :pointer) + (child :pointer) + (l-attach :unsigned-int) + (r-attach :unsigned-int) + (t-attach :unsigned-int) + (b-attach :unsigned-int) + (x-options :int) + (y-options :int) + (x-padding :int) + (y-padding :int))) + (gtk-table-attach-defaults :void + ((table :pointer) + (child :pointer) + (l-attach + :unsigned-int) + (r-attach + :unsigned-int) + (t-attach + :unsigned-int) + (b-attach + :unsigned-int))) + (gtk-table-set-homogeneous :void + ((table :pointer) + (homogeneous + :gtk-boolean))) ;;paned - (gtk-paned-add1 ((paned c-pointer) - (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 () - c-pointer) + (gtk-paned-add1 :void + ((paned :pointer) + (child :pointer))) + (gtk-paned-add2 :void + ((paned :pointer) + (child :pointer))) + (gtk-paned-set-position :void + ((paned :pointer) + (pos :int))) + (gtk-hpaned-new :pointer ()) + (gtk-vpaned-new :pointer ()) ;;expander - (gtk-expander-new ((label c-string)) - c-pointer) - (gtk-expander-set-expanded ((expander c-pointer) - (expanded boolean))) - (gtk-expander-set-spacing ((expander c-pointer) - (spacing c-pointer))) - (gtk-expander-set-label ((expander c-pointer) - (label c-string))) - (gtk-expander-set-use-underline ((expander c-pointer) - (use-underline boolean))) - (gtk-expander-set-use-markup ((expander c-pointer) - (use-markup boolean))) - (gtk-expander-set-label-widget ((expander c-pointer) - (label-widget c-pointer))) - - ;;alignment - (gtk-alignment-new ((xalign single-float) - (yalign single-float) - (xscale single-float) - (yscale single-float)) - c-pointer) - (gtk-alignment-set ((alignment c-pointer) - (xalign single-float) - (yalign single-float) - (xscale single-float) - (yscale single-float))) - + (gtk-expander-new :pointer + ((label :gtk-string))) + (gtk-expander-set-expanded :void + ((expander :pointer) + (expanded + :gtk-boolean))) + (gtk-expander-set-spacing :void + ((expander :pointer) + (spacing :pointer))) + (gtk-expander-set-label :void + ((expander :pointer) + (label :gtk-string))) + (gtk-expander-set-use-underline :void + ((expander + :pointer) + (use-underline + :gtk-boolean))) + (gtk-expander-set-use-markup :void + ((expander + :pointer) + (use-markup + :gtk-boolean))) + (gtk-expander-set-label-widget :void + ((expander + :pointer) + (label-widget + :pointer))) + + ;;alignment + (gtk-alignment-new :pointer + ((xalign :float) + (yalign :float) + (xscale :float) + (yscale :float))) + (gtk-alignment-set :void + ((alignment :pointer) + (xalign :float) + (yalign :float) + (xscale :float) + (yscale :float))) + ;;frame - (gtk-frame-new ((label c-string)) - c-pointer) - (gtk-frame-set-label ((frame c-pointer) - (label c-string))) - (gtk-frame-set-label-widget ((frame c-pointer) - (label-widget c-pointer))) - (gtk-frame-set-label-align ((frame c-pointer) - (xalign single-float) - (yalign single-float))) - (gtk-frame-set-shadow-type ((frame c-pointer) - (shadow-type int))) - + (gtk-frame-new :pointer ((label :gtk-string))) + (gtk-frame-set-label :void + ((frame :pointer) + (label :gtk-string))) + (gtk-frame-set-label-widget :void + ((frame :pointer) + (label-widget + :pointer))) + (gtk-frame-set-label-align :void + ((frame :pointer) + (xalign :float) + (yalign :float))) + (gtk-frame-set-shadow-type :void + ((frame :pointer) + (shadow-type :int))) + ;;aspect-frame - (gtk-aspect-frame-new ((label c-string) - (xalign single-float) - (yalign single-float) - (ratio single-float) - (obey_child boolean)) - c-pointer) - - ;;separator - (gtk-hseparator-new () - c-pointer) - (gtk-vseparator-new () - c-pointer) - - ;;scrolling - (gtk-scrolled-window-new ((hadjustment c-pointer) - (vadjustment c-pointer)) - c-pointer) - (gtk-scrolled-window-set-policy ((scrolled-window c-pointer) - (h-policy int) - (v-policy int))) - (gtk-scrolled-window-add-with-viewport ((scrolled-window c-pointer) - (child c-pointer))) - (gtk-scrolled-window-set-placement ((scrolled-window c-pointer) - (placement int))) - (gtk-scrolled-window-set-shadow-type ((scrolled-window c-pointer) - (type int))) - - ;;notebook - (gtk-notebook-new () - c-pointer) - (gtk-notebook-append-page ((notebook c-pointer) - (child c-pointer) - (tab-label c-pointer)) - int) - (gtk-notebook-append-page-menu ((notebook c-pointer) - (child c-pointer) - (tab-label c-pointer) - (menu-label c-pointer)) - int) - (gtk-notebook-prepend-page ((notebook c-pointer) - (child c-pointer) - (tab-label c-pointer)) - int) - (gtk-notebook-prepend-page-menu ((notebook c-pointer) - (child c-pointer) - (tab-label c-pointer) - (menu-label c-pointer)) - int) - (gtk-notebook-insert-page ((notebook c-pointer) - (child c-pointer) - (tab-label c-pointer) - (pos int)) - int) - (gtk-notebook-insert-page-menu ((notebook c-pointer) - (child c-pointer) - (tab-label c-pointer) - (menu-label c-pointer) - (pos int)) - int) - (gtk-notebook-remove-page ((notebook c-pointer) - (page-num int))) - (gtk-notebook-set-current-page ((notebook c-pointer) - (page-num int))) - (gtk-notebook-set-tab-pos ((notebook c-pointer) - (pos int))) - (gtk-notebook-set-show-tabs ((notebook c-pointer) - (show-tabs boolean))) - (gtk-notebook-set-show-border ((notebook c-pointer) - (show-border boolean))) - (gtk-notebook-set-scrollable ((notebook c-pointer) - (scrollable boolean))) - (gtk-notebook-set-tab-border ((notebook c-pointer) - (border-width int))) - (gtk-notebook-popup-enable ((notebook c-pointer))) - (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) + (gtk-aspect-frame-new :pointer + ((label :gtk-string) + (xalign :float) + (yalign :float) + (ratio :float) + (obey_child + :gtk-boolean))) + ;; separator + (gtk-hseparator-new :pointer ()) + (gtk-vseparator-new :pointer ()) + + ;;scrolled + (gtk-scrolled-window-new :pointer + ((hadjustment :pointer) + (vadjustment + :pointer))) + (gtk-scrolled-window-set-policy :void + ((scrolled-window + :pointer) + (h-policy :int) + (v-policy :int))) + (gtk-scrolled-window-add-with-viewport :void + ((scrolled-window :pointer) + (child :pointer))) + (gtk-scrolled-window-set-placement :void + ((scrolled-window :pointer) + (placement :int))) + (gtk-scrolled-window-set-shadow-type :void + ((scrolled-window :pointer) + (type :int))) + + ;;notebook + (gtk-notebook-new :pointer ()) + (gtk-notebook-append-page :int + ((notebook :pointer) + (child :pointer) + (tab-label :pointer))) + (gtk-notebook-append-page-menu :int + ((notebook :pointer) + (child :pointer) + (tab-label :pointer) [1161 lines skipped]

1 0

[cells-gtk-cvs] CVS root/gtk-ffi
by pdenno 16 Feb '06

16 Feb '06

Update of /project/cells-gtk/cvsroot/root/gtk-ffi In directory common-lisp:/tmp/cvs-serv9055/root/gtk-ffi Modified Files: gtk-menu.lisp Log Message: Now native CFFI --- /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-menu.lisp 2005/02/26 22:40:00 1.3 +++ /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-menu.lisp 2006/02/16 18:05:49 1.4 @@ -18,108 +18,89 @@ (in-package :gtk-ffi) -(def-gtk-function :gtk gtk-check-menu-item-set-active :arguments - ((check-menu c-pointer) (active boolean)) - :return-type nil :call-direct t) +(def-gtk-function :gtk gtk-check-menu-item-set-active :void + ((check-menu :pointer) (active :gtk-boolean))) #+test (def-gtk-lib-functions :gtk (gtk-check-menu-item-set-active ((check-menu c-pointer) (active boolean)))) - - (def-gtk-lib-functions :gtk - ;;menu - (gtk-menu-shell-append ((menu-shell c-pointer) - (child c-pointer))) - (gtk-menu-shell-prepend ((menu-shell c-pointer) - (child c-pointer))) - (gtk-menu-shell-insert ((menu-shell c-pointer) - (child c-pointer) - (position int))) - (gtk-menu-bar-new () - c-pointer) - - (gtk-menu-new () - c-pointer) - (gtk-menu-set-title ((menu c-pointer) - (title c-string))) - (gtk-menu-attach ((menu c-pointer) - (child c-pointer) - (lattach uint) - (rattach uint) - (tattach uint) - (battach uint))) - (gtk-menu-attach-to-widget ((menu c-pointer) - (widget c-pointer) - (func #.(callback-function ((widget c-pointer) - (menu c-pointer)))))) - - (gtk-menu-popup ((menu c-pointer) - (p-menu-shell c-pointer) - (p-menu-item c-pointer) - (func #.(callback-function ((menu c-pointer) - (x (c-ptr int)) - (y (c-ptr int)) - (push-in (c-ptr boolean)) - (data c-pointer)))) - (data c-pointer) - (button uint) - (activate-time uint32))) - - (gtk-menu-item-new () - c-pointer) - (gtk-menu-item-new-with-label ((label c-string)) - c-pointer) - (gtk-menu-item-set-right-justified ((menu-item c-pointer) - (right-justified boolean))) - (gtk-menu-item-set-submenu ((menu-item c-pointer) - (submenu c-pointer))) - (gtk-menu-item-get-submenu ((menu-item c-pointer)) - c-pointer) - (gtk-menu-item-remove-submenu ((menu-item c-pointer))) - (gtk-menu-item-set-accel-path ((menu-item c-pointer) - (acell-path c-pointer))) - (gtk-accel-map-add-entry ((accel-path c-pointer) - (accel-key uint) - (accel-mods int))) - - (gtk-check-menu-item-new () - c-pointer) - (gtk-check-menu-item-new-with-label ((label c-string)) - c-pointer) - #+above (gtk-check-menu-item-set-active ((check-menu c-pointer) - (active boolean))) - (gtk-check-menu-item-get-active ((check-menu c-pointer)) - boolean) - - (gtk-radio-menu-item-new ((group c-pointer)) - c-pointer) - (gtk-radio-menu-item-new-from-widget ((group c-pointer)) - c-pointer) - (gtk-radio-menu-item-new-with-label ((group c-pointer) - (label c-string)) - c-pointer) - (gtk-radio-menu-item-new-with-label-from-widget ((radio c-pointer) - (label c-string)) - c-pointer) - (gtk-radio-menu-item-get-group ((radio c-pointer)) - c-pointer) - - (gtk-image-menu-item-new () - c-pointer) - (gtk-image-menu-item-new-with-label ((label c-string)) - c-pointer) - (gtk-image-menu-item-new-from-stock ((stock-id c-string) - (accel-group c-pointer)) - c-pointer) - (gtk-image-menu-item-set-image ((menu-item c-pointer) - (image c-pointer))) - - - (gtk-separator-menu-item-new () - c-pointer) - (gtk-tearoff-menu-item-new () - c-pointer)) + (gtk-menu-shell-append :void + ((menu-shell :pointer) + (child :pointer))) + (gtk-menu-shell-prepend :void + ((menu-shell :pointer) + (child :pointer))) + (gtk-menu-shell-insert :void + ((menu-shell :pointer) + (child :pointer) + (position :int))) + (gtk-menu-bar-new :pointer ()) + (gtk-menu-new :pointer ()) + (gtk-menu-set-title :void + ((menu :pointer) (title :gtk-string))) + (gtk-menu-attach :void + ((menu :pointer) (child :pointer) + (lattach :unsigned-int) + (rattach :unsigned-int) + (tattach :unsigned-int) + (battach :unsigned-int))) + (gtk-menu-attach-to-widget :void + ((menu :pointer) + (widget :pointer) + (func :pointer))) + ;;func = (callback-function ((menu c-pointer) (x (c-ptr int)) (y (c-ptr int)) + ;; (push-in (c-ptr boolean)) (data c-pointer))) + (gtk-menu-popup :void + ((menu :pointer) (p-menu-shell :pointer) + (p-menu-item :pointer) (func :pointer) + (data :pointer) (button :unsigned-int) + (activate-time :unsigned-int))) + (gtk-menu-item-new :pointer ()) + (gtk-menu-item-new-with-label :pointer + ((label :pointer))) + (gtk-menu-item-set-right-justified :void + ((menu-item :pointer) + (right-justified :gtk-boolean))) + (gtk-menu-item-set-submenu :void + ((menu-item :pointer) + (submenu :pointer))) + (gtk-menu-item-get-submenu :pointer + ((menu-item :pointer))) + (gtk-menu-item-remove-submenu :void + ((menu-item :pointer))) + (gtk-menu-item-set-accel-path :void + ((menu-item :pointer) + (acell-path :pointer))) + (gtk-accel-map-add-entry :void + ((accel-path :pointer) + (accel-key :unsigned-int) + (accel-mods :int))) + (gtk-check-menu-item-new :pointer ()) + (gtk-check-menu-item-new-with-label :pointer + ((label :pointer))) + (gtk-check-menu-item-get-active :gtk-boolean + ((check-menu :pointer))) + (gtk-radio-menu-item-new :pointer ((group :pointer))) + (gtk-radio-menu-item-new-from-widget :pointer + ((group :pointer))) + (gtk-radio-menu-item-new-with-label :pointer + ((group :pointer))) + (gtk-radio-menu-item-new-with-label-from-widget :pointer + ((radio :pointer) + (label :gtk-string))) + (gtk-radio-menu-item-get-group :pointer ((radio :pointer))) + (gtk-image-menu-item-new :pointer ()) + (gtk-image-menu-item-new-with-label :pointer ((label :gtk-string))) + (gtk-image-menu-item-new-from-stock :pointer + ((stock-id :gtk-string) + (accel-group :pointer))) + (gtk-image-menu-item-set-image :void + ((menu-item :pointer) + (image :pointer))) + (gtk-separator-menu-item-new :pointer ()) + (gtk-tearoff-menu-item-new :pointer ())) +

1 0

[cells-gtk-cvs] CVS root/gtk-ffi
by pdenno 16 Feb '06

16 Feb '06

Update of /project/cells-gtk/cvsroot/root/gtk-ffi In directory common-lisp:/tmp/cvs-serv9014/root/gtk-ffi Modified Files: gtk-list-tree.lisp Log Message: Now native CFFI --- /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-list-tree.lisp 2006/01/03 19:08:51 1.4 +++ /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-list-tree.lisp 2006/02/16 18:05:04 1.5 @@ -19,158 +19,177 @@ (in-package :gtk-ffi) (def-gtk-lib-functions :gtk - ;;list-store - (gtk-list-store-newv ((n-columns int) - (col-types c-pointer)) - c-pointer) - (gtk-list-store-set-valist ((store c-pointer) - (iter c-pointer) - (data c-pointer))) - (gtk-list-store-set-value ((store c-pointer) - (iter c-pointer) - (column int) - (value c-pointer))) - (gtk-list-store-append ((list-store c-pointer) - (iter c-pointer))) - (gtk-list-store-clear ((list-store c-pointer))) - - ;;tree-store - (gtk-tree-store-newv ((n-columns int) - (col-types c-pointer)) - c-pointer) - (gtk-tree-store-set-valist ((store c-pointer) - (iter c-pointer) - (data c-pointer))) - (gtk-tree-store-set-value ((store c-pointer) - (iter c-pointer) - (column int) - (value c-pointer))) - (gtk-tree-store-append ((list-store c-pointer) - (iter c-pointer) - (parent c-pointer))) - (gtk-tree-store-clear ((list-store c-pointer))) - - ;;tree-view - (gtk-tree-view-new () - c-pointer) - (gtk-tree-view-set-model ((tree-view c-pointer) - (model c-pointer))) - (gtk-tree-view-insert-column ((tree-view c-pointer) - (column c-pointer) - (pos int)) - int) - (gtk-tree-view-get-selection ((tree-view c-pointer)) - c-pointer) - (gtk-tree-view-get-path-at-pos ((tree-view c-pointer) - (x int) - (y int) - (path c-pointer) - (column c-pointer) - (cell-x c-pointer) - (cell-y c-pointer)) - boolean) - (gtk-tree-view-widget-to-tree-coords ((tree-view c-pointer) - (wx int) - (wy int) - (tx c-pointer) - (ty c-pointer))) - (gtk-tree-view-tree-to-widget-coords ((tree-view c-pointer) - (wx int) - (wy int) - (tx c-pointer) - (ty c-pointer))) - (gtk-tree-view-expand-all ((tree-view c-pointer))) - + ;;list-store + (gtk-list-store-newv :pointer + ((n-columns :int) + (col-types :pointer))) + (gtk-list-store-set-valist :void + ((store :pointer) + (iter :pointer) + (data :pointer))) + (gtk-list-store-set-value :void + ((store :pointer) + (iter :pointer) + (column :int) + (value :pointer))) + (gtk-list-store-append :void + ((list-store :pointer) + (iter :pointer))) + (gtk-list-store-clear :void + ((list-store :pointer))) + ;;tre-store + (gtk-tree-store-newv :pointer + ((n-columns :int) + (col-types :pointer))) + (gtk-tree-store-set-valist :void + ((store :pointer) + (iter :pointer) + (data :pointer))) + (gtk-tree-store-set-value :void + ((store :pointer) + (iter :pointer) + (column :int) + (value :pointer))) + (gtk-tree-store-append :void + ((list-store :pointer) + (iter :pointer) + (parent :pointer))) + (gtk-tree-store-clear :void + ((list-store :pointer))) + ;;tre-view + (gtk-tree-view-new :pointer ()) + (gtk-tree-view-set-model :void + ((tree-view :pointer) + (model :pointer))) + (gtk-tree-view-insert-column :int + ((tree-view + :pointer) + (column :pointer) + (pos :int))) + (gtk-tree-view-get-selection :pointer + ((tree-view + :pointer))) + (gtk-tree-view-get-path-at-pos :gtk-boolean + ((tree-view :pointer) + (x :int) + (y :int) + (path :pointer) + (column :pointer) + (cell-x :pointer) + (cell-y :pointer))) + (gtk-tree-view-widget-to-tree-coords :void + ((tree-view :pointer) + (wx :int) + (wy :int) + (tx :pointer) + (ty :pointer))) + (gtk-tree-view-tree-to-widget-coords :void + ((tree-view :pointer) + (wx :int) + (wy :int) + (tx :pointer) + (ty :pointer))) + (gtk-tree-view-expand-all :void + ((tree-view :pointer))) ;;tree-iter - (gtk-tree-iter-free ((iter c-pointer))) - + (gtk-tree-iter-free :void ((iter :pointer))) + (gtk-tree-model-get :void + ((tree-model :pointer) + (iter :pointer) + (column :int) + (data :pointer) + (eof :int))) ;;tree-model - (gtk-tree-model-get ((tree-model c-pointer) - (iter c-pointer) - (column int) - (data c-pointer) - (eof int))) - (gtk-tree-model-get-iter-from-string ((tree-model c-pointer) - (iter c-pointer) - (path c-string)) - boolean) - + (gtk-tree-model-get-iter-from-string :gtk-boolean + ((tree-model :pointer) + (iter :pointer) + (path :gtk-string))) ;;tree-path - (gtk-tree-path-new-from-string ((path c-string)) - c-pointer) - (gtk-tree-path-to-string ((path c-pointer)) - c-string) - (gtk-tree-path-free ((path c-pointer))) - + (gtk-tree-path-new-from-string :pointer + ((path :gtk-string))) + (gtk-tree-path-to-string :gtk-string + ((path :pointer))) + (gtk-tree-path-free :void ((path :pointer))) ;;tree-selection - (gtk-tree-selection-set-mode ((sel c-pointer) - (mode int))) - (gtk-tree-selection-get-mode ((sel c-pointer)) - int) - (gtk-tree-selection-select-path ((sel c-pointer) - (path c-pointer))) - (gtk-tree-selection-get-selected ((sel c-pointer) - (model c-pointer) - (iter c-pointer)) - boolean) - (gtk-tree-selection-selected-foreach ((sel c-pointer) - (callback-f #.(callback-function ((model c-pointer) - (path c-pointer) - (iter c-pointer) - (data c-pointer)))) - (data c-pointer))) - ;;tree-view-column - (gtk-tree-view-column-new () - c-pointer) - (gtk-tree-view-column-pack-start ((tree-column c-pointer) - (renderer c-pointer) - (expand boolean)) - nil nil nil) - (gtk-tree-view-column-add-attribute ((tree-column c-pointer) - (renderer c-pointer) - (attribute c-string) - (column int))) - (gtk-tree-view-column-set-spacing ((tree-column c-pointer) - (spacing int))) - (gtk-tree-view-column-set-visible ((tree-column c-pointer) - (spacing boolean)) - nil nil nil) - (gtk-tree-view-column-set-reorderable ((tree-column c-pointer) - (resizable boolean))) - (gtk-tree-view-column-set-sort-column-id ((tree-column c-pointer) - (col-id int))) - (gtk-tree-view-column-set-sort-indicator ((tree-column c-pointer) - (resizable boolean))) - (gtk-tree-view-column-set-resizable ((tree-column c-pointer) - (resizable boolean))) - (gtk-tree-view-column-set-fixed-width ((tree-column c-pointer) - (fixed-width int))) - (gtk-tree-view-column-set-min-width ((tree-column c-pointer) - (min-width int))) - (gtk-tree-view-column-set-max-width ((tree-column c-pointer) - (max-width int))) - (gtk-tree-view-column-set-title ((tree-column c-pointer) - (title c-string))) - (gtk-tree-view-column-set-expand ((tree-column c-pointer) - (expand boolean))) - (gtk-tree-view-column-set-clickable ((tree-column c-pointer) - (clickable boolean))) - (gtk-tree-view-column-set-cell-data-func ((tree-column c-pointer) - (cell-renderer c-pointer) - (func #.(callback-function ((tree-column c-pointer) - (cell-renderer c-pointer) - (tree-model c-pointer) - (iter c-pointer) - (data c-pointer)))) - (data c-pointer) - (destroy c-pointer))) - ;;cell-renderers - (gtk-cell-renderer-text-new () - c-pointer) - (gtk-cell-renderer-toggle-new () - c-pointer) - (gtk-cell-renderer-pixbuf-new () - c-pointer) - (gtk-cell-renderer-set-fixed-size ((cell c-pointer) - (width int) - (height int)))) + (gtk-tree-selection-set-mode :void + ((sel :pointer) + (mode :int))) + (gtk-tree-selection-get-mode :int + ((sel :pointer))) + (gtk-tree-selection-select-path :void + ((sel :pointer) + (path :pointer))) + (gtk-tree-selection-get-selected :gtk-boolean + ((sel :pointer) + (model :pointer) + (iter :pointer))) + (gtk-tree-selection-selected-foreach :void + ((sel :pointer) + (callback-f :pointer) + (data :pointer))) + ;;tre-view-column + (gtk-tree-view-column-new :pointer ()) + (gtk-tree-view-column-pack-start :void + ((tree-column :pointer) + (renderer :pointer) + (expand :gtk-boolean))) + (gtk-tree-view-column-add-attribute :void + ((tree-column :pointer) + (renderer :pointer) + (attribute :gtk-string) + (column :int))) + (gtk-tree-view-column-set-spacing :void + ((tree-column :pointer) + (spacing :int))) + (gtk-tree-view-column-set-visible :void + ((tree-column :pointer) + (spacing :gtk-boolean))) + (gtk-tree-view-column-set-reorderable :void + ((tree-column :pointer) + (resizable :gtk-boolean))) + (gtk-tree-view-column-set-sort-column-id :void + ((tree-column :pointer) + (col-id :int))) + (gtk-tree-view-column-set-sort-indicator :void + ((tree-column :pointer) + (resizable :gtk-boolean))) + (gtk-tree-view-column-set-resizable :void + ((tree-column :pointer) + (resizable :gtk-boolean))) + (gtk-tree-view-column-set-fixed-width :void + ((tree-column :pointer) + (fixed-width :int))) + (gtk-tree-view-column-set-min-width :void + ((tree-column :pointer) + (min-width :int))) + (gtk-tree-view-column-set-max-width :void + ((tree-column :pointer) + (max-width :int))) + (gtk-tree-view-column-set-title :void + ((tree-column :pointer) + (title :gtk-string))) + (gtk-tree-view-column-set-expand :void + ((tree-column :pointer) + (expand :gtk-boolean))) + (gtk-tree-view-column-set-clickable :void + ((tree-column + :pointer) + (clickable + :gtk-boolean))) + (gtk-tree-view-column-set-cell-data-func :void + ((tree-column :pointer) + (cell-renderer :pointer) + (func :pointer) + (data :pointer) + (destroy :pointer))) + ;;cell-renderer + (gtk-cell-renderer-text-new :pointer ()) + (gtk-cell-renderer-toggle-new :pointer ()) + (gtk-cell-renderer-pixbuf-new :pointer ()) + (gtk-cell-renderer-set-fixed-size :void + ((cell + :pointer) + (width :int) + (height + :int)))) +

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

cells-gtk-cvs February 2006