June 2012 - ltk-user - mailman3.common-lisp.net

Re: [ltk-user] binding an event to a canvas element
by Jerry Vinokurov 22 Jun '12

22 Jun '12

On 6/22/12 11:32 AM, cage wrote: > On Fri, Jun 22, 2012 at 05:02:43PM +0200, Peter Herth wrote: >> If you create the canvas items with make-instance, you can just bind >> events to them > Great! Didn't know that! > > Bye. > C. > Right, I understand that you can bind events to the canvas. I don't have any trouble doing that. What I want is to bind them to the canvas elements; I want to have different pie slices and track which ones people click on. I tried using tag-bind but it throws an error: SB-INT:SIMPLE-READER-ERROR on #<TWO-WAY-STREAM :INPUT-STREAM #<SB-SYS:FD-STREAM for "descriptor 9" {10034B3BC1}> :OUTPUT-STREAM #<SB-SYS:FD-STREAM for "descriptor 8" {10034B3681}>>: illegal terminating character after a colon: #\ [Condition of type SB-INT:SIMPLE-READER-ERROR] This happens whether I use: (tag-bind pie-canvas arc1 "<ButtonPress-1>" (lambda (event) (declare (ignore event)) (format t "test"))) or (itemconfigure pie-canvas arc1 "tags" "arc1") (tag-bind pie-canvas arc1 "<ButtonPress-1>" (lambda (event) (declare (ignore event)) (format t "test"))) I am not really sure if I'm doing this right at all, since I'm basically trying to reproduce the Python functionality I'm familiar with. Is there any way to view the string being sent to the Tk interpreter? -- Jerry Vinokurov Research Programmer Dept. of Psychology Carnegie Mellon University (412) 268-6113

2 1

[ltk-user] binding an event to a canvas element
by Jerry Vinokurov 22 Jun '12

22 Jun '12

Hi all, I'm trying to bind an event to a canvas element, in this case an arc. I create the arc using something like (let* ((pie-canvas (make-instance 'canvas :height 200 :width 200)) (arc1 (create-arc pie-canvas 0 0 200 200 :start 0 :extent 45))) and then later inside the let, I would like to bind a button click event to the arc. I have no problem binding to the canvas itself using (bind), and in Python, I can use the tag_bind method of the Canvas class to achieve this. However, I can't figure out the Ltk equivalent, if there is one. Any suggestions would be appreciated. thanks, Jerry -- Jerry Vinokurov Research Programmer Dept. of Psychology Carnegie Mellon University (412) 268-6113

3 3

[ltk-user] validatecommand
by Vitaŭt Bajaryn 12 Jun '12

12 Jun '12

How can I return a value from a validatecommand? (defparameter *y* (make-instance 'entry :grid '(0 0) :validate :key)) (configure *y* :validatecommand #'(lambda (&rest args) (print args) (print (text *y*)) t)) (mainloop) When I change the entry, I get 'Error: expected boolean value but got "" ...'

1 0

[ltk-user] Add an event in the ltk event queue
by Syll 05 Jun '12

05 Jun '12

Hello Is it possible to add an event in the ltk event queue from another thread ? I can put events in a queue and use (after ...) to read it periodically in the ltk thread, but it would be easier and more efficient to use the ltk event queue directly. Thank you Syll

2 2

[ltk-user] Set xscrollcommand to a lisp function
by Vitaŭt Bajaryn 04 Jun '12

04 Jun '12

How can I set :xscrollcommand configure option to a lisp function?

2 3

[ltk-user] quicklisp error
by Louis Turk 01 Jun '12

01 Jun '12

Peter, (ql:quickload "ltk") ===> caught ERROR: Lock on package SB-EXT violated when binding EXIT as a local function while in package LTK. Read this to find out why: http://article.gmane.org/gmane.lisp.steel-bank.devel/16543 Louis

1 0