gmane.lisp.ltk.user

Re: Add an event in the ltk event queue

Syll — 2012-04-28T13:45:21

Le Mon, 12 Mar 2012 21:51:02 +0100
Syll <syll-dev< at >laposte.net> a écrit :


Is this possible ?

Syll

Re: Selection in listbox

Syll — 2012-04-28T13:44:31

Le Thu, 1 Mar 2012 00:17:30 +0100
Syll <syll-dev< at >laposte.net> a écrit :


Any idea/tip for this ?

Thank you

Zyll

Re: resizing canvas, exiting main loop, fullscreen

Tamas K Papp — 2012-04-28T06:50:58

Hi Peter,

Peter Herth <herth< at >peter-herth.de> writes:


Thanks for LTK!  I was able to prototype my program very quickly.


OK, that works fine.


I assume that the window should be *tk*.  So I tried

(set-wm-overrideredirect *tk* 1)

but it didn't do anything, I reverted to set-wm-attributes.

Should I submit a patch adding set-wm-attributes?  Where is the
development repository for LTK?

Best,

Tamas

Re: unpack frame?

Peter Herth — 2012-04-27T15:39:58

Hi Christy,

you can remove any widget you added with "pack" via "pack-forget" and
later on pack it again.

Peter


On Fri, Apr 27, 2012 at 5:02 PM, Christy <cknockleby< at >eastlink.ca> wrote:

unpack frame?

Christy — 2012-04-27T15:02:34

I'm trying to program a little computer game for my sons, and I'm wondering if there is a way to have some of the buttons on it disappear for a while and then return. I have them in a frame, and I was wondering if there is a command I could use to remove that frame temporarily. Any suggestions?

Christy

Re: resizing canvas, exiting main loop, fullscreen

cage — 2012-04-27T15:11:07

You're welcome!


I am  positive for that  and I hope  Peter, the author of  the library
will include it.
 

i can only see  two horizontal (1px or so as height)  lines on top and
bottom  of the screen,  however I  tried to  replace pack  method with
grid:

(grid canvas 0 0 :sticky "nswe")

and the the bottom line seems to disappear.
 

I spent  a minute or  so moving the  mouse (and my eyes  are exploding
now! I  hope you will  add a disclaimer  for that!) and got  no crash,
sorry!
 

Totally agree!

Bye!
C.

Re: resizing canvas, exiting main loop, fullscreen

Peter Herth — 2012-04-27T14:50:18

Hi Tamas,

glad to hear that you like LTk :)

To get rid of the border of the canvas (which only appears on windows)
you need to
(configure canvas :highlightthickness 0)
To make a window without decorations for full-screen mode, I used
(set-wm-overrideredirect window 1)




Peter

On Fri, Apr 27, 2012 at 4:42 PM, Tamas K Papp <tkpapp< at >gmail.com> wrote:

Re: resizing canvas, exiting main loop, fullscreen

Tamas K Papp — 2012-04-27T14:42:18

Tamas K Papp <tkpapp< at >gmail.com> writes:


I have solved this issue, I forgot to quote the padding char in format.
Here is the latest version:

http://paste.lisp.org/display/129192#1

Now I just need to get rid of the border :-)

Best,

Tamas

Re: resizing canvas, exiting main loop, fullscreen

Tamas K Papp — 2012-04-27T14:22:20

cage <cage< at >katamail.com> writes:


Thanks!  I basically have it under control now, see:
http://paste.lisp.org/display/129192

In particular, I defined set-wm-attributes to make the window full
screen.  I wonder if that would be a useful addition to LTK.

Currently I have the following issues:

1. I can't make the border disappear around the canvas.

2. If I go near the top/bottom of the screen, or move around too much
with the mouse, the script crashes with the following message:

"The value 0 is not of type CHARACTER."

and I get a debugging window.  Suggestions to resolve these would be
appreciated.  Also, comments on the code are welcome, I figured things
out by reading the source.

But LTK is truly amazing!  I wrote this application in about 30 minutes
and it basically does what I want it to do.

Best,

Tamas

Re: resizing canvas, exiting main loop, fullscreen

cage — 2012-04-27T13:53:24

Hello!
 

I can not help for the rest of the questions but "buttonpress-2" binds
to the "wheel" button of the mouse on my system, try "<ButtonPress-3>"
instead.

Bye.
C.

resizing canvas, exiting main loop, fullscreen

Tamas K Papp — 2012-04-27T11:53:38

Hi,

I am trying to write a small program that would do the following:

1. create a full screen window with no decorations

2. when the left mouse button is pressed, change the color of the window
according to the relative position (ie the color is calculated from the
position),

3. when the right mouse button is pressed, exit.

BTW, the application is for testing LCD screens.

I came up with the following:

(in-package :cl-user)
(require :ltk)
(use-package :ltk)

(defun hex-color (r g b)
  "Return a hexadecimal color string.  R G B should be in [0,1]."
  (flet ((normalize (x)
           (assert (<= 0 x 1))
           (round (* x 255))))
    (format nil "#~2,0x~2,0x~2,0x"
            (normalize r)
            (normalize g)
            (normalize b))))

(defun lcd-test ()
  (with-ltk ()
    (let* ((canvas (make-instance 'canvas))
           (down nil))
      (flet ((set-color (x-rel y-rel)
               (configure canvas "background"
                          (hex-color x-rel y-rel 0.5))))
        (pack canv

Re: Color in lines

Tiago Charters de Azevedo — 2012-03-27T16:15:21

Found it! http://www.peter-herth.de/ltk/ltkdoc/node38.html#3160

Thanks.

Re: Color in lines

cage — 2012-03-27T15:54:00

Hello

Maybe you  need to call:
(itemconfigure canvas  (create-line* canvas x0y0  x1 y1)  option value)  

please  check the documentation  for which  options are  availables (I
think you need something like :outline "ff0000" to get a red line, for
example).

Bye.
C.

Color in lines

Tiago Charters de Azevedo — 2012-03-27T14:49:46

Hi,
 is there any way of coloring a create-line, or all lines are black?

Thanks.

Add an event in the ltk event queue

Syll — 2012-03-12T20:51:02

Hello

Is it possible to add an event in the ltk event queue from another
thread ?

I can put events in a queue and use (after ...) to read it periodically
in the ltk thread, but it would be easier and more efficient to use the
ltk event queue directly.

Thank you

Syll

Selection in listbox

Syll — 2012-02-29T23:17:30

Hello

I have a few problems/questions with listbox selection (especially
multiple selection).

* If the listbox does'nt have the focus and I select items with
  Ctrl+click (including the first one), events from keys are not
  triggered for this listbox. Is it because the listbox has'nt get the
  focus at all ? How do i give the focus to the listbox (but not to
  any item) ?

* If I understand this well, there are two special states that can be
  applied to list items : say "selected" (zero, one or several items)
  and "focused" (zero or one item).

* I can select an item with listbox-select.
  How can I give the focus to an item ?

* I catch selection events with <<ListboxSelect>>.
  How can I catch "item focus" events ?
  How can I get the focused item ?

Thank you

Syll

Re: Bold font for label

cage — 2012-01-17T16:04:12

[...]
 

You're welcome, please keep asking if need help! :)

Bye!
C.

Re: Bold font for label

2012-01-17T01:24:08


This could help me to have the same font for all labels, but not everywhere in the application because I can't get a "modified default font". But I keep your idea in mind :) .

Thank you for your help.

Syll


Une messagerie gratuite, garantie à vie et des services en plus, ça vous tente ?
Je crée ma boîte mail www.laposte.net

_______________________________________________
ltk-user site list
ltk-user< at >common-lisp.net
http://common-lisp.net/mailman/listinfo/ltk-user

Re: Bold font for label

cage — 2012-01-16T15:52:28

Hello!


Well, that appear weird to me! Maybe this is the way Tk works.
 

Why do not subclass the label widget?

something like:

(defclass my-label (ltk:label)
  ())

(defmethod initialize-instance :after ((object my-label) &key (font-name "sans") (font-size 10))
  (configure object "font" (format nil "~a ~a" font-name font-size)))


This way cget should always return something meaningful.
Then you can add method to change only the weigth of the font.

This code is not tested of course, no warranty for any purpouse! :)

Bye!
C.

Re: Bold font for label

2012-01-15T18:39:53


Not really, unfortunately :( . But thank you for your answer :) . And I didn't know cget, which will be usefull.

If I don't specify the font to use for a label, (cget label "font") returns "".
If I specify a string as the font to use for a label, (cget label "font") returns this string.

So I can't find the font used for "normal" labels. I would like to say : "the default font with default properties, but weight=bold". I can use :font "Helvetica 10 bold", but not juste :font "bold".


Une messagerie gratuite, garantie à vie et des services en plus, ça vous tente ?
Je crée ma boîte mail www.laposte.net

_______________________________________________
ltk-user site list
ltk-user< at >common-lisp.net
http://common-lisp.net/mailman/listinfo/ltk-user

Re: Bold font for label

cage — 2012-01-15T11:08:45

Hello!
 

Ok, you can query the label for actual font used using the cget function:

(cget label "font")

Hope this helps.

Bye!
C.