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

[ltk-user] Updating the canvas
by David Peebles 10 Nov '12

10 Nov '12

Hi everyone, I'm trying to update the canvas at regular intervals as currently it only does so once my program has finished. I know there's a Tk 'update' command have been unable to find an example of its use in LTk. I'd be very grateful if someone could tell me if it is possible to use this command in LTk and if so, how to do it. Many thanks, David --- David Peebles PhD Reader in Cognitive Science, Department of Behavioural and Social Sciences, University of Huddersfield Queensgate, Huddersfield, HD1 3DH --- This transmission is confidential and may be legally privileged. If you receive it in error, please notify us immediately by e-mail and remove it from your system. If the content of this e-mail does not relate to the business of the University of Huddersfield, then we do not endorse it and will accept no liability.

1 0

[ltk-user] run-time error => Invalid initialization argument: :FONT
by haruichi yabuki 09 Nov '12

09 Nov '12

Hi, ltk-users, I am very much troubled by the following situation. Can someone help me? The program below gives the error message at run-time: > Invalid initialization argument: > :FONT > in call for class #<STANDARD-CLASS BUTTON>. > See also: > The ANSI Standard, Section 7.1.2 > [Condition of type INITARG-ERROR] The program is as follos: ------------------------------------------------------------- (asdf:operate 'asdf:load-op :ltk :verbose nil) (defpackage :ltk-user (:use :common-lisp :cl-user :ltk)) (in-package :ltk-user) (with-ltk () (wm-title *tk* "an example of button") (bind *tk* "<Alt-q>" (lambda (event) (setf *exit-mainloop* t))) (let ((btn (make-instance 'button :master nil :text "BUTTON" :font "verdana 20" :command (lambda () (format t "the button is pushed.~%") (setf *exit-mainloop* t))))) ; (configure btn :font "verdana 20") (pack btn))) ;; end ----------------------------------------------------------------- (without the line :font "verdana 20" the program works fine.) My environement is as follows: OS: Ubuntu 12.04 $ sbcl --version SBCL 1.0.55.0.debian $ wish % puts $tcl_version 8.5 It seems to me that many options of tk give this kind of error messages everywhere in my 'wrong' programming environement! The above is one of the simple examples. I would like to know how to fix the problem. Thank you in advance. -- haruichi yabuki <hyabuki(a)zb.ztv.ne.jp>

1 1

[ltk-user] listbox api
by Nikita B. Zuev 03 Nov '12

03 Nov '12

Hello, I'm having a little trouble with usage of a listbox in LTK library, and would appreciate some assistance. Documentation states that there is a LISTBOX class http://www.peter-herth.de/ltk/ltkdoc/node25.html but nothing about how to manipulate its contents. Google have helped me to find LISTBOX-APPEND to add items and LISTBOX-GET-SELECTION to retrieve selection. Thing here is LISTBOX-GET-SELECTION returns list of indices, not actual items, and nothing in google says about where to apply index to get actual selected item. That is easy to workaround by using a separate variable to store list of items and pushing to it after adding item to LISTBOX instance, then getting selection from LISTBOX and getting selected item from this variable by index, but I have a feeling that I'm doing it wrong, and overcomplicating things. Also docs say http://www.peter-herth.de/ltk/ltkdoc/node15.html :COMMAND initarg can be used to handle LISTBOX's selection change event, but (MAKE-INSTANCE 'LISTBOX :command (lambda () ... )) fails saying it has no such initarg, well BIND works, so its ok probably. Main question is, can someone please provide me with a little example of LISTBOX's proper usage? LTK library is from the quicklisp repository. Thanks. -- Regards, Nikita B. Zuev

2 2

[ltk-user] two beginner questions (iterate over children / X_cursor)
by harven＠free.fr 26 Oct '12

26 Oct '12

Hi, I am working through the tk tutorial using ltk http://www.tkdocs.com/tutorial/firstexample.html One of the first examples is a feet-to-meter converter. At some point, the padding of the widgets is set by looping through the children of the mainframe. foreach w [winfo children .c] {grid configure $w -padx 5 -pady 5} Q1: How can I do this with ltk ? Is there a function that returns the list of the children of a widget ? Q2: The *cursor* variable lists "X_cursor" as its first element, but tk reports an error. (with-ltk nil (pack (make-instance 'button :text "some" :cursor "X_cursor" :width 15))) => Tcl/Tk error: bad cursor spec "x_cursor" This is the sole cursor in *cursor* that produces an error. I am using gnu/linux on debian squeeze stable and tk 8.5. Finally, here is my attempt at building the converter. It seems to work, I welcome any comments or advices. (defun calculate (arg) (let* ((*read-eval* nil) (num (read-from-string arg))) (if (numberp num) (format nil "~,4f" (* 0.3048 num)) "" ))) (defun converter-ltk () (with-ltk () (let* ((mainframe (make-instance 'frame :padding "\"3 3 12 12\"")) (feet-entry (make-instance 'entry :width 7 :master mainframe)) (label-1 (make-instance 'label :master mainframe)) (label-2 (make-instance 'label :text "feet" :master mainframe)) (label-3 (make-instance 'label :text "is equivalent to" :master mainframe)) (label-4 (make-instance 'label :text "meters" :master mainframe)) (calc (make-instance 'button :text "Calculate" :master mainframe :command (lambda () (setf (text label-1) (calculate (text feet-entry))))))) (bind feet-entry "<Return>" (lambda (evt) (declare (ignore evt)) (setf (text label-1) (calculate (text feet-entry))))) (wm-title *tk* "Feet to Meters") (grid mainframe 0 0 :sticky "nesw") (grid-columnconfigure mainframe 0 :weight 1) (grid-rowconfigure mainframe 0 :weight 1) (grid feet-entry 1 2 :sticky "we") (grid label-1 2 2 :sticky "we") (grid label-2 1 3 :sticky "w") (grid label-3 2 1 :sticky "e") (grid label-4 2 3 :sticky "w") (grid calc 3 3 :sticky "w") ; (loop for child in (children mainframe "winfo") ;; ?? ; do (configure child :padx 5 :pady 5)) ;; ?? (focus feet-entry))))

2 1

[ltk-user] problem with the :background keyword
by harven＠free.fr 01 Sep '12

01 Sep '12

Hi, I am a beginner at both ltk and tk and I am trying to convert a small programme from Tk to LTk. Tk version: pack [button .b -text "Push Me" -background red -command {tk_messageBox -message "hello, world"}] LTk version: (with-ltk () (let ((my-button (make-instance 'text :text "Push Me" :background :red :command (lambda () (message-box "Hello, world!" "message" 'ok 'info))))) (pack my-button))) The Tk version works fine, whereas the LTk version gives the following error: Invalid initialization argument: :BACKGROUND in call for class #<STANDARD-CLASS BUTTON>. See also: The ANSI Standard, Section 7.1.2 [Condition of type INITARG-ERROR] On the other hand, there is no error if the :background line is removed. It's as if the :background keyword is only allowed for a few specific widgets, like the text widget. I also get errors if I try to set it with configure, as shown in the LTk manual, e.g. (configure my-button :background :blue) What am I doing wrong ? Any help is appreciated, I am using tk8.5 on debian squeeze, with sbcl 1.0.55, and the current release of ltk that ships with quicklisp. Sincerely, -- harven

2 2

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

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

[ltk-user] Bold font for label
by syll-dev＠laposte.net 17 Jan '12

17 Jan '12

Hello I can't set the "bold" style to a label's font : (with-ltk () (make-instance 'label :text "..." :font '(:weight :bold) :pack '(:side :left))) (I've a similar error with 3 instead of :bold for example) -> "Tcl/Tk error: expected integer but got "BOLD)" How does it work ? Thank you Sylvain Une messagerie gratuite, garantie à vie et des services en plus, ça vous tente ? Je crée ma boîte mail www.laposte.net

2 9

[ltk-user] Problem with scrolled-frame
by syll-dev＠laposte.net 12 Jan '12

12 Jan '12

Hello I have tried to use scrolled-frame (which is not in the documentation but seem exist...). This code does not work : the program is frozen and the "wish" process uses all my CPU :s . (with-ltk () (let* ((p (make-instance 'scrolled-frame :master nil :pack '())) (txt (make-instance 'label :text "11" :master p :pack '(:side left)))))) Thank you for your help Syll Une messagerie gratuite, garantie à vie et des services en plus, ça vous tente ? Je crée ma boîte mail www.laposte.net

3 2

[ltk-user] tk-princ changed
by Daniel Herring 14 Nov '11

14 Nov '11

I bumped into problems with SVN revision 261. It added tkescaping to tk-princ, where there previously was none. This change broke part of treeview-heading. A patch to make treeview-heading work with the new tk-princ is attached. example: (tk-princ "{stuff}") old result: "{stuff}" new result: "\{stuff\}" new code for old result: (tk-princ '("stuff")) The docstring for tk-princ says "Like princ (format ~a), but convert a lisp list to a Tk list." but the code is now very different. Should the docstring change to match the new code, or should the code be reverted to match the docstring? Thanks, Daniel

1 0

[ltk-user] nothing happens at ltktest
by claudio romanini 02 Oct '11

02 Oct '11

ok, I reinstalled everything and now it works ____________________________________________________________ TRY FREE IM TOOLPACK at http://www.imtoolpack.com/default.aspx?rc=if5 Capture screenshots, upload images, edit and send them to your friends through IMs, post on Twitter®, Facebook®, MySpace™, LinkedIn® – FAST!

1 0

[ltk-user] nothing happens at ltktest
by claudio romanini 01 Oct '11

01 Oct '11

hello to all I'd like to study LTK, but I got stuck at the very start I run "(load "e:/lisp/ltk/ltk-0.96/ltk")" ok, "(in-package :ltk)" ok, and then "(ltktest)": after a slight pause Emacs prints 0 and returns the prompt; no errors, then, but the problem is that nothing else happens! same thing if i run "(ltk::ltk-eyes)" I checked paths, etc (or so I think), and don't know what to do; in particular, I tried to modify ltk.lisp as follows: (defvar *wish-pathname* ; #+freebsd "wish8.4" ; #-freebsd "wish" "wish.exe") (defvar *debug-tk* t) my configuration: Windows Vista, ActiveState tcl/tk 8.5, the LispBox suite (CCL, Emacs, Slime), ltk-0.96 thanks in advance Claudio ____________________________________________________________ FREE 3D EARTH SCREENSAVER - Watch the Earth right on your desktop! Check it out at http://www.inbox.com/earth

1 0