From xemacs-m  Sun Feb  9 21:56:27 1997
Received: from crystal.WonderWorks.COM (crystal.WonderWorks.com [192.203.206.1])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id VAA00218
	for <xemacs-beta@xemacs.org>; Sun, 9 Feb 1997 21:56:22 -0600 (CST)
Received: by crystal.WonderWorks.COM 
	id QQccfv11806; Sun, 9 Feb 1997 22:56:19 -0500 (EST)
Date: Sun, 9 Feb 1997 22:56:19 -0500 (EST)
Message-Id: <QQccfv11806.199702100356@crystal.WonderWorks.COM>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
From: Kyle Jones <kyle_jones@wonderworks.com>
To: xemacs-beta@xemacs.org
Subject: x-set-screen-icon-pixmap 
In-Reply-To: <199702100305.TAA23941@xemacs.eng.sun.com>
References: <199702100202.VAA06652@localhost.interport.net>
	<199702100305.TAA23941@xemacs.eng.sun.com>

Martin Buchholz writes:
 > >>>>> "Pez" == Peter Pezaris <pez@dwwc.com> writes:
 > 
 > Pez> I started to write a really long-winded email griping about how
 > Pez> FREAKING complicated it is do find out how to set the icon for a
 > Pez> XEmacs frame, but I'm going to leave it as an exercise to the
 > Pez> reader.  Start with the following code and try to remove the two
 > Pez> references to obsolete functions:
 > 
 > Pez> (x-set-screen-icon-pixmap (selected-frame) (make-pixmap "foo.xpm"))
 > 
 > Didn't seem all that bad....
 > 
 > They byte-compiler told me to do 
 > (set-glyph-image frame-icon-glyph ...)
 > 
 > Doc for set-glyph-image told me I had to find an image specification.
 > Other XEmacs icons are in the "etc" directory, so I just guessed and tried
 > 
 > (set-glyph-image frame-icon-glyph "trash.xpm")

There is another path, where the user types C-h v frame-icon-glyph and
sees:

    frame-icon-glyph's value is #<glyph (icon) #<image-specifier global=(((x) . #<image-instance (color-pixmap) on #<x-device on ":3.0" 0x691> "audio_button.gif" 40x40x24 (0x800072) 0x9bc>) ((tty) . #<image-instance (color-pixmap) on #<x-device on ":3.0" 0x691> "audio_button.gif" 40x40x24 (0x800072) 0x9bc>) ((stream) . #<image-instance (color-pixmap) on #<x-device on ":3.0" 0x691> "audio_button.gif" 40x40x24 (0x800072) 0x9bc>)) fallback=((nil . [nothing])) 0x228>0x227>
      -- a simple built-in variable.

    Documentation:
    Icon glyph used to iconify a frame.

and thinks "You have GOT to be kidding!  I'm supposed to change THAT?!"

