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

[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