-boun...@listserv.activestate.com
[mailto:perl-win32-users-boun...@listserv.activestate.com] On Behalf Of
Jack
Sent: Monday, February 23, 2009 3:47 PM
To: perl-win32-users@listserv.activestate.com
Subject: RE: A Perl::Tk question
Sorry for the top post - it's just how my reader works.
There are two op
o:perl-win32-users-boun...@listserv.activestate.com] On Behalf Of
alex.ign...@atcoitek.com
Sent: Monday, February 23, 2009 10:59 PM
To: perl-win32-users@listserv.ActiveState.com
Subject: A Perl::Tk question
Hi there, I need to know the name of the object that called me from
inside my callback routine
e.com] On Behalf Of
alex.ign...@atcoitek.com
Sent: February-23-09 1:59 PM
To: perl-win32-users@listserv.activestate.com
Subject: A Perl::Tk question
Hi there, I need to know the name of the object that called me from
inside my callback routine.
For instance I have 3 buttons, they all call the same su
Hi there, I need to know the name of the object that called me from
inside my callback routine.
For instance I have 3 buttons, they all call the same subroutine, if
button number 3 was pressed, I want to be able to determine that at run
time. Even if it's just by reading the button text. How do I
[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=>'
|
| To: perl-win32-users@listserv.ActiveState.com
|
| cc: (bcc: Zeray Abraha/WLR/SC/PHILIPS)
#}
}
# added new function
sub Timer {
$text0->delete('0.0', 'end');
$text0->insert('end',sprintf("%02d", $counter++));
$top->update;
if($counter > 20) {
[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
serv.ActiveState.com
> Subject: perl Tk question
>
> *** WARNING : This message originates from the Internet ***
>
> Hi All!
> In the following snippet:
>
> use strict;
> use Tk;
> require Tk::LabFrame;
> my $top = new MainWindow;
> my $bar=$top->La
> 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');
>
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');
my $prg=$bar->Button(-command=>\&prg,-text=>'prg');
+++ if the Up or Down key is pressed,
the location cursor (active element) moves up or down one
element. If the selection mode is browse or extended then the
new active element is also selected and all other elements are deselected.
In extended mode the new active element beco
there is also a set of modules around which allow you to
> > embed an internet
> > explorer browser in your app -it wasn't quite fully working
> > when I last
> > looked at it 8 months ago though:-(
> >
> > Marty
> > - Original Message -
> >
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]>
&
om for comp.lang.perl.tk might prove helpful.
hth,
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of
Kevin
Sent: Tuesday, June 25, 2002 2:09 PM
To: Perl-Win32-Users
Subject: Perl TK question
Hello,
I do not know much about the Perl/TK and before I begi
Hello,
I do not know much about the Perl/TK and before I begin learning it, I would
like to make sure it can do what I need. The application will be for Win32
platforms.
I basically need to develop a small application that will have a textbox to
enter a URL which will be loaded in a browser comp
19 matches
Mail list logo
