May 2005 - cells-gtk-cvs@common-lisp.net - mailman3.common-lisp.net

[cells-gtk-cvs] CVS update: root/load.lisp
by pdenno＠common-lisp.net 31 May '05

31 May '05

Update of /project/cells-gtk/cvsroot/root In directory common-lisp.net:/tmp/cvs-serv32327/root Removed Files: load.lisp Log Message: Removed. Not used. Date: Tue May 31 17:45:40 2005 Author: pdenno

1 0

[cells-gtk-cvs] CVS update: public_html/index.html
by pdenno＠common-lisp.net 30 May '05

30 May '05

Update of /project/cells-gtk/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv5219/public_html Modified Files: index.html Log Message: :expand-p --> :expand-all Note need for cellsgtklib for TreeModel ComboBox Date: Mon May 30 16:12:05 2005 Author: pdenno Index: public_html/index.html diff -u public_html/index.html:1.7 public_html/index.html:1.8 --- public_html/index.html:1.7 Mon May 30 04:13:53 2005 +++ public_html/index.html Mon May 30 16:12:05 2005 @@ -97,9 +97,9 @@ <ul> <li><a href="ftp://common-lisp.net/pub/project/cells-gtk/cells-gtk-2005-05-29.tgz">cells-gtk-2005-05-29.tgz</a> <ul> - <li>ComboBoxes may now use a TreeModel; allows hierarchical arrangement of items.</li> + <li>ComboBoxes may now use a TreeModel; allows hierarchical arrangement of items. (requires libcellsgtk)</li> <li>Uses Cells 2</li> - <li>:expand-p on TreeView allows Tree to initially display completely expanded.</li> + <li>:expand-all on TreeView allows Tree to initially display completely expanded.</li> <li>New procedure to locate dynamic libraries. (Works 'out of the box' 50% of the time versus 10% before ???) <li>Has not been tested on Windows. Drop the group a note if you try it.</li> </ul>

1 0

[cells-gtk-cvs] CVS update: public_html/index.html
by pdenno＠common-lisp.net 30 May '05

30 May '05

Update of /project/cells-gtk/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv26448/public_html Modified Files: index.html Log Message: mention libcellsgtk being necessary Date: Mon May 30 04:13:57 2005 Author: pdenno Index: public_html/index.html diff -u public_html/index.html:1.6 public_html/index.html:1.7 --- public_html/index.html:1.6 Mon May 30 04:10:19 2005 +++ public_html/index.html Mon May 30 04:13:53 2005 @@ -74,12 +74,13 @@ <h1 id='news'>News</h1> <ul> - <li> 2005-05-29 Allows hierarchical arrangement of items in ComboBox.</li> + <li> 2005-05-29 Allows hierarchical arrangement of items in ComboBox. + (requires libcellsgtk)</li> <li> 2005-03-03 textview now has capabilities for programmatic manipulation and markup of the text.</li> - <li> 2005-02-28 libcellsgtk.so introduced to enable some + <li> 2005-02-28 libcellsgtk introduced to enable some capabilities otherwise not available through the FFI.</li> </ul>

1 0

[cells-gtk-cvs] CVS update: public_html/index.html
by pdenno＠common-lisp.net 30 May '05

30 May '05

Update of /project/cells-gtk/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv26428/public_html Modified Files: index.html Log Message: Added news Date: Mon May 30 04:10:19 2005 Author: pdenno Index: public_html/index.html diff -u public_html/index.html:1.5 public_html/index.html:1.6 --- public_html/index.html:1.5 Mon May 30 04:08:02 2005 +++ public_html/index.html Mon May 30 04:10:19 2005 @@ -74,8 +74,7 @@ <h1 id='news'>News</h1> <ul> - <li> 2005-05-29 textview now has capabilities for programmatic - manipulation and markup of the text.</li> + <li> 2005-05-29 Allows hierarchical arrangement of items in ComboBox.</li> <li> 2005-03-03 textview now has capabilities for programmatic manipulation and markup of the text.</li>

1 0

[cells-gtk-cvs] CVS update: public_html/index.html
by pdenno＠common-lisp.net 30 May '05

30 May '05

Update of /project/cells-gtk/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv26407/public_html Modified Files: index.html Log Message: typo Date: Mon May 30 04:08:02 2005 Author: pdenno Index: public_html/index.html diff -u public_html/index.html:1.4 public_html/index.html:1.5 --- public_html/index.html:1.4 Mon May 30 04:06:25 2005 +++ public_html/index.html Mon May 30 04:08:02 2005 @@ -101,7 +101,7 @@ <li>Uses Cells 2</li> <li>:expand-p on TreeView allows Tree to initially display completely expanded.</li> <li>New procedure to locate dynamic libraries. (Works 'out of the box' 50% of the time versus 10% before ???) - <li>Has not been tested on Windows. Drop the group a note if you try it.)</li> + <li>Has not been tested on Windows. Drop the group a note if you try it.</li> </ul> <li><a href="ftp://common-lisp.net/pub/project/cells-gtk/cells-gtk-2005-02-26.tgz">cells-gtk-2005-02-26.tgz</a> </li>

1 0

[cells-gtk-cvs] CVS update: public_html/index.html
by pdenno＠common-lisp.net 30 May '05

30 May '05

Update of /project/cells-gtk/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv26389/public_html Modified Files: index.html Log Message: Update for May 29 update. Date: Mon May 30 04:06:25 2005 Author: pdenno Index: public_html/index.html diff -u public_html/index.html:1.3 public_html/index.html:1.4 --- public_html/index.html:1.3 Sat Mar 5 02:09:11 2005 +++ public_html/index.html Mon May 30 04:06:25 2005 @@ -74,6 +74,9 @@ <h1 id='news'>News</h1> <ul> + <li> 2005-05-29 textview now has capabilities for programmatic + manipulation and markup of the text.</li> + <li> 2005-03-03 textview now has capabilities for programmatic manipulation and markup of the text.</li> @@ -90,8 +93,16 @@ <li>Tarballs: We intend to provide self-contained tarballs that are snapshots of the CVS repository, and contain all the ancillary modules (cells, hello-c, ukt). - The first one is here: + Here are the first two: <ul> + <li><a href="ftp://common-lisp.net/pub/project/cells-gtk/cells-gtk-2005-05-29.tgz">cells-gtk-2005-05-29.tgz</a> + <ul> + <li>ComboBoxes may now use a TreeModel; allows hierarchical arrangement of items.</li> + <li>Uses Cells 2</li> + <li>:expand-p on TreeView allows Tree to initially display completely expanded.</li> + <li>New procedure to locate dynamic libraries. (Works 'out of the box' 50% of the time versus 10% before ???) + <li>Has not been tested on Windows. Drop the group a note if you try it.)</li> + </ul> <li><a href="ftp://common-lisp.net/pub/project/cells-gtk/cells-gtk-2005-02-26.tgz">cells-gtk-2005-02-26.tgz</a> </li> </ul>

1 0

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

29 May '05

Update of /project/cells-gtk/cvsroot/root/cells-gtk/test-gtk In directory common-lisp.net:/tmp/cvs-serv9175/cells-gtk/test-gtk Modified Files: test-menus.lisp Log Message: New code to demo TreeModel ComboBoxes (requires libcellsgtk). Date: Sun May 29 23:25:44 2005 Author: pdenno Index: root/cells-gtk/test-gtk/test-menus.lisp diff -u root/cells-gtk/test-gtk/test-menus.lisp:1.3 root/cells-gtk/test-gtk/test-menus.lisp:1.4 --- root/cells-gtk/test-gtk/test-menus.lisp:1.3 Wed Feb 16 23:38:00 2005 +++ root/cells-gtk/test-gtk/test-menus.lisp Sun May 29 23:25:43 2005 @@ -130,6 +130,20 @@ (mk-label :text (c? (format nil "Combo value ~a" (md-value (fm^ :combo))))))) (mk-hseparator :padding 5) + #+libcellsgtk + (mk-hbox + :kids (list + (mk-combo-box + :roots '("Text" "Numeric" "Timepoint") + :init 0 + :children-fn + #'(lambda (x) + (cond ((equal x "Text") '("Trimmed Text" "Raw Text")) + ((equal x "Numeric") '("Integer" "Decimal" "Scientific")) + ((equal x "Timepoint") + '("DD/MM/YY" "DD/MM/YYYY" "MM/DD/YY" "YYYY-MM-DD" + "YYYY-MM-DDTHH:MM:SS" "DD/MM/YY HH:MM:SS"))))))) + (mk-hseparator :padding 5) (mk-hbox :kids (list (mk-event-box

1 0

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

29 May '05

