ltk-user

ltk-user@common-lisp.net

259 discussions

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

[ltk-user] Selection in listbox
by Syll 28 Apr '12

28 Apr '12

Hello I have a few problems/questions with listbox selection (especially multiple selection). * If the listbox does'nt have the focus and I select items with Ctrl+click (including the first one), events from keys are not triggered for this listbox. Is it because the listbox has'nt get the focus at all ? How do i give the focus to the listbox (but not to any item) ? * If I understand this well, there are two special states that can be applied to list items : say "selected" (zero, one or several items) and "focused" (zero or one item). * I can select an item with listbox-select. How can I give the focus to an item ? * I catch selection events with <<ListboxSelect>>. How can I catch "item focus" events ? How can I get the focused item ? Thank you Syll

1 1

[ltk-user] resizing canvas, exiting main loop, fullscreen
by Tamas K Papp 28 Apr '12

28 Apr '12

Hi, I am trying to write a small program that would do the following: 1. create a full screen window with no decorations 2. when the left mouse button is pressed, change the color of the window according to the relative position (ie the color is calculated from the position), 3. when the right mouse button is pressed, exit. BTW, the application is for testing LCD screens. I came up with the following: (in-package :cl-user) (require :ltk) (use-package :ltk) (defun hex-color (r g b) "Return a hexadecimal color string. R G B should be in [0,1]." (flet ((normalize (x) (assert (<= 0 x 1)) (round (* x 255)))) (format nil "#~2,0x~2,0x~2,0x" (normalize r) (normalize g) (normalize b)))) (defun lcd-test () (with-ltk () (let* ((canvas (make-instance 'canvas)) (down nil)) (flet ((set-color (x-rel y-rel) (configure canvas "background" (hex-color x-rel y-rel 0.5)))) (pack canvas) (bind canvas "<ButtonPress-1>" (lambda (evt) (set-color (/ (event-x evt) (window-width canvas)) (/ (event-y evt) (window-height canvas))) (setf down t))) (bind canvas "<ButtonPress-2>" (lambda (evt) (declare (ignore evt)) (setf *exit-mainloop* t))))))) However, a. the application does not exit (maybe I am doing it wrong, I found *exit-mainloop* in some examples), b. I could not figure out how to make a full screen window, c. when the window is resized, the canvas isn't (but of course with a fullscreen window this would not be an issue). Any help would be appreciated. Tamas

3 6

[ltk-user] unpack frame?
by Christy 27 Apr '12

27 Apr '12

I'm trying to program a little computer game for my sons, and I'm wondering if there is a way to have some of the buttons on it disappear for a while and then return. I have them in a frame, and I was wondering if there is a command I could use to remove that frame temporarily. Any suggestions? Christy

2 1

[ltk-user] Color in lines
by Tiago Charters de Azevedo 27 Mar '12

27 Mar '12

Hi, is there any way of coloring a create-line, or all lines are black? Thanks.

2 2

← Newer
1
...
4
5
6
7
8
9
10
...
26
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

ltk-user