In message <199601030001.TAA06178_at_kirk>, Arturo Perez -- Software Engineer writ
es:
>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?
>
>-arturo
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!
-arturo
Received on Fri Jan 05 1996 - 20:01:59 CET