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

[ltk-user] LTK on Windows XP
by michael graffam 28 Feb '06

28 Feb '06

Hi guys, I have successfully been using LTK on Linux and FreeBSD with CMUCL and SBCL. Now its time for me to port my code to Windows XP. I'm using Lispwork Personal edition, and I have the ActiveTCL distribution installed. From LW, I compile/load the ltk.lisp file, which works fine; but when I actually run some LTK code, the LTK GUI appears, but the underlying Lisp program never actually works (widget events are never processed, and LTK/LW seems to sit in a loop). So, is there anyone who has LTK w/ Lispworks working on Windows XP? What TCL/Tk distro are you using? Any help in this regard would be very welcome. Mike __________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com

2 1

[ltk-user] Library for generating ltk interface from a file
by Nix 24 Feb '06

24 Feb '06

Hello, I'm a physics student from Spain. I've been using Common Lisp from 6 months ago, and I like ltk as a GUI toolkit. I've developed a library (only 40 lines of code) that can load and create a ltk interface from a file with a description of It. That description is stored on a struct. Thanks to that, It's very easy to read and generate them from Lisp. Actually, the library lacks support for others geometry managers than pack, but I'll add It sooner. I want to use It to create an interface builder similar to glade, but for ltk. I've intented that before, but lacked what this library does. I believe It won't be so difficult to do, but I have not much time. The library is at http://mural.uv.es/feana/programes/pam.tar.gz . At the moment It does not use asdf, just load It with (load (compile-file " llibreria.lisp")) . A little test is included, you can test It: (defun prova (x) (print 'hello)) (use-package :ltk) (load "llibreria.lisp") (defun run () (with-ltk () (load_interface_from_file "descriptio.lisp"))) (run) It will create a button and binds "<Motion>" to the prova function. It has been tested (only a few, It's not finished yet) on CMUCL and Linux on a x86 machine. Please, send me any suggest if you want. Thanks you. Bye!

1 0

[ltk-user] no error stream use
by Kenny Tilton 10 Feb '06

10 Feb '06

Is there some reason the error stream from Tk is not being used? In Celtic I bound that to a second global and read that (with read-line, not read since the error output is not Lisp friendly) before trying to read the regular stream. As it is read-data just flails away at error text until it hits something that upsets the reader, such as a comma. kt

4 16

[ltk-user] getting an item's ID
by Kenny Tilton 07 Feb '06

07 Feb '06

I am merging my Cells fork of LTk with LTk, by which I mean using as much as possible LTk low-level stuff along with my own DEF-C-WIDGET high-level stuff. Things look OK so far, but I had a problem using ltk::read-data to get back the item ID no after creating an item. My problem is that the ID no comes back as an unvarnished "42". But read-data is looking for (:data <data>): (defun read-data () (let ((d (read-wish))) (if (listp d) ; paranoia check when we do not read a list eg. error messages from wish (progn (loop while (not (equal (first d) :data)) do (setf *event-queue* (append *event-queue* (list d))) (setf d (read-wish))) (second d)) (format t "read-data:~a~a~%" d (read-all *wish*))))) How do I arrange for Tk to respond with (:data 42) when I create an item? Or does read-data need to handle un-tagged data from Tk differently? Aside: I just noticed: (defun read-event (&key (blocking t)) (or (pop *event-queue*) (when (or blocking (can-read *wish*)) (read-preserving-whitespace *wish* nil nil)))) Should that be checking to see if any data read from Tk is tagged (:callback ,,,,)? kenny

3 12

[ltk-user] Button/Sender associated with Event?
by Eric Hochmeister 07 Feb '06

07 Feb '06

Hi, The functionality I'm looking for is that I want to set a button's action to be a function. When the function is called, I want to know which button called it. This is because many buttons can be linked to the same function. How do I accomplish this? I looked at the docs for :command and it seems like they only pass "values" to the function. (what was changed, etc.) So I figured, maybe I need to look at binding, it seems to send out an event. So I tried it, and I noticed this... radio button value = NILl:(:EVENT "w13" 13 16 ?? ?? ?? ?? 273 324 1)<= event = #S(LTK:EVENT :X 13 :Y 16 :KEYCODE ?? :CHAR ?? :WIDTH ?? :HEIGHT ?? :ROOT-X 273 :ROOT-Y 324 :MOUSE-BUTTON 1) The Tcl representation seems to have access to the widget that caused the event ie. "w13" but the lisp representation doesn't. I looked at the structure for event and this indeed seems to be the case. (defstruct event x y keycode char width height root-x root-y mouse-button ) So now I'm puzzled. Is there any way to accomplish the functionality I'm looking for?? (other than hacking up my own way with functions which emulate this?) I must be missing something. ----------------- Also, another side question. I'm playing around with radio buttons and I was trying to figure out how to get the state to be on or off.. and by state I mean whether the radio button is selected or not (ON or OFF). From what I can tell, if the :value of a radio button is nil, then it's ON. If it has any other value than nil then its OFF. Is this right?? Its just puzzling me cause it seems so unintuitive. Ok, thats all for now. Thanks! Eric

2 2

[ltk-user] C?N? :)
by Kenny Tilton 04 Feb '06

04 Feb '06

(defmacro c?n (&body body) `(make-c-dependent :code nil ;; `(without-c-dependency ,@,body) :inputp t :value-state :unevaluated :rule (c-lambda (without-c-dependency ,@body)))) Took some supporting changes, but only in reducing discipline and not optimizing the Cell away (for having no dependencies). I hope this implies the desired functionality: (def-cell-test test-c?n () (let ((self (make-be 'c?n-class :aaa (c?n (+ (^bbb) 2)) :bbb (c-in 40)))) (ct-assert (= (^bbb) 40)) (ct-assert (= (^aaa) 42)) (ct-assert (= (^sum) 82)) (setf (^bbb) 100) (ct-assert (= (^bbb) 100)) (ct-assert (= (^aaa) 42)) (ct-assert (= (^sum) 142)) (setf (^aaa) -58) (ct-assert (= (^aaa) -58)) (ct-assert (= (^bbb) 100)) (ct-assert (= (^sum) 42)))) I will use it now to simplify..... Cells-Ltk? Looks to be done enough that I can start using it. Not sure where it should go, though. Hmmmm..... ken

1 0

[ltk-user] How to access initial toplevel window? (wish window??)
by Eric Hochmeister 03 Feb '06

03 Feb '06

Hi, I'm trying to figure out how to access the initial top-level window... ie. the equivalent of opening wish and typing... . config -bg black I tried this in lisp, (with-ltk () (configure nil :background "darkgreen")) But it didn't seem to work. It gets translated to... NIL configure -background {darkgreen} Hm... I tried other variations where 'nil' was and looked at the code for configure and widget-path but that didn't shed any light. What am I missing? Thanks, Eric

3 2

[ltk-user] item IDs
by Kenny Tilton 01 Feb '06

01 Feb '06

Don't see my first message yet. Anyway... I see create-arc et al documented as returning the index. I will look at using those wrappers. But I do not see how that code differs from mine, which did not get back "(:data ....)" from Tk. Insights welcome. kt

2 1