ltk-user July 2012

ltk-user@common-lisp.net

4 participants
5 discussions

Re: [ltk-user] quicklisp error
by Paul Nathan 30 Jul '12

30 Jul '12

Hallo, SBCL has recently deprecated the EXIT function, reserving it for internal use. This causes package-lock errors in LTK when LTK is loaded from Quicklisp. I have prepared a patch for this; however, I am sufficiently unfamiliar with the internals (and have not used COMPUTE-BUTTONS) to only claim that it compiles. I ran a few examples from the docs and they worked successfully. I also suspect (but am not sure) that line ltk.lisp:4189 in SVN version 261 will also have to be changed. Regards, Paul Nathan

2 1

[ltk-user] stupid cow...
by Peter Herth 26 Jul '12

26 Jul '12

http://www.ksta.de/berggemeinden/eingeklemmt-eine-wirklich-dumme-kuh,151892…

1 1

[ltk-user] any workaround for missing tkwait?
by Antonio Bonifati 21 Jul '12

21 Jul '12

Me again, please forgive me if I ask silly questions. I am trying to implement a Javascript-like prompt dialog, where there is a message, an entry and an ok/cancel button. Since LTK does not have tkwait, how should I make my function return the entry text when the user clicks "ok" or closes the popup window? I know I can get an entry value with the "text" accessor, but I do not know when to call it. The purpose of tkwait in this case is to wait until a window is closed and after that I can return the last value inputted by the user. Is it probably better to inline the Tcl/Tk code without trying to convert it to Lisp? How do I do that? This is the Tk code I am trying to implement in LTK: proc prompt { message } { global ReturnedString set ReturnedString "" toplevel .w label .w.l -text $message entry .w.e -textvariable ReturnedString frame .w.f button .w.ok -text "OK" -command { destroy .w } button .w.canc -text "Cancel" \ -command { set ReturnedString ""; destroy .w } pack .w.ok .w.canc -side left -in .w.f pack .w.l .w.e .w.f tkwait window .w return $ReturnedString } And this is my first failed attempt: (defun prompt-for-string (message) (let ((e)) (with-ltk () (let* ((w (make-toplevel nil)) (l (make-instance 'label :master w :text message)) (b (make-instance 'button :master w :text "OK" :command (lambda () (destroy w))))) (setf e (make-instance 'entry :text "default" :master w)) (pack (list l e b)))) (print (text e)))) Even if I close all the tk windows, the entry text is never printed.

1 0

[ltk-user] Cannot access mouse coords relative to CANVAS widget
by Jim W 20 Jul '12

20 Jul '12

I am working with SBCL for Linux on an AMD64 machine. Function ANIMTEST instantiates an LTK window with a CANVAS widget. Two items, BARRIER and FOLLOWER, live in the canvas. Both spin continuously, with BARRIER at the center of the canvas and FOLLOWER intended to follow the mouse, which is not working as intended. My first attempt (see comment) resulted in absolute screen coordinates of the mouse being interpreted as relative coordinates within the canvas with no account of the offset between the two. After searching through ltk.lisp and docs, I found SCREEN-MOUSE-X/Y (Second Attempt, see comment). I feel like I am using SCREEN-MOUSE-X & -Y according to the documentation, but why is it not working? = Note = The file that contains ANIMTEST and the packages that support it load and run with no errors. Functions I have defined (UCTK-BEAM, etc.) are tested and run fine. (defun animtest () "Test a spinning figure in LTK" (with-ltk () (let* ((cnvs (make-instance 'canvas :width 400 :height 400)) (barrier (uctk-beam 200 200 40 20)) (follower (uctk-beam 0 40 40 20)) (slp-time 50) ; in ms (bar-theta 0) (fol-theta 0)) (labels ((update () (draw barrier nil) (draw follower nil) (incf bar-theta (/ pi 15)) (incf fol-theta (/ pi 15)) (geo:set-theta barrier bar-theta) (geo:set-theta follower fol-theta) (geo:set-center follower ;== FIRST ATTEMPT == (cons (screen-mouse-x cnvs) (screen-mouse-y cnvs))) ; == SECOND ATTEMPT == ;(cons (canvasx cnvs (screen-mouse-x cnvs)) ; (canvasy cnvs (screen-mouse-y cnvs)))) (after slp-time #'update))) (pack cnvs :fill :both :expand 1) (update))))) Thanks in advance!

2 1

[ltk-user] are tk_commands available through LTK API?
by Antonio Bonifati 20 Jul '12

20 Jul '12

Hi there, a beginner question. How do I call tk_messageBox? Do I have to re-implement it by myself? That would be a chore. E.g. I want to do: tk_messageBox -message "message" from Lisp. thanks -- Antonio Bonifati Student and Italian teacher http://ninuzzo.github.com/

2 1

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

ltk-user July 2012