Update of /project/cells-gtk/cvsroot/root/gtk-ffi In directory common-lisp.net:/tmp/cvs-serv9151/gtk-ffi Modified Files: gtk-utilities.lisp Log Message: Cleaned up so that it doesn't generate strings and intern just to call g-value functions. Date: Sun May 29 23:24:10 2005 Author: pdenno Index: root/gtk-ffi/gtk-utilities.lisp diff -u root/gtk-ffi/gtk-utilities.lisp:1.13 root/gtk-ffi/gtk-utilities.lisp:1.14 --- root/gtk-ffi/gtk-utilities.lisp:1.13 Sat Feb 26 23:44:48 2005 +++ root/gtk-ffi/gtk-utilities.lisp Sun May 29 23:24:10 2005 @@ -16,6 +16,7 @@ |# +;;; Function with equivalents in gtklib. (in-package :gtk-ffi) @@ -163,21 +164,22 @@ (gtk-tree-store-newv (length col-types) gtk-types))) (defun gtk-tree-store-set (tstore iter types-lst data-lst) + "Sets the value of one or more cells in a row referenced by iter." (with-g-value (value) (loop for col from 0 for data in data-lst for type in types-lst do ;; (print (list :tree-store-set value type (as-gtk-type type))) (g-value-init value (as-gtk-type type)) - (funcall (intern (format nil "G-VALUE-SET-~a" (case type - (:date 'float) - (:icon 'string) - (t type))) - :gtk-ffi) + (funcall (case type + ((:string :icon) #'g-value-set-string) + (:int #'g-value-set-int) + (:long #'g-value-set-long) + (:boolean #'g-value-set-boolean) + ((:float :date) #'g-value-set-float) + (t (error "Invalid type: ~S?" type))) value - (if (eql type :date) - (coerce data 'single-float) - data)) + (if (eql type :date) (coerce data 'single-float) data)) (gtk-tree-store-set-value tstore iter col value) (g-value-unset value))))

1 0

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

29 May '05

Update of /project/cells-gtk/cvsroot/root/gtk-ffi In directory common-lisp.net:/tmp/cvs-serv9125/gtk-ffi Modified Files: gtk-other.lisp Log Message: New external references for ComboBox Date: Sun May 29 23:22:22 2005 Author: pdenno Index: root/gtk-ffi/gtk-other.lisp diff -u root/gtk-ffi/gtk-other.lisp:1.5 root/gtk-ffi/gtk-other.lisp:1.6 --- root/gtk-ffi/gtk-other.lisp:1.5 Sun Mar 6 18:05:44 2005 +++ root/gtk-ffi/gtk-other.lisp Sun May 29 23:22:22 2005 @@ -440,6 +440,11 @@ (index int))) (gtk-combo-box-get-active ((combo-box c-pointer)) int) + (gtk-combo-box-set-model ((combo-box c-pointer) + (model c-pointer))) + (gtk-combo-box-get-active-iter ((combo-box c-pointer) + (iter c-pointer)) + boolean) ;;calendar (gtk-calendar-new () @@ -691,7 +696,10 @@ ((treeview c-pointer)) c-pointer) (gtk-adds-text-iter-new () - c-pointer)) + c-pointer) + (gtk-adds-tree-iter-new () + c-pointer)) + #-libcellsgtk (defmacro you-need-libcellsgtk (&body names) @@ -706,7 +714,8 @@ (you-need-libcellsgtk gtk-adds-dialog-box gtk-adds-text-view-popup-menu - gtk-adds-text-iter-new)) + gtk-adds-text-iter-new + gtk-adds-tree-iter-new))

1 0

[cells-gtk-cvs] CVS update: root/gtk-ffi/gtk-list-tree.lisp
by pdenno＠common-lisp.net 29 May '05

29 May '05

Update of /project/cells-gtk/cvsroot/root/gtk-ffi In directory common-lisp.net:/tmp/cvs-serv9098/gtk-ffi Modified Files: gtk-list-tree.lisp Log Message: Reference to gtk-tree-view-expand-all and gtk-tree-iter-free Date: Sun May 29 23:21:00 2005 Author: pdenno Index: root/gtk-ffi/gtk-list-tree.lisp diff -u root/gtk-ffi/gtk-list-tree.lisp:1.2 root/gtk-ffi/gtk-list-tree.lisp:1.3 --- root/gtk-ffi/gtk-list-tree.lisp:1.2 Sat Feb 26 23:38:50 2005 +++ root/gtk-ffi/gtk-list-tree.lisp Sun May 29 23:21:00 2005 @@ -79,6 +79,10 @@ (wy int) (tx c-pointer) (ty c-pointer))) + (gtk-tree-view-expand-all ((tree-view c-pointer))) + + ;;tree-iter + (gtk-tree-iter-free ((iter c-pointer))) ;;tree-model (gtk-tree-model-get ((tree-model c-pointer)

1 0