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

[ltk-user] update?
by Zdenek Eichler 05 Oct '07

05 Oct '07

Hello, i made some updates, may be useful. i updated this function: (defun read-event (&key (blocking t) (no-event-value nil)) (or (pop (wish-event-queue *wish*)) (if (or blocking (can-read (wish-stream *wish*))) (if (eql #\( (peek-char t (wish-stream *wish*) nil)) (read-preserving-whitespace (wish-stream *wish*) nil nil) (read-line (wish-stream *wish*) nil)) no-event-value))) Original function was not working under intel mac. Concretely made error when you click on menubutton when mouse is moving. This error is because of different version of tcl/tk aqua on intel and powerpc. And added same functions: This function allow to change menubutton state between normal, hidden and disabled. (defgeneric state (menu menu-label state)) (defmethod state ((a menu) menu-label state) (format-wish "~a entryconfigure {~a} -state {~a}" (widget-path a) menu-label state)) This function allow to change label of menubutton. Important in Apple HIG. (defgeneric menu-label (menu old new)) (defmethod menu-label ((a menu) old new) (format-wish "~a entryconfigure {~a} -label {~a}" (widget-path a) old new)) Allow to eneble or disable resizing window. (defgeneric resizable (widget x y)) (defmethod resizable ((tl widget) x y) (format-wish "wm resizable ~a ~a ~a" (widget-path tl) x y) tl) Clear scrolled-listbox. (defmethod listbox-clear ((l scrolled-listbox)) (listbox-clear (listbox l)) l) Zdenek Eicher

2 4

[ltk-user] Handling radio-button values
by Mirko Vukovic 04 Oct '07

04 Oct '07

Hello group, I am having touble figuring out how to build widgets that handle button & slider events. I am going though the examples on this web site (http://www.bin-co.com/tcl/tutorial/widgets3.php) I have attached a minimalist radio-button example that is supposed to transfer the value of the radio-button to the text field. The way it works is that I am supposed to choose the gender (male/female), and then press a button to transfer the gender to the text field. The gender is predefined as male, so you need to press the female one, to get female in the text field. But that is not what happened. I looked at the eggs example in lisp.ltk, where the button variable seems to refer to a function that produces textual output. I tried to emulate that as well, but not successfuly. As a side note, I am planning to re-formulate all the examples on the above mentioned web page in ltk, and then look for a web site where to post them (Peter's would be a good choice). Of course, I would first look for suggestions for improvement from this group. The write up would be geared to lisp & ltk novices (which describes me pretty well). Thanks, Mirko

2 2

[ltk-user] Problems with double floats
by Tobias C. Rittweiler 04 Oct '07

04 Oct '07

Hi, maybe I'm missing something obvious, but LTK doesn't seem to work with double-floats for me. For instance: (with-ltk () (let ((c (make-canvas nil))) (pack c) (create-line c '(0 0 100 100)))) vs. (with-ltk () (let ((c (make-canvas nil))) (pack c) (create-line c '(0 0 100 100d0)))) In the first case, a window pops up with the line drawn as desired. But in the second case, an /empty/ window pops up. Further, when trying to to close the window, the window exits on one hand, but the Slime REPL doesn't get back. (I have to interrupt via `C-c C-c', and then type `q' to get out of SLDB.) Huh? :-), -T.

4 6

[ltk-user] LTk V 0.91 released
by Peter Herth 04 Oct '07

04 Oct '07

Hello to all, I just uploaded the 0.91 version to the LTk webpage (http://www.peter-herth.de/ltk/) This release includes a set of patches and fixes which have accumulated over time. Most notably, it vastly improves number handling - so there will be no more errors when passing double floats to LTk functions. Unfortunately I have not had time to review all patches sent to me, so I rather wanted to release a stable version now and then have hopefully soon another release which adds everything left out in this release. Many thanks to everyone who contributed to this release! Peter

1 0

[ltk-user] Version control for ltk?
by Jyrki Jaakkola 04 Oct '07

04 Oct '07

Hello! May I be so bold as to suggest public version control for ltk? It would help people to follow what issues has been addressed and what hasn't been. It would also make sending and reviewing patches easier as you could send patches as diffs to latest version on version control. Maybe it could help also speed up the development process as well? If the author can't host the version control there are sites providing services for version control (for example common-lisp.net) I would offer my own server for this but I have problems with keeping network connections alive so I don't think it would be good idea to use that at the moment. Yours, Jyrki Jaakkola

2 1