May 2005 - lambda-gtk-devel@common-lisp.net

[lambda-gtk-devel] passing lisp data to signal handlers
by Todd Dukes 29 May '05

29 May '05

I am trying to port a minesweeper game from C to lisp, just to learn a little about lambda-gtk. The buttons for the game are kept in a two dimensional array of these structures: (defstruct minesweeper-button button-state widget bombs-nearby has-bomb row column) I want to connect the button "clicked" signal to a handler like this: (g:signal-connect button "clicked" mine-button-clicked (aref *mines* column row)) The problem is that at runtime I get an error complaining that the data I passed to the signal-handler, ie. the (aref *mines* column row) is not of type (OR NULL SYSTEM-AREA-POINTER (ALIEN (* T))) I looked through the examples.lisp and downloaded cm-2.6.0 and looked at all the signal-connect calls, but found no examples of passing lisp data to the signal handler. I looked through the sb-alien section in the sbcl manual, but it doens't seem that converting lisp to a C representation so it could be accessed by other lisp occurred to them. I wanted to avoid having to create a C structure just to pass a couple of intergers to a signal. I guess for this particular case I could multiply the column by the number of rows and then add the row to that and decode it in the callback, but that seems a little hackish. I wanted to eliminate most of the globals once I got the program to work. Can anyone suggest a better way of sending this data to the callback. I can send the complete code if you would like. It is less than 600 lines without the xpm files. thanks, Todd.

1 0

[lambda-gtk-devel] gdk::pixmap-create-from-xpm-d argument type
by Todd Dukes 20 May '05

20 May '05

What type should the literal xpm data be for a call to gdk::pixmap-create-from-xpm-d. The data in c is shown below. Looking at the types defined with defalien-type in gtkffi-cmusbcl.lisp, the closest I see is: (defalien-type gchararray (* t)) How would this need to be altered to represent an array of character arrays? How then would the literal data appear in the lisp file? Is there any more documentation for sbcl-af other than the comments in the source distribution? Thanks for any help. Todd. /* XPM */ static char * plus_xpm[] = { "64 64 3 1", " c None", ". c #FFFFFF", "+ c #000000", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++", "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++", "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++", "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++", "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++", "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++", "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++", "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++", "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++", "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++", "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++", "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++", "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++", "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++", "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++", "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++", "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++", "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++", "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................", ".......................+++++++++++++++++++......................"};

2 1

[lambda-gtk-devel] re: lambda-gtk with clisp?
by Rick Taube 04 May '05

04 May '05

Hi Alex, my apologies for taking so long to respond. Here is the message I got from kenny tilton, including the tarball of the clisp code i think. you should be able to tell what they are using from clisp's ffi. I am happy to help out once school is out and the dust settles (two weeks or so...) --rick > From: Kenneth Tilton <ktilton(a)nyc.rr.com> > Date: November 30, 2004 2:51:08 PM CST > To: Rick Taube <taube(a)uiuc.edu> > Subject: Fwd: Cells - Gtk > > Rick, > > I switched over to my Mac and was going to send gtk-ffi.lisp when I > got back to my XP box when I noticed this. It is the whole thing, but > only 122k, so what the heck. :) > > kenny > > Begin forwarded message: > >> From: Vasilis Margioulas <vasilism(a)sch.gr> >> Date: November 16, 2004 8:35:59 PM EST >> To: ktilton(a)nyc.rr.com >> Subject: Cells - Gtk >> >> Hi, >> In attached file is my work on gtk powered by cells using Clisp ffi >> (sory no uffi). >> If you find it usefull you can add it in cell-cultures repository >> feel free to contact for any comments or sugestions. >> >> Vasilis Margioulas. >> >> PS: To load cells (cvs) in clisp i need to change >> cells/defpackage.lisp: (:import-from ..... #-clisp >> #:slot-definition-name) >> utils-kt/defpackage.lisp: (:export ...... #+clisp >> #:slot-definition-name) >> so it will be usefull if you change the above in cvs tree. >>

1 0

[lambda-gtk-devel] lambda-gtk with clisp?
by Alex Rudnick 01 May '05

01 May '05

Hello, Rick and anybody else :) My semester's almost over, and once the summer starts, I'd like to try to make lambda-gtk work with clisp... Rick, I think you'd said something about having an email with helpful example code, towards this end? Yeah, but I'm about to have a lot of free time, and I'm going to make productive use of it :) Cheers :) -- -- alexr

1 0