- 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