February 2005 - cells-gtk-cvs@common-lisp.net

[cells-gtk-cvs] CVS update: root/gtk-ffi/gtk-adds.c
by pdenno＠common-lisp.net 26 Feb '05

26 Feb '05

Update of /project/cells-gtk/cvsroot/root/gtk-ffi In directory common-lisp.net:/tmp/cvs-serv7336/gtk-ffi Added Files: gtk-adds.c Log Message: New file, compiles to libcellsgtk.so Date: Sat Feb 26 23:18:24 2005 Author: pdenno

1 0

[cells-gtk-cvs] CVS update: root/gtk-ffi/Makefile
by pdenno＠common-lisp.net 26 Feb '05

26 Feb '05

Update of /project/cells-gtk/cvsroot/root/gtk-ffi In directory common-lisp.net:/tmp/cvs-serv7318/gtk-ffi Added Files: Makefile Log Message: New file, makefile for libcellsgtk.so Date: Sat Feb 26 23:17:52 2005 Author: pdenno

1 0

[cells-gtk-cvs] CVS update: root/cells-gtk/dialogs.lisp
by pdenno＠common-lisp.net 17 Feb '05

17 Feb '05

Update of /project/cells-gtk/cvsroot/root/cells-gtk In directory common-lisp.net:/tmp/cvs-serv28441/cells-gtk Modified Files: dialogs.lisp Log Message: After you gtk-destroy a dialog widget, forget it (remove if from the clos object / gtk object hash table). Date: Thu Feb 17 21:00:13 2005 Author: pdenno Index: root/cells-gtk/dialogs.lisp diff -u root/cells-gtk/dialogs.lisp:1.3 root/cells-gtk/dialogs.lisp:1.4 --- root/cells-gtk/dialogs.lisp:1.3 Sun Feb 13 18:24:02 2005 +++ root/cells-gtk/dialogs.lisp Thu Feb 17 21:00:13 2005 @@ -52,7 +52,8 @@ (-7 :close) (-8 :yes) (-9 :no)))) - (gtk-widget-destroy (id self))) + (gtk-widget-destroy (id self)) + (gtk-object-forget (id self) self)) (defun show-message (text &rest inits) (let ((message-widget (to-be (apply #'mk-message-dialog :message text inits))))

1 0

[cells-gtk-cvs] CVS update: root/cells-gtk/test-gtk/test-menus.lisp
by pdenno＠common-lisp.net 16 Feb '05

16 Feb '05

Update of /project/cells-gtk/cvsroot/root/cells-gtk/test-gtk In directory common-lisp.net:/tmp/cvs-serv25911/cells-gtk/test-gtk Modified Files: test-menus.lisp Log Message: Added demonstration of user-defined stock icon. Date: Wed Feb 16 23:38:00 2005 Author: pdenno Index: root/cells-gtk/test-gtk/test-menus.lisp diff -u root/cells-gtk/test-gtk/test-menus.lisp:1.2 root/cells-gtk/test-gtk/test-menus.lisp:1.3 --- root/cells-gtk/test-gtk/test-menus.lisp:1.2 Mon Jan 3 23:33:20 2005 +++ root/cells-gtk/test-gtk/test-menus.lisp Wed Feb 16 23:38:00 2005 @@ -28,7 +28,10 @@ (mk-image-menu-item :image (mk-image :stock :dialog-info :icon-size :menu) :label-widget (mk-label :markup (with-markup (:foreground :blue) - "Blue label"))))) + "Blue label"))) + (mk-image-menu-item + :stock :my-g + :label "user stock icon"))) (mk-menu-item :label "Menu 2" :visible (c? (md-value (fm^ :menu2-visible)))

1 0

[cells-gtk-cvs] CVS update: root/cells-gtk/test-gtk/test-gtk.lisp
by pdenno＠common-lisp.net 16 Feb '05

16 Feb '05

Update of /project/cells-gtk/cvsroot/root/cells-gtk/test-gtk In directory common-lisp.net:/tmp/cvs-serv25886/cells-gtk/test-gtk Modified Files: test-gtk.lisp Log Message: Added initarg to specify a user-defined stock icon. Date: Wed Feb 16 23:36:45 2005 Author: pdenno Index: root/cells-gtk/test-gtk/test-gtk.lisp diff -u root/cells-gtk/test-gtk/test-gtk.lisp:1.9 root/cells-gtk/test-gtk/test-gtk.lisp:1.10 --- root/cells-gtk/test-gtk/test-gtk.lisp:1.9 Tue Jan 25 16:57:28 2005 +++ root/cells-gtk/test-gtk/test-gtk.lisp Wed Feb 16 23:36:45 2005 @@ -10,6 +10,7 @@ ;;:tooltips nil ;;dkwt ;;:tooltips-enable nil ;;dkwt :icon (namestring cl-user::*small-image*) + :stock-icons (list (list :my-g (namestring cl-user::*stock-icon-image*))) :position :center :splash-screen-image (namestring cl-user::*splash-image*) :width 550 :height 550

1 0

[cells-gtk-cvs] CVS update: root/cells-gtk/test-gtk/test-display.lisp
by pdenno＠common-lisp.net 16 Feb '05

16 Feb '05

Update of /project/cells-gtk/cvsroot/root/cells-gtk/test-gtk In directory common-lisp.net:/tmp/cvs-serv25864/cells-gtk/test-gtk Modified Files: test-display.lisp Log Message: Add definitions to demonstrate user-defined stock icon. Date: Wed Feb 16 23:35:57 2005 Author: pdenno Index: root/cells-gtk/test-gtk/test-display.lisp diff -u root/cells-gtk/test-gtk/test-display.lisp:1.4 root/cells-gtk/test-gtk/test-display.lisp:1.5 --- root/cells-gtk/test-gtk/test-display.lisp:1.4 Tue Jan 25 16:57:28 2005 +++ root/cells-gtk/test-gtk/test-display.lisp Wed Feb 16 23:35:57 2005 @@ -12,8 +12,9 @@ :expand t :fill t :kids (list (mk-hbox - :kids (loop for icon-size in '(:menu :small-toolbar :large-toolbar :button :dnd :dialog) collect - (mk-image :stock :harddisk :icon-size icon-size))) + :kids (loop for icon-size in '(:menu :small-toolbar :large-toolbar :button :dnd :dialog) + collect (mk-image :stock :harddisk :icon-size icon-size) + collect (mk-image :stock :my-g :icon-size icon-size))) (mk-hseparator) (mk-aspect-frame :ratio 1

1 0

[cells-gtk-cvs] CVS update: root/config.lisp
by pdenno＠common-lisp.net 16 Feb '05

16 Feb '05

Update of /project/cells-gtk/cvsroot/root In directory common-lisp.net:/tmp/cvs-serv25831 Modified Files: config.lisp Log Message: New global - pathname for user-define icon. The actual file, called my-g.png is provided. Date: Wed Feb 16 23:34:44 2005 Author: pdenno Index: root/config.lisp diff -u root/config.lisp:1.1 root/config.lisp:1.2 --- root/config.lisp:1.1 Tue Jan 25 16:57:31 2005 +++ root/config.lisp Wed Feb 16 23:34:43 2005 @@ -11,13 +11,13 @@ |# -(push (make-pathname :directory '(:absolute "cell-cultures" "utils-kt")) +(push (make-pathname :directory '(:absolute "local" "lisp" "cells-gtk" "utils-kt")) asdf:*central-registry*) -(push (make-pathname :directory '(:absolute "cell-cultures" "cells")) +(push (make-pathname :directory '(:absolute "local" "lisp" "cells-gtk" "cells")) asdf:*central-registry*) -(push (make-pathname :directory '(:absolute "cell-cultures" "hello-c")) +(push (make-pathname :directory '(:absolute "local" "lisp" "cells-gtk" "hello-c")) asdf:*central-registry*) (push (merge-pathnames @@ -56,4 +56,10 @@ (merge-pathnames (make-pathname :directory '(:relative "test-images") :name "tst" :type "gif") + *load-pathname*)) + +(defparameter *stock-icon-image* + (merge-pathnames + (make-pathname :directory '(:relative "test-images") + :name "my-g" :type "png") *load-pathname*))

1 0

[cells-gtk-cvs] CVS update: root/test-images/my-g.png
by pdenno＠common-lisp.net 16 Feb '05

16 Feb '05

Update of /project/cells-gtk/cvsroot/root/test-images In directory common-lisp.net:/tmp/cvs-serv25811/test-images Added Files: my-g.png Log Message: New graphic file to demonstrate user stocked icons. Date: Wed Feb 16 23:32:53 2005 Author: pdenno

1 0

[cells-gtk-cvs] CVS update: root/gtk-ffi/gtk-utilities.lisp
by pdenno＠common-lisp.net 16 Feb '05

16 Feb '05

Update of /project/cells-gtk/cvsroot/root/gtk-ffi In directory common-lisp.net:/tmp/cvs-serv25789/gtk-ffi Modified Files: gtk-utilities.lisp Log Message: fix another non-printing character problem. Man, I get these things every time I cut and paste from email, and only cmucl gets stuck on them. Anyone know what's causing this? Date: Wed Feb 16 23:31:53 2005 Author: pdenno Index: root/gtk-ffi/gtk-utilities.lisp diff -u root/gtk-ffi/gtk-utilities.lisp:1.11 root/gtk-ffi/gtk-utilities.lisp:1.12 --- root/gtk-ffi/gtk-utilities.lisp:1.11 Sun Feb 13 19:21:29 2005 +++ root/gtk-ffi/gtk-utilities.lisp Wed Feb 16 23:31:53 2005 @@ -189,7 +189,7 @@ column-no = num-columns. (See gtk-tree-store-set-kids)." (with-foreign-object (item :pointer-void) (gtk-tree-model-get model iter column-no item -1) - #-(or lispworks cmu allegro) (cast item (as-gtk-type-name cell-type)) + #-(or lispworks cmu allegro) (cast item (as-gtk-type-name cell-type)) #+allegro (case cell-type (:string (uffi:convert-from-cstring (uffi:deref-pointer item :cstring)))

1 0

[cells-gtk-cvs] CVS update: root/gtk-ffi/gtk-other.lisp
by pdenno＠common-lisp.net 16 Feb '05

16 Feb '05

Update of /project/cells-gtk/cvsroot/root/gtk-ffi In directory common-lisp.net:/tmp/cvs-serv25057/gtk-ffi Modified Files: gtk-other.lisp Log Message: New ffi definitions for gtk icon-factory and icon-set. Date: Wed Feb 16 23:30:04 2005 Author: pdenno Index: root/gtk-ffi/gtk-other.lisp diff -u root/gtk-ffi/gtk-other.lisp:1.2 root/gtk-ffi/gtk-other.lisp:1.3 --- root/gtk-ffi/gtk-other.lisp:1.2 Tue Dec 14 05:02:05 2004 +++ root/gtk-ffi/gtk-other.lisp Wed Feb 16 23:30:03 2005 @@ -278,6 +278,18 @@ (gtk-image-get-pixbuf ((image c-pointer)) c-pointer) + ;;icon-factory + (gtk-icon-factory-new () + c-pointer) + (gtk-icon-factory-add-default ((factory c-pointer))) + (gtk-icon-factory-add ((factory c-pointer) + (stock-id c-string) + (icon-set c-pointer))) + + ;;icon-set + (gtk-icon-set-new-from-pixbuf ((pixbuf c-pointer)) + c-pointer) + ;;statusbar (gtk-statusbar-new () c-pointer)

1 0