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

[ltk-user] LTK and ECLS
by Marko Kocić 15 Aug '08

15 Aug '08

Hi all, Has anybody been able to use some of the recent versions of ECLS with LTK? After I load ltk, when I try either (ltk:ltktest) or (ltk::ltk-eyes), only empty Tcl window is displayed. After closing it I got the following error in REPL: > (ltk::ltk-eyes) Read or write operation to stream #<output stream "\"c:/Tcl/bin/wish85.exe\" \"-name\" \"LTK\""> signaled an error. Explanation: Invalid argument. Broken at SI:BYTECODES.No restarts available. Broken at SI:BYTECODES. >> It works ok in SBCL though. Regards, Marko

3 6

[ltk-user] images
by Simon Friedberger 19 Jul '08

19 Jul '08

Hello everybody! I read in the docs that images and bitmaps can be created on canvas and that can be passed appropriate objects. Now I wonder: What are those objects? How do I e.g. put an icon I have in a file on a button? Or put a jpeg in a canvas. Something like that. A little example would be appreciated. Thanks Simon

1 0

[ltk-user] image-setpixel
by Vytautas Jancauskas 30 May '08

30 May '08

What is the format for image-setpixel data argument? Shouldn't this be documented?

1 0

[ltk-user] PATCH: fix tile namespace problem and widget renaming for 8.5 in one patch
by Johan Ur Riise 27 Apr '08

27 Apr '08

If you like, Ignore my other patches from today an apply this. This can be applied to ltk-0.91 johan@perle:~/prg/ltk$ git diff 0607d45dda260283ed3e85fffe44efe5a890de33 diff --git a/ltk-tile.lisp b/ltk-tile.lisp index 559e8da..7fb9914 100644 --- a/ltk-tile.lisp +++ b/ltk-tile.lisp @@ -32,29 +32,35 @@ (defparameter *tile-widgets* '(button check-button entry label radio-button scrollbar )) ;;; checkbutton combobox dialog notebook paned progressbar treeview menubutton separator +(defun tclversion () + (send-wish "senddatastrings [info tclversion]") + (read-from-string (first (ltk::read-data)))) + (defun require-tile () - (send-wish "package require tile")) + (unless (> (tclversion) 8.4) + (send-wish "package require tile"))) (defun activate-tile () (pushnew #'require-tile *init-wish-hook*) - (dolist (widget *tile-widgets*) - (let ((w (make-instance widget))) - (unless (search "ttk::" (widget-class-name w)) - (setf (widget-class-name w) (concatenate 'string "ttk::" (widget-class-name w))))))) + (pushnew (lambda () (dolist (widget *tile-widgets*) + (let ((w (make-instance widget))) + (unless (search "ttk::" (widget-class-name w)) + (setf (widget-class-name w) (concatenate 'string "ttk::" (widget-class-name w))))))) + *init-wish-hook*)) (defun theme-names () - (send-wish "senddatastrings [style theme names]") + (send-wish "senddatastrings [ttk::style theme names]") (ltk::read-data)) (defun use-theme(name) - (format-wish "style theme use ~a" name)) + (format-wish "ttk::style theme use ~a" name)) (defun style-element-names () - (send-wish "senddatastrings [style element names]") + (send-wish "senddatastrings [ttk::style element names]") (ltk::read-data)) (defun style-default (style &rest params) - (format-wish "style default ~A ~{ -~(~a~) {~a}~}" style params)) + (format-wish "ttk::style default ~A ~{ -~(~a~) {~a}~}" style params)) (defun tile-test () (activate-tile) @@ -72,5 +78,3 @@ (use-theme theme))))) ))) - - \ No newline at end of file johan@perle:~/prg/ltk$

1 0

[ltk-user] PATCH a much better patch that works on 8.4 and 8.5
by Johan Ur Riise 27 Apr '08

27 Apr '08

