gmane.lisp.ltk.user

Re: Can't get SCALE value

JW — 2012-12-21T22:42:47

but 

Please excuse me, it appears I did not perform my due diligence, this question 
was answered 3 years ago at the following location:
http://permalink.gmane.org/gmane.lisp.ltk.user/329

The answer is that the name passed to :VARIABLE is not in fact updated 
automatically.  Instead of messing with :VARIABLE, I pass a LAMBDA expression to 
the :COMMAND keyword; and therefore the following is the correct way:

   (upper-slider 
    (make-instance 'scale :from 0 :to 7 
   :length  360 
   :command (lambda (val) (setq upper-theta val))))
   (fore-slider 
    (make-instance 'scale :from 0 :to 7 
   :length  360 
   :command (lambda (val) (setq fore-theta val))))

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

Re: Increamentally build the GUI?

Thomas Burdick — 2012-11-26T10:43:18

Hi,

with-ltk plus :serve-event t is good for when you have a program that you want to be able to run at the same time as the repl, or other ltk programs. But you should generally have at least the widgets for the initial frame prepared and debugged. The with-ltk starts a new Tk process, and anything in the body can "see" that main window -- any event callbacks will also see the Tcl/Tk process, as well.

If you're at an even earlier stage in development, which it sounds like you are, you can just install a serve-event ltk directly into your repl:

* (start-wish)
* (mainloop :serve-event t)

Now anything you type in the repl will "see" your running Tk gui. So you can do stuff like:

* (make-instance 'label :text "hello, tk")
* (setf >>label *)
* (pack >>label)

-Thomas 

(Apologies if anyone sees this twice. I sent it with the wrong From line the first time, and it bounced from the list)

 > Date: Mon, 19 Nov 2012 18:10:40 +0100

Re: Using tags on canvas items?

Josef Wolf — 2012-11-21T12:26:54

Hello again,

activating *debug-tk* reveals the root of the problem. It looks to me as if
there are _two_ problems:

    (itemconfigure canvas polygon :tags '(FOO BAR baz))
    (itemconfigure canvas 'bar    :fill 'yellow) ; doesn't work

is sent to wish as

    bt ".wc.wf itemconfigure 1 -tags {(foo bar baz)}"
    bt ".wc.wf itemconfigure BAR -fill {yellow}"

The first problem is that the symbols are forced to lower case for the first
command while they are forced to UPPER CASE for the second command.

The second problem is revealed by the following command, which (unexpectedly)
happen to work:

    (itemconfigure canvas '|(foo| :fill 'yellow)  ; works!

Please note the parenthesis! This clearly shows that wish interprets the
surrounding parens as part of the tag!

On Wed, Nov 21, 2012 at 12:41:29PM +0100, Josef Wolf wrote:

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?

Re: How to configure widgets?

Josef Wolf — 2012-11-21T07:49:09

Thanks for the help, Harven. This works.

Is this just a workaround or is this by intent? It seems that for some options
I still need the CONFIGURE function. What is the reason for this
inconsistency? How do I know which options can be set by CONFIGURE and which
need to be set by SETF? I have not noticed such inconsistencies in Perl/Tk
yet. One would use the configure method/function for everything.

Re: How to configure widgets?

2012-11-20T22:07:15


Try with setf instead of configure, i.e.
(setf (text label-widget) val)
instead of 
(configure label-widget :text val)

Sincerely,
Harven

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

Re: How to configure widgets?

2012-11-20T22:07:15


Try with setf instead of configure, i.e.
(setf (text label-widget) val)
instead of 
(configure label-widget :text val)

Sincerely,
Harven

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.

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

haruichi yabuki — 2012-11-09T02:28:48

Hi, ltk-users,

Sorry, I forgot to tell you the version of ltk that I use.
It is ltk-0.98.

--
haruichi yabuki <hyabuki< at >zb.ztv.ne.jp>

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

Re: listbox api

Nikita B. Zuev — 2012-11-03T10:14:48

Hello,

thanks, I'm doing the same, didn't know that listbox stores them as
strings though. Never used Tk actually ))

2012/11/2 Peter Herth <herth< at >peter-herth.de>:

Re: listbox api

Peter Herth — 2012-11-02T09:43:44

Hi,

I keep a list of the items I inserted into the list box on the Lisp
side and use the result of listbox-get-selection to look up the items
in the list. As the objects in that list usually carry more
information than the pure strings displayed in the list box, that is
usually more useful anyway.

Peter

On Thu, Nov 1, 2012 at 4:46 PM, Nikita B. Zuev <nikitazu< at >gmail.com> wrote:

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

Re: two beginner questions (iterate over children /X_cursor)

Peter Herth — 2012-10-26T15:35:23

Hi,

sorry for the late reply, it somehow fell through my inbox. See for
the answers below,

Peter

On Sun, Sep 30, 2012 at 11:12 PM,  <harven< at >free.fr> wrote:

No, there is no such function. But I don't think I ever needed it, as
I have the references to all widgets I created on the Lisp side
anyway. Just use (list label-1 label-2 ...) in your loop instead of
the call to children.


Ah, probably the only cursor which starts with a capital lettter, I
need to fix this. Thanks for pointing that out.

two beginner questions (iterate over children / X_cursor)

2012-09-30T21:12:27

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 (