ltk-user

ltk-user@common-lisp.net

259 discussions

ltktest fails on CCL64 on MAC OSX Mavericks
by Munawar Cheema 11 Jul '15

11 Jul '15

I tried quickloading ltk and then running ltk:ltktest on both sbcl and ccl64 (current release of clozure 64 bit) and it works fine on sbcl but fails in clozure. -- Kind Regards Munawar

1 0

ttk themes
by Andrew Dabrowski 07 Jul '15

07 Jul '15

You mentioned a while ago that from Tk5 on, ttk doesn't allow changes in background color of buttons. This breaks a program of mine. Is it possible to work around this by choosing a different widget set, either within Ltk or in Tk config files?

2 1

[Ltk-user] Patches
by Jason Miller 27 Jan '15

27 Jan '15

Hi All, I submitted a few patches to the list a while back; any comments on them? -Jaosn

1 1

[ltk-user] Cross platform distribution?
by Joshua Kordani 17 Dec '13

17 Dec '13

Greetings all, I've been very interested in locating an easy to distribute, cross platform gui library that will allow for gui development in common lisp. After finding out about tclkits and seeing how small they are, I get the impression that this goal is reachable via distribution of the platform specific tclkit along with a common lisp image (with ltk configured to locate the supplied tclkit). I didn't find an archive of this list, and from what I've read in ltk docs, it seems like this concept is easily supported, but I am rather new to common lisp and tcl/tk. Given that I am new to common lisp, I don't necessarily know what part of the ltk code I need to read in order to figure out how to invoke a local instance of tcl/tk (let alone make a connection to a remote-tcl). I am open to anything, if someone has walked this path before and knows of some documentation that might be illuminating, I'm all ears. In addition, if anyone has any suggestions about how I might go about this whole cross platform gui common lisp development effort more easily, I'm also all ears. My short term goal is to produce enough material to run the ltkdemo (or at least, my own hello world code) from a lisp image that references a supplied tclkit on at least osx and windows. Cheers! -- Joshua Kordani LSA Autonomy

3 6

[ltk-user] No dialog-box in ltk?
by Josef Wolf 16 Dec '13

16 Dec '13

Hello, I can't find the dialog widget in ltk. I can find message-box, ask-yesno, ask-okcancel and do-msg. But I can't find a dialog box where I can put e.g an entry to ask the user for additional information. Am I missing something? Any hints? -- Josef Wolf jw(a)raven.inka.de

2 1

[ltk-user] Example of scrollbar available?
by Josef Wolf 15 Dec '13

15 Dec '13

Hello folks, are there any examples of scrollbar usage available? I have a hard time to grasp how to use them, and I can't find any examples in the documentation. Thanks! -- Josef Wolf jw(a)raven.inka.de

4 13

[ltk-user] Is this alive?
by Jason Miller 12 Dec '13

12 Dec '13

The web archives for 2013 don't seem to be working; is this list alive? Is LTK being developed? After finding 2 different TCL quoting bugs, I rewrote the quoting layer in my local copy. Is there any interest in incorporating that into the official version? -Jason

4 5

[ltk-user] patch to make children actually do something
by Jason Miller 14 Nov '13

14 Nov '13

For treeviews: #'(setf children) will set the children, but #'children issues the command without reading the value! This fixes that

1 0

Re: [ltk-user] How is ":serve-event t" meant to be used?
by edgar 18 Oct '13

18 Oct '13

Jason Miller <jason(a)milr.com> wrote: > The solution is to catch the tag: > (catch *wish* (exit-wish)) Sorry, but that's not a solution, that's a wacky workaround. If that's the only solution, then this is a clear indicator that the implementation of :serve-event is buggy. But it works, so ... thanks a lot :-) This is only for a toy project, see: http://www.lispforum.com/viewtopic.php?f=2&t=4182 If I find a better solution I will tell it here on the list. Thanks, - edgar

1 0

Re: [ltk-user] How is ":serve-event t" meant to be used?
by edgar 17 Oct '13

17 Oct '13

Jason Miller <jason(a)milr.com> wrote: > On 18:26 Wed 16 Oct , edgar wrote: >> Hi all on the LTK list, >> >> I'm trying to open a scrolled-canvas widget in the Tk main window >> and then interactively drawing a line on the canvas (details in the >> REPL transcripts below), but LTK is throwing nothing but errors at >> me. >> >> The questions are: >> >> 1. Am I doing something fundamentally wrong in the examples below? > Yes >> LTK-TEST> (defun ltk-test () >> (with-ltk (:serve-event t) >> (let ((sc (make-instance 'scrolled-canvas))) >> (pack sc :expand 1 :fill :both) >> (setf *canvas* (canvas sc))))) >> LTK-TEST >> >> LTK-TEST> (ltk-test) >> ; the Tk window appears on the screen >> NIL >> >> LTK-TEST> (create-line *canvas* '(10 10 20 20)) > with-ltk is designed for all the ltk-calls to go within it. It > dynamically binds ltk::*wish* only for its dynamic extent. I have no > idea how the serve-event interactis with dynamic bindings, as I don't > use it. But in any event, *wish* will not be bound at your call to > create-line, so it will fail. > > I would suggest that you not use with-ltk here, but instead run it > manually: http://www.peter-herth.de/ltk/ltkdoc/node8.html > you can pass serve-event to mainloop as well to still get that > functionality. > > so instead your code should look something like: > (defun ltk-test () > (start-wish) > (let ((sc (make-instance 'scrolled-canvas))) > (pack sc :expand 1 :fill :both) > (setf *canvas* (canvas sc))) > (mainloop :serve-event t)) Thank you very much, but: a) your code is 99% the same code that I alredy wrote in the second example of my original mail b) your code produces _exactly_ the same errors that I got with the code from the second example of my original mail Please don't get me wrong: I'm really thankful for your help, but it seems as if you haven't read the full text. Here's the second example again now with your code and the errors: ------------------------- Start of REPL Transcript --------------------- CL-USER> (defpackage :ltk-test (:use :cl :ltk)) #<PACKAGE "LTK-TEST"> CL-USER> (in-package :ltk-test) #<PACKAGE "LTK-TEST"> LTK-TEST> (defparameter *canvas* nil) *CANVAS* LTK-TEST> (defun ltk-test () (start-wish) (let ((sc (make-instance 'scrolled-canvas))) (pack sc :expand 1 :fill :both) (setf *canvas* (canvas sc))) (mainloop :serve-event t)) LTK-TEST LTK-TEST> (ltk-test) ; the Tk window appears on the screen NIL LTK-TEST> (create-line *canvas* '(10 10 20 20)) ; a line appears on the canvas 1 LTK-TEST> (setf *exit-mainloop* t) ; the Tk window doesn't disappear from the screen T LTK-TEST> (exit-wish) ; the Tk window disappears from the screen, but: attempt to THROW to a tag that does not exist: #S(LTK::LTK-CONNECTION :STREAM NIL :CALLBACKS #<HASH-TABLE :TEST EQUAL :COUNT 0 {10068F9063}> :AFTER-IDS #<HASH-TABLE :TEST EQUAL :COUNT 0 {10068F9103}> :COUNTER 5 :AFTER-COUNTER 1 :EVENT-QUEUE NIL :CALL-WITH-CONDITION-HANDLERS-FUNCTION #<FUNCTION FUNCALL> :INPUT-HANDLER NIL :REMOTEP NIL :OUTPUT-BUFFER NIL :VARIABLES #<HASH-TABLE :TEST EQUAL :COUNT 0 {10068F91A3}>) [Condition of type SB-INT:SIMPLE-CONTROL-ERROR] Backtrace: 0: ("no debug information for frame") 1: (EXIT-WISH) [tl,external] 2: (SB-INT:SIMPLE-EVAL-IN-LEXENV (EXIT-WISH) #<NULL-LEXENV>) 3: (EVAL (EXIT-WISH)) -------------------------- End of REPL Transcript ---------------------- After (exit-wish) I can restart wish by calling (ltk-test) and it works, except that I can't close the window from the REPL without getting the error above, but if I close the Tk window by the window's "close" button and then call (ltk-test) again, I get the following error: ------------------------- Start of REPL Transcript --------------------- LTK-TEST> (ltk-test) There is already an inferior wish. [Condition of type LTK::LTK-ERROR] Backtrace: 0: (LTK::LTK-ERROR "There is already an inferior wish.") 1: (START-WISH) 2: (LTK-TEST) 3: (SB-INT:SIMPLE-EVAL-IN-LEXENV (LTK-TEST) #<NULL-LEXENV>) 4: (EVAL (LTK-TEST)) -------------------------- End of REPL Transcript ---------------------- But there is definitely no wish process in my machine anymore: bash$ ps ax | grep wish 6033 pts/0 S+ 0:00 grep wish How can I stop and restart wish with ":serve-event t" from the REPL without getting errors? Thank you, - edgar

1 0

← Newer
1
2
3
4
5
6
7
...
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