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

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

08 Oct '05

Update of /project/cells-gtk/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv17351/public_html Modified Files: index.html Log Message: Trivial Date: Sat Oct 8 17:06:37 2005 Author: pdenno Index: public_html/index.html diff -u public_html/index.html:1.9 public_html/index.html:1.10 --- public_html/index.html:1.9 Sat Oct 8 17:03:54 2005 +++ public_html/index.html Sat Oct 8 17:06:36 2005 @@ -74,7 +74,7 @@ <h1 id='news'>News</h1> <ul> - <li> 2005-10-08Some additional discussion in FAQ. So + <li> 2005-10-08 Some additional discussion in FAQ. So Work to implement DrawingArea is underway in CVS HEAD. HEAD *should* be OK. New tarballs will be created when it is complete. </li> @@ -137,7 +137,7 @@ <address><a href="mailto:peter.denno@nist.gov">Peter Denno</a></address>   -Last modified: Fri Mar 4 20:00:10 EST 2005 +Last modified: 2005-10-08  <a href="http://validator.w3.org/check?uri=referer"><img src="http://www.w3.org/Icons/valid-xhtml10"

1 0

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

08 Oct '05

Update of /project/cells-gtk/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv17313/public_html Modified Files: index.html Log Message: New news. Date: Sat Oct 8 17:03:54 2005 Author: pdenno Index: public_html/index.html diff -u public_html/index.html:1.8 public_html/index.html:1.9 --- public_html/index.html:1.8 Mon May 30 16:12:05 2005 +++ public_html/index.html Sat Oct 8 17:03:54 2005 @@ -74,6 +74,10 @@ <h1 id='news'>News</h1> <ul> + <li> 2005-10-08Some additional discussion in FAQ. So + Work to implement DrawingArea is underway in CVS HEAD. + HEAD *should* be OK. New tarballs will be created when it is complete. </li> + <li> 2005-05-29 Allows hierarchical arrangement of items in ComboBox. (requires libcellsgtk)</li>

1 0

[cells-gtk-cvs] CVS update: public_html/faq.html
by pdenno＠common-lisp.net 08 Oct '05

08 Oct '05

