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

[ltk-user] Re: [cells-devel] Celtk/Cells3 Compleat
by Thomas F. Burdick 24 Mar '06

24 Mar '06

On 3/24/06, Friedrich Dominicus <frido(a)q-software-solutions.de> wrote: > I fetched the tarball today. I did not now how to check out via CVS, I > guess it's as usual on common lisp .net but I have not idea on the > proper name for it. > > Will try tomorrow. 0.881 and SBCL 0.9.10 should be good together (and Ltk isn't developed with CVS, but with a subversion repository that's not publicly available at the moment), and both work quite well with Cells II at least. For Celtk, you need to get the CVS version of Celtk, which you can download from here: http://common-lisp.net/cgi-bin/viewcvs.cgi/Celtk/?root=cells by clicking on the "download tarball" link at the bottom of the page.

1 0

[ltk-user] Re: [cells-devel] Celtk/Cells3 Compleat
by Marco Gidde 24 Mar '06

24 Mar '06

Friedrich Dominicus <frido(a)q-software-solutions.de> writes: > I fetched the tarball today. I did not now how to check out via CVS, I > guess it's as usual on common lisp .net but I have not idea on the > proper name for it. Under Linux it is as easy as: cvs -z3 -d :pserver:anonymous:anonymous@common-lisp.net:/project/cells/cvsroot co cells cvs -z3 -d :pserver:anonymous:anonymous@common-lisp.net:/project/cells/cvsroot co Celtk This creates the directories "cells" and "Celtk" and there you can (from time to time) say "cvs update" to get the latest stuff. Regards, Marco

1 0

[ltk-user] Celtk\ltk-kt
by Ken Tilton 23 Mar '06

23 Mar '06

I forgot to mention that Celtk should Just Work with the official ltk, and I would build against that, but ltk classic kinda mangles error messages from Tk, and I tend to get a lot of those, so there are just a few tweaks (one?) to get the whole message legibly. Maybe those (it?) would be a good enhancement to Ltk? I noticed that I also commented out ltktest classic at some point. Not sure why, but there should be no conflict with anything in Celtk. ken

2 1

[ltk-user] Did I ask this already?
by Ken Tilton 23 Mar '06

23 Mar '06

ltktest "classic" as well as my Cells driven re-write absolutely crawls when you press Start, running Lispworks on win32. Running allegroCL on win32 both run fine. Has anyone noticed that? Suggestions? Comments? ken

1 0

[ltk-user] Celtk/Cells3 Compleat
by Ken Tilton 23 Mar '06

23 Mar '06

You can now grab Cells3 and Celtk from the c-l.net Cells repository. .\Celtk\ltktest-cells-inside.lisp has a load of doc inside it, including some on just Cells. Check out load.lisp in either source tree to build and run. (Checking next that I remembered to commit those, speaking of which, I use neither those nor ASDF when working, so they often have bugs. Speaking of which...) Bug reports or request for clarification on the doc exceedingly welcome. Otherwise, I will be getting to work on a commercial app using both these (as long as Tk holds up, which looks good so far). ken

1 0

[ltk-user] Menu accelerators
by Ken Tilton 23 Mar '06

23 Mar '06

