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

[ltk-user] problems with create-text
by Andre RsFiveTwo 13 Sep '11

13 Sep '11

Hi, I'm trying to create an animation with words based on the (ltktest) function in the library (rotate). For that I'm storing the words in a plist. The code to maintain the words is: (defvar *initial-word-energy* 100) (defvar *words* '()) ; list of words in the form (:text :x :y :energy) (defun make-word (text x y display-item) (list :text text :x x :y y :display-item display-item :energy *initial-word-energy*)) (defun add-word (word) (push word *words*)) Then I created a button that will add words to the plist and to the canvas: (enter-text-button (make-instance 'button :master controls :text "Enter text" :command (lambda () ;;store word in *words* (let* ((text (text user-text-entry)) (x (random (read-from-string (cget drawing-canvas-reference :width)))) (y (random (read-from-string (cget drawing-canvas-reference :height)))) ;;put text in canvas (display-item (create-text drawing-canvas-reference x y text)) (word (make-word text x y display-item))) ;;store new word (add-word word) ;;clear entry widget (setf (text user-text-entry) "") (focus user-text-entry) (finish-output))))) The idea is that a word will store the position, the text, other things and the visual representation of the text. In the animation part (same code as rotate in the library) I move the words, and here is the problem. If I try the move changing the coordinates of the updated values of x and y of the word the text apearing in the canvas 'jumps' in the first move, afterward it move normally. The other alternative is to use itemmove, which works. but I would like to just manipulate x and y of the word and transpose it to the created text item in the canvas. ;;move display item [do not work] ---> (set-coords *drawing-canvas-reference* (getf word :display-item) (list (getf word :x) (getf word :y))) [works] ----> (itemmove *drawing-canvas-reference* (getf word :display-item) atract-x atract-y) So, I would like to understand better why there seems to be a difference in the values of x an y for the element stored and the element displayed, although they have been created with the same values. If possible, I would like to know how can I query the created text element about it's x and y values. Sorry for the long message. Any help is appreciated. Thanks, André

1 1

[ltk-user] [IDEA] Update ltk to Tk 8.5.
by Krzysztof Drewniak 13 Sep '11

13 Sep '11

Tk 8.5 adds lots of new widgets, and the ttk extension which allows "themed" widgets for a native look-and-feel. I think it would be a good idea to update ltk for the new framework. I am willing to help write the code once the weekend rolls around. Thanks, Krzysztof Drewniak -- X-Real-Email-With-Antispam: krzysdrewniak at gmail dot com pgp key on keyserver.ubuntu.com 2388E924

2 1

[ltk-user] how to read properties of widgets
by Andre RsFiveTwo 02 Sep '11

02 Sep '11

Hi, I'm starting to use the ltk library to build a twitter client and I'm liking it a lot. I'm having trouble trying to read the properties of widgets. I know for to set them, using configure, but I can't read them back. More specifically, I'm trying to read the width and height of a canvas. Any help would be appreciated. Thanks, André

2 2

[ltk-user] configuring widgets
by norman hochstetler 18 Aug '11

18 Aug '11

Hi Again, Still delighted with Ltk but having problem getting general widgets configured for background color, font, etc. Certain ones seem to work fine, others complain configuration pairs not workable. Could you send me an example script which will (for instance) provide background color and font for a scrollable listbox ? Would much appreciate. Thanks in advance. Norm Hochstetler

2 1

[ltk-user] dos window
by Haris Bogdanovich 13 Aug '11

13 Aug '11

Hi. Can opening of the dos window be avoided when starting a ltk application ? Thanks

3 2

[ltk-user] colors message
by norman hochstetler 11 Aug '11

11 Aug '11

Hi, Please ignore my previous message asking if colors were on the drawing board. I just woke up and found them. By the way, you have a SUPER product in Ltk, thanks for developing it. Norm

1 0

[ltk-user] colors in lkt
by norman hochstetler 11 Aug '11

11 Aug '11

Hi, Is any thought being given to allowing colors in ltk ? Would very much enjoy having them. Thanks Norm

1 0

[ltk-user] slot-value
by Haris Bogdanovich 08 Aug '11

08 Aug '11

Hi. I try to set a label slot-value 'text but I get error that slot text is missing ? (setf (slot-value a-label 'text) "a")

2 1

[ltk-user] text line
by Haris Bogdanovich 06 Aug '11

06 Aug '11

Which widget (and how) do I use for printing a single line of text ?

2 1

[ltk-user] sizes and rowspan
by Haris Bogdanovich 06 Aug '11

06 Aug '11

If I want a square button I have to specify a width 3 times larger than height. Why is that so ? What do size values represent exactly ? I made a grid button rowspan of 2. That button's height isn't exactly 2 times larger than other buttons so it streches the positions of other buttons a bit. Why is that ? Thanks

2 2

[ltk-user] button size and font
by Haris Bogdanovich 03 Aug '11

03 Aug '11

Hi. How do I set button width and height and font ? For example: (make-instance 'button :height (what now ? Do I specify "100px" or number 100 or something else ?) :font (what goes here ?) Thanks

2 1

[ltk-user] question from newbie
by Melanie Mitchell 29 Jul '11

29 Jul '11

Hello, I'm trying to use the "create-text" command to place text on a canvas. One of the configuration options is "font" which takes a font name as an argument. Does anyone know how to find a list of available font names (on a mac)? (I'm actually trying to get the text to appear large on the canvas.) Thanks, Melanie

2 1

[ltk-user] buttons
by Haris Bogdanovich 29 Jul '11

29 Jul '11

Hi. How would I then put 9 buttons in a 3x3 grid with the pack command ? Thanks

2 1

[ltk-user] grid
by Haris Bogdanovich 28 Jul '11

28 Jul '11

