RE: Perl Tk system button

2009-09-12 Thread Geoff Horsnell
Lynn,

Many thanks for that - it worked a treat.
FYI, the iconimage line has to be (re)applied to each new subwindow, or the
"Tk" icon prevails.

Cheers

Geoff

-Original Message-
From: Lyndon Rickards [mailto:l...@debscave.com] 
Sent: Saturday, September 12, 2009 1:54 AM
To: Geoff Horsnell; perl-win32-users@listserv.activestate.com
Subject: Re: Perl Tk system button





>  ---Original Message---
>  From: Geoff Horsnell 
>  Subject: Perl Tk system button
>  Sent: Sep 11 '09 17:02
>  
>  Is it possible to change the image in the system menu button (The red Tk
>  button in the top left hand corner of all GUI windows)? I would like to
add
>  my own icon in place of this symbol.
>  
>  
#!perl -w

use strict;
use Tk;
use Tk::Photo;

my $mw = tkinit;

my $ico = $mw->Photo(-file=>"c:/myapp/icon.bmp");

$mw->iconimage($ico);

MainLoop;

HTH - Lynn.



___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


Re: Perl Tk system button

2009-09-11 Thread Lyndon Rickards



>  ---Original Message---
>  From: Geoff Horsnell 
>  Subject: Perl Tk system button
>  Sent: Sep 11 '09 17:02
>  
>  Is it possible to change the image in the system menu button (The red Tk
>  button in the top left hand corner of all GUI windows)? I would like to add
>  my own icon in place of this symbol.
>  
>  
#!perl -w

use strict;
use Tk;
use Tk::Photo;

my $mw = tkinit;

my $ico = $mw->Photo(-file=>"c:/myapp/icon.bmp");

$mw->iconimage($ico);

MainLoop;

HTH - Lynn.
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


RE: Perl Tk system button

2009-09-11 Thread Perez, Aaron P.
Try using GIMP @ http://www.gimp.org/. It might be a bit of overkill to
do it, but it will make xpm's.

 

--Aaron

 



From: perl-win32-users-boun...@listserv.activestate.com
[mailto:perl-win32-users-boun...@listserv.activestate.com] On Behalf Of
Spencer Chase
Sent: Friday, September 11, 2009 3:57 PM
To: Geoff Horsnell
Cc: perl-win32-users@listserv.activestate.com
Subject: Re: Perl Tk system button
Importance: Low

 

Greetings Geoff,

Searching the perl install folder for images, I come up with Tk.xpm in
perl/lib/tk which looks exactly like the re Tk my guess is that you can
change this to another xpm and give it the same name if you don't want
to find in which code the image is referenced to change it. good luck
finding an image editor that can save in xpm format. let me know if you
find one as I have wanted to do the same thing.

Friday, September 11, 2009, 3:02:46 PM, you wrote:

 

Is it possible to change the image in the system menu button (The red Tk
button in the top left hand corner of all GUI windows)? I would like to
add my own icon in place of this symbol.
 
Cheers
 
Geoff
 



-- 
Best regards,
Spencer Chasemailto:spen...@spencerserolls.com
<mailto:spen...@spencerserolls.com> 
67550 Bell Springs Rd.
Garberville,  CA 95542Postal service only.
Laytonville, CA 95454UPS only.
spen...@spencerserolls.com <mailto:spen...@spencerserolls.com> 
http://www.spencerserolls.com <http://www.spencerserolls.com> 
http://www.spencerserolls.com/MidiValve.htm
<http://www.spencerserolls.com/MidiValve.htm> 
(707) 984-8356


CONFIDENTIALITY STATEMENT. This email and any attachment is for the sole use of 
the intended recipient and may contain private, confidential and/or privileged 
information that may be subject to Hospira internal policies. If you are not 
the intended recipient, any dissemination, distribution or copying is strictly 
prohibited. If you have received this transmission in error, please notify 
Hospira immediately by return email or by email to 
privacypostmas...@hospira.com and delete the message and all copies and 
attachments from your system.
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


Re: Perl Tk system button

2009-09-11 Thread Spencer Chase
Greetings Geoff,

Searching the perl install folder for images, I come up with Tk.xpm in 
perl/lib/tk which looks exactly like the re Tk my guess is that you can change 
this to another xpm and give it the same name if you don't want to find in 
which code the image is referenced to change it. good luck finding an image 
editor that can save in xpm format. let me know if you find one as I have 
wanted to do the same thing.

Friday, September 11, 2009, 3:02:46 PM, you wrote:

Is it possible to change the image in the system menu button (The red Tk button 
in the top left hand corner of all GUI windows)? I would like to add my own 
icon in place of this symbol.
 
Cheers
 
Geoff
 


-- 
Best regards,
Spencer Chasemailto:spen...@spencerserolls.com
67550 Bell Springs Rd.
Garberville,  CA 95542Postal service only.
Laytonville, CA 95454UPS only.
spen...@spencerserolls.com
http://www.spencerserolls.com
http://www.spencerserolls.com/MidiValve.htm
(707) 984-8356___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs