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 bu
> ---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
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
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
At 09:37 PM 1/10/2007 -0700, Jack D wrote:
>My mistake! You said you wanted the **Edit** menu disabled. Easy - just
>increase the index to 2. It is documented that the "pattern" search for
>indices needed work, so I would just keep track of your index numbers and
>use them instead. Here is the full
Problem Solved,
I found a machine with a later version of ActiveState Perl (v5.8.7)
and everything worked as advertised.
Thanks to Jack D and Bill Luebkert for their timely help!
Gary Trosper
RTSC___
Perl-Win32-Users mailing list
Perl-Win32-Users@li
Subject: RE: Perl TK Graying out disabled menu items
>Tried that,
>The menu item was disabled but not grayed out.
>Also the menubar seems to begin at 1 instead of 0 for its items; so
disabling 1 actually gets the 'File
it thinking that it might behave differently than a cascade
menu.
No Luck.
Gary T
"Jack D" <[EMAIL PROTECTED]>
Sent by: [EMAIL PROTECTED]
01/10/2007 07:23 PM
To
"'Gary D Trosper'" <[EMAIL PROTECTED]>, "'Bill Luebkert'"
<[EMA
perl-win32-users@Listserv.ActiveState.com
Subject: Re: Perl TK Graying out disabled menu items
That grays out the last item in the Edit drop down menu.
It doesn't gray out Edit itself.
Still searching,
Gary T
Bill Luebkert <[EMAIL PROTECTED]>
01/10/2007 05:08 PM
To
Gary
That grays out the last item in the Edit drop down menu.
It doesn't gray out Edit itself.
Still searching,
Gary T
Bill Luebkert <[EMAIL PROTECTED]>
01/10/2007 05:08 PM
To
Gary D Trosper <[EMAIL PROTECTED]>
cc
perl-win32-users@Listserv.ActiveState.com
Subject
Re: Perl TK Gra
, -state=>'disabled');
and I get "Bad name after Edit on line 31"
Still struggling but pointed in the right direction,
Gary T
RTSC
"Jack D" <[EMAIL PROTECTED]>
01/10/2007 11:17 AM
To
"'Gary D Trosper'" <[EMAIL PROTECTED]>,
c
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Gary
D Trosper
Sent: Wednesday, January 10, 2007 7:59 AM
To: perl-win32-users@Listserv.ActiveState.com
Subject: Perl TK Graying out disabled menu items
Hi All,
Thanks Rob,
I did as you suggested and raised an item in comp.lang.perl.tk.
Cheers, Alan
-Original Message-
From: Sisyphus [mailto:[EMAIL PROTECTED]
Sent: 18 August 2006 12:33
To: Lovett, Alan J; perl-win32-users@listserv.ActiveState.com
Subject: Re: Perl Tk and messageBox changes
- Original Message -
From: "Lovett, Alan J"
.
.
>
> D:\Perl>type Tk_example_MessageBox.pl
> use Tk;
> my $mw = MainWindow->new;
> my $doit = $mw->messageBox(
> -title => 'Please reply',
> -message =>
Hi,
You are deleting whatever is in $text0 till the énd'.
Comment that out and you will see all the values of $i.
...
sub prg{
for (my $i=0;$i<20;$i++){
# $text0->delete('0.0','end');# commented out
$text0->insert('end',"$i\n");
# sleep 1;
}
}
Bye,
Zeray
|---
Here you go
I took out your sleep and added a timer. Sleep will block tk handling events.
The built in timer will not be blocked. So you will be able to do things like
refresh the gui and move the window around the screen, etc. The '$top->update'
is probably not required I just added it to
[EMAIL PROTECTED] wrote:
> Hi All!
> In the following snippet:
>
> use strict;
> use Tk;
> require Tk::LabFrame;
> my $top = new MainWindow;
> my $bar=$top->LabFrame(-label => 'buttons bar');
> $bar->pack;
> my $exi=$bar->Button(-command=>\&exi,-text=>'exit');
> $exi->pack(-side=>'left');
> m
Looks like it's just because the window doesn't update until you return from
the callback. Are you trying to create some sort of special effect? Perhaps
asking how to create that effect might be simpler - the Text widget doesn't
look like it likes that sort of thing!
Kind regards,
Mark Anderson
S
> When executing this snippet
> I see in text0 only the last $i /in for cycle/
> What I must add to prg code
> in order to see all cosequtive values of $i ?
for (my $i=0;$i<20;$i++){
#$text0->delete('0.0','end'); # just don't delete everytime all
contents of the box
$text0->insert
Just add:
$top->update
any place inside the "prg" procedure.
On Wed, 1 Jun 2005 08:06:42 UT, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote:
> Hi All!
> In the following snippet:
>
> use strict;
> use Tk;
> require Tk::LabFrame;
> my $top = new MainWindow;
> my $bar=$top->LabFrame(-label => 'b
Well right now ur deleting all the text before inserting any more. Get rid
of the delete line or move it out of the for loop. Then it'll work as expected.
At 08:06 AM 6/1/05 UT, [EMAIL PROTECTED] wrote:
>sub prg{
> for (my $i=0;$i<20;$i++){
> $text0->delete('0.0','end');
>
Chris Wagner
(B> Sent: Tuesday, March 29, 2005 9:00 PM
(B> To: Perl-Win32-Users@listserv.ActiveState.com
(B> Subject: Re: Perl/Tk GUI Builder
(B>
(B> Ohayo Taguchi-san. I don't know of a builder app but there
(B> is a great deal
(B> of information and examples
On Mon, 28 Mar 2005, [EMAIL PROTECTED] wrote:
> Does anyone know of a Perl/Tk GUI builder? I know it is asked before.
> But I like to know if there is. Guido seems not be supported any more.
Our "Komodo Professional" product includes a GUI builder that targets
Perl/Tk among others:
http://aspn.
Ohayo Taguchi-san. I don't know of a builder app but there is a great deal
of information and examples contained in the widget.bat demo that comes with
Active Perl. It should show u how to make any basic Tk GUI.
--
REMEMBER THE WORLD TRADE CENTER ---=< WTC 911 >=--
"...ne cede males
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of Swartwood, Larry H
> Sent: March 11, 2005 10:22 AM
> To: [EMAIL PROTECTED]; perl-win32-users@listserv.ActiveState.com
> Subject: RE: perl tk binding question
>
>
&g
I'm not sure why but when I change your binding to:
$li->bind('' =>\&li);
...it works.
This site might explain it:
http://www-users.cs.umn.edu/~amundson/perl/perltk/bind.htm
I don't have time to read it all right now.
--Larry S.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of [EMAIL PROTECTED]
> Sent: Tuesday, July 13, 2004 7:29 AM
> To: [EMAIL PROTECTED]
> Subject: perl Tk font question
>
>
> It may be simple but
> I can't figure how to set font
> in tk widget /my font is
>It may be simple but
>I can't figure how to set font
>in tk widget /my font is cyrillic font/
>please help !
>___
use Tk;
use strict;
my $top = MainWindow->new();
my $text = $top->Label(
-font => '{Courier New Cyr} 32',
-text => 'Try me',)->p
Jack D replied:
>
> I am studying Tk using "Mastering Perl TK". I found the below listed code
> in the book and got it working,
>
> Added some stuff to it and it seems to be working OK. I wanted to add
> "$textundo->Save(?pathname?)
>
> so that it saves the contents of the widget to a file.
Beckett Richard replied:
It's not clear what you really want, but what about this...?
sub print_rec() {
open (SAVE, ">>c:/save/data.txt");
@key = keys %info;
foreach $_ (@key) {
print "$_:$info{$_}\n";
print SAVE "$_:$info{$_}\n";
}
close SAVE;
}
R.
Richar
It's not clear what you really want, but what about this...?
sub print_rec() {
open (SAVE, ">>c:/save/data.txt");
@key = keys %info;
foreach $_ (@key) {
print "$_:$info{$_}\n";
print SAVE "$_:$info{$_}\n";
}
close SAVE;
}
R.
-Original Message-
From
> -Original Message-
> From: [EMAIL PROTECTED] [mailto:perl-
> [EMAIL PROTECTED] On Behalf Of Eric Edwards
> Sent: May 26, 2004 7:49 PM
> To: [EMAIL PROTECTED]
> Subject: re:Perl Tk
>
> Perl Tk Gurus,
>
> I am studying Tk using "Mastering Perl TK". I found the below listed code
> in th
Christopher,
my $frame = $main->Frame->pack; # capital Frame
And add $main->MainLoop;
Should work fine.
- EllioT -
On Tue, 17 Jun 2003, Christopher Moss wrote:
::Can anyone help me with this fairly simple piece of Perl/Tk actually
::Ive taken it from the Man page and I cant seem to get
Send mail to "[EMAIL PROTECTED]" with the following command
in the body of your email message:
subscribe ptk
-Original Message-
From: Scott Purcell [mailto:spurcell@;vertisinc.com]
Sent: Friday, November 15, 2002 8:01 AM
To: [EMAIL PROTECTED]
Subject: Perl TK List?
Importance: Low
a very good one is
[EMAIL PROTECTED]
You can get a member (via www.stanford.edu) or you can
also post a non-member question (takes longer to be answered).
Gerhard PetrowitschTel.: +49 8151 270 126
SP
Original Message ---
Hello,
I am doing a simple interface and I ran into a problem with a widget method. Is there
an appropriate list to post a question on perl/TK?
Thanks,
Scott Purcell
Scott:
Whenever I had P/TK questions any of the Perl group I am subscribed to helped.
Win32::InternetExplorer::Window
Regards
Marty
- Original Message -
From: "Tillman, James" <[EMAIL PROTECTED]>
To: "'Martin Moss'" <[EMAIL PROTECTED]>; "Jack" <[EMAIL PROTECTED]>;
"Perl-Win32-Users" <[EMAIL P
Marty: What's the IE embedding module for Tk? Do you remember? I'd be
really interested in seeing that!
jpt
> -Original Message-
> From: Martin Moss [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, June 26, 2002 7:32 AM
> To: Jack; Perl-Win32-Users
> Subj
Marty
- Original Message -
From: "Jack" <[EMAIL PROTECTED]>
To: "Perl-Win32-Users" <[EMAIL PROTECTED]>
Sent: Wednesday, June 26, 2002 5:36 AM
Subject: Re: Perl TK question
> - Original Message -
> From: "Kevin" <[EMAIL PROTECTED]>
&
I'd suggest using Win32::GUI if your running on Win32 platforms.
I'd also suggest becoming familiar with win32::API.
There is a module that can import ActiveX but I'm not remembering the name
of it. A search in the Win32::GUI list at source forge for ActiveX should
bring it up.
When I last played
Thanks, Jack. I have the Mastering Perl/Tk book and I've even
tried the examples. It's just not working. :-( I sincerely appreciate
your input.
I'll look into some other options.
Cheers,
Carter.
Jack wrote:
>- Original Message -
>From: "Carter A. Thompson" <[EMAIL PROTECTED]>
- Original Message -
From: "Carter A. Thompson" <[EMAIL PROTECTED]>
> I'm having some difficultly understanding how to use fileevent. I have
> Perl/TK script as a wrapper for a source control system command
> and I'd like to catch the output of the command in a text window. I've
> read
om: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of
Martin Moss
Sent: Thursday, February 14, 2002 12:11 PM
To: Dunnigan,Jack [Edm]; [EMAIL PROTECTED]
Subject: RE: perl/TK Label widget not updating quirky problem
I got it working in some places, but when I call update in one of my
subroutine
If you are inserting something programmatically, then why not check it
before you insert :)
Anyways, it doesn't do that for me? Run this script and tell me what it
does..
##
use Tk;
use Tk::LEntry;
use strict;
my $max=10;
my $status="HELLO";
my $mw=new MainWindow;
my $e=$m
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED]]On Behalf Of
> Dunnigan,Jack [Edm]
>
>
> >-Original Message-
> >From: Adam Frielink [mailto:[EMAIL PROTECTED]]
> >Sent: Monday, January 07, 2002 12:16 PM
>
> >Thanks Jack. I guess I wasn't specific enough
>-Original Message-
>From: Adam Frielink [mailto:[EMAIL PROTECTED]]
>Sent: Monday, January 07, 2002 12:16 PM
>Thanks Jack. I guess I wasn't specific enough in my original post to say
>that I cannot allow an entry of more than 75 characters and not an entry
box
>of 75 character width. If
m: Dunnigan,Jack [Edm] [mailto:[EMAIL PROTECTED]]
> Sent: Monday, January 07, 2002 2:08 PM
> To: 'Adam Frielink'; [EMAIL PROTECTED]
> Subject: RE: Perl/Tk Entry widget questions
>
>
> You will need to use -validatecommand -- or --
>
> Nick Ing-Simmons wrote a small pac
---
From: Swartwood, Larry H
Sent: Monday, January 07, 2002 12:05 PM
To: 'Adam Frielink'; '[EMAIL PROTECTED]'
Subject: RE: Perl/Tk Entry widget questions
Oops. Forgot the all important pack(). Should be:
$entry->Entry( -textvariable => \$my_var, -width => 75)->p
You will need to use -validatecommand -- or --
Nick Ing-Simmons wrote a small package called LEntry (Limited? Entry) which
does exactly this. It is derived from and ISA Tk::Entry. All it does is add
a new option to the Entry configspecs called -maxwidth. Then overrides the
insert method to check
> $entry->Entry( -textvariable => \$my_var, -width => 75);
>
> http://w4.lns.cornell.edu/~pvhp/ptk/doc/
...where the documentation states:
Name: width
Class: Width
Configure Option: -width
Specifies an integer value indicating the desired width of the entry window,
in average-size character
Oops. Forgot the all important pack(). Should be:
$entry->Entry( -textvariable => \$my_var, -width => 75)->pack();
Sorry,
Larry S.
-Original Message-
From: Swartwood, Larry H
Sent: Monday, January 07, 2002 12:03 PM
To: 'Adam Frielink'; [EMAIL PROTECTED]
Subj
$entry->Entry( -textvariable => \$my_var, -width => 75);
http://w4.lns.cornell.edu/~pvhp/ptk/doc/
Larry S.
-Original Message-
From: Adam Frielink [mailto:[EMAIL PROTECTED]]
Sent: Monday, January 07, 2002 12:00 PM
To: [EMAIL PROTECTED]
Subject: Perl/Tk Entry widget questions
Greetings,
On 30.11.01 at 13:48 Leo Johan Susanto wrote:
>Does any one know any good UI editor for Perl Tk?
Well, there's a new project on Sourceforge called Guido working on a
new Perl/Tk gui builder.
For now, I use SpecPerl/SpecTcl. See the Tcl website. It's at:
scriptics.com
Marcus
__
The Advanced Perl Programming book for OReilly also has a good section on
Tk. In some people's opnion, it is better than the Perl/Tk book from the
same publisher. I have both and agree with their assessment.
If you have ever done anything with a Java GUI program, then you will notice
that the lay
> P.S. On the issue of the Perl + OLE + Office Automation
> that I poked around about earlier. I wanted to report that
> there is a tool which will report on the methods and properties
> of an automation server, if it provides typelib information.
> It is called "OLEVW32.EXE". I am still wanting
ur task bar, it could possibly be
behind some other window.
If that doesn't work, lemme know. :)
-Casey Williams
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of
Carl Jolley
Sent: Thursday, June 28, 2001 2:59 PM
To: byron wise
Cc: Casey Williams; [EM
EMAIL PROTECTED]
Subject: Re: Perl/Tk application woes
On Thu, 28 Jun 2001, byron wise wrote:
> Thanks Casey for your response. I finally figured out what was wrong. I
> didn't have an x-window display on my Win2000!!
> So I got a demo from www.xwin32.com
>
> Currently I'
You don't need an Xserver to run perl/Tk on Win32. The users would, however,
need perl and the Tk extension loaded onto their local machine. That's easy,
just download and install everything in 10 minutes from ActiveState!
Even if that isn't an option, you can still use some sort of perl2exe to
c
use ROText;
instead
Jack
-Original Message-
From: Edwards, Mark (CXO) [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, May 23, 2001 10:07 AM
To: Perl-Win32-Users (E-mail)
Subject: Perl/Tk problem
I have a script that displays text in a Text widget. I want to be able to
highlight a portion
Well that was easy. Thanks.
-Original Message-
From: Dunnigan,Jack [Edm] [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, May 23, 2001 10:27 AM
To: Edwards, Mark (CXO); Perl-Win32-Users (E-mail)
Subject: RE: Perl/Tk problem
use ROText;
instead
Jack
-Original Message-
From
riday, April 27, 2001 1:48 PM
To: Perl Users List
Subject: RE: Perl/Tk
Casey Williams wrote:
> Dunnigan,Jack [Edm] wrote:
>> Why not create two frames side by each: a button frame and an
>> entry frame.
>> Then, add the buttons to the bottom of the button frame and
>> add
Casey Williams wrote:
> Dunnigan,Jack [Edm] wrote:
>> Why not create two frames side by each: a button frame and an
>> entry frame.
>> Then, add the buttons to the bottom of the button frame and
>> add entries to
>> the bottom of the entry frame.
> Sure, that'll work too. But may not be as fl
Ooopss that should have been "Entry" on the last line..you get the idea
anyways.
Why not create two frames side by each: a button frame and an entry frame.
Then, add the buttons to the bottom of the button frame and add entries to
the bottom of the entry frame.
##
$mainframe->$m
Sure, that'll work too. But may not be as flexible depending on what your
gonna do later.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of
Dunnigan,Jack [Edm]
Sent: Friday, April 27, 2001 1:21 PM
To: 'Adam Frielink'
Cc: Perl Users List
Su
Adam Frielink wrote:
> If anyone has the Learning Perl/Tk book, I am working through
> the example on
> page 65. I will include the script following.
>
> My problem is that this routine as in the book doesn't work.
> I can Disable
> the Exit button but re-enabling it doesn't work. My print
e-
> From: Dunnigan,Jack [Edm] [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, October 18, 2000 10:18 PM
> To: Christopher Hahn; Perl win32 email list (E-mail)
> Subject: RE: Perl/Tk
>
>
> A what? I had to do a search on the net to see what you were
> talking about.
On 09.12.00 at 09:50 Christopher Sagayam wrote:
>can somebody point to me the advantages and disadvantages of using
perl tk VS WIn32 GUI for perl GUI programming...
I was reading an old post about this just yesterday and to summarize:
Win32::GUI is beta, has little documentation so far, and plat
67 matches
Mail list logo