While trying to re-implement ltktest with Celtk (+ Cells Ltk) I got stumped by why Alt-Q worked for ltktest "classic" but not for me. Then I noticed: (bind **tk** "<Alt-q>" (lambda (event) (declare (ignore event)) (setf ** exit-mainloop** t))) Not sure how well that scales to other menu items. Not an issue here, but for one thing it fails to check whether the menu item being faked is enabled. And at any rate it requires duplicating the code associated with a menu item (tho here the menu item command was simply "exit"). Anyway... I found something in one of my Tk books and did: (defobserver accelerator :around ((self menu-entry-usable) new-value old-value old-value-bound-p) (call-next-method) (with-integrity (:client '(:bind nil)) (when new-value (tk-format-now "bind . ~a {~a invoke ~a}" new-value (path (upper self menu)) (index self))))) (forget most of that, but the idea is a general solution to menu accelerators via TCL "invoke"). Only tested for the same alt-q accelerator, but it could handle any accelerator for any menu item. The TCL invoke, btw, does nothing if the menu item is disabled. Confession: since defobserver is an on-change handler, it really should be looking for the odd case in which an accelerator got */removed/* (?!) and then clear the binding. ken

1 0

[ltk-user] color format question
by irvin h. 11 Mar '06

11 Mar '06

Hi, I am new to ltk and am trying to create rectangles of different colors on a canvas. I would like to specify the value of the :fill option with a variable for example (itemconfigure canvas rectangle :fill :some-var-val) , but I am not sure how to do that; any help would be greatly appreciated. Also what are the acceptable formats for specifying a color? I know there are words like 'red' and 'black' and there is also hexadecimal #RRBBGG are there others? Thanks again. -Irvin H.

2 1

[ltk-user] LTKtools v0.1 and threads
by michael graffam 10 Mar '06

10 Mar '06

Hi Peter, Regarding your comments (I'll take them in order).. You are right, all of this definately belongs in a package. The original code base was not package-safe. The inspector at that point had an LTK interface grafted onto it, but the underlying code used literal symbols in such a fashion that it would break when placed in a package and used without USE-PACKAGE. This isn't the case anymore, so I just wrapped it in a package just now. I do prefer to explicitly give the package name, as in: ltk:format-wish or whatever. It helps me 6 or 8 months later when I've forgotten about the packages and don't remember what is where. The threading issue is important, however. I see no real way to escape using threads. If the user has two or more console windows open, the commands issued to each have to run concurrently. But you are right, of course, that LTK is not certain to be thread safe. I don't believe that CMUCL will allow such string interpolation as you describe, however. I believe CMUCL will block a second thread from accessing *WISH* until the first thread completes. When I get some free time, I'll experiment with this issue on CMUCL and SBCL and let the list know what I've come up with. Mike P.S. For some reason unknown to me, I have stopped recieving email from the ltk-user list. I am subscribed, but no mail is getting to me. I read your reply on the archive web page. __________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com

1 0

[ltk-user] LTKtools v0.1
by michael graffam 05 Mar '06

05 Mar '06

Hello everyone, Attached is a tarball of Lisp source that implements an LTK user interface (with line editing, and history, of course) on top of CMUCL and SBCL (developed on Linux, but it should work on *BSD too). It should load into CLISP, but it very limited due to CLISP not having any thread support. As you can see by the version number, this code is no-where near complete, but I am releasing it here in order to get feedback from LTK users, and maybe give Peter a smile and some inspiration. I intend to work on this further, but help from other people (bug alerts (and fixes!), additional applets, kind words, whatever) would be welcome too. All of this code is released into the public domain. Cheers, Mike __________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com

2 1

[ltk-user] LispWorks (windows) hanging on ltktest...
by Academician 05 Mar '06

05 Mar '06

Alright, this is pretty noobish, but here goes... I'm using LispWorks Personal Edition (4.4) on Windows, and ActiveTcl 8.4 installed at the normal path ("C:/Tcl"). Compiling and loading ltk works fine (following these steps): ---------------------------------------------------------------- CL-USER 1 > (change-directory "C:/ltk") #P"C:/ltk/" CL-USER 2 > (compile-file "ltk") ; (lots of compiler output) CL-USER 3 > (load "ltk") ; Loading fasl file C:\ltk\ltk.fsl #P"C:/ltk/ltk.fsl" CL-USER 4 > (in-package :ltk) #<PACKAGE LTK> ---------------------------------------------------------------- But when I then try to run (ltktest), LispWorks hangs seemingly forever, and I have to do an end-process on it. I also get errors running more simple tests - as an example, here is what happens when I define the (hello-1) function from "First Steps" in the documentation and call it: ---------------------------------------------------------------- LTK 5 > (hello-1) proc escape {s} {regsub -all {\\} $s {\\\\} s1;regsub -all {"} $s1 {\"} s2;return $s2} proc senddata {s} {puts "(:data [escape $s])";flush stdout} proc senddatastring {s} {puts "(:data \"[escape $s]\")";flush stdout} proc senddatastrings {strings} { puts "(:data (" foreach s $strings { puts "\"[escape $s]\"" } puts "))";flush stdout} proc sendevent {s x y keycode char width height root_x root_y mouse_button} {puts "(:event \"$s\" $x $y $keycode $char $width $height $root_x $root_y $mouse_button)"} proc callback {s} {puts "(:callback \"$s\")";flush stdout} proc callbackval {s val} {puts "(:callback \"$s\" $val)"} proc callbackstring {s val} {puts "(:callback \"$s\" \"[escape $val]\")"} add-callback (w2 #'(LAMBDA NIL (FORMAT T Hello World!~&))) set text_w2 "Press Me" button .w2 -command {callback w2} -textvariable text_w2 pack .w2 -side top -fill none l:(QUOTE WISH)<= l:(QUOTE IS)<= l:NOT<= NOTl:RECOGNIZED<= RECOGNIZEDl:AS<= ASl:AN<= ANl:INTERNAL<= INTERNALl:OR<= ORl:EXTERNAL<= EXTERNALl:COMMAND<= COMMANDsenddatastring [tk_messageBox -message {A comma appears outside the scope of a backquote (or there are too many commas). Do you wish to invoke the debugger?} -title {Error} -type yesno -icon question] read-data:OPERABLEprogram or batch file. Error: NIL fell through ECASE expression. Wanted one of (:YES :NO). 1 (continue) Ignore the comma. 2 (abort) Abort handling Tk event 3 Exit Ltk main loop 4 Return to level 0. 5 Return to top loop level 0. Type :b for backtrace, :c <option number> to proceed, or :? for other options ---------------------------------------------------------------- Has anyone else had this experience, or know what might be wrong? I haven't tried CLISP yet, that will be my next avenue, but I'd like to see if I can get it going with LW. --Daniel

2 1

[ltk-user] LTKtools v0.1 tarball
by michael graffam 03 Mar '06

03 Mar '06

It would help if I had included the tgz. __________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com

1 0

[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

[ltk-user] Ltk 0.88 released!
by Peter Herth 30 Jan '06

30 Jan '06

I am happy to announce that Ltk v. 0.88 just has been released. It took a long time after the last release, but it is filled with detail work. Bugs have been fixed, new functions added, a glossy polish applied. So grab it, and give feeback/questions :) Peter

1 0

Re: [ltk-user] canvas objects
by nik gaffney 28 Jan '06

28 Jan '06

>> Ive been playing around with the canvas widget, and was wondering if there is a >> way to find if a created object is 'selected', or at the same coordinates as >> (ltk:event-x ltk:event-y) without having to manually keep track of each object >> on the canvas. > > It sounds as if you bound an event handler to the canvas widget and > then tried to find a corresponding canvas item. The canvas widget is > really powerful and provides event handlers on the items themselves, > i.e. > > (let ((item (create-line canvas (list x1 y1 x2 y2)))) > (itembind canvas item "<Enter>" (lambda (ev) > (format t "entered item ~A~%" item))) > (itembind canvas item "<Leave>" (lambda (ev) > (format t "left item ~A~%" item)))) > Thanks. I didnt realise that items could also have event handlers, so this simplifies things substantially. nik

1 0

[ltk-user] canvas objects
by nik gaffney 26 Jan '06

26 Jan '06

hello, Ive been playing around with the canvas widget, and was wondering if there is a way to find if a created object is 'selected', or at the same coordinates as (ltk:event-x ltk:event-y) without having to manually keep track of each object on the canvas. also, can anyone recommend a good overview/tutuorial of tk that is online?+ thanks, nik

1 0

[ltk-user] Spinbox
by Marco Gidde 25 Jan '06

25 Jan '06

Hi, the command associated with a SPINBOX irritates me a little bit. When I give a function via the :COMMAND key in MAKE-INSTANCE it has to be a function without arguments, which rises the question, how can I get the value (the VALUE method is not specialized for SPINBOXes). On the other hand (SETF COMMAND) expects a function of one argument and this argument is the value I'm looking for (as a string). Since I don't know anything about a equivalent tcl/tk program I have to ask: is it a bug, a feature and/or a misconception of me? Regards, Marco

2 2

[ltk-user] Look and feel: tile
by Marco Gidde 23 Jan '06

23 Jan '06

Hi, this weekend I started playing with LTK and was really impressed, how easy to use it is. Thank you for this nice piece of software. But of course I have something to complain about and that's Tk's look and feel, which is essentially the only reason I did not try LTK earlier. Searching the web I found a few extension packages, especially Tile, which look much nicer, and even a message from Peter, that there is or will be some support for this in LTK. The latest LTK version I could find is 0.88pre but it contains no hint concerning Tile, so I tried (by copy and modify) something along the line of (defargs t-check-button () activebackground activeforeground anchor background bitmap borderwidth cbcommand compound cursor disabledForeground font foreground height highlightbackground highlightcolor highlightthickness image indicatorOn justify offrelief offvalue onvalue overrelief padx pady relief selectcolor selectimage state takefocus text textvariable underline variable width wraplength) (ltk::defwidget t-check-button (check-button) () "ttk::checkbutton") (with-ltk () (format-wish "package require tile") ... (make-instance 't-check-button :master top :text "ttk checkbutton") ...) and the checkbox even showed up! But this is certainly more a hack than anything else and some real support would be very welcome. So my question is, did I oversee some newer LTK package or an LTK add-on or something or when will it be released? Regards, Marco

2 4

[ltk-user] Release Candidate 2 of ltk-0.88 available
by Peter Herth 23 Jan '06

23 Jan '06

Hello to all Ltk users, especially to the newly joined list members! I just uploaded the latest ltk release, so if you want to have a look and point out to any show-stopping bugs, you can find it here: http://www.peter-herth.de/ltk/ltk-0.88pre2.lisp If not too many bugs are found, the official release will follow in a few days. Peter

1 0