$frame->placeForget;
print "File is: $file\n";
}
else {
$file = $mw->getOpenFile();
print "File is: $file\n";
}
}
__END__
I'm not necessarily sure you would want to do this in production - but it
seems to work.
Jack D.
___
2009/9/19 Spencer Chase
>
> Greetings Perl-Win32-Users,
>
> I have been trying everything I can think of and nothing works. I have a TK
> application that uses getopenfile. The problem is that you can select a file
> in the browser window by either clicking the file and then clicking "open" or
Greetings Perl-Win32-Users,
I have been trying everything I can think of and nothing works. I have a TK
application that uses getopenfile. The problem is that you can select a file in
the browser window by either clicking the file and then clicking "open" or you
can double click the file and no
-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
Thanks, I try the ProgressBar.
Don
-- Forwarded Message --
Subject: Re: TK question
Date: Friday 07 September 2007 12:36
From: Spencer Chase <[EMAIL PROTECTED]>
To: perl-win32-users@listserv.ActiveState.com
Greetings Don,
you can use Tk::ProgressBar; if you can cou
Greetings Don,
you can use Tk::ProgressBar; if you can count the total number of
files. then advance the bar as you increment a counter of files done.
that way, you can let TK do all the hard stuff.
Friday, September 7, 2007, 7:44:30 AM, you wrote:
DV> I have a small app for windows that uses TK
I have a small app for windows that uses TK to display a menu. Mostly
copied out of the book. Each button calls a subroutine. One of the
buttons copies some large files. This all works fine. I need to add
something to let the user know the copy process is in progress. My
first thought is
Spencer_Lists wrote:
Greetings perl-win32-users,
This is really a TK question but I can't find a way to join the TK
list in order to post. It does not show up in the subscriptions list.
I have a TK Canvas on which I have drawn 128 polygons representing the
extended MIDI piano keyboard. I
Greetings perl-win32-users,
This is really a TK question but I can't find a way to join the TK
list in order to post. It does not show up in the subscriptions list.
I have a TK Canvas on which I have drawn 128 polygons representing the
extended MIDI piano keyboard. I have tried everything
From: Jim Hansen <[EMAIL PROTECTED]>
To: perl-win32-users@listserv.ActiveState.com
Subject: TK Question
Date: Thu, 2 Jun 2005 06:56:51 -0700 (PDT)
I've been able to finally get TK:Statusbar to work,
but still not sure how to get rid of the buttons. I
would like this to automatic
I've been able to finally get TK:Statusbar to work,
but still not sure how to get rid of the buttons. I
would like this to automatically launch the "Start"
subroutine w/o pressing a button to do it. Anyone
have experience with TK in bypassing the need for
human interaction? I would Post this 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=>'
|
| 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');
rsoy'; [EMAIL PROTECTED]
Subject: RE: TK question - resizeable columns
Hi, Burak.
I'm not sure what your problem might be. Runs fine for me on
my system.
OS: Win2K
Perl: 5.6.1 (ActivePerl build 635)
Tk: 800.024
You are running on the bleeding edge. Tk 804.025 is very
much "be
]
> Sent: Saturday, February 21, 2004 1:51 PM
> To: [EMAIL PROTECTED]
> Subject: RE: TK question - resizeable columns
>
>
> I get errors with this module (installed via ppm).
> OS: Win2k
> Perl: 5.8.2
> Tk: Tk 804.025
>
> for example, I tried to run "Tk-T
AIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, February 06, 2004 10:27 AM
Subject: RE: Unusual Tk question.
> Ah! Got it, thanks to all those who helped.
>
> I'd just got into the habit of withdrawing the main window straight after
> creating it, for exactly the r
--Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] Behalf Of
> Beckett Richard-qswi266
> Sent: 06 February 2004 12:38
> To: [EMAIL PROTECTED]
> Subject: Unusual Tk question.
>
>
> Guys,
>
> I find myself in a slightly tricky, and possib
consequences of inaction."
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Beckett Richard-qswi266
Sent: Friday, February 06, 2004 7:38 AM
To: '[EMAIL PROTECTED]'
Subject: Unusual Tk question.
Guys,
I find myself in a slightly tricky, and possi
Guys,
I find myself in a slightly tricky, and possibly unusual situation.
I have been handed a GUI, written in Delhpi. I have a button that collects
some parameters, then fires off my perl script.
Now, I want to use Tk and open up a window with a Text widget in it that
reports the progress of th
+++ 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
gt; Subject: RE: Tk question
>
>
> Thank you :) pack() did it.
[snip]
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
-font => $conf{font});
$h->itemCreate($e=> $col,
-itemtype => 'text',
-style=> $style,
-text => ($col == 0) ? ($y+1) :
$results[$y]->[$co
AIL PROTECTED]]
> > Sent: Wednesday, June 26, 2002 7:32 AM
> > To: Jack; Perl-Win32-Users
> > Subject: Re: Perl TK question
> >
> >
> > You could always launch an external browser? use Win32::Process
> > With the url entered in the text box.
> >
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
Yeah, I need to perform a short dialog before Tk
minimizes my prompt...
Any help is desirous!
--- "Richard A. Evans" <[EMAIL PROTECTED]> wrote:
> Is there a way to run a Tk app from the command line
> and have the command
> (DOS) window NOT minimize?
>
>
38 matches
Mail list logo
