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

Re: [ltk-user] Question about scrolled-text widget
by Cunningham, Jeff 20 Aug '07

20 Aug '07

Peter Herth wrote: > Hi Jeff, > > the problem lies in the fact that the scrolled-text is only a > container around the contained textbox widget. So for configuration, > you need to configure that widget rather than the scrolled-textbox. > You can access it via its textbox slot. So I would write something like: > (let* ((textframe (make-instance 'frame)) > (textbox (make-instance 'scrolled-text :master textframe)) > (text (textbox textbox))) > > (configure text :width 20 :height 30 :background :white) > > once you got the scrolled-text widget packet, you are really only > interested in its contained textbox. > > HTH, > Peter > _______________________________________________ > ltk-user site list > ltk-user(a)common-lisp.net > http://common-lisp.net/mailman/listinfo/ltk-user > That solved that problem. Thank you. What is the format for specifying position with the SEE function? I've tried (see textbox '(0 0)) as the only obvious thing I could think of, but it doesn't like that. --Jeff

2 1

Re: [ltk-user] Re: Ltk examples
by Cunningham, Jeff 17 Aug '07

17 Aug '07

That was the problem. I thought I *was* in those directories, but Slime didn't... :-] Thanks, both of you. --Jeff Felip Alàez Nadal wrote: > Hello: > I programmed those examples and they worked for me, but when you run an example you MUST be at the the same directory that the images, for tk finding them. > > > > 2007/8/17, Cunningham, Jeff <jeffrey.k.cunningham(a)boeing.com>: > > I've been working my way back through the archive and ran across this link to some examples: > > <http://common-lisp.net/pipermail/ltk-user/attachments/20070628/aa36f1c0/exe…> http://common-lisp.net/pipermail/ltk-user/attachments/20070628/aa36f1c0/exe… > > All of the examples worked for me except the parts that imported graphic images. The first one just didn't work (the graphic label wasn't there), whereas the last example (8) bombed and ended up in the debugger. > > Do these work for everyone else? > > I'm running sbcl-1.0.8 on a linux-2.6.21 kernel. > > --Jeff > > > _______________________________________________ > ltk-user site list > <mailto:ltk-user@common-lisp.net> ltk-user(a)common-lisp.net > http://common-lisp.net/mailman/listinfo/ltk-user > > > > > >

1 0

[ltk-user] Re: Ltk examples
by Cunningham, Jeff 17 Aug '07

17 Aug '07

I've been working my way back through the archive and ran across this link to some examples: http://common-lisp.net/pipermail/ltk-user/attachments/20070628/aa36f1c0/exe… All of the examples worked for me except the parts that imported graphic images. The first one just didn't work (the graphic label wasn't there), whereas the last example (8) bombed and ended up in the debugger. Do these work for everyone else? I'm running sbcl-1.0.8 on a linux-2.6.21 kernel. --Jeff

3 2

[ltk-user] Question about scrolled-text widget
by Cunningham, Jeff 17 Aug '07

17 Aug '07

Hi; I'm new to both Ltk and to this list. I'm working on a prototype application which includes a text widget which I'd like to be able to scroll. It looks like the "scrolled-text" widget should work, but it doesn't behave the same as other widget with regards to various parameters. Here is an example that demonstrates: (with-ltk () (let* ((textframe (make-instance 'frame)) (textbox (make-instance 'scrolled-text :master textframe))) ;; (textbox (make-instance 'text :master textframe))) (configure textbox :width 20 :height 30 :background :white) (pack textbox :expand t :fill :both) (pack textframe :expand t :fill :both))) If you evaluate this with the 'text widget (commented out above) it is initially sized as specified in the configure and has the white background I want. But if you evaluate it with the 'scrolled-text widget, the size seems to be determined arbitrarily, and the background remains gray. Actually, the tiny lower-right box where the scrollbars don't quite meet turns white, so it's doing something. Is there a way to get a scrolled-text box with a white background and specified size? I did google the mailing list without finding any previous discussion of this. Any advice would be appreciated. --Jeff

2 1

[ltk-user] re: Problems with choose-directory on windows
by Denatus 08 Aug '07

08 Aug '07

After some hackering and reading that other people had problems with a lacking space inside a {~a} I managed to get it working. Here is the code with only marginally small rewrite(added two spaces): (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)) notice the spaces inside {~a }. -- _________________ Kjeld K. B. Massali denatus(a)gmail.com ------------------------------

1 0

[ltk-user] Problems with choose-directory on windows.
by Denatus 01 Aug '07

01 Aug '07

I'm trying to run this code on Windows XP, SBCL 1.0.6 and ActiveTCL 8.4.14.0 : (defun tester () (setf *debug-tk* nil) (with-ltk () (let ((b (make-instance 'button :text "ok" :command (lambda () (choose-directory) (finish-output))))) (pack b)))) This code hangs, and does not give me a directory chooser. Anyone have a fix for this ? -- _________________ Kjeld K. B. Massali denatus(a)gmail.com ------------------------------

1 0

[ltk-user] Manipulating multiple canvases with a single scrollbar?
by Dumb Idiot 11 Jul '07

11 Jul '07

Hi, I need to scroll two canvases at the same time using a single scrollbar. Is there any simple way to implement this using ltk? I found this in the tk FAQs, but I can't quite get it to work using ltk: http://tcl.sourceforge.net/faqs/tk/#listbox/multiple Any help would be greatly appreciated. Thanks, SK. PS: Is there any mechanism for submitting bug fixes and/or feature completions? I have a few simple ones that I wrote while using LTK...

1 0

[ltk-user] new method listbox-delete
by Shawn Betts 28 Jun '07

28 Jun '07

Hi folks, I believe this is missing: (defgeneric listbox-delete (l start &optional end)) (defmethod listbox-delete ((l listbox) start &optional end) (check-type start (integer 0 *)) (format-wish "~a delete ~a ~a" (widget-path l) start (or end "end"))) If it isn't, what function should I be calling? :) -Shawn

3 5

[ltk-user] Ltk examples
by Felip Alàez Nadal 28 Jun '07

28 Jun '07

Hello: I tried to rewrite the widget example program in ltk, but now I'm too busy to complete that work. I send 4 examples about ltk. You could add them to the ltk tarball if you want. I release them in the public domain. Bye! -- Felip Alàez Nadal

1 0

[ltk-user] *wish* global
by Shawn Betts 24 Jun '07

24 Jun '07

Hi ltkers, Maybe I'm just not using it quite right, but I'm having trouble cleanly dealing with the *wish* global which, if i understand correctly, is let'd in several places to ensure that functions use the correct wish object. I'm using ltk along with some networking code and so I ltk's :server-event set to nil. The problem is I then have to bind *wish* properly whenever I update the gui from the network code. It's sort of clunky and frustrating. My suggestion: have some or all tk widgets contain a wish slot that stores the connection to wish. That way objects just do the right thing when you use them. For commands that don't require a widget, such as wish-exit, you explicitely pass an ltk-connection object that was given to you when you opened the connection. This seems closer to how clx works. -Shawn

4 3

[ltk-user] writing a compound widget
by Russell McManus 13 Jun '07

13 Jun '07

Are there any examples around of how to write a compound widget in ltk? In particular, I'd like to try to write something like the Notebook widget that's available in perl/tk. -russ

4 5

[ltk-user] Entry index
by mandeep singh 08 May '07

08 May '07

i've got a bit of a problem. I need to use the index function of the Entry widget to get back a line.char structure. but there doesnt seem to be any support for this, yet, so i thought to write it but i dont know the procedure to get ouput from wish. any help appreciated. thanks!

2 4

[ltk-user] Just one frame?
by Johnny Zackrisson 27 Apr '07

27 Apr '07

hi. i've tryied to play with more dynamic aspects of the integration with ltk. now, i can use wish and fire of 'pack's for different objects, and wish will nicely display the new object within the current frame/window. when i try to do the same with ltk, i always get a new window/frame with the object inside it. i don't want this behaviour and it seems like ltk automatically adds some extra parameters to the call. i've tried a lot of ways, but haven't managed to get this working. there seems to be some magic behind the "master" slot, etc, and maybe it's the default behaviour that is my problem? serve-event seems needed to get rid of the "main-loop" thing (which annoys me incredibly). and while that works, it still do not display a new object, that's been asked to be displayed later on, within the same frame as before. anyone know how to get this working? by the way, i noticed that the examples is hooking into the main-loop with "with-ltk" without further arguments - is this just a compatibility thing for lisps without serve-event or threads? i've never designed guis before, but i want to "communicate" with the gui-subsystem of my application, not get hooked into it. i wanna say, "add this to window X now" and "add this handler for button y", without further interruptions. i don't want my lisp to be tight up in some -- seemingly -- very badly designed main-loop thing; i want protocol exchange and buffered communication. am i approaching this the wrong way? thanks, jz

3 5

[ltk-user] menu widget
by phundamental unaudio 11 Apr '07

11 Apr '07

Could someone please show me a working example of an ltk menu? I cant get it to work..

2 2

[ltk-user] Fix for entry-select
by Sudhir Shenoy 21 Mar '07

21 Mar '07

Peter, The function entry-select in ltk.lisp should use downcase in the format string. This is so that you can pass :begin or :end as the start or end of the range. The corrected function is appended below. Best regards, Sudhir (defun entry-select (e from to) ;; downcase the from and to indicators (cater for :begin and :end) (format-wish "~a selection range ~(~a~) ~(~a~)" (widget-path e) from to) e)

1 1

[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