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

[ltk-user] Windows problem again
by Hitman 20 Mar '07

20 Mar '07

Hi, I have same problem which other people wrote here. But I don't know what I can do, cause the solutions of these problems wasn't solution for me :(. I have Windows XP and clisp (I use it with slime) and I'd like to use LTK. I try to install tcl/tk, ActiveTcl and tclkit too. I do exactly this: 1) start emacs and slime(of course clisp with) 2) compile and load ltk: (compile-file "C:/clisp/ltk/ltk.lisp") (load "C:/clisp/ltk/ltk.lisp") 3) use ltk (in-package :ltk) 4) path to wish.exe (setf *wish-pathname* "C:/Tcl/wish.exe") or (setf *wish-pathname* "C:/Tcl/wish84.exe") or (setf *wish-pathname* "C:/Tcl/tclkit.exe") ---> until here all is great 5) start up test (ltktest) => LTK window shows up with 3s delay, windows shows up transfusing clock and it transfusing and transfusing ;)... never stops... and no workable test :'( 6) try to start simple example (with-ltk () (let ((b (make-instance ’button :master nil :text "Press Me" :command (lambda () (format t "Hello World!~&"))))) (pack b))) => LTK window shows up, but error window with notice shows up too... the notice on window is: "EVAL: variable 222BUTTON has no value Do you wish to invoke the debugger?" and slime falls down. I tried to restart after installation of tcl, I tried to install other tcls, I tried to kill programs from tray and windows processes... nothing helps :( Help me please. Thnx for any answer.

4 9

[ltk-user] ltk compile error clisp
by Scott Brown 30 Jan '07

30 Jan '07

Hi, when I try to compile ltk on clisp I get the following error message: Compiling file F:\ltk-0.90\ltk.lisp ... ERROR in WITH-LTK-HANDLERS in lines 427..429 : Constant NIL cannot be bound. ** - Continuable Error LET*: NIL is a constant, may not be used as a variable How can I fix this? Send instant messages to your online friends http://au.messenger.yahoo.com

2 4

[ltk-user] Little patch
by Federico Giraud 09 Jan '07

09 Jan '07

Hi everybody, first of all, sorry for my bad English. I'm a student and I'm trying to use LTK. I have noticed that tags don't work on scroll-text widget. I've copied the functions tag-configure and tag-bind from the text widget to the scroll-text widget, with little modifications. These are the new functions: (defmethod tag-configure ((txt scrolled-text) tag option value) (format-wish "~a tag configure ~a -~(~a~) {~(~a~)}" (widget-path (textbox txt)) (if (stringp tag) tag (format nil "~(~a~)" tag)) option value) txt) (defmethod tag-bind ((txt scrolled-text) tag event fun) "bind fun to event of the tag of the scrolled-text widget txt" (let ((name (create-name))) (add-callback name fun) (format-wish "~a tag bind ~a ~a {callback ~A}" (widget-path (textbox txt)) tag event name) ) txt) I've also moved the generic functions for tag-configure and tag-bind up, before the new functions. Now tags seem to work also on scroll-text widget without warnings (with SBCL). I hope I've helped you in some way. Thanks to Peter for his work! Federico Giraud

1 0

[ltk-user] Bug in choose-directory, get-open-file, get-save-file
by David Holz 07 Jan '07

07 Jan '07

The parameter given to initialdir is surrounded in braces {~a}. On the windows platform, the directory will usually end in a backslash, such as {c:\whatever\} which acts to escape out the close brace. Putting a space after the ~a seems to fix this. Here are my new definitions for those functions, which also flesh out the parameters for get-save-file; I'm not including a diff because I have a number of other changes in there as well. (defun get-open-file (&key (filetypes '(("All Files" "*"))) (initialdir (namestring *default-pathname-defaults*)) multiple parent title initialfile) (let ((files (with-output-to-string (s) (format s "{") (dolist (type filetypes) (let ((name (first type)) (wildcard (second type))) (format s "{{~a} {~a}} " name wildcard))) (format s "}")))) (format-wish "senddatastrings [tk_getOpenFile ~ -filetypes ~a ~@[ -initialdir {~a }~] -multiple ~a ~ ~@[ -parent ~a~] ~@[ -title {~a}~] ~@[ -initialfile {~a }~]]" files initialdir (if multiple 1 0) (and parent (widget-path parent)) title initialfile) (read-data))) (defun get-save-file (&key (filetypes '(("All Files" "*"))) (initialdir (namestring *default-pathname-defaults*)) parent title initialfile) (let ((files (with-output-to-string (s) (format s "{") (dolist (type filetypes) (let ((name (first type)) (wildcard (second type))) (format s "{{~a} {~a}} " name wildcard))) (format s "}")))) (format-wish "senddatastring [tk_getSaveFile ~ -filetypes ~a ~@[ -initialdir {~a }~] ~ ~@[ -parent ~a~] ~@[ -title {~a}~] ~@[ -initialfile {~a }~]]" files initialdir (and parent (widget-path parent)) title initialfile) (read-data))) (defun choose-directory (&key (initialdir (namestring *default-pathname-defaults*)) parent title mustexist) (format-wish "senddatastring [tk_chooseDirectory ~@[ -initialdir {~a }~]~@[ -parent ~a~]~@[ -title {~a}~]~@[ -mustexist ~a~]]" initialdir (and parent (widget-path parent)) title (and mustexist 1)) (read-data)) _________________________________________________________________ Find sales, coupons, and free shipping, all in one place! MSN Shopping Sales & Deals http://shopping.msn.com/content/shp/?ctid=198,ptnrid=176,ptnrdata=200639

1 0

[ltk-user] Convert path strings to CLOS widgets
by David Holz 26 Dec '06

26 Dec '06

I noticed there didn't seem to be any mapping from path strings to CLOS widgets in Lisp, useful for things like "winfo children ...". So here's some code that works, diffed from v0.90. I wrote it, and give permission to use in ltk however you want, whatever license, etc legal hoopdedoo. $ diff -ur ltk.lisp ltk-0.90/ltk.lisp --- ltk.lisp 2006-07-15 07:45:14.000000000 -0700 +++ ltk-0.90/ltk.lisp 2006-12-26 11:55:43.492704000 -0700 @@ -462,6 +462,12 @@ (defvar *init-wish-hook* nil) +(defvar *paths-to-widgets* (make-hash-table :test #'equal) + "Maps Tcl window path strings to their Lisp widget object.") + +(defun path-to-widget (path) + (gethash path *paths-to-widgets*)) + (defun dbg (fmt &rest args) (when *debug-tk* (apply #'format t fmt args) @@ -507,6 +513,10 @@ (defun start-wish (&rest keys &key handle-errors handle-warnings (debugger t) stream) (declare (ignore handle-errors handle-warnings debugger)) + + ;; Clear out the name mapping + (clrhash *paths-to-widgets*) + ;; open subprocess (if (null (wish-stream *wish*)) (progn @@ -1166,7 +1176,8 @@ (send-wish (format nil "bell"))) (defun destroy (widget) - (send-wish (format nil "destroy ~a" (widget-path widget)))) + (send-wish (format nil "destroy ~a" (widget-path widget))) + (remhash (widget-path widget) *paths-to-widgets*)) (defun clipboard-clear () (send-wish "clipboard clear")) @@ -1225,7 +1236,9 @@ (defmethod create ((widget widget)) (when (init-command widget) ;;(format t "creating: ~a~%" (init-command widget)) (finish-output) - (format-wish (init-command widget) (widget-path widget)))) + (format-wish (init-command widget) (widget-path widget)) + ;; Register this path + (setf (gethash (widget-path widget) *paths-to-widgets*) widget))) (defgeneric (setf command) (value widget)) (defgeneric command (widget)) @@ -2561,6 +2574,12 @@ (format-wish "senddata [winfo rooty ~a];flush stdout" (widget-path tl)) (read-data)) +(defun children (w) + "give a list of the children of the widget" + (format-wish "senddatastrings [winfo children ~a];flush stdout" (widget-path w)) + ;; Convert paths into widget objects + (mapcar #'path-to-widget (read-data))) + ;;; misc functions (defun focus (widget) _________________________________________________________________ Dave vs. Carl: The Insignificant Championship Series. Who will win? http://clk.atdmt.com/MSN/go/msnnkwsp0070000001msn/direct/01/?href=http://da…

1 0

[ltk-user] UTF-8 text
by Zdenek Eichler 15 Dec '06

15 Dec '06

Hi, I have this problem: I want to use unicode characters (chess figures) in canvas. But it displays only some squares. But when i create button with same characters . it work! (make-instance 'canvas-text :canvas c :x 10 :y 10 :text "♖") this displays only garbage (make-instance 'button :master right-frame :text "♖" :command (lambda () (+ 1 2))) this display button with text ♖ I'm not sure this character will be displayed in email correctely... so my character is unicode WHITE CHESS PAWN... I use SBCL on MAC OS X 10.4 Any idea? Thanks Zed

2 2

[ltk-user] Sources for ltkdoc
by Felip Alàez Nadal 29 Nov '06

29 Nov '06

Hello: There are avaliable latex sources for ltkdoc. I'd like to add some content to It. Should I write an independent doc and send It to you? Thanks. -- Felip Alàez Nadal

1 0

[ltk-user] LTK improvements
by Jan Rychter 28 Nov '06

28 Nov '06

I have a fairly large bunch of changes to ltk, mostly having to do with the text widget, but also with support for new widgets from the BWidget toolkit (such as tree). I am not completely happy with these changes, as I am sure they require further work and/or review. They can likely be implemented much better. But since I haven't found the time to do so over the last 2 months, I thought I'd rather push them out, to prevent wasting of time in case somebody is doing the same thing in parallel. Should I send the diffs to the list, or directly to Peter? Please note, they definitely do require reviewing. --J.

3 8

[ltk-user] ltk examples
by Bernhard Graf 23 Nov '06

23 Nov '06

Thanks Ken, I know, documenting all features of ltk is an awful lot of work, but maybe if it is divided into pieces and done by several people it is manageable with not too much effort. And, as you probably know, Peter is German (as I am, too) and Germans opt for perfection ;-) By the way, I have meanwhile been able to solve the problem myself, as I found a bigger piece of code that is written using ltk (clmail : http://hocwp.free.fr/glmf/article_clmail/clmail-v2/) and by analyzing this I was able to use the already implemented function "scrolled- text". So Peter has obviously already implemeted it. As looking at software that is already utilizing ltk is the best way to find out how to use it, do other members of the list know of more examples like clmail ? Maybe another "rather unspecific" question, but if we get together enough pieces of code (maybe even from each other) this would be the best way to help each other not to "reinvent the wheel") Greetings, Bernhard Graf Bernhard Graf Geschäftsführer adARTIS e.K. Im Hansengarten 9 D-56412 Hübingen Tel: 06439-9123 0 Fax: 06439-9123 99 www.adartis.de bgraf(a)adartis.de

6 16

[ltk-user] ltk examples
by Bernhard Graf 17 Nov '06

17 Nov '06

Hi everybody, I am quite new to LISP and found ltk as an ideal graphical UI for my LISP tests. What I am missing are more examples for the ltk functions. To get used to ltk, LISP and TK, I am trying to convert the examples found at http://www.bin-co.com/tcl/tutorial/tk.php to LISP. Unfortunately, I miss a lot of infos and would be grateful if Peter Herth or someone else would include small examples of each ltk function, similar to the TK examples in the tutorial mentioned above, to the ltk manual. What I am missing at the moment is e.g. the link between the text function and the scrollbar function. This seems to be somewhat different between TK and ltk, or am I wrong ? Greetings, Bernhard Graf

2 1