Here I leave activate-tile on the outside of the with-ltk form in tile-test. In stead, I have deferred the renaming of widgets, using the same technique as is used with require-tile, pushing a lambda to the init hook. Works beautifully with tile-test on both tcl 8.4 and 8.5, and also with my own application. The "unless" in require-tile _could_ be a premature optimization, but it could also be a hint to the next generation programmers that this is only for an ancient wish, and could be removed. So forget my last pathc, but the one adding ttk:: is needed diff --git a/ltk-tile.lisp b/ltk-tile.lisp index 0d8c39c..7fb9914 100644 --- a/ltk-tile.lisp +++ b/ltk-tile.lisp @@ -32,15 +32,21 @@ (defparameter *tile-widgets* '(button check-button entry label radio-button scrollbar )) ;;; checkbutton combobox dialog notebook paned progressbar treeview menubutton separator +(defun tclversion () + (send-wish "senddatastrings [info tclversion]") + (read-from-string (first (ltk::read-data)))) + (defun require-tile () - (send-wish "package require tile")) + (unless (> (tclversion) 8.4) + (send-wish "package require tile"))) (defun activate-tile () (pushnew #'require-tile *init-wish-hook*) - (dolist (widget *tile-widgets*) - (let ((w (make-instance widget))) - (unless (search "ttk::" (widget-class-name w)) - (setf (widget-class-name w) (concatenate 'string "ttk::" (widget-class-name w))))))) + (pushnew (lambda () (dolist (widget *tile-widgets*) + (let ((w (make-instance widget))) + (unless (search "ttk::" (widget-class-name w)) + (setf (widget-class-name w) (concatenate 'string "ttk::" (widget-class-name w))))))) + *init-wish-hook*)) (defun theme-names () (send-wish "senddatastrings [ttk::style theme names]") -- 1.5.4.3

1 0

[ltk-user] PATCH: added ttk:: namespace to tcl style commands
by Johan Ur Riise 27 Apr '08

27 Apr '08

(tile-test) would sometimes hang on the first command without this debian sid sbcl 1.0.16.3 wish 8.5 added ttk:: namespace to tcl style commands diff --git a/ltk-tile.lisp b/ltk-tile.lisp index d33bceb..024d118 100644 --- a/ltk-tile.lisp +++ b/ltk-tile.lisp @@ -43,18 +43,18 @@ (setf (widget-class-name w) (concatenate 'string "ttk::" (widget-class-name w))))))) (defun theme-names () - (send-wish "senddatastrings [style theme names]") + (send-wish "senddatastrings [ttk::style theme names]") (ltk::read-data)) (defun use-theme(name) - (format-wish "style theme use ~a" name)) + (format-wish "ttk::style theme use ~a" name)) (defun style-element-names () - (send-wish "senddatastrings [style element names]") + (send-wish "senddatastrings [ttk::style element names]") (ltk::read-data)) (defun style-default (style &rest params) - (format-wish "style default ~A ~{ -~(~a~) {~a}~}" style params)) + (format-wish "ttk::style default ~A ~{ -~(~a~) {~a}~}" style params)) (defun tile-test () (with-ltk () @@ -71,7 +71,3 @@ (make-menubutton mtheme theme (lambda () (use-theme theme))))) ))) - - - - \ No newline at end of file johan@sodd:~/prg/ltk$

1 1

[ltk-user] bug in ltk-tile.lisp function tile-test in ltk-091
by Johan Ur Riise 27 Apr '08

27 Apr '08

Found this small bug. TILE-TEST * (tile-test) debugger invoked on a TYPE-ERROR in thread #<THREAD "initial thread" {1002445C91}>: The value NIL is not of type STREAM. Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL. restarts (invokable by number or by possibly-abbreviated name): 0: [ABORT] Exit debugger, returning to top level. ((SB-PCL::FAST-METHOD INITIALIZE-INSTANCE :AROUND (LTK::TKVARIABLE)) #<unavailable argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<CLOSURE # {10033B9679}> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T)) #<CHECK-BUTTON {100260BEB1}>)[:EXTERNAL] 0] and this patch corrects it: --- ltk-tile.lisp.orig 2008-04-27 08:45:27.000000000 +0200 +++ ltk-tile.lisp 2008-04-27 08:46:09.000000000 +0200 @@ -57,8 +57,8 @@ (format-wish "style default ~A ~{ -~(~a~) {~a}~}" style params)) (defun tile-test () - (activate-tile) (with-ltk () + (activate-tile) (let* ((mb (make-menubar)) (mtheme (make-menu mb "Theme" )) (b (make-instance 'button :text "a button"))

1 0

[ltk-user] Ltk on Vista
by christopher melen 12 Apr '08

12 Apr '08

I know there's been a problem with Ltk on WinXP, but I've just tested it on Vista and it seems to run fine. Here's my setup - Sony PCG-7Z2M Laptop Windows Vista Home Premium Clisp-Win32 ActiveTCL 8.4.18.0 I'm going to test again when I've set up Cygwin on that machine, so that I've got a decent asdf-friendly environment (just loaded ltk.lisp for that quick test). Will also test with SBCL. By the way thanks Peter on an absolutely terrific program. Best, Chris ___________________________________________________________ Yahoo! For Good helps you make a difference http://uk.promotions.yahoo.com/forgood/

1 0

[ltk-user] Ltk gui freezing on windows
by Jonathan Johansen 08 Apr '08

08 Apr '08

Hi All, I have recently tried to use Phil Armitage's lisp editor ABLE (of course written with Ltk). However on my windows XP desktop, it didn't work very well. It would start up, but when I pressed a key (such as Ctrl-n), it froze. It didn't take any extra resources, it just didn't respond. Anyway, to cut a long story short, I found this tcl/tk bug report: http://sourceforge.net/tracker/index.php?func=detail&aid=1779265&group_id=1… Then I (with the help of Phil) figured out a workaround (mostly through sheer luck). I put a call to ltk:do-msg before the user gets a chance to press anything, and to avoid freezing the application, you have to dismiss the message box with a press of enter (clicking OK is not OK). So like it says in the bug report above, it seems that an enter will stop it freezing. Being 'lazy', I don't want to have to customise every single tcl/tk/ltk application I want to run on this computer, so is there a way to include an extra 'enter' or #\Newline in key places in the Ltk code to avoid this happening? They could all use #+win32 because I think it only seems to happen to that type of OS :(. Anyway, now I'm going to start learning to use ABLE! Cheers, Jonathan

1 0

[ltk-user] patch for scrolled-frame and place
by Philippe Crama 13 Mar '08

13 Mar '08

As mentioned in my previous mail to the list, I have been looking at using scrolled-frame. Attached, you will find a patch against ltk-0.91 (downloaded this evening to make sure). I hope that the list accepts attachments and that Yahoo webmail will not mangle it. Best regards, -- Philippe Crama ____________________________________________________________________________________ Looking for last minute shopping deals? Find them fast with Yahoo! Search. http://tools.search.yahoo.com/newsearch/category.php?category=shopping

1 0

[ltk-user] scrolled-frame
by Philippe Crama 13 Mar '08

13 Mar '08

Hi, I needed scrolled-frame, too and checked it out, but the code posted by Russell McManus doesn't work for me, event after the corrections pointed out by Peter Herth: I get an error that "NIL is not a one of integer, float or rational" (with clisp-2.43 on Windows XP and LTK-0.91). This error is signaled in tk-number, itself called by the place function call in (defmethod initialize-instance :after ((sf scrolled-frame) &key) ... (place (interior sf) 0 0) ...) because the width and height &key parameters in the method place default to NIL. I have fixed it locally as follows: (defmethod place (widget x y &key width height) (format-wish "place ~A -x ~A -y ~A~@[ -width ~a~]~@[ -height ~a~]" (widget-path widget) (tk-number x) (tk-number y) (and (numberp width) (tk-number width)) (and (numberp height) (tk-number height))) widget) As Peter Herth said, the scrolling behaviour is bit strange, but I have Tcl code that improves this. I will plug it into the initialize-instance method of the scrolled-frame and submit it once it fits together. Regards, Philippe Crama ____________________________________________________________________________________ Be a better friend, newshound, and know-it-all with Yahoo! Mobile. Try it now. http://mobile.yahoo.com/;_ylt=Ahu06i62sR8HDtDypao8Wcj9tAcJ

1 0

Re: [ltk-user] scrolled-frame
by Russell McManus 11 Mar '08

11 Mar '08

Thank you Peter! -russ ----- Original Message ---- > From: Peter Herth <herth(a)peter-herth.de> > To: Talk about Ltk the Lisp Toolkit <ltk-user(a)common-lisp.net> > Sent: Tuesday, March 11, 2008 4:01:36 AM > Subject: Re: [ltk-user] scrolled-frame > > Hi Russel, > > I had to look at your code for a while and even tried to run it, until > I notice: you nowhere pack sf... > If you add a (pack sf :fill :both :expand t) at a proper place, it > works just as intended. > Note however: the scrolling behaviour of the scrolled frame is a bit > erratic, because this is > not a native Tk widget but rather something I tried to write... > > Peter > _______________________________________________ > ltk-user site list > ltk-user(a)common-lisp.net > http://common-lisp.net/mailman/listinfo/ltk-user >

1 0

[ltk-user] Another newbie question..
by Neil Baylis 11 Mar '08

11 Mar '08

Hi, I managed to get myself sorted out with my previous question. Now I'm having trouble adding a button to my application. I'm not sure whether this is a lisp question, or an ltk question, so please bear with me. Here's a simplified version of the failing code: (in-package :ltk) (defparameter *cvs* nil) (defun draw-circle (x y radius color) (format t "B Canvas is ~a~%" *cvs*) (itemconfigure *cvs* (create-oval *cvs* (- x radius) (- y radius) (+ x radius) (+ y radius)) :outline color)) (defun testit () (with-ltk () (let* ((*cvs* (make-instance 'canvas :width 200 :height 200)) (b (make-instance 'button :master nil :text "Do it!" :command (lambda () (draw-circle 100 100 20 :red))))) (format t "A Canvas is ~a~%" *cvs*) (pack *cvs*) (pack b) (draw-circle 100 100 40 :blue)))) When I load this, and call the function testit from the REPL, it displays the blue circle correctly, but fails to display the red one. Here is what I see in the REPL: CL-USER> (load "testit.lisp") #P"/Users/neil/devel/lispgui/testit.lisp" CL-USER> (in-package :ltk) #<Package "LTK"> LTK> (testit) A Canvas is #<CANVAS #x873D586> B Canvas is #<CANVAS #x873D586> B Canvas is NIL It prints the "B Canvas is NIL" when I click on the button, so this is obviously why it fails to draw the red circle. But, I don't understand why *cvs* is nil in this case. I'm sure this is painfully obvious, but not to me. Can someone point me in the right direction please? Neil.

2 2

[ltk-user] scrolled-frame
by Russell McManus 11 Mar '08

11 Mar '08

I'm using 0.91, and I'm having trouble getting the scrolled-frame class working. Here is a program that works for me: (defun frame-test-1 () (with-ltk () (loop for i from 0 below 20 do (let* ((pframe (make-instance 'frame :pack '(:side :top))) (toggle (make-instance 'check-button :master pframe :pack '(:side :left))) (label (make-instance 'label :master pframe :text (format nil "label ~D" i) :pack '(:side :left)))))))) However I want to do something like this: (defun frame-test-2 () (with-ltk () (let* ((sf (make-instance 'scrolled-frame :width 100 :height 100))) (loop for i from 0 below 20 do (let* ((pframe (make-instance 'frame :master (interior sf) :pack '(:side :top))) (toggle (make-instance 'check-button :master pframe :pack '(:side :left))) (label (make-instance 'label :master pframe :text (format nil "label ~D" i) :pack '(:side :left))))))))) I.e., I want to create a bunch of widgets inside a scrolled frame. Any ideas about how to get this to work? -russ

2 1

[ltk-user] ltk-eyes
by Neil Baylis 06 Mar '08

06 Mar '08

Hi, I have a couple of newbie questions. Firstly, I just upgraded to Tk 8.5.1. Since the upgrade, I notice that ltk-eyes has a problem. When I click on the window close button, the window closes, but control doesn't return to the REPL. I have to interrupt to get it back. With the previous Tk (8.4.7) this worked fine. However, ltktest works correctly. Is this just a bug in ltk-eyes? Perhaps I need to re-install ltk after I upgrade Tk ? Secondly, I tried to use ltk-eyes as a template for a test program, because it draws on a canvas and responds to mouse events. So, I copied the entire function into a separate file, giving it a new name. When I start it up, the window appears normal, except the two eyes are stuck in the top left corner of the window, and don't respond to the mouse movement. Since I'm (in-package :ltk) when I do this, I can't understand what global state might be missing. (This was with Tk 8.4.7. I haven't checked whether I still have this problem with Tk 8.5.1). My system is OSX Leopard PPC with OpenMCL. Thanks, Neil Baylis

2 2

[ltk-user] ltk and wish85
by lebdan 01 Feb '08

01 Feb '08

does lkt0.91 works with wish85 ? regards

2 1

[ltk-user] Got LTK to work - second question
by Valone, Toren W. 25 Jan '08

25 Jan '08

Thanks to all for the help on the previous problem. I downloaded TCL/TK and renamed it to wish.exe, then I moved it to my windows\system32 path, started up EMACS and was able to run lkttest. Now for my second question, when I make a change to an existing LTK program and compile it C-c C-c, then run it, the changes do not appear. Only when I close and restart Emacs does the changes show up. Shouldn't just compiling work?

4 9

[ltk-user] tk window not responding during ltktest evaluation on Windows
by Joseph Frippiat 21 Jan '08

21 Jan '08

Hi, I installed ltk on 2 computers with the same configuration (Lispbox modified to use CLisp 2.43 and Slime 2.0). On one computer, running Windows XP pro, there is no problem. On the other one, running Windows XP Home, the tk window is not responding until I close the Slime connection with the sayoonara command but then the pipe is broken... Could someone points me to something to check ? Thanks

2 1

[ltk-user] Newbie Questions
by Valone, Toren W. 28 Dec '07

28 Dec '07

Ok, new to Emacs, LISP and LTK, trying to follow along with the LTK tutorial, I am able to compile LTK and load it, but when I run the hello-l example I get the following EVAL: undefined function WITH-LTK [Condition of type SYSTEM::SIMPLE-UNDEFINED-FUNCTION] The tutorial says I need TCL/TK , which I got the source for, but how do I compile them or make LISP aware of them?

4 6

[ltk-user] newbie questions about listbox
by Mirko Vukovic 02 Dec '07

02 Dec '07

Hi, I am working my way through some tk examples (http://www.bin-co.com/tcl/tutorial/widgets4.php) and converting them to ltk. I figured that would be a nice way to learn ltk. I am now stuck with listbox. Here are the specific questions: - How do I initialize the list (populate it with items)? - How do I get the index of the current selection? I am assuming it may be an argument to the event function, but without initializing the list, I could not test that hypothesis - How do I get the list item at the particular index. As I noted before, I would be happy to post the resulting code in form of a (newbie) ltk tutorial. Thank you, Mirko

2 2

[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