ltk-user

ltk-user@common-lisp.net

259 discussions

[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

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

ltk-user