ltk-user

ltk-user@common-lisp.net

259 discussions

[ltk-user] Button/Sender associated with Event?
by Eric Hochmeister 07 Feb '06

07 Feb '06

Hi, The functionality I'm looking for is that I want to set a button's action to be a function. When the function is called, I want to know which button called it. This is because many buttons can be linked to the same function. How do I accomplish this? I looked at the docs for :command and it seems like they only pass "values" to the function. (what was changed, etc.) So I figured, maybe I need to look at binding, it seems to send out an event. So I tried it, and I noticed this... radio button value = NILl:(:EVENT "w13" 13 16 ?? ?? ?? ?? 273 324 1)<= event = #S(LTK:EVENT :X 13 :Y 16 :KEYCODE ?? :CHAR ?? :WIDTH ?? :HEIGHT ?? :ROOT-X 273 :ROOT-Y 324 :MOUSE-BUTTON 1) The Tcl representation seems to have access to the widget that caused the event ie. "w13" but the lisp representation doesn't. I looked at the structure for event and this indeed seems to be the case. (defstruct event x y keycode char width height root-x root-y mouse-button ) So now I'm puzzled. Is there any way to accomplish the functionality I'm looking for?? (other than hacking up my own way with functions which emulate this?) I must be missing something. ----------------- Also, another side question. I'm playing around with radio buttons and I was trying to figure out how to get the state to be on or off.. and by state I mean whether the radio button is selected or not (ON or OFF). From what I can tell, if the :value of a radio button is nil, then it's ON. If it has any other value than nil then its OFF. Is this right?? Its just puzzling me cause it seems so unintuitive. Ok, thats all for now. Thanks! Eric

2 2

[ltk-user] C?N? :)
by Kenny Tilton 04 Feb '06

04 Feb '06

(defmacro c?n (&body body) `(make-c-dependent :code nil ;; `(without-c-dependency ,@,body) :inputp t :value-state :unevaluated :rule (c-lambda (without-c-dependency ,@body)))) Took some supporting changes, but only in reducing discipline and not optimizing the Cell away (for having no dependencies). I hope this implies the desired functionality: (def-cell-test test-c?n () (let ((self (make-be 'c?n-class :aaa (c?n (+ (^bbb) 2)) :bbb (c-in 40)))) (ct-assert (= (^bbb) 40)) (ct-assert (= (^aaa) 42)) (ct-assert (= (^sum) 82)) (setf (^bbb) 100) (ct-assert (= (^bbb) 100)) (ct-assert (= (^aaa) 42)) (ct-assert (= (^sum) 142)) (setf (^aaa) -58) (ct-assert (= (^aaa) -58)) (ct-assert (= (^bbb) 100)) (ct-assert (= (^sum) 42)))) I will use it now to simplify..... Cells-Ltk? Looks to be done enough that I can start using it. Not sure where it should go, though. Hmmmm..... ken

1 0

[ltk-user] How to access initial toplevel window? (wish window??)
by Eric Hochmeister 03 Feb '06

03 Feb '06

Hi, I'm trying to figure out how to access the initial top-level window... ie. the equivalent of opening wish and typing... . config -bg black I tried this in lisp, (with-ltk () (configure nil :background "darkgreen")) But it didn't seem to work. It gets translated to... NIL configure -background {darkgreen} Hm... I tried other variations where 'nil' was and looked at the code for configure and widget-path but that didn't shed any light. What am I missing? Thanks, Eric

3 2

[ltk-user] item IDs
by Kenny Tilton 01 Feb '06

01 Feb '06

Don't see my first message yet. Anyway... I see create-arc et al documented as returning the index. I will look at using those wrappers. But I do not see how that code differs from mine, which did not get back "(:data ....)" from Tk. Insights welcome. kt

2 1

[ltk-user] Ltk 0.88 released!
by Peter Herth 30 Jan '06

30 Jan '06

I am happy to announce that Ltk v. 0.88 just has been released. It took a long time after the last release, but it is filled with detail work. Bugs have been fixed, new functions added, a glossy polish applied. So grab it, and give feeback/questions :) Peter

1 0

Re: [ltk-user] canvas objects
by nik gaffney 28 Jan '06

28 Jan '06

>> Ive been playing around with the canvas widget, and was wondering if there is a >> way to find if a created object is 'selected', or at the same coordinates as >> (ltk:event-x ltk:event-y) without having to manually keep track of each object >> on the canvas. > > It sounds as if you bound an event handler to the canvas widget and > then tried to find a corresponding canvas item. The canvas widget is > really powerful and provides event handlers on the items themselves, > i.e. > > (let ((item (create-line canvas (list x1 y1 x2 y2)))) > (itembind canvas item "<Enter>" (lambda (ev) > (format t "entered item ~A~%" item))) > (itembind canvas item "<Leave>" (lambda (ev) > (format t "left item ~A~%" item)))) > Thanks. I didnt realise that items could also have event handlers, so this simplifies things substantially. nik

1 0

[ltk-user] canvas objects
by nik gaffney 26 Jan '06

26 Jan '06

hello, Ive been playing around with the canvas widget, and was wondering if there is a way to find if a created object is 'selected', or at the same coordinates as (ltk:event-x ltk:event-y) without having to manually keep track of each object on the canvas. also, can anyone recommend a good overview/tutuorial of tk that is online?+ thanks, nik

1 0

[ltk-user] Spinbox
by Marco Gidde 25 Jan '06

25 Jan '06

Hi, the command associated with a SPINBOX irritates me a little bit. When I give a function via the :COMMAND key in MAKE-INSTANCE it has to be a function without arguments, which rises the question, how can I get the value (the VALUE method is not specialized for SPINBOXes). On the other hand (SETF COMMAND) expects a function of one argument and this argument is the value I'm looking for (as a string). Since I don't know anything about a equivalent tcl/tk program I have to ask: is it a bug, a feature and/or a misconception of me? Regards, Marco

2 2

[ltk-user] Look and feel: tile
by Marco Gidde 23 Jan '06

23 Jan '06

Hi, this weekend I started playing with LTK and was really impressed, how easy to use it is. Thank you for this nice piece of software. But of course I have something to complain about and that's Tk's look and feel, which is essentially the only reason I did not try LTK earlier. Searching the web I found a few extension packages, especially Tile, which look much nicer, and even a message from Peter, that there is or will be some support for this in LTK. The latest LTK version I could find is 0.88pre but it contains no hint concerning Tile, so I tried (by copy and modify) something along the line of (defargs t-check-button () activebackground activeforeground anchor background bitmap borderwidth cbcommand compound cursor disabledForeground font foreground height highlightbackground highlightcolor highlightthickness image indicatorOn justify offrelief offvalue onvalue overrelief padx pady relief selectcolor selectimage state takefocus text textvariable underline variable width wraplength) (ltk::defwidget t-check-button (check-button) () "ttk::checkbutton") (with-ltk () (format-wish "package require tile") ... (make-instance 't-check-button :master top :text "ttk checkbutton") ...) and the checkbox even showed up! But this is certainly more a hack than anything else and some real support would be very welcome. So my question is, did I oversee some newer LTK package or an LTK add-on or something or when will it be released? Regards, Marco

2 4

[ltk-user] Release Candidate 2 of ltk-0.88 available
by Peter Herth 23 Jan '06

23 Jan '06

Hello to all Ltk users, especially to the newly joined list members! I just uploaded the latest ltk release, so if you want to have a look and point out to any show-stopping bugs, you can find it here: http://www.peter-herth.de/ltk/ltk-0.88pre2.lisp If not too many bugs are found, the official release will follow in a few days. Peter

1 0

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