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

[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