[ltk-user] Mysterious breakage

[Theam Yong Chew]

On 10/4/10, Theam Yong Chew <senatorzergling at gmail.com> wrote:

...

Sorry, it seems I have forgotten to attach the patch I mentioned
below

> I've also tried out the repl branch here:
>
> http://ltk.rplay.net/svn/branches/ltk/repl/ltk.lisp
>
> [Sidenote: I pushed :tk84 onto *features*, and consequently had to
> make some patches (treeview not defined under #+tk84). Do you think
> the patch shows the right way to go about this? I also noticed that
> the newer Ttk buttons take vastly different (DEFARGS type)
> arguments. Of interest to me specifically, :is font no longer
> supported under the Ttk "branch"?]

...

> It has been very confusing having the carpet yanked out from under me
> after using Ltk (albeit casually, on and off) for so many years. My
> best guess at the moment is that it is something in the latest Windows
> upgrade has broken the pipe between Lisp and wish. I intend to
> investigate piping functionality some more later. I will also need to
> debug this on another computer later, so who knows what other
> behaviour I'll see.

This "another computer" didn't have any problems. Along with a
few other things I've observed, I now think it's likely to be a
coincidence that my programs broke on two computers at the
same time. It's probably not due to a Windows update. At least
for now, I am not urgently needing any fixes.

> Has anyone else experienced any trouble similar to this? I'll probably
> also be trying out this suggestion (I don't understand what it does)
> for windows box 1.
>
> http://common-lisp.net/pipermail/ltk-user/2010-February/000712.html

I thought I was going to try the "translate" stuff suggested there, but
it is already in the repl branch, so I didn't see any improvements
after playing about a bit with the various suggestions there.

As for your replies, thanks for the tip, Jonathan: using a popup box
is a nicer way than my ugly C-c breaking & continuing. With
appropriate social engineering, users won't know any better. Daniel's
suggestions for debugging is quite involved, and if I were to do it,
it will probably need to be attempted at a much later date.  Thanks
for the nice explanation of the tradeoffs involved in using pipes/streams.

PS Kenny, is qooxdoo's workflow like using Ltk? Does it work well
for interactive exploration: widget creation, callbacks into Lisp
closures, dynamically changing screen, etc?


Yong.
-------------- next part --------------
--- ltk-original.lisp	2010-10-03 14:57:02.000000000 +1300
+++ ltk.lisp	2010-10-03 14:57:50.000000000 +1300
@@ -2685,30 +2685,39 @@
 (defwrapper treeview (tktextvariable widget) () "ttk::treeview")
 
 (defgeneric children (tree item))
+#-:tk84
 (defmethod children ((tree treeview) item)
   (format-wish "~a children ~a" (widget-path tree) item))
 
 (defgeneric (setf children) (val tree item))
+
+#-:tk84
 (defmethod (setf children) (val (tree treeview) item)
   (format-wish "~a children ~a {~{~a~^ ~}}" (widget-path tree) item val))
 
 (defgeneric column-configure (tree column option value &rest rest))
+
+#-:tk84
 (defmethod column-configure ((tree treeview) column option value &rest rest)
   (format-wish "~a column ~a -~(~a~) {~a}~{ -~(~a~) {~(~a~)}~}" (widget-path tree) column
 	       option value rest))
 
 (defgeneric treeview-delete (tree items))
+#-:tk84
 (defmethod treeview-delete ((tree treeview) item)
   (format-wish "~a delete {~a}" (widget-path tree) item))
+#-:tk84
 (defmethod treeview-delete ((tree treeview) (items cons))
    (format-wish "~a delete {~{~a~^ ~}}" (widget-path tree) items))
 
 (defgeneric treeview-exists (tree item))
+#-:tk84
 (defmethod treeview-exists ((tree treeview) item)
   (format-wish "senddata [~a exists ~a]" (widget-path tree) item)
   (= (read-data) 1))
 
 (defgeneric treeview-focus (tree))
+#-:tk84
 (defmethod treeview-focus ((tree treeview))
   (format-wish "senddatastring [~a focus]" (widget-path tree))
   (read-data))