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

[ltk-user] tiny patch: initial dir in choose-directory
by pedro.kroger＠gmail.com 01 Nov '09

01 Nov '09

Hi, There's an extra space in choose-directory that confuses tk. The attached patch fixes it. Pedro

2 1

[ltk-user] Multiple canvas controlled by 1 scrollbar
by Wesley Kerr 15 Oct '09

15 Oct '09

Is there any way to set the commands so that I can control multiple canvases with a single scrollbar? I'm trying to hack together a solution using scale objects right now and it's proving kind of difficult. I'm not sure how to set the translate of the canvas without a scroll bar. Thanks Wes -- Wesley Kerr Graduate Research Assistant Department of Computer Science University of Arizona website: http://www.cs.arizona.edu/~wkerr

2 1

[ltk-user] Toplevel Question
by Wesley Kerr 15 Oct '09

15 Oct '09

I think that this is a simple question, but I can't figure out how to find a handle for the top-level that is automatically created when we call (start-wish). Is there a way to get it so that I can set the title and do other fun stuff with it? Here is some code that shows what I want to do: (defun data-mining-gui () (with-ltk () (let* ((top-frame (make-instance 'frame :pack '(:side :top :expand t :fill :x :anchor :ne))) (bload (make-instance 'button :master top-frame :text "Load..." :command 'data-mining-gui-load-file)) (bottom-frame (make-instance 'frame :pack '(:side :bottom :expand t :fill :x :anchor :se) :borderwidth 2 :relief :raised)) (label (make-instance 'label :master bottom-frame :text "Active:")) (lfile (make-instance 'label :master bottom-frame :text "")) (sc (make-instance 'scrolled-canvas :pack '(:side :top :fill :both :expand t :anchor :ne) :width 600 :height 600)) (canvas (canvas sc)) ) (pack (list bload label lfile) :side :left) (make-menubar) ;;; I want to set the title of the window to "Data Mining" but can't figure out where the handle is. ;(wm-title nil "Data Mining") (setf *canvas* canvas) (setf *file-label* lfile) )) )) Thanks Wes -- Wesley Kerr Graduate Research Assistant Department of Computer Science University of Arizona website: http://www.cs.arizona.edu/~wkerr

2 1

[ltk-user] Small Bug
by Wesley Kerr 15 Oct '09

15 Oct '09

I'm beginning to fall in love with this library. Thanks so much. I am using Allegro modern lisp and there are two small issues that I've encountered. (defun error-popup (message title icon &key (allow-yesno-p t)) (ecase (message-box message title (if (and allow-yesno-p (find-restart 'continue)) "yesno" "ok") icon) (:YES (continue)) ((:ok :NO) (abort)))) (defun debug-popup (condition title) (ecase (message-box (format nil "~A~%~%Do you wish to invoke the debugger?" condition) title "yesno" "question") (:YES (cond (*debugger-hook* (let ((hook *debugger-hook*) (*debugger-hook* nil)) (funcall hook condition hook))) (t (invoke-debugger condition)))) (:NO (abort)))) The keywords :YES and :NO used to be lower case and the message box is returning them as capitols. Only an issue because modern cares about case sensitive. I made the simple change locally and it works, but I thought I would pass it on. -- Wesley Kerr Graduate Research Assistant Department of Computer Science University of Arizona website: http://www.cs.arizona.edu/~wkerr

2 1

[ltk-user] The cutting edge at http://ltk.rplay.net/svn/branches/ltk/repl/
by Jussi Salmela 27 Jul '09

27 Jul '09

My environment: Windows Vista, Tcl/Tk 8.5.7.0 and Clozure Common Lisp Version 1.3-r11936 (WindowsX8632). I took a look at the forthcoming version of LTK at the address above. I understand that this is work-in-progress and that some of my observations may be the result of how Windows or Tk behaves so that nothing can be done. I also know almost nothing of Tk, very little of LTK and Lisp are a bit rusty, so bear with me... 1. tktable.lisp When I did (compile-file "tktable") I got the following warning: ; In an anonymous lambda form at position 2382: Initarg :ROWS occurs in both ROWS and COLS slots I guess this is a valid error message and the code should be corrected like this (the original row is commented out): (defclass scrolled-table (frame) ((table :accessor table) (hscroll :accessor hscroll) (vscroll :accessor vscroll) (rows :accessor rows :initarg :rows :initform nil) ;(cols :accessor cols :initarg :rows :initform nil) (cols :accessor cols :initarg :cols :initform nil) (titlerows :accessor titlerows :initarg :titlerows :initform nil) (titlecols :accessor titlecols :initarg :titlecols :initform nil) (data :accessor data :initarg :data :initform nil) )) When I run (tabletest) I get a neat-looking table with 200 rows and 40 columns. The cells have light-gray (?) background and the foreground color is black (?). Very clear, no strain to the eye. But when I click a cell with the mouse, the background first changes to blue(?) then changes back to the original light-gray (?) and the foreground color changes to white (?). This combination of colors makes it very hard to see what the cell contents are. Scrolling by dragging the thumbs OK. Vertical scroll with either PgDn-key or by clicking the vertical scroll area below the thumb brings new rows into view but leaves one row out. The reason (as an example) is this: when the table is at first displayed it shows the first 34 rows in whole and a tiny slice of the 35th row also. The system "thinks" that the row 35 was shown although it was not wholly visible and starts showing the next rows from the 36th row onward. If I squeeze the tiny slice out by diminishing the window height a little the vertical scroll starts to function correctly. It would be nice if Ltk or Tk could squeeze the slice out instead. Still on the vertical scroll: If in the starting view (i.e. the rows 1-34 showing) I click the cell of (row 9, col 5), for instance, to get it focused and then do a vertical scroll of one pagefull and scroll back (PgDn and PgUp, for instance), the focus (i.e. the text caret) is in the cell (row 1, col 1) and the cell (row 9, col 5) is displayed with a blue background. 2. ltk.lisp THE TEST i.e. (ltktest) OK as far as I understand. The Tk styles for Windows (winnative, xpnative) work beautifully. As the program starts the default selection of the radio button is on and the theme is xpnative as it should be on Vista. If, however, I choose another theme and then select the default again, the theme is not xpnative but Motif I think. EDIT: It later occurred to me that maybe "default" here means "Tk default" and not "Windows XP/Vista default" but still the behavior is not consistent. (ltkeyes) OK. All other tests except defwidget-test work. Running (defwidget-test) gives the error msg "Class named TW not found.". 3. ltk-tile.lisp Running (tile-test) gives several times the error 'Tcl/Tk error: invalid command name "style" '. After adding "ttk::" to the beginning of "style" like this: (defun theme-names () (send-wish "senddatastrings [ttk::style theme names]") (ltk::read-data)) (defun use-theme(name) (format-wish "ttk::style theme use ~a" name)) the program runs OK except that it has the same problem with the default theme as ltktest above. 4. ltk-mw.lisp Compiling gives: ((SETF DATA) :AFTER (T LIST-SELECT)): Unused lexical variable VAL Apparently it concerns the last method in the list-select box widget: (defmethod (setf data) :after (val (select list-select)) (listbox-clear select) (listbox-append select (mapcar (lambda (item) (list-select-display select item)) (data select)))) The test (tooltip-test) functions, sort-of. The tooltip is shown but at the screen position (0,0)! While debugging by spreading prints around I by accident discovered a silly way of correcting the behavior. This is how the last lines of the tooltip method show look like now when it is operating correctly: (when (and txt (> (length txt) 0)) (setf (text (tooltip-label tooltip)) txt) ;(print (geometry tooltip )) (set-geometry-xy tooltip (truncate x) (truncate y)) ;(print (geometry tooltip )) (geometry tooltip ) (normalize tooltip) ;(print (geometry tooltip )) (raise tooltip)))) So the extra call to geometry does the trick and naturally I have no idea what is going on here. Running (gtree-demo) produces errors about :borderwidth and height in: (defmethod gtree-render-node ((d gtree-demo) node ) (make-instance 'label :master d :text node :borderwidth 3 :relief :raised :background :grey :height 1 :width 10)) After the removal of these the run succeeds. Rest of the demos OK. Jussi Salmela

2 1

[ltk-user] Q about canvas item handles
by Daniel Herring 15 Jul '09

15 Jul '09

Why isn't HANDLE (for canvas items) exported from :ltk? "Hand to forehead" when I figured out why the following didn't work. (defpackage :p (:use :cl :ltk)) (in-package :p) (defun test () (let* (... (c (... 'canvas ...)) (o (make-instance 'canvas-oval :canvas c :x0 ...))) (itemconfigure c (slot-value o 'handle) ...))) Alternatively, would it make sense to have (defmethod itemconfigure ((canvas canvas) (canvas-item item) ...)) do the right thing? Possible patch attached. Thanks, Daniel

2 3

[ltk-user] Adding support for various units of measure for canvas items.
by Ilya Zvyagin 08 Jul '09

08 Jul '09

Hi, all. First of all, thank you for a good library. So far I think LTK is the best CL library for TK. That is a good reason to make it even better ! I think why does not LTK have support for units of length for canvas items? At least, I have not found any neither from reading the docs no from reading the sources (which are compact, indeed). That is why I tried my own hack for this. The idea is very simple: we declare a dynamic variable to hold name of units of measure, with reasonable value of "", which should not have any effect on the existing applications, and attach it to each length or size with is forwarded to WISH. Like this: (defparameter *canvas-units* "") (defun format-number (stream number) (when (and (atom number) (not (vectorp number))) (format *debug-io* "~%format-number: ~A ~A ~A" number (type-of number) *canvas-units*)) (cond ((complexp number) (format-number stream (realpart number)) (format-number stream (imagpart number))) ((integerp number) (format stream " ~d~a" number *canvas-units*)) ((typep number 'single-float) (format stream " ~a~a" number *canvas-units*)) ((numberp number) (format-number stream (coerce number 'single-float))) ((stringp number) (format stream " ~a" number)) ((null number) ) ((listp number) (format-number stream (car number)) (format-number stream (cdr number))) ((arrayp number) (dotimes (i (length number)) (format-number stream (aref number i)))) )) And I also added a branch for STRING parameters. The reason is I spent significant number of time trying to figure out why my code using STRING parameters to length options. LTK in this case silently ignores these parameters so I think either output branch or error condition should be added here. To support the tradition, a WITH-like macro also can be added. Like : (WITH-CANVAS-UNITS (m) ...) I can provide the code in any form, if it is interesting. -- ---------------------- Ilya Zvyagin, OOO Rolis. e-mail: masterziv AT gmail DOT com ICQ# 29427861 Skype: masterziv1024

3 2

[ltk-user] Still active...
by Peter Herth 18 Jun '09

18 Jun '09

Hi to all, I just wanted to give a life sign and some updates with respect to LTk. First of all, I have rediscovered my LTk blog at http://ltk-talk.blogspot.com/ If time allows, I will try to put more updates and information about LTk there. Of course, this mailing list is supposed the central place for LTk related discussions. My relative silence comes from the fact that I am more than busy with my work, but the good news is, a nice part of it is LTk related. So behind the scenes, a lot of things have happened. I hope to be able to explain all news in detail later, but for those who want to live on the cutting edge, the subversion repository for LTk can be found at: http://ltk.rplay.net/svn/ The trunk is mostly the latest released LTk, the cutting edge lives currently under http://ltk.rplay.net/svn/branches/ltk/repl/ It offers a complete renewed communications protocol for LTk and an almost finished support for the tile widget set (requires Tk 8.5+). I hope to be able to merge it onto trunk soon. Peter

4 6

[ltk-user] custom styles for tiled Tk
by Daniel Herring 06 Jun '09

06 Jun '09

Hi, I'm using the development code from http://ltk.rplay.net/svn/branches/ltk/repl (r210) Since tiled Tk dropped the -indicatoron attribute from radio-buttons, I need to define a custom style as described on pages 5-7 of http://tktable.sourceforge.net/tile/tile-tcl2004.pdf How would one approach this with ltk? Or have I walked past the bleeding edge... Thanks, Daniel

2 2

[ltk-user] Adding support for various units of measure for canvas items.
by Ilya Zvyagin 09 Apr '09

09 Apr '09

Hi, all. First of all, thank you for a good library. So far I think LTK is the best CL library for TK. That is a good reason to make it even better ! I think why does not LTK have support for units of length for canvas items? At least, I have not found any neither from reading the docs no from reading the sources (which are compacts, indeed). That is why I tried my own hack for this. The idea is very simple: we declare a dynamic variable to hold name of units of measure, with reasonable value of "", which should not have any effect on the existing applications, and attach it to each length or size with is forwarded to WISH. Like this: (defparameter *canvas-units* "") (defun format-number (stream number) (when (and (atom number) (not (vectorp number))) (format *debug-io* "~%format-number: ~A ~A ~A" number (type-of number) *canvas-units*)) (cond ((complexp number) (format-number stream (realpart number)) (format-number stream (imagpart number))) ((integerp number) (format stream " ~d~a" number *canvas-units*)) ((typep number 'single-float) (format stream " ~a~a" number *canvas-units*)) ((numberp number) (format-number stream (coerce number 'single-float))) ((stringp number) (format stream " ~a" number)) ((null number) ) ((listp number) (format-number stream (car number)) (format-number stream (cdr number))) ((arrayp number) (dotimes (i (length number)) (format-number stream (aref number i)))) )) And I also added a branch for STRING parameters. The reason is I spent significant number of time trying to figure out why my code using STRING parameters to length options. LTK in this case silently ignores these parameters so I think either output branch or error condition should be added here. To support the tradition, a WITH-like macro also can be added. Like : (WITH-CANVAS-UNITS (m) ...) I can provide the code in any form, if it is interesting. -- ---------------------- Ilya Zvyagin, OOO Rolis. e-mail: masterziv AT gmail DOT com ICQ# 29427861 Skype: masterziv1024

1 0

[ltk-user] Problem with Extension
by Christoph Senjak 01 Apr '09

01 Apr '09

Hello. I want to use PNG-Images on Ltk-Buttons. Therefore, I want to use the Img-Package. I am not familiar with this. I read the documentation and tried the following: (setf *init-wish-hook* (append *init-wish-hook* (list (lambda () (send-wish "package require Img"))))) (defun config-button-png (button png) (format-wish "~A configure -image [ image create photo -data \"~A\" ]" (ltk::name button) png)) (with-ltk () (let* ((f (make-instance 'frame)) (b (make-instance 'button :master f :text "" :command (lambda () (format t "Quak!~%"))))) (pack f) (config-button-png b "iVBORw0KGgoAAAANSUhEUgAAAAoAAAAKCAIAAAACUFjqAAAAAXNSR0IArs4c6QAAAAlwSFlzAAALEwAACxMBAJqcGAAAAAd0SU1FB9kEARQbItOgpzAAAAAZdEVYdENvbW1lbnQAQ3JlYXRlZCB3aXRoIEdJTVBXgQ4XAAAAEklEQVQY02P8z4APMDGMSmMBAEEsARNlYhAzAAAAAElFTkSuQmCC") (pack b))) This doesnt work. Also when replacing -data by -file and providing a filename, it doesnt work. I also tried to replace ltk::name by ltk::widget-path. There is no Image appearing. In the wish-shell, the following works: package require Img set frame .frame toplevel $frame frame $frame.f button $frame.f.b -text "" $frame.f.b configure -image [ image create photo -data "iVBORw0KGgoAAAANSUhEUgAAAAoAAAAKCAIAAAACUFjqAAAAAXNSR0IArs4c6QAAAAlwSFlzAAALEwAACxMBAJqcGAAAAAd0SU1FB9kEARQbItOgpzAAAAAZdEVYdENvbW1lbnQAQ3JlYXRlZCB3aXRoIEdJTVBXgQ4XAAAAEklEQVQY02P8z4APMDGMSmMBAEEsARNlYhAzAAAAAElFTkSuQmCC" ] Do you have any clue what I am doing wrong? Thank You. Christoph Senjak

2 2

[ltk-user] ttk::combobox
by Matthew Swank 30 Mar '09

30 Mar '09

Has anyone implemented this widget for ltk? Thanks, Matt

2 1

Re: [ltk-user] ltk and the new ttk widget set
by Peter Herth 29 Mar '09

29 Mar '09

Hi Matt, I am currently in the process of wrapping the Ttk widgets, the combox is already done. I think I can release a beta version soon. Peter On Thu, Mar 26, 2009 at 9:01 AM, Matthew D. Swank <akopa(a)charter.net> wrote: > How hard would it be to get Ltk to use Ttk widget set by default? Is > just a matter of changing the package ltk get the widgets from, or is > the api too different to just switch over? > > I'm not a member of the ltk mailing list. Could you please forward our > correspondence to the list if you think its appropriate? > > Thank you, > > Matt > -- > "You do not really understand something unless you can explain it to > your grandmother." -- Albert Einstein. >

1 0

[ltk-user] combobox in LTk
by Matthew Swank 26 Mar '09

26 Mar '09

(second try) Has anyone implemented ttk::combobox in Ltk? Thanks, Matt

1 0

None
by None 12 Mar '09

12 Mar '09

1 0

[ltk-user] Scale command option help
by Peter Santiago 23 Feb '09

23 Feb '09

Hello, I was wondering if someone could tell me where I'm going wrong in my code: (defun nomogui () (with-ltk () (let* ((s0 (make-instance 'scale :label "X-ri" :digits 6 :orientation 'horizontal :troughcolor "#000099" :resolution .001 :from 1.4 :to 1.6))) (configure s0 :command (lambda (val) (print 'hello) (if (< 1.5 val) (configure s0 :troughcolor "#990000") (configure s0 :troughcolor "#009900")))) (pack s0)))) Basically I just want to be able to change the troughcolor of the scale based on its value. Any help?

1 0

[ltk-user] Displaying mouse pointer coordinates
by christopher melen 01 Jan '09

01 Jan '09

Hi, I'm trying to display the coordinates of the mouse pointer. My app consists of a canvas and a 'statusbar', both of which are contained in a toplevel. The statusbar (which is just a frame containing another canvas) contains text displaying the current position of the mouse pointer, and this is updated as the pointer moves. What I'm doing is deleting and then recreating the text with the new coordinates, but this results in an unpleasant 'flashing' effect (not so bad on WinXP but terrible on OS X). Is there a more efficient way of doing this? I know there are Tk-based apps which achieve this effect (such as Wavesurfer), so it must be do-able. This is the relevant event handler code - (bind *canvas* "<Motion>" (lambda (evt) (let* ((x (event-x evt)) (y (event-y evt))) (setf *x-coord* x *y-coord* y) (itemdelete *statusbar* *coord-display*) (make-coord-display)))) *canvas* is the main canvas, and *statusbar* the statusbar. *x-coord* and *y-coord* are bound to the current pointer coordinates, which are used by the statusbar's text item (bound to *coord-display*). The function MAKE-COORD-DISPLAY then recreates the text on the statusbar immediately after it has been deleted (hence the flashing). Many thanks in advance for any suggestions. Chris P.S: Also a strange thing happens if I use the above code for a canvas owned by a paned-window - the sash disappears. Odd...

2 2

[ltk-user] reader error using menus on OS X
by Phil Armitage 27 Dec '08

27 Dec '08

Hi, I've been having a problem on OS X whereby selecting menu options (either top level menus or pop-up menus) would throw random, but very regular, reader errors "comma not inside a backquote". At first I thought this was just my code but having ran (ltk:ltktest), I can verify that the same problem occurs here too. My system is OS X 10.5.6 and the error can be triggered in both SBCL 1.0.23 and CCL 1.2. The error does not seem to occur on any Linux or Windows box I've tested on. Note that to recreate the problem it may be necessary to select menu options several times. For example, I just ran LTKTEST and generated the error on the first click of File->Load. Running a second time it took 15 attempts before it triggered again. Unfortunately my users are managing to trigger the error quite regularly! My attempts at tracking this down have been rather useless...has anyone else worked out hot to fix the problem? Many thanks, -- Phil Armitage http://phil.nullable.eu/

2 4

[ltk-user] ltk spanish tutorial
by Felip Alàez Nadal 19 Dec '08

19 Dec '08

Hello Peter: I've been writting a little spanish ltk tutorial in my blog http://lispinspain.blogspot.com . At the moment I've written 3 posts about It and It seems usable for the people. Maybe It could be useful for somebody in the list to know It. Thanks. -- Felip Alàez Nadal

2 1

[ltk-user] Setting wm-title
by Jud Leonard 19 Dec '08

19 Dec '08

I've been having trouble setting the window title using wm-title, apparently because ltk was never creating "." as the widget path. I patched it as follows: (defmethod wm-title ((w widget) title) (format-wish "wm title ~a {~a}" (if (master w) (widget-path w) ".") title) w) which seems to work. It wasn't clear to me whether this is the right fix if one has multiple top level windows, and I didn't know whether a similar fix should be applied to other wm- functions. Can you advise? Jud

3 2

[ltk-user] tk_getOpenFile, tk_getSaveFile dialogs
by Victor 29 Oct '08

29 Oct '08

Hello, I would like to know whether there are any bindings to the tk_getOpenFile and tk_getSaveFile dialogs in the LTK? TK commands documentation: - http://tcl.tk/man/tcl8.4/TkCmd/getOpenFile.htm With best regards, Victor -- реклама ----------------------------------------------------------- Домен БЕСПЛАТНО! С хостинг-планом на http://www.hostpro.ua

2 2

[ltk-user] problem with place manager
by Phil Armitage 16 Sep '08

16 Sep '08

Hi, I'm trying to use the place manager but am running into a problem. LTk implements the optional width and height parameters to the place manager through the use of keyword arguments and a conditional in the format-wish call. However, the two calls to tk-number are made without a check to see if the relevant parameter was supplied. Am I right in thinking this is a bug or am I just mis-using this method? Many thanks! -- Phil Armitage http://phil.nullable.eu/

3 2

[ltk-user] [PATCH] file encoding support for LTK-0.91
by Masayuki Onjo 11 Sep '08

11 Sep '08

Hi, all. Tcl/Tk support some encodings via fconfigure options. I made a patch to add "fconfigure -encoding ..." for LTK-0.91. This patch + following configuration, I've success to use UTF-8 with CLISP + LTK. #+clisp (system::set-default-file-encoding charset:utf-8) (setf ltk:*default-file-encoding* "utf-8") (setf ltk:*init-wish-hook* (list (lambda () (ltk:send-wish "fconfigure stdout -encoding utf-8") (ltk:send-wish "fconfigure stdin -encoding utf-8")))) Regards, -- Masayuki Onjo

1 0

Re: [Ecls-list] [ltk-user] LTK and ECLS
by Thomas F. Burdick 19 Aug '08

19 Aug '08

Thanks for the reply and the fix, Juanjo. 2008/8/19 Juan Jose Garcia-Ripoll <juanjose.garciaripoll(a)googlemail.com>: >>> ; loading system definition from /lisp/lib/ltk-0.91/ltk.asd into >>> ; #<ASDF0 package> >>> ;;; Loading "/lisp/lib/ltk-0.91/ltk.asd" >>> ; registering #<SYSTEM LTK 15100376> as LTK >>> ;;; Loading "c:/lisp/lib/ltk-0.91/ltk.lisp" >>> NIL >>>> (setf ltk:*wish-pathname* "c:/Tcl/bin/wish85.exe") >>> "c:/Tcl/bin/wish85.exe" >>>> ;(setf ltk:*debug-tk* t) >>> (ltk:ltktest) >>> >>> #<two-way stream 00f0db68> > > This has been fixed in CVS today. I sent previously a email explaining > the problems, but LTK has to be changed. The line that executes > RUN-PROGRAM should now read similar to the SBCL one, because ECL > implements the :WAIT argument > > #+:ecl(ext:run-program program args :input :stream :output :stream > :error :output :wait wt) Great, we'll change that in the next release.

1 0

Fwd: [Ecls-list] [ltk-user] LTK and ECLS
by Marko Kocić 19 Aug '08

19 Aug '08

---------- Forwarded message ---------- From: Juan Jose Garcia-Ripoll <juanjose.garciaripoll(a)googlemail.com> Date: 2008/8/19 Subject: Fwd: [Ecls-list] [ltk-user] LTK and ECLS To: Marko Kocić <marko.kocic(a)gmail.com>, "Thomas F. Burdick" <tburdick(a)gmail.com> CC of a message I sent to the ECL list. Since I am not subscribed to the LTK list, could any of you forward it? Juanjo ---------- Forwarded message ---------- From: Juan Jose Garcia-Ripoll <juanjose.garciaripoll(a)googlemail.com> Date: Tue, Aug 19, 2008 at 2:36 PM Subject: Re: [Ecls-list] [ltk-user] LTK and ECLS To: Talk about Ltk the Lisp Toolkit <ltk-user(a)common-lisp.net>, The ECL List <ecls-list(a)lists.sourceforge.net> 2008/8/15 Thomas F. Burdick <tburdick(a)gmail.com>: > I'm sending a copy of this to the ECL list, since I can't see what's > going wrong from here, nor can I get ecl to build on my system. [...] Thanks for forwarding this copy. > ECL guys: are the backtraces more usable when loaded from source or > from compiled files? Backtraces are more usable in source files. Compiled files do not keep enough debug information to inspect local variables, blocks, etc. >> ; loading system definition from /lisp/lib/ltk-0.91/ltk.asd into >> ; #<ASDF0 package> >> ;;; Loading "/lisp/lib/ltk-0.91/ltk.asd" >> ; registering #<SYSTEM LTK 15100376> as LTK >> ;;; Loading "c:/lisp/lib/ltk-0.91/ltk.lisp" >> NIL >>> (setf ltk:*wish-pathname* "c:/Tcl/bin/wish85.exe") >> "c:/Tcl/bin/wish85.exe" >>> ;(setf ltk:*debug-tk* t) >> (ltk:ltktest) >> >> #<two-way stream 00f0db68> This has been fixed in CVS today. I sent previously a email explaining the problems, but LTK has to be changed. The line that executes RUN-PROGRAM should now read similar to the SBCL one, because ECL implements the :WAIT argument #+:ecl(ext:run-program program args :input :stream :output :stream :error :output :wait wt) >> Backtrace: LTK:SEND-WISH > ltk::init-wish > lambda > lambda > >> ltk::use-debugger > ltk::use-trivial-debugger > lambda > l >> tk:start-wish > ltk:start-wish > ltk:call-with-ltk > ltk:ltktest > >> si:bytecodes > si:bytecodes > si:bytecodes > > That's not the most helpful backtrace I've ever seen That is because the backtrace only outputs the list of functions. If you run backwards using :p, then you can inspect the variables using :v. However in this case it would not have helped because the error was in the C core, which can only be debugged using GDB. > but it looks like something in send-wish is causing this "Invalid argument" error? RUN-PROGRAM outputs a two-way-stream. If one of the directions is not used, because we only want to write to or read from a child process, it uses a dummy or "null" stream. The problem is that this dummy stream had the wrong type -- it was a broadcast stream --. This has been fixed in CVS, where the dummy stream now is an I/O stream. I am considering the possibility of releasing a patch, since this is serious enough, but would like to wait until I fix other problems that have been reported recently. Sorry for the long delay in this answer, but I was on holidays for a week and a half. Juanjo -- Instituto de Física Fundamental CSIC, Serrano, 113, Madrid 28040 (Spain) http://juanjose.garciaripoll.googlepages.com -- Instituto de Física Fundamental CSIC, Serrano, 113, Madrid 28040 (Spain) http://juanjose.garciaripoll.googlepages.com

1 1