Hi. I would like to make a 3x3 grid and put 9 buttons in it. If I have 9 button instances (b1, b2 ...) how does the grid command look like ? Does grid have a master (if it's in a frame for example)? Who is the master of all the buttons ? Thanks

2 1

[ltk-user] making exe
by Haris Bogdanovich 20 Jul '11

20 Jul '11

Hi. I made an exe of ltk-eyes with sbcl and it works. How can I make a standalone exe which includes all dll files which it needs from Active Tcl installation ? Thanks

2 1

[ltk-user] installing libimg on a ac
by Melanie Mitchell 14 Jul '11

14 Jul '11

Hello, I have recently started using ltk with CCL on a Mac (OS 10.6.8). I would like to be able to use the "load-image" command to display jpeg images without having to convert them to gif or ppm. I read on the web that "In order to use modern formats like PNG and JPEG you will need to install the libimg extension library for Tcl/Tk (e.g. in Ubuntu, you need to install the libtk-img package) and require the package before you use it." My question is, does anyone know how to install libimg on a mac so that I can "require" it from ltk? Thanks very much! Melanie

1 0

[ltk-user] installing
by Haris Bogdanovich 12 Jul '11

12 Jul '11

Hi. I installed ltk by asdf. I also installed tcl/tk binaries for Windowsl 95/NT from tcl.tk page. When I try (ltktest) the processor just goes to 50% and Lispwors stops working. Where is the problem ? Thanks

2 1

[ltk-user] Does LTK supports Cells or something similar?
by Matus Kmit 28 Jun '11

28 Jun '11

Hi My first question: Is there a way to search in all the archives of LTK mailing list? If yes, how one does do that? My second question LTK-related: Does LTK support Cells, or similar kind of auto-update mechanism? What i practically want to do is to have a global variable, whose change triggers the update of various widgets. Thank you Matus

3 2

[ltk-user] why MAKE-INSTANCE not exported
by Matus Kmit 27 Jun '11

27 Jun '11

Hi Sorry i am a newbie, but i have a question: What is the reason that MAKE-INSTANCE is not exported from the LTK package? Thank you matus

3 6

[ltk-user] Main window manipulation
by Vitaut Bayaryn 21 Jun '11

21 Jun '11

How can I use window manager functions (like wm-title) on the main window? What widget is the main window?

2 2

[ltk-user] Padding between text and border
by Louis Turk 01 Mar '11

01 Mar '11

Hi everyone, I have a small problem. When entering text into a text field, upon reaching the border a few letters will disappear beyond the border before the wrap takes place. Thus I can't see what is being typed for a few characters. How can I prevent this? Lou

2 1

[ltk-user] problems with menucheckbutton
by cage 19 Jan '11

19 Jan '11

Hello! Thank you for sharing this code, it works well and it is very simple to use! I am using ltk 0.91 and i am having trouble with the menucheckbutton, as far as i can understand this class does not specialize the (setf command) method so the only way to set a command for this widget is using the :initarg when the object is created, the problem is that this way the value of the button seems not to be passed to the function, this behaviour is different fron check-button widget that instead works as documentation specified. as far as i can see this code: (make-instance 'menucheckbutton :text "A" :command #'(lambda (x) (print x)) :name "mmodify" :master mmodify) is able to produce this tcl/tk code: 'path of the widget' add checkbutton -label {A} -variable mmodify -command {callback mmodify} So seems to me that the variable 'mmodify' have got the state of the button but i can not figure out how can i get its value from lisp code. My second question is: is there a public repository for the library? Thank you again. Bye. C.

2 4

[ltk-user] How can I read data from extension of some tk library?
by Pocket 24 Dec '10

24 Dec '10

Hello, I love to use Ltk. So I want to write some extension for tk library. I read Ltk source code. And I learned how to write Ltk extension. But, I cant find way to read data from *wish*, which returned by some command sended to *wish*. I find some function to read value in ltk.lisp (read-data) but this function isn't exported. So please tell me how to read data from *wish* in extension library of Ltk. -------------------------------------- Get the new Internet Explorer 8 optimized for Yahoo! JAPAN http://pr.mail.yahoo.co.jp/ie8/

2 1

[ltk-user] listbox updates from separate thread
by Kevin Raison 14 Dec '10

14 Dec '10

I have a listbox that needs to be updated periodically by a separate thread. However, I am having trouble figuring out how to make that happen. This code fails with a stream error, probably because the wish stream is not accessible to the spawned thread: (ltk:with-ltk (:debug 3) (let* ((update-threads nil) (f (make-instance 'ltk:frame)) (m1 (ltk:make-menubar)) (mf (ltk:make-menu m1 "File")) (call-queue-listbox (make-instance 'ltk:listbox :name "call_q" :master f :width 30 :height 12)) (exit-fn #'(lambda () (setq *shutdown-gui* t) (dolist (thread update-threads) (join-thread thread)) (setq update-threads nil) (setf ltk:*exit-mainloop* t))) (mf-exit (ltk:make-menubutton mf "Quit" exit-fn))) (ltk:pack f) (ltk:grid call-queue-listbox 0 0) (ltk:bind ltk:*tk* "<Alt-q>" (lambda (event) (declare (ignore event)) (funcall exit-fn))) (push (make-thread #'(lambda () (loop until *shutdown-gui* do (ltk:listbox-clear call-queue-listbox) (dotimes (i (random 10)) (ltk:listbox-append call-queue-listbox (format nil "call ~A in queue" i))) (sleep 1)))) update-threads))) Can someone show me the correct ltk idiom for this? Thanks! -Kevin

2 2

[ltk-user] timer event?
by Blond BF 29 Nov '10

29 Nov '10

How can I destroy window containing the error message after 5 seconds from displaying it?

2 2