lambda-gtk-devel

lambda-gtk-devel@common-lisp.net

23 discussions

[lambda-gtk-devel] minesweeper example
by Todd Dukes 27 Oct '05

27 Oct '05

I have a simple minesweeper program that may serve as an example program. It is one lisp file of about 750 lines. There are also a bunch of xpm files for the bitmaps. Is there any interest? thanks, Todd.

1 0

[lambda-gtk-devel] problem with button
by Todd Dukes 22 Aug '05

22 Aug '05

I am having a problem being able to use both the button "clicked" event and the "button-press-event" at the same time. The difference between the two is: - with button "clicked" the user must press and release mouse button one over the button. If the mouse moves out of the boundary of the button before the user releases the button, no "click" signal is emitted. - with the "button-press-event" the signal is emitted as soon as the mouse button is pressed over the button. You also get an 'event,' which you can use to determine which mouse button was pressed. I have a small application posted below. The function button-test should cause a window to appear with a single button, mis-labeled "quit" in it. Clicking the button should cause the text button-clicked to print. Pressing any mouse button over the button should cause the "button press" event messages to print. Unfortunatly the "click" events never occur. You can comment the button press event signal connection and see that in the case where this signal is not connected, the button clicks do register. The gtk+ documentation says that if the "button-press-event" handler returns false processing of the event will continue, which is why I am returning gtk:+false+. Can anyone point out how to make this work? thanks, Todd. (gtk:define-signal-handler bye1 :void (widget data) widget data ; stop unused var compiler nagging (format t "bye! ~%") (gtk:main-quit)) (gtk:define-signal-handler delete-event-handler :int (widget event data) widget event data ; stop unused var compiler nagging (format t "delete-event occured~%") gtk:+false+) (gtk:define-signal-handler button-clicked :void (widget data) (format t "button-clicked~%") (force-output t)) (gtk:define-signal-handler button-pressed :void (widget event data) (format t "button press ~a~%" data) (force-output t) (when (eq (gdk:EventButton.type event) gdk:button-press) (format t "button press, event ~a~%" (gdk:EventButton.button event)) (when (eq (gdk:EventButton.type event) gdk:button-press) (format t "button event " (gdk:EventButton.button event)) (force-output t))) (format t "returning ~a~%" gtk:+false+) (force-output t) gtk:+false+) (defun button-test () (gtk:init-ensure) (let ((window (gtk:window-new gtk:window-toplevel)) (hbox (gtk:hbox-new t 1)) (button-quit (gtk:button-new-with-label "quit"))) (gtk:window-set-policy window 0 0 1) (gtk:window-set-title window "button test") (gtk:container-add window hbox) (gtk:box-pack-start hbox button-quit nil nil 0) (g:signal-connect button-quit "clicked" (g:callback button-clicked) window) (g:signal-connect button-quit "button-press-event" (g:callback button-pressed) window) (g:signal-connect window "delete-event" (g:callback delete-event-handler) (g:nullptr)) (g:signal-connect window "destroy" (g:callback bye1) (g:nullptr)) (mapcar (lambda (x) (gtk:widget-show x)) (list button-quit hbox window)) (gtk:main)))

3 4

[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

[lambda-gtk-devel] Problem with examples?
by Bruno Loff 01 Feb '05

01 Feb '05

Something wierd when I try to use the examples: * (load (compile-file "gtkffi-cmusbcl")) ....... T * (load "examples") ; Loading #p"/home/bruno/Projects/lambda-gtk/examples.lisp". ; ; Warning: These variables are undefined: ; BYE1 DATA WIDGET ; ; ; Warning: These functions are undefined: ; DATA GTK::DEF-CALLBACK C-CALL:VOID WIDGET Error in KERNEL:%COERCE-TO-FUNCTION: the function GTK::DEF-CALLBACK is undefined. I'll try and figure out what happened. Any hints? Bruno Loff

2 1

[lambda-gtk-devel] Problem with patch sbcl-af and sb-executable ?
by Nicolas Lamirault 22 Jan '05

22 Jan '05

hello, i have make a little prg in cl-lambda-gtk to test it it works, but when i try to make an executable i have an error : sbcl.core is core created like this : $ tar -zxf sbcl-af-2004-10-22.tgz $ cd sbcl-af $ sbcl --load "system" * (sb-ext:save-lisp-and-die "sbcl.core") sbcl --core sbcl.core This is SBCL 0.8.16, an implementation of ANSI Common Lisp. More information about SBCL is available at <http://www.sbcl.org/>. SBCL is free software, provided as is, with absolutely no warranty. It is mostly in the public domain; some portions are provided under BSD-style licenses. See the CREDITS and COPYING files in the distribution for more information. * (require :sb-executable) debugger invoked on a SB-INT:EXTENSION-FAILURE in thread 14174: Don't know how to REQUIRE SB-EXECUTABLE. See also: The SBCL Manual, Variable *MODULE-PROVIDER-FUNCTIONS* The SBCL Manual, Function REQUIRE You can type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL. restarts (invokable by number or by possibly-abbreviated name): 0: [ABORT ] Reduce debugger level (leaving debugger, returning to toplevel). 1: [TOPLEVEL] Restart at toplevel READ/EVAL/PRINT loop. (SB-IMPL::REQUIRE-ERROR 3 "Don't know how to ~S ~A.")[:EXTERNAL] 0] 1 with no sbcl.core : sbcl This is SBCL 0.8.16, an implementation of ANSI Common Lisp. More information about SBCL is available at <http://www.sbcl.org/>. SBCL is free software, provided as is, with absolutely no warranty. It is mostly in the public domain; some portions are provided under BSD-style licenses. See the CREDITS and COPYING files in the distribution for more information. * (require :sb-executable) ("SB-EXECUTABLE") does anybody know how can i use sb-executable and sbcl-af patch ? thanks for any help -- Nicolas Lamirault

2 1

[lambda-gtk-devel] .emacs file for lambda-gtk?
by Andrew P. Lentvorski, Jr. 22 Jan '05

22 Jan '05

I have noticed that the examples.lisp file indents much less for gtk:define-signal-handler than my editor defaults. Could someone send me the magic incantations to indent like the examples file? Thanks, -a

2 1

[lambda-gtk-devel] Bug in examples.lisp
by rm＠fabula.de 05 Dec '04

05 Dec '04

Hello list, just stumbled over a small buglet in 'examples.lisp' - the function 'textentry' fails to call gtk::init which results in some nasty openmcl kernel mess when called (this bug only shows up iff '(textentry)' is called before any other demo invocations, once any othjer demo got started gtk (or - more precicely, it's type system - will be properly initialized). BTW, i've started to work on gtk2 support for OpenMCL/Linux - so far i've been able to generate gtk2.ffi and the interface database. I modified openmcl-gtk-support to get a (not-so-good) working openmcl-gtk2-support. I've even managed to frankensteinize Rick Taube's lambda-gtk-openmcl.lisp into a lambda-gtk-openmcl-linux.lisp that _does_ produce a gtkffi-openmcl.lisp. Now, i can load and start the examples but unfortunately the first callback seems to tickle openmcl's kernel in unwanted places. I guess i should first test my gtk2 bindings without the lambdagtk suggar ... :-/ Oh, and as a suggestion: i'd be rather cool to have libglade support in lambda-gtk. Saves a _lot_ of typing ... Cheers Ralf Mattes

2 4

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

lambda-gtk-devel