change the "X" icon for an app

#1 09-26-2008, 09:43 PM

I am using KDE 3.5 on Fedora 5. I have a Perl/Tk app that I wish to give its
own icon rather than the standard "X" icon that (I guess) my theme provides
as a default. How do I do that? Thanks!

#2 09-29-2008, 10:26 AM

On Sep 26, 6:43*pm, Jerome wrote:
> I am using KDE 3.5 on Fedora 5. I have a Perl/Tk app that I wish to give its
> own icon rather than the standard "X" icon that (I guess) my theme provides
> as a default. How do I do that? Thanks!

Use the icon_pixmap field of the XWMHints variable passed to
XSetWMHints()
--
Fred Kleinschmidt

#3 09-30-2008, 02:29 AM

Jerome wrote:
> I am using KDE 3.5 on Fedora 5. I have a Perl/Tk app that I wish to give its
> own icon rather than the standard "X" icon that (I guess) my theme provides
> as a default. How do I do that? Thanks!
>

This is how I managed it in Object Pascal.

const
IconBitmapWidth = 16;
IconBitmapHeight = 16;

IconBitmapBits: packed array[1..32] of Byte = (
$00, $00, $78, $07, $08, $09, $38, $09, $08, $07, $08, $01,
$08, $01, $00, $00, $00, $00, $98, $74, $a4, $24, $84, $24,
$b4, $24, $a4, $24, $18, $73, $00, $00);

....and then the actual code...

var
IconPixmap: TPixmap;
WMHints: PXWMHints;

IconPixMap := XCreateBitmapFromData(fpgApplication.Display,
FWinHandle, @IconBitmapBits, IconBitmapWidth, IconBitmapHeight);

WMHints := XAllocWMHints;
WMHints^.icon_pixmap := IconPixmap;
WMHints^.flags := IconPixmapHint;

XSetWMProperties(fpgApplication.Display, FWinHandle, nil, nil, nil, 0,
nil, WMHints, nil);

I hope that helps.

Regards,
- Graeme -

__________________________________________________ _____
fpGUI - a cross-platform GUI toolkit using Free Pascal
http://opensoft.homeip.net/fpgui/