[cells-gtk-devel] cells-gtk drawing-area widget

[Martin Flack]

Hi guys,

I've managed to get cells-gtk drawing-area to basically work. I'm
attaching the diff. A few notes follow.

In drawing.lisp I shuffled some stuff around and used the double colon
package selector to get it find all the symbols on first load. There may
be a slightly cleaner way to do this.

I fixed a bug where *window* was not bound on first run and caused an
error, but would be ok on later runs in the same Lisp image.

I made button1-down, button2-down, and button3-down all cells so that
you can use them as inputs in the cells-gtk framework.

For the future, I suspect that drawing-expose-event-handler could
probably be simpler and not call init-graphics-context each time? Also
drawing-pointer-motion-handler produces an effect but probably not quite
what was intended (the image is moved while you hold down the button,
but excess areas are not cleaned so it looks slurred along, and
subsequent tries move it from 0,0 again).

I'm on SBCL on Ubuntu 7.04.

Martin Flack

-------------- next part --------------
A non-text attachment was scrubbed...
Name: cells-gtk-drawing-area.diff
Type: text/x-patch
Size: 12966 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/cells-gtk-devel/attachments/20070610/2a3e25df/attachment.bin>