ltk-user

ltk-user@common-lisp.net

259 discussions

Re: [ltk-user] fix for ltk on mswin?
by dherring＠tentpost.com 21 Feb '10

21 Feb '10

Hi Peter, Thanks for getting back to LTK. > Hmm, Windows is strange :). But your explanation is the best I have heard for the windows problems so far... so I added > > #+mswindows (sleep 1) > > The waiting for a prompt has only one problem - tcl doesn't send a prompt > when run as a subprocess. I've poked at this a bit more; the sleep doesn't fix all my problems. It appears that incomplete commands are being flushed to wish and/or ltk is overflowing a stream buffer somewhere. For example, running ltktest with a trace on read-wish, I see errors like LTK::READ-WISH returned (:ERROR "value for \"-textvaria\" missing") or Error sending command to wish: on #<BASIC-CHARACTER-OUTPUT-STREAM ISO-8859-1 (PIPE/1092) #x8D5F2BE> : Invalid argument during write or LTK::READ-WISH returned (:ERROR "missing close-brace") This appears to be a race condition; the error changes randomly with each run (though the above are the most common). Sometimes the test almost works, other times it stops early. I did have to comment out the section which draws the lines -- that almost never worked. Similarly, theme-names generally fails (or whatever else does the first read-wish). For some reason, the situation can be aggravated by adding flush-wish in various places. But the first sleep at least lets Tk's window appear. - Daniel P.S. I'm debugging this in an attempt to get ABLE running.

3 6

[ltk-user] Greatly improved error/condition handling
by Thomas F. Burdick 21 Feb '10

21 Feb '10

I'm happy to announce that I (finally!) merged a new, greatly improved graphical condition handler into the repl branch. To take advantage of it, you don't need to do anything. By default, you'll get an error handler designed to be used by developers. If an error is signaled, you'll get a modal dialogue with the error message, plus a few buttons: * Dismiss will abort handling the Ltk event and go back to the main loop * Show Details will show you the stack trace. Not all lisps will actually get a stack trace here (SBCL and Allegro are privileged as usual), but patches are welcome :-) * Debugger will drop you into your system's debugger. If you're running Slime, this will be Slime's. Otherwise, you should probably look for a terminal. * Report Bug is a cool feature (if I say so myself). It pops up a bug reporter, which will save all the error information, including Ltk and CL version information, to a bug report file. For deployment to end users, you will probably want to to specify :DEBUG 1 to WITH-LTK (the default is 2). With this setting, you will simply see "An internal error has occured" and there will be no "Debugger" button. The bug report file should contain all the details you want from a bug report, though. :DEBUG 0 will do no condition handling, and leave everything to your Lisp implementation. :DEBUG 1 will use the PRODUCTION-CONDITION-HANDLER class :DEBUG 2 will use the GRAPHICAL-CONDITION-HANDLER class :DEBUG 3 will use the PARANOID-CONDITION-HANDLER class (it pops up a modal dialogue for /every/ condition signaled) Even better, the new graphical condition handling system is object-oriented and extensible. For example, you probably may want the bug reporter to send you an email. This is easy enough to add by subclassing PRODUCTION-CONDITION-HANDLER and writing a new REPORT-BUG method. The existing condition handler classes should be helpful as examples. To use your new condition handler, simply pass :DEBUGGER-CLASS MY-DEBUGGER-CLASS to WITH-LTK. Any feedback is welcome, and if you have bugs or questions, please ask them here. Voilà!

1 0

[ltk-user] [patch] Improved ttk treeview support
by Daniel Herring 18 Feb '10

18 Feb '10

Hi Peter, Please consider the attached patch against http://ltk.rplay.net/svn/branches/ltk/repl@215 It implements several essential treeview commands; they are being used to implement a symbol/package browser for ABLE. http://common-lisp.net/project/able/ The attached treeview-example.lisp demonstrates their usage. * (load "treeview-example.lisp") * (ltk-user::show-symbols :ltk-user) Thanks, Daniel

2 2

[ltk-user] fix for ltk on mswin?
by dherring＠tentpost.com 18 Feb '10

18 Feb '10

There have been many reports of ltk not starting properly on mswin boxes. I have an XP box that consistently shows this problem. The basic symptom is that when tk should appear, the active titlebar is grayed out but nothing else happens. When the lisp process is closed, the tk window full of ltk widgets appears. A few years ago, there were a couple reports on this list containing workarounds. However, I couldn't get any of them to work. After poking at this for a long time, I came up with the following patch. I can't guarantee 100% success, but it hasn't failed and it points to a possible obscure problem in ltk. ;; open subprocess (if (null (wish-stream *wish*)) (progn - (setf (wish-stream *wish*) (or stream (do-execute *wish-pathname* *wish-args*)) + (setf (wish-stream *wish*) (or stream (do-execute *wish-pathname* *wish-args*))) + (sleep 1) + (setf (wish-call-with-condition-handlers-function *wish*) (apply #'make-condition-handler-function keys)) ;; perform tcl initialisations Basically, it appears to me that due to scheduler timing, ltk may be writing to wish before it is ready, somehow causing the wish gui event loop to hang. The (sleep 1) is sketchy, but would it be hard to have ltk wait until it reads a wish prompt? ISTR there was a reason why this is a common pattern in expect. Thanks, Daniel P.S. Need... sleep....z.z.z.z.zzzzzzz

2 1

[ltk-user] Erasing things ..
by Greg Bennett 12 Jan '10

12 Jan '10

Good morning and Happy New Year, all. I have trolled through ltk.lisp in an attempt to discover how to erase things .. lines, rectangles, ovals .. drawn by create-line etc.. I was looking for things like erase-line or delete-rectangle, but could not find anything like this. The closest I came to discovering this sort of functionality was the destroy facility, which seems to destroy widgets. In drawing a shape, however, I may do not usually create it explicitly as a widget with an associated symbol to feed to destroy; must I do this under ltk ? More than likely I have simply missed something (sigh). Thanks in advance for any help and advice. Cheers /Greg Bennett

2 2

[ltk-user] ensure-ltk ?
by Daniel Herring 05 Jan '10

05 Jan '10

Hi, What's the proper idiom when writing a function that might start wish or might be called inside another with-ltk? For example, (defun some-window () (ensure-ltk () ...)) Where some-window could be called from a REPL or from a tk callback? Is there already a way to do this in ltk, or should I define a macro something like the following seemingly broken code? (defmacro ensure-ltk ((&rest options) &body body) (let ((fname (gensym))) `(labels ((,fname () ,@body)) (if (wish-stream *wish*) (,fname) (with-ltk ,options (,fname)))))) Thanks, Daniel

2 2

[ltk-user] get noticed when the scale is changed
by Martin Kielhorn 18 Dec '09

18 Dec '09

Hi, the scale of the program in the bottom doesn't work as I want. I want the :command lambda to be called whenever the scale changes. Is there a different way of being informed of the changes? In ltk.lisp:1761 the tk command scale is actually called with the option "-command" I don't understand the code enough to fiddle in my callback without breaking the existing one. ;; test program (not working as expected): (require :asdf) (require :ltk) (defpackage :mk (:use :cl :ltk)) (in-package :mk) (with-ltk () (let* ((f (make-instance 'frame)) (s (make-instance 'scale :orientation :horizontal :master f :command (lambda () (format t "SCALE NOW ~d~%" (value s))) ;; why can't i write command here )) (b (make-instance 'button :text "get" :master f :command (lambda () (format t "SCALE IS ~d~%" (value s)))))) (pack f) (pack (list s b)))) Regards, Martin -- Martin Kielhorn Randall Division of Cell & Molecular Biophysics King's College London, New Hunt's House Guy's Campus, London SE1 1UL, U.K. tel: +44 (0) 207 848 6519, fax: +44 (0) 207 848 6435

2 2

[ltk-user] First use of ltk
by Greg Bennett 11 Dec '09

11 Dec '09

I am trying to move an application from Windows -> Linux and the graphics part seems to be the most difficult. I hope that ltk can help me along. Under ubuntu 8.10 and SBCL 1.0.23 I have downloaded ltk-0.91.tgz and extracted it into its own directory. SBCL happily compiled ltk.lisp and ltk.fasl loaded too. When I tried to run (ltktest) SBCL became unhappy: Couldn't write to #<SB-SYS:FD-STREAM for "descriptor 6" {B98E79}>: Broken pipe. Perhaps I have put ltk in the wrong place ? Perhaps there is something which I have failed to set up correctly. I see from the troubleshooting file that some web connections/applications can cause difficulty. I am running firefox - from which I retrieve ltk! Any and all advice/comments gratefully received Cheers /Greg Bennett

6 8

[ltk-user] wrong # args when trying to setup a command for the scale widget
by Russell Kliese 16 Nov '09

16 Nov '09

Hi, I'm getting the following error reported when trying to setup a command to be executed when a scale widget is changed: wrong # args: should be "callback s" wrong # args: should be "callback s" while executing "callback w4 0" (command executed by scale) The following code reproduces this error. (defun command-test() (ltk:with-ltk () (let* ((f (make-instance 'ltk:frame)) (b1 (make-instance 'ltk:button :master f :text "Button 1" :command (lambda () (format t "Button~&")))) (scale (make-instance 'ltk:scale :master f :command (lambda (val) (format t "Scale val:~D~&" val))))) (ltk:pack f) (ltk:pack b1 :side :left) (ltk:pack scale :side :left) ))) I'm using LTK 0.91. Perhaps this is caused by a bug in the command sent to tk to set up a callback. Any pointers to the part of the code I should look at to fix this problem would be appreciated. Cheers, Russell

1 0

[ltk-user] Ecl pathc
by Marko Kocić 10 Nov '09

10 Nov '09

This small patch allows LTK to be used with ECL. Regards, Marko

1 0

← Newer
1
...
9
10
11
12
13
14
15
...
26
Older →

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