Update of /project/cells-gtk/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv17298/public_html Modified Files: faq.html Log Message: New questions and answers. Date: Sat Oct 8 17:03:29 2005 Author: pdenno Index: public_html/faq.html diff -u public_html/faq.html:1.10 public_html/faq.html:1.11 --- public_html/faq.html:1.10 Mon Oct 3 16:43:46 2005 +++ public_html/faq.html Sat Oct 8 17:03:29 2005 @@ -36,6 +36,7 @@ <li><a href="#q6">What GTK Widgets are implemented in cells-gtk?</a></li> <li><a href="#q7">Do I have to use cells?</a></li> <li><a href="#q8">What is libcellsgtk.so about?</a></li> + <li><a href="#q8.4">What is in libcellsgtk.so?</a></li> <li><a href="#q8.5">What is the difference between using c-input (AKA c-in) and c-formula (AKA c?) in a slot's :initform?</a></li> <li><a href="#q9">Why do I need :owner here? It looks like c? would bind self to the mk-whatever @@ -46,7 +47,7 @@ <li><a href="#q12">Changing a cell value causes dependencies to fire, but what is considered a change?</li> <li><a href="#q13">Can I keep a window around for redisplay after using the window border 'delete' button to delete it?</a></li> - + <li><a href="#q14">Can I use streams with a TextView widget?</a></li> </ul> @@ -205,17 +206,30 @@ the libgtk.so you are using. +Q: What is in libcellsgtk.so? +A:For details look at the source gtk-ffi/gtk-adds.c, but generally: +<ul> + <li>Get a dialog's vbox (so that you can add children to it).</li> + <li>Get the popup menu of a textview</li> + <li>Allocate text iters and tree iters</li> + <li>Check whether or not a widget is mapped and visible</li> + <li>Get the window of a widget (useful for DrawingArea).</li> + <li>Allocate GdkColor objects</li> + <li>Set the RGB values of GdkColor objects.</li> +</ul> Q: What is the difference between using c-input (AKA c-in) and c-formula (AKA c?) in a slot's :initform ? A:The two define different kinds of cells: A c-input cell is a cell whose value may be set through explicit procedural code, using setf on the slot. +Note: When the cell is referenced by other cells in a cells constraint network, setf-ing the cell +causes the values of other cells to be recomputed. A c-formula cell is a cell whose value is obtained through evaluation of a formula. Note that the usual semantics of :initform do not apply when :initform is given by c-formula. -Instead of just setting the value at initialization, the c-formula (an arbitrary lisp form) +Instead of just setting the value at initialization, the c-formula (generated from the supplied lisp form) specifies the dynamic relationship between the slot's value and other aspects of the program state. @@ -266,8 +280,9 @@ Q: What does this error mean? : "cellular slot FOO of #<BAR 21B555A4> cannot be setf unless initialized as inputp." - A: This error is signalled because you tried to setf an invariant slot. - 'inputp' refers to c-in which should have been used to initialize the slot. + A:This error is signalled because you tried to setf a c-formula slot. + 'inputp' refers to c-input (declaration of an input cell) which should have been used + to initialize the slot. Read the <a href="cgtk-primer.html">cells-gtk primer</a> for more information. @@ -295,12 +310,66 @@ ... and, of course, store the widget somewhere so you can later display it with (gtk-widget-show-all (widget-id my-pseudo-dialog)). + + +Q:Can I use streams with a TextView widget? + A:Sure. Do something like this: + +<pre> +(defmethod initialize-instance :after ((self your-gtk-app) &key) + (let ((message-textview [wherever it is])) + (setf *message-stream* + (make-instance 'pane-stream + :buffer (buffer message-textview) + :view message-textview)))) + +(defclass pane-stream (stream:fundamental-character-output-stream) + ((view :initarg :view) + (buffer :initarg :buffer) + (mark :initarg :mark) + (offset :initform 0 :accessor offset))) + +(defmethod initialize-instance :after ((self pane-stream) &key) + (with-slots (buffer mark view) self + (let ((b (widget-id buffer)) + (v (widget-id view))) + (with-text-iters (iter) + (cgtk:gtk-text-buffer-get-iter-at-offset b iter 0) + (setf mark (cgtk:gtk-text-buffer-create-mark b "visibility" iter t))) + (cgtk:gtk-text-view-set-wrap-mode v 1) ; optional, of course. + (cgtk:gtk-text-view-set-editable v nil)))) ; also optional. + +; Some lisps might not need this one. Some might need other methods. +(defmethod stream:stream-line-column ((s pane-stream)) nil) + +(defmethod stream:stream-write-char ((s pane-stream) (c character)) + (with-slots (view buffer offset mark) s + (cgtk:text-buffer-insert-text buffer offset (string c)) + (incf offset) + (let ((buf (widget-id buffer))) + (with-text-iters (iter) + (cgtk:gtk-text-buffer-get-iter-at-offset buf iter offset) + (cgtk:gtk-text-buffer-move-mark buf mark iter) + (cgtk:gtk-text-view-scroll-mark-onscreen (cgtk::id view) mark ))))) + +(defmethod stream:stream-write-string ((s pane-stream) string &optional start end) + (with-slots (view buffer offset mark) s + (cgtk:text-buffer-insert-text buffer offset string) + (incf offset (length string)) + (let ((buf (widget-id buffer))) + (with-text-iters (iter) + (cgtk:gtk-text-buffer-get-iter-at-offset buf iter offset) + (cgtk:gtk-text-buffer-move-mark buf mark iter) + (cgtk:gtk-text-view-scroll-mark-onscreen (widget-id view) mark))))) + +</pre> + <hr/> <address><a href="mailto:peter.denno@nist.gov">Peter Denno</a></address>   -Last modified: Sun Mar 6 18:32:15 EST 2005 +Last modified: 2005-10-08  </div> </body>

1 0

[cells-gtk-cvs] CVS update: public_html/cgtk-primer.html
by pdenno＠common-lisp.net 08 Oct '05

08 Oct '05

Update of /project/cells-gtk/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv17280/public_html Modified Files: cgtk-primer.html Log Message: Messy, some errors, but I'm going to use it anyway. Date: Sat Oct 8 17:03:00 2005 Author: pdenno Index: public_html/cgtk-primer.html diff -u public_html/cgtk-primer.html:1.4 public_html/cgtk-primer.html:1.5 --- public_html/cgtk-primer.html:1.4 Sat Oct 1 21:03:15 2005 +++ public_html/cgtk-primer.html Sat Oct 8 17:03:00 2005 @@ -25,18 +25,101 @@ <h1>Introduction</h1> -Here we will discuss the most important parts of the cell-gtk GTK binding, and how -cells can be used in defining cells-gtk GUIs. As of this writing, we have begun -the discussion of cells. This minimal introduction might be sufficient to get you -started. We'll see. +[This is Work In Progress currently. My apologies.] -<h1>Cells slots</h1> +Here we will discuss the most important parts of the cells-gtk GTK binding, and how +cells can be used in defining cells-gtk GUIs. This minimal introduction might be +sufficient to get you started. We'll see. + +<h2>Cells, Cell slots, and all that...</h2> + +The example from <a href='http://bc.tech.coop/blog/030911.html'>Bill Clementson's Blog</a> +is a nice starting point. Read it and come back here. + +...Welcome back. Perhaps you came back with the impression that Cells is a way to manage +the relationship among the values in the slots of a CLOS object. That would be good. +You might also imagine that if the slots describe the state of some real world object like a motor, +you could use Cells to control the object -- to orchestrate how all its parts work together +toward some goal. That also would be good. Now, if that object were a GTK-based GUI... no +I'm getting ahead of myself. Let's look at the basic idea of Cells, it is similar to +<a href="http://en.wikipedia.org/wiki/Constraint_satisfaction">constraint satisfaction</a>. +That is, you have values, and rules that govern the relationships among the values, +and whenever the network is pushed out of a consistent state (i.e. whenever the rules +no longer hold), the objective is to get it back to a consistent one by updating some values. +In Bill's example, status fuelpump and temp are cells -- slots in +a motor CLOS object whose values are managed by the cells constraint network. +The constraint network itself might be depicted as this: + +[graph] + +In this graph the nodes are values and edges have rules attached. The collection of edges +into a node together with the rule are the cell. + The green nodes +are values controlled by cells and the empty nodes are regular 'unmanaged' values +(such as you get by reading the value from regular CLOS slot). + +Cells such as temp, which have no edges leading into them, are called 'c-input cells'. +A c-input cell gives you an opportunity to push the network out of a consistent state, +so that it must find another consistent state (raise the temperature, force the motor +and fuel pump to stop). They are one way the network interacts with its environment. +(Thinking about GUI: Part of the 'environment' of your Cells-GTK application are lisp objects, +the state of which you'd like to communicate to the user.) + +Another way that the cells network can interact with its environment is through +c-output (or c-echo) methods. These are 'observers' of a cell that are invoked when the +value of that cell is modified. They are sort of the converse of the c-input: modify +a c-input value and the network reacts; when the network reacts, it can modify +values outside the network with a c-output. + +So what about the values inside the network -- the nodes with edges pointing into them? +Observing those with c-output methods and using c-input and setf to modify them would be +bad form. If you program that way, you aren't doing anything that couldn't be done without Cells. +Drop Cells-GTK and go back to programming in C-based GTK or Java. The result will be that you +hand back to the programmer the burden of keeping track of every change to the GUI. +C-input cells are intended (small apps like Bill's aside) to be used to 'instrument' +(or "put sensors on") your code. If you have a legacy code that you are building a Cells-GTK GUI for, .... + + + + + + + + +Now reiterating the ideas above: + +<ul> + <li>A cell is a slot in a CLOS object whose value is managed by accessors that are + part of a cells constraint network. + <li>A cells constraint network is a collection of cells that are interrelated through + reference to each other or through reference to other lisp objects, through any level of indirection. + <li>A c-input cell is a cell whose value may be set through explicit procedural code, + using setf on the slot. Note: setf-ing the cell causes the values of other cells to be recomputed -- + provided the cell is referenced by other cells in a cells constraint network.</li> + <li>A c-formula cell is a cell whose value is obtained through evaluation of a formula. + Note: The usual semantics of :initform do not apply when :initform is given by c-formula. + Instead of just setting the value at initialization, a formula (derived from the supplied lisp form) + specifies the dynamic relationship between the slot's value and other aspects of the program state. + <li>A c-output method is a method on a cell that is evaluated when the value of the + cell changes. +</ul> -The cells defmodel provides for the declaration of several kinds of "cell slots," +Cells provides for the declaration of several kinds of "cell slots," but for the purpose of talking about cells-gtk, we can limit the discussion to -just a few kinds. However, first we should point out that by specifying +just the c-input and c-formula cells. How do you recognize what kind of cell slot +is being used? Well, first we should point out that by specifying :cell nil in a defmodel slot definition, the slot defined is an ordinary CLOS -slot and none of the following pertains. +slot. The rest are specified using :initform on the slot. The following defmodel +defines a c-input cell, a c-formula cell and a regular CLOS slot. + +<pre> +(defmodel example () + ((control-me :initform (c-input (some-form-foo)) :accessor control-me) + (im-computed :initform (c-formula (some-form-bar)) :accessor im-computed) + (im-clos :cell nil :initform nil))) +</pre> <tt> <pre> @@ -62,7 +145,6 @@ <li>A cell slot is specified by :cell t (advanced options aside) or by omitting the :cell option, since in defmodel, the default is t.</li> - <li>An invariant cell slot is a cell slot that is initialized by an ordinary lisp form, either by an :initarg in make-instance, an :initform in the slot definition, or :default-initargs in the defmodel. The value of an @@ -87,6 +169,10 @@ are consistent at some point after the values of some of them are changed.</li> </ul> +<h2>Cells and Cells-GTK</h2> + +<h2>Good Cells Technique</h2> + This all may seem abstract, but it has practical value in the design of your GUI. For example, I might set the :sensitivity of a button, the :text in a label or :fraction of a progress-bar based on @@ -150,8 +236,32 @@ <h1>Family: Referencing cells throughout the defmodel hierarchy.</h1> The defmodel macro defines a part-subpart relationship -among components of the interface. The relationship is made by the -:kids :initarg or :default-initargs, of the parent model. +among components of the interface. The relationship is made by the :kids initarg. +:kids is given a list of children. In a cells-gtk defmodel some kids might be GTKContainer +(vbox, hbox, etc) -- things that in the GTK world, have kids of their own. It may be a natural coding practice +in that case for the defmodel to define a fairly deep ancestory hierarchy, laying out the arrangement of widgets. +(You're free to break things up wherever seem reasonable for your application). It might look like this: + +<pre> +(defmodel my-app (gtk-app) + () + (:default-initargs + :md-name :my-app + :kids + (list + (mk-vbox + :kids + (list + (mk-hbox + :kids + (list (mk-combo-box :md-name :my-combo) ...)) + (mk-hbox + :kids + (list (make-instance 'my-subpart)))))))) +</pre> +The point of the Family methods is to allow things a different places in this hierarchy (e.g. :my-combo +to reference :my-app). + More will be written about this soon.

1 0

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

08 Oct '05

Update of /project/cells-gtk/cvsroot/root/gtk-ffi In directory common-lisp.net:/tmp/cvs-serv16236/root/gtk-ffi Modified Files: gtk-utilities.lisp Log Message: SBCL porting. Date: Sat Oct 8 16:50:26 2005 Author: pdenno Index: root/gtk-ffi/gtk-utilities.lisp diff -u root/gtk-ffi/gtk-utilities.lisp:1.14 root/gtk-ffi/gtk-utilities.lisp:1.15 --- root/gtk-ffi/gtk-utilities.lisp:1.14 Sun May 29 23:24:10 2005 +++ root/gtk-ffi/gtk-utilities.lisp Sat Oct 8 16:50:26 2005 @@ -193,7 +193,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 sbcl allegro) (cast item (as-gtk-type-name cell-type)) #+allegro (case cell-type (:string (uffi:convert-from-cstring (uffi:deref-pointer item :cstring))) @@ -205,7 +205,11 @@ #+cmu (case cell-type (:string (alien:cast (alien:deref item) c-call:c-string)) - (t (alien:deref item))))) + (t (alien:deref item))) + #+sbcl + (case cell-type + (:string (sb-alien:cast (sb-alien:deref item) sb-c-call:c-string)) + (t (sb-alien:deref item))))) (defun parse-cell-attrib (attribs) (loop for (attrib val) on attribs by #'cddr collect @@ -228,6 +232,19 @@ (:float single-float) (:double double-float))) +#+sbcl +(sb-alien:def-alien-type all-types + (sb-alien:struct c-struct + (:string (* t)) + (:icon (* t)) + (:boolean boolean) + (:int integer) + (:long sb-c-call:long) + (:date single-float) + (:float single-float) + (:double double-float))) + + #-cmu (progn (defun alloc-col-type-buffer (col-type) @@ -358,6 +375,37 @@ (apply #'gtk-object-set-property cell-renderer property)))) (when (eql col-type :string) (g-free (alien:slot struct :string)))))) + +#+sbcl +(defun gtk-tree-view-render-cell (col col-type cell-attrib-f) + #'(lambda (tree-column cell-renderer model iter data) + (sb-alien:with-alien ((struct all-types)) + (gtk-tree-model-get model iter col + (sb-alien:addr (sb-alien:slot struct col-type)) + -1) + (let ((item-value (if (or (eql col-type :string) (eql col-type :icon)) + (get-gtk-string (sb-alien:slot struct col-type)) + (sb-alien:slot struct col-type)))) + (with-gtk-string (str (format nil "~a" + (if (eql col-type :date) + (multiple-value-bind (sec min hour day month year) + (decode-universal-time (truncate item-value)) + (format nil "~2,'0D/~2,'0D/~D ~2,'0D:~2,'0D:~2,'0D" + day month year hour min sec)) + item-value))) + (ukt:trc nil "gtv-render-cell (callback11)> rendering value" + col col-type item-value) + (apply #'gtk-object-set-property cell-renderer + (case col-type + (:boolean (list "active" 'boolean item-value)) + (:icon (list "stock-id" 'c-string (string-downcase (format nil "gtk-~a" item-value)))) + (t (list "text" 'c-pointer str))))) + (when cell-attrib-f + (loop for property in (parse-cell-attrib (funcall cell-attrib-f item-value)) do + (apply #'gtk-object-set-property cell-renderer property)))) + (when (eql col-type :string) + (g-free (sb-alien:slot struct :string)))))) + #+clisp

1 0

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

08 Oct '05

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))

1 0

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

08 Oct '05

Update of /project/cells-gtk/cvsroot/root/gtk-ffi In directory common-lisp.net:/tmp/cvs-serv16190/root/gtk-ffi Modified Files: gtk-ffi.lisp Log Message: Added motion and expose event structures (useful for DrawingArea). A few defines for SBCL port. Date: Sat Oct 8 16:48:03 2005 Author: pdenno Index: root/gtk-ffi/gtk-ffi.lisp diff -u root/gtk-ffi/gtk-ffi.lisp:1.12 root/gtk-ffi/gtk-ffi.lisp:1.13 --- root/gtk-ffi/gtk-ffi.lisp:1.12 Sun May 29 23:19:58 2005 +++ root/gtk-ffi/gtk-ffi.lisp Sat Oct 8 16:48:03 2005 @@ -17,8 +17,7 @@ |# -(defpackage :gtk-ffi (:use :lisp #-clisp :ffx - #+clisp :ffi #-clisp :uffi)) +(defpackage :gtk-ffi (:use #-sbcl :lisp #+sbcl :cl :utils-kt #-clisp :ffx #+clisp :ffi #-clisp :uffi)) (in-package :gtk-ffi) @@ -80,7 +79,7 @@ (loadit "libgdk-x11-2.0.so" :gdk) (loadit "libgtk-x11-2.0.so" :gtk) #+libcellsgtk(loadit "libcellsgtk.so" :cgtk)))) - #+cmu(load-gtk-libs) + #+(or cmu sbcl)(load-gtk-libs) (defun ffi-to-uffi-type (clisp-type) #+clisp clisp-type #-clisp (if (consp clisp-type) @@ -256,13 +255,39 @@ (hardware-keycode uint16) (group uint8)) +(def-c-struct gdk-event-expose + (type int) + (window c-pointer) + (send-event uint8) + ;; This is probably wrong. alignment issues... + (area-x int) + (area-y int) + (area-width int) + (area-height int) + (region c-pointer) + (count int)) + +(def-c-struct gdk-event-motion + (type int) + (window c-pointer) + (send-event uint8) + (time int) + (x double-float) + (y double-float) + (axes c-pointer) + (state int) + (is-hint uint16) + (device c-pointer) + (x-root double-float) + (y-root double-float)) + (defun event-type (event) (ecase event (-1 :nothing) (0 :delete) (1 :destroy) (2 :expose) - (3 :notify) + (3 :notify) ; that is, pointer motion notify (4 :button_press) (5 :2button_press) (6 :3button_press)

1 0

[cells-gtk-cvs] CVS update: root/gtk-ffi/gtk-ffi.asd
by pdenno＠common-lisp.net 08 Oct '05

08 Oct '05

Update of /project/cells-gtk/cvsroot/root/gtk-ffi In directory common-lisp.net:/tmp/cvs-serv16164/root/gtk-ffi Modified Files: gtk-ffi.asd Log Message: Start of work to get SBCL port working. Unfinished (but it doesn't look too hard!). Add load of gdk-other.lisp Date: Sat Oct 8 16:46:43 2005 Author: pdenno Index: root/gtk-ffi/gtk-ffi.asd diff -u root/gtk-ffi/gtk-ffi.asd:1.6 root/gtk-ffi/gtk-ffi.asd:1.7 --- root/gtk-ffi/gtk-ffi.asd:1.6 Sun May 29 23:18:24 2005 +++ root/gtk-ffi/gtk-ffi.asd Sat Oct 8 16:46:42 2005 @@ -13,12 +13,12 @@ #+(or win32 mswindows) (setf *gtk-lib-path* "C:/Program Files/Common Files/GTK/2.0/bin/") ;;; This need not be specified for cmucl (leave as a null string). -#+cmu(setf *gtk-lib-path* "/usr/lib/") -;#+cmu(setf *gtk-lib-path* "/opt/gnome/lib/") ; For my Suse machine +;#+cmu(setf *gtk-lib-path* "/usr/lib/") +#+(OR cmu sbcl)(setf *gtk-lib-path* "/opt/gnome/lib/") ; For my Suse machine ;;; Specify for Lispworks. -#-(or macosx win32 mswindows cmu) (setf *gtk-lib-path* "/usr/lib/") -;#-(or macosx win32 mswindows cmu) (setf *gtk-lib-path* "/opt/gnome/lib/") ; For my Suse machine +;#-(or macosx win32 mswindows cmu) (setf *gtk-lib-path* "/usr/lib/") +#-(or macosx win32 mswindows cmu) (setf *gtk-lib-path* "/opt/gnome/lib/") ; For my Suse machine ;;; Step 2 -- If you built libcellsgtk.so, uncomment the next line. ;(pushnew :libcellsgtk *features*) @@ -30,6 +30,7 @@ ((:file "gtk-ffi") (:file "gtk-core" :depends-on ("gtk-ffi")) (:file "gtk-other" :depends-on ("gtk-ffi")) + (:file "gdk-other" :depends-on ("gtk-ffi")) (:file "gtk-button" :depends-on ("gtk-ffi")) (:file "gtk-tool" :depends-on ("gtk-ffi")) (:file "gtk-menu" :depends-on ("gtk-ffi"))

1 0

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

08 Oct '05

Update of /project/cells-gtk/cvsroot/root/gtk-ffi In directory common-lisp.net:/tmp/cvs-serv15723/root/gtk-ffi Added Files: gdk-other.lisp Log Message: New file: Gdk FFI declarations Date: Sat Oct 8 16:45:39 2005 Author: pdenno

1 0

[cells-gtk-cvs] CVS update: root/gtk-ffi/gtk-core.lisp
by pdenno＠common-lisp.net 08 Oct '05

08 Oct '05

Update of /project/cells-gtk/cvsroot/root/gtk-ffi In directory common-lisp.net:/tmp/cvs-serv15166/root/gtk-ffi Modified Files: gtk-core.lisp Log Message: Start of work to get SBCL port working. Unfinished (but it doesn't look too hard!). Date: Sat Oct 8 16:44:41 2005 Author: pdenno Index: root/gtk-ffi/gtk-core.lisp diff -u root/gtk-ffi/gtk-core.lisp:1.3 root/gtk-ffi/gtk-core.lisp:1.4 --- root/gtk-ffi/gtk-core.lisp:1.3 Fri Dec 24 03:04:00 2004 +++ root/gtk-ffi/gtk-core.lisp Sat Oct 8 16:44:40 2005 @@ -72,10 +72,16 @@ (* (alien:struct gtk-ffi::g-value (gtk-ffi::g-type (array (alien:signed 32) 16))))) +#+sbcl +(ffx:def-type g-value-type + (* (sb-alien:struct gtk-ffi::g-value + (gtk-ffi::g-type (array (sb-alien:signed 32) 16))))) + + (defun call-with-g-value (fn) (declare (optimize (speed 3) (safety 0) (space 0))) (let ((gva (ffx:fgn-alloc 'g-value 1 :with-g-value))) - #+cmu (declare (type g-value-type gva)) + #+(or cmu sbcl) (declare (type g-value-type gva)) (unwind-protect (progn (dotimes (n 16)

1 0