Re: icon-window creation?

From: Arturo Perez -- Software Engineer <>
Date: Fri, 05 Jan 1996 13:58:36 -0500

In message <199601030001.TAA06178_at_kirk>, Arturo Perez -- Software Engineer writ
>I'm trying to create an icon-window so that I can have
>a dynamically updating icon (assuming the window manager
>allows this).
>The code I'm trying to get to work is this:
>(define help-image
> (make <Photo-Image>
> :file "/usr/local/STk-3.0b1/Lib/images/Help.gif"))
>(slot-set! *top-root* 'icon-window (slot-ref ok-image 'id))
>but I get:
> bad window path name "img4"
>Anyone out there done this before?

I've found the solution. For those that are interested
here's what you need to do:

        (define ok-image
          (make <Photo-Image> :file "/usr/local/STk-3.0b1/Lib/images/Ok.gif"))
        (define iconwindow (make <Toplevel>))
        (define iconlabel (make <Label> :parent iconwindow :image ok-image))
        (pack iconlabel)
        (slot-set! *top-root* 'icon-window iconwindow)

This works like a charm.

A quick question: When you use the textvariable feature for
<Labeled-entry> it seems to only work for global variables. Is
this the expected behavior?

On another vein, I plugged in the tkImgPmap.c from the Tk archive
site with no problem at all (after I got a copy of the XPM library
from another archive site). That is also working like a charm.

I love STk!

Received on Fri Jan 05 1996 - 20:01:59 CET

This archive was generated by hypermail 2.3.0 : Mon Jul 21 2014 - 19:38:59 CEST