gmane.lisp.ltk.user

Can't get SCALE value

JW — 2012-12-16T01:19:48

I am having two problems with SCALE.  

1. I cannot set bounds to anything other than integers.  For example:
(make-instance 'scale :from 0 :to (* 2 pi) ...
gives me an error.

2. I am unable to retrieve the :VARIABLE value

In the below, vales of UPPER-THETA and FORE-THETA never seem to be anything but 
0, no matter where I slide the scale.  I have tested all the drawing an update 
code, I am stumped!

(defun controltest ()
  "Test of a user-controlled robot arm"
  (with-ltk ()
    (let* ((upper-theta 0) (fore-theta 0)
   (upper-slider 
    (make-instance 'scale :from 0 :to 7 
   :length  360 :variable upper-theta))
   (fore-slider 
    (make-instance 'scale :from 0 :to 7
   :length  360 :variable fore-theta))
   (cnvs (make-instance 'canvas :width cnvs-width :height cnvs-height))
   (upper (manip:uctk-beam :cen-x 200 :cen-y 200 
   :b-length 40 :b-width 20
   :tk-cnvs cnvs))
   (fore (manip:uctk-beam :cen-x 0 :cen-y 40 ; relative to upper
  :b-length 40 :b-width 20
  :tk-cnvs c

Bug in LTK

Jason Miller — 2012-12-07T16:45:15

LTK constructs names for tcl variables by appending characters to "w"
the problem is that there is a command "wm" already in tcl/tk.  This can
cause issues.  I quickly worked around it by making the base-name "ww"
as there are no built-in commands that start with ww.  However the right
solution is probably to make a namespace.

-Jason

Using tags on canvas items?

Josef Wolf — 2012-11-21T11:41:29

Hello everybody,

I am trying to use the tags feature of the canvas. So I am trying to attach a
list of tags to an item and use those tags later to identify items. Here's an
example:

 (with-ltk ()
   (let* ((sc (make-instance 'scrolled-canvas))
          (canvas (canvas sc))
          (polygon (create-polygon canvas '(10 20 30 40 60 50))))
 
     (pack sc)
     (configure canvas :width 100 :height 100)

     (itemconfigure canvas polygon :tags '(foo bar baz))
     (itemconfigure canvas polygon :fill 'red)
     (itemconfigure canvas 'foo    :fill 'yellow)))

But it somehow doesn't work the way I expected it to work. The polygon stays
red instead of being re-configured to yellow.

It also won't work if I use strings instead of symbols. It only works if I use
a _single_ string. But this is not how the tags feature is intended to work.

Any ideas?

Increamentally build the GUI?

Josef Wolf — 2012-11-19T17:10:40

Hello everybody,

I am trying to build my tk GUI incrementally. The SERVE-EVENT parameter seems
to suggest that something like the following should be possible:

  (defvar *frame*)
  (defvar *label-widget*)
  
  (with-ltk (:serve-event t)
    (setf *frame* (make-instance 'frame))
    (pack *frame*))
  
  (with-ltk (:serve-event t)
    (setf *label-widget* (make-instance
                          'label
                          :master *frame*
                          :text "initial text"))
    (pack *label-widget* :side :left))
  
  (with-ltk ()
     ;; All initializations are already done, we just need to enter MAINLOOP
     )

But instead of a single toplevel containing both, the frame and the label, I
get two separate toplevels. And none of those toplevels seem to contain the
label widget. The output of the ps command shows, that two separate WISH
processes are started, which obviously is not going to work.

Does anybody have an example of how to properly use the SERVE-EVENT parameter?

How to configure widgets?

Josef Wolf — 2012-11-19T16:29:16

Hello everybody,

I am trying to make my first steps with ltk, and I have problems to
reconfigure existing widgets. Here is an example where I try to reconfigure
the :TEXT attribute of the LABEL-WIDGET widget whenever the checkbox of the
CHECK-BUTTON-WIDGET widget is clicked.

 (with-ltk ()
   (setf *debug-tk* t)
   (let* ((f (make-instance 'frame))
          (label-widget (make-instance 'label
                         :master f
                         :text "initial text"))
          (check-button-widget (make-instance 'check-button
                                :master f
                                :text "check me"
                                :command (lambda (val)
                                           (configure label-widget :text val)))))
     (pack f)
     (pack label-widget :side :left)
     (pack check-button-widget :side :left)
     (configure f :borderwidth 3)
     (configure f :relief :sunken)))

When I click on the checkbox, the col.or of the checkbox changes and I can see
in the d

Increamentally build the GUI?

Josef Wolf — 2012-11-19T17:10:40

Hello everybody,

I am trying to build my tk GUI incrementally. The SERVE-EVENT parameter seems
to suggest that something like the following should be possible:

  (defvar *frame*)
  (defvar *label-widget*)
  
  (with-ltk (:serve-event t)
    (setf *frame* (make-instance 'frame))
    (pack *frame*))
  
  (with-ltk (:serve-event t)
    (setf *label-widget* (make-instance
                          'label
                          :master *frame*
                          :text "initial text"))
    (pack *label-widget* :side :left))
  
  (with-ltk ()
     ;; All initializations are already done, we just need to enter MAINLOOP
     )

But instead of a single toplevel containing both, the frame and the label, I
get two separate toplevels. And none of those toplevels seem to contain the
label widget. The output of the ps command shows, that two separate WISH
processes are started, which obviously is not going to work.

Does anybody have an example of how to properly use the SERVE-EVENT parameter?

How to configure widgets?

Josef Wolf — 2012-11-19T16:29:16

Hello everybody,

I am trying to make my first steps with ltk, and I have problems to
reconfigure existing widgets. Here is an example where I try to reconfigure
the :TEXT attribute of the LABEL-WIDGET widget whenever the checkbox of the
CHECK-BUTTON-WIDGET widget is clicked.

 (with-ltk ()
   (setf *debug-tk* t)
   (let* ((f (make-instance 'frame))
          (label-widget (make-instance 'label
                         :master f
                         :text "initial text"))
          (check-button-widget (make-instance 'check-button
                                :master f
                                :text "check me"
                                :command (lambda (val)
                                           (configure label-widget :text val)))))
     (pack f)
     (pack label-widget :side :left)
     (pack check-button-widget :side :left)
     (configure f :borderwidth 3)
     (configure f :relief :sunken)))

When I click on the checkbox, the col.or of the checkbox changes and I can see
in the d

Updating the canvas

David Peebles — 2012-11-10T17:33: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.

run-time error => Invalid initialization argument: :FONT

haruichi yabuki — 2012-11-09T01:33:11

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:


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 progr

listbox api

Nikita B. Zuev — 2012-11-01T15:46:39

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 () .

problem with the :background keyword

2012-09-01T01:19:30

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 con

stupid cow...

Peter Herth — 2012-07-26T11:46:27

http://www.ksta.de/berggemeinden/eingeklemmt-eine-wirklich-dumme-kuh,15189216,16722700.html

any workaround for missing tkwait?

Antonio Bonifati — 2012-07-21T15:32:17

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 ""; dest

are tk_commands available through LTK API?

Antonio Bonifati — 2012-07-19T20:34:42

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/

Cannot access mouse coords relative to CANVAS widget

Jim W — 2012-07-07T16:05:51

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 :h

Cannot access mouse coords relative to CANVAS widget

Jim W — 2012-07-07T16:05:51

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 :h

binding an event to a canvas element

Jerry Vinokurov — 2012-06-21T21:38:27

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

validatecommand

Vitaŭt Bajaryn — 2012-06-12T19:07:21

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 "" ...'

quicklisp error

Louis Turk — 2012-06-01T14:55:11

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

Set xscrollcommand to a lisp function

Vitaŭt Bajaryn — 2012-06-02T18:04:49

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

unpack frame?

Christy — 2012-04-27T15:02:34

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