cells-gtk-cvs

cells-gtk-cvs@common-lisp.net

371 discussions

[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

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

16 Feb '05

Update of /project/cells-gtk/cvsroot/root/cells-gtk In directory common-lisp.net:/tmp/cvs-serv24983/cells-gtk Modified Files: widgets.lisp Log Message: Removed def-c-output method on event-box. I added it two versions ago, but it is the wrong approach to the problem. Date: Wed Feb 16 23:24:08 2005 Author: pdenno Index: root/cells-gtk/widgets.lisp diff -u root/cells-gtk/widgets.lisp:1.9 root/cells-gtk/widgets.lisp:1.10 --- root/cells-gtk/widgets.lisp:1.9 Mon Feb 14 23:46:19 2005 +++ root/cells-gtk/widgets.lisp Wed Feb 16 23:24:07 2005 @@ -310,7 +310,7 @@ (trc nil "VISIBLE" (md-name self) new-value) (force-output)) (if new-value (gtk-widget-show (id self)) - (gtk-widget-hide (id self)))) + (gtk-widget-hide (id self)))) (def-c-output tooltip ((self widget)) (when new-value @@ -390,10 +390,6 @@ (above-child) () :above-child t) - -(def-c-output popup ((self event-box)) - (when new-value - (setf (fm-parent new-value) self))) (def-c-output visible-window ((self event-box)) (gtk-event-box-set-visible-window (id self) new-value))

1 0

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

16 Feb '05

Update of /project/cells-gtk/cvsroot/root/cells-gtk In directory common-lisp.net:/tmp/cvs-serv24960/cells-gtk Modified Files: menus.lisp Log Message: owner slot on menu object -- useful for situation like popup menus, where the menu isn't in the kids hierarchy. Date: Wed Feb 16 23:22:01 2005 Author: pdenno Index: root/cells-gtk/menus.lisp diff -u root/cells-gtk/menus.lisp:1.7 root/cells-gtk/menus.lisp:1.8 --- root/cells-gtk/menus.lisp:1.7 Sat Feb 12 15:53:18 2005 +++ root/cells-gtk/menus.lisp Wed Feb 16 23:22:01 2005 @@ -140,7 +140,7 @@ () () ()) (def-widget menu (menu-shell) - () + ((owner :initarg :owner :accessor owner :initform (c-in nil))) (title) ())

1 0

← Newer
1
...
28
29
30
31
32
33
34
...
38
Older →

Jump to page:

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

cells-gtk-cvs