ltk-user August 2007

ltk-user@common-lisp.net

6 participants
7 discussions

[ltk-user] Problems with double floats
by Tobias C. Rittweiler 04 Oct '07

04 Oct '07

Hi, maybe I'm missing something obvious, but LTK doesn't seem to work with double-floats for me. For instance: (with-ltk () (let ((c (make-canvas nil))) (pack c) (create-line c '(0 0 100 100)))) vs. (with-ltk () (let ((c (make-canvas nil))) (pack c) (create-line c '(0 0 100 100d0)))) In the first case, a window pops up with the line drawn as desired. But in the second case, an /empty/ window pops up. Further, when trying to to close the window, the window exits on one hand, but the Slime REPL doesn't get back. (I have to interrupt via `C-c C-c', and then type `q' to get out of SLDB.) Huh? :-), -T.

4 6

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

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

ltk-user August 2007