se strict;
my $mw = tkinit;
my $bigfont = $mw->fontCreate('bigfont',
-family=>'arial',
-weight=>'bold',
-size=>48);
$mw->Button(-text=>'Big Text', -font=>'bigfont')->pack;
$mw->Label(-text=>'Click on t
name: ". $userfield->Text(). " Password: ".
$passfield->Text();
$resultLabel->Change(-text=>$string);
}
elsif ($key == VK_TAB) {
$userfield ->SelectAll();
$userfield ->SetFocus();
}
return 1;
}
#-
dtext + adjustable columns.
Dan
Try Tk-MListBox
Screenshot on Unix:
http://cpansearch.perl.org/src/RCS/Tk-MListbox-1.11/docs/MListbox/tutorial.h
tml
On CPAN:
http://search.cpan.org/dist/Tk-MListbox/
Jack
___
Perl-Win32-
This is a Win-32 group.
That said --- I would assume that you have to re-install all your modules
from scratch.
/usr/bin/perl -MCPAN -e shell (where perl leads to your 5.10 binary - not
your 5.8.8)
Better yet - find a good debian repository that houses dot-deb packages of
all the perl modules
Maybe everybody bought a Mac for Xmas
Jack
-Original Message-
From: perl-win32-users-boun...@listserv.activestate.com
[mailto:perl-win32-users-boun...@listserv.activestate.com] On Behalf Of
jeffg
Sent: December-31-09 5:00 PM
To: perl-win32-users@listserv.ActiveState.com
Subject: Re: I
e and manipulate menus - that I could not
cover all the scenarios. In this method, I created the submenu before
creating the "Edit" cascade. This will allow you to use the menu reference
to adjust the entries as you see fit.
There is "no flicker" with this code - so I will guess t
It's hard to follow your description. Can you upload some sample code that
shows the problem?
"Shrinkage is always bad" ;)
Jack
From: perl-win32-users-boun...@listserv.activestate.com
[mailto:perl-win32-users-boun...@listserv.activestate.com] On
->Frame(-bg=>undef);
$frame->place(-in=>$mw,-x=>0, -y=>0, -relwidth=>1.0, -relheight=>1.0);
$frame->update;# Ensure frame is placed before calling getOpenFile..
$file = $mw->getOpenFile();
$frame->update;# Flush all events so the buttonrelease is consumed.
in32::TieRegistry;
$Registry->Delimiter("/");
my $edition = $Registry->{"LMachine/Software/Microsoft/"}->
{"Windows NT/CurrentVersion//EditionID"}
or die "Can't find Edition ID: $^E\n";
print $edition;
__END__
J
The cursor you are talking about is the "insert" cursor, which indeed is not
need in a ROText. The other cursor you define in your options controls the
look of the mouse. Use the standard Tk option of insertwidth to "hide" the
insert cursor.
... -insertwidth => 0
Jack
, -expand => 1, -fill => 'both');
MainLoop;
#
Suggestion..it would be easier to help if you provided fully working
programs that show the problem as opposed to code snippets (which had some
typos).
Jack
From: perl-w
If you used grid then ->gridForget etc.
Jack
From: perl-win32-users-boun...@listserv.activestate.com
[mailto:perl-win32-users-boun...@listserv.activestate.com] On Behalf Of
Daniel Burgaud
Sent: July-30-09 4:29 PM
To: Perl-Win32-Users
Subject: What TK Method
$t2 = $pw->Scrolled('Text',-scrollbars=>'ose');
$pw->add($_) foreach ($t1,$t2);
MainLoop;
###
__END__
Jack
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
re if you bind to say Button-Release, then the
widget reference will be implicitly passed in the argument list.
But method 1 or 2 should work for your needs.
Jack
-Original Message-
From: perl-win32-users-boun...@listserv.activestate.com
[mailto:perl-win32-users-boun...@listserv.activestat
$d->Subwidget('message');
$label->configure(-wraplength=>0);
$d->Show;
MainLoop;
__END__
As for using a Balloon - I'm sure you could use the -postcommand or
-motioncommand options to decide whether or not to display a balloon
depending on the line number your mouse is over
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Daniel Burgaud
Sent: December-07-08 3:46 AM
To: Jack
Cc: Perl-Win32-Users
Subject: Re: Q on TK Scrolled: how do scroll?
Hi Jack,
The scrollbed field is defined as:
$frames{'name-r'} = $frames{'name'}->Scrol
#
I can likely help - but I really don't understand your question.
What do you mean by "show the middle, bottom and top"?
Perhaps you can post a small sample program that demonstrates your problem.
Jack
gt;'Withdraw Me for 3 seconds',
-command=>sub{
$top->withdraw;
$top->after(3000,sub{
$top->deiconify;
$top->raise;
});
})->pack;
push (@allTops, $top);
}
sub
that has already passed the password test. i.e. Right click on the
command icon (mine is in the start menu) and choose "Run as Administrator".
I'm not sure if this is what you are looking for?
Jack
___
Perl-Win32-Users mailing list
Perl-Win
way to obtain data from a USB
>joystick/gamepad on a win 32 machine?
I'm not a gamer but this looks interesting:
http://aspn.activestate.com/ASPN/CodeDoc/Win32-MultiMedia/Joystick/Joystick.
html
Jack
___
Perl-Win32-Users mailing list
Pe
>Hi,
>The script bellow prompt user to enter login password. But, when I enter
the passwd at prompt, it shows me the passwd I >typed. How to make the
passwd invisible while I'm typing the passwd?
> print "\nPlease Enter login passwd: ";
> chomp($passwd = );
perld
$mw->after(500);
}
$text->insert('end', "Progressbar will delete in 5 seconds\n");
$text->update;
$mw->after(5000,\&destroyPB);
}
sub destroyPB {
$pb->destroy;
$dialog->Show;
$button->configure(-state=>'disabled');
}
__END__
--
Jack
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
The problem likely occurs when you "upload" (assuming you meant ftp when you
said that. Ensure you ftp the file in "ASCII" mode when going from windows
to unix or vice versa. This will automatically remove any CR's.
http://en.wikipedia.org/wiki/Newl
t; I couldn't find the source on CPAN. Where is it ? With the
> source, someone
> might be able to build it for you.
Ask Jean Louis Morel nicely at:
[EMAIL PROTECTED]
He is usually very receptive to building and adding Win32 modules to his
repository at:
http://www.bribes.org/perl
the same problem
today at work on Debian.
http://www.perlmonks.org/?node_id=251074
..contains the answer that worked for us.
Jack
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
;start');
> $mci->play;
> }
>
> sub stop
> {
> $mci->stop;
> }
>
> __END__
>
Actually - this sucks because the $mci object should not be overwritten on
each button press. But with minor changes you can do what you need (i.e. you
get the idea)
Jack
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
dia::Mci;
my $mci;
my $mw=tkinit;
my $start = $mw->Button(-text=>'Start',-command=>\&start)->pack;
my $stop = $mw->Button(-text=>'Stop',-command=>\&stop)->pack;
MainLoop;
sub start
{
my $midi = "/path/to/midi/file.
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Gary
D Trosper
Sent: Wednesday, January 10, 2007 9:20 PM
To: Jack D
Cc: 'Bill Luebkert'; perl-win32-users@listserv.ActiveState.com;
[EMAIL PROTECTED]
Add this line to the code I previously sent:
$menubar->entryconfigure(1,-state=>'disabled');
That should do it.
Jack
_
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Gary
D Trosper
Sent: Wednesday, January 10, 2007 6:14 PM
To: Bill Luebkert
Cc:
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,
I will be out of the office starting 09/19/2006 and will not return until
09/22/2006.
Please contact Danny Null, Le Nguyen, or Don Sperling for assistance.
The information contained in this message may be CONFIDENTIAL and is for the
intended addressee only. Any unauthorized use, disseminati
I will be out of the office starting 07/26/2006 and will not return until
08/07/2006.
Please contact Danny Null or Le Nguyen for assistance.
The information contained in this message may be CONFIDENTIAL and is for the
intended addressee only. Any unauthorized use, dissemination of the
info
New Roman', 10);
$dc->Font($font);
$dc->Color(0, 0, 0);
my $v = 10;
foreach my $line (@array) {
$dc->Write($line, 10, $v);
$v+=10;
}
$dc->Close;
}
}
__END__
Jack
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
PerlIO should supply it as needed.
> Just use \n.
That was the first one I tried :-).
Timothy suggested in a private e-mail to use a PRN filehandle. I've never
done that before. Any simple examples of just printing plain text data to a
printer?
>
> At 03:55 PM 6/8/2006 -06
> -Original Message-
> From: Timothy Johnson [mailto:[EMAIL PROTECTED]
> Sent: June 8, 2006 4:31 PM
> To: Jack D.; perl-win32-users@listserv.ActiveState.com
> Subject: RE: Win32::Printer - Multiple Line Output
>
>
> Maybe try /r/f instead of /r/n?
>
I
my $textToPrint = join("\r\n",@array);
my $font = $dc->Font('Times New Roman', 12);
$dc->Font($font);
$dc->Color(0, 0, 0);
$dc->Write($textToPrint, 10, 10);
$dc->Close;
}
}
__END__
Jack
___
ays end my Tk programs using $mw->destroy. This way you can run
the code after the MainLoop if needed. It also avoids namespace problems.
Tk::exit vs. CORE::exit.
Jack
PS. I couldn't find the original message on this thread. Is this still the
"in your face" notice that you want
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of Paul
> Sent: May 25, 2006 3:25 PM
> To: Perl-Win32-Users@listserv.ActiveState.com
> Subject: variable issue when creating muliple Label/Entry on
> the fly in Tk
>
> Hi All,
>
> My sample program
om his book:
http://www.ercb.com/feature/feature.0005.html
A site from Googling which has similar reaction to dialogs:
http://www.seebs.net/ops/ibm/cranky12.html
--
Jack
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of Dan Jablonsky
> Sent: April 17, 2006 8:00 PM
> To: perl-win32-users@listserv.ActiveState.com
> Subject: stop a Windows application from within a Perl script
>
> Hi all,
> I have a very simple script
I will be out of the office starting 02/20/2005 and will not return until
02/27/2006.
The information contained in this message may be CONFIDENTIAL and is for the
intended addressee only. Any unauthorized use, dissemination of the
information, or copying of this message is prohibited. If
gestions?
Perhaps:
http://search.cpan.org/~brianl/Statistics-Lite-1.03/Lite.pm
..might suit your needs.
Jack
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
I will be out of the office starting 12/23/2005 and will not return until
01/03/2006.
The information contained in this message may be CONFIDENTIAL and is for the
intended addressee only. Any unauthorized use, dissemination of the
information, or copying of this message is prohibited. If
widget but to the Tk::Frame housing the TextUndo and the scrollbars
(i.e. that is what the "Scrolled" method returns).
To get the reference to the TextUndo widget:
$real_text_undo = $text_undo->Subwidget('scrolled');
Now the following should work:
$real_text_undo->
Why is that if I make
>
> $text->selectAll;
> $text->ReplaceSelectionsWith("nah\nbah\nvah");
>
> I only get:
> bah
> vah
>
> as a result (ActivePerl 5.8.7.813)?
Hmm? Not sure - but put another \n before nah and it works fine. It likely
has to do with the &#
Here is a reply received from Slaven Rezic on the ptk mailing list:
"Jack D." <[EMAIL PROTECTED]> writes:
>
> > -Original Message-
> > From: [EMAIL PROTECTED]
> > [mailto:[EMAIL PROTECTED] On Behalf
> > Of ?
> > Sent: D
s there a bug in Tk (ActivePerl
> 5.8.7.813)?
Seems like a bug in the FindNext subroutine of Tk::Text. Basically using (.)
or (.*) doesn't seem to work properly.
i.e. the program gets stuck in a while loop because the $saved_insert never
matches the $compared_index in the source code. I
gb->Tiler (-columns => 2, -rows => 1);
> $t1a = $t1->Message (-justify => "right", -text => "Enter
> Value", -width =>
> 100);
> $t1b = $t1->Entry (-textvariable => \$val);
> $t1b->get;
> $t1->Man
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of ?
> Sent: November 25, 2005 7:23 AM
> To: perl-win32-users@listserv.ActiveState.com
> Subject: Multiple bindings in Tk
>
> Hello, perl Users.
>
> I've been playing with Tk and encoun
I will be out of the office starting 11/17/2005 and will not return until
11/21/2005.
The information contained in this message may be CONFIDENTIAL and is for the
intended addressee only. Any unauthorized use, dissemination of the
information, or copying of this message is prohibited. If
ls appearing not in cursor position
> but in end of line !
> as a consequence
> All my perl/tk modules in NEW
> perl are not working!
> and here is my question :
> why it is so and howto
> remedy it (short of ditching new version of perl ) ?
> thanks in advance.
al filedirectory to a remote server, I'd appreciate
it.The only ohter thing I haven't tackled is that I really only want
tosend files that end in "*.jpg" ... the folder should only havethose,
but it would be a nice filter.-- jack
lail
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
ode?
>
I posted some code such as this a couple of years back. It got reposted on
this list ..
http://aspn.activestate.com/ASPN/Mail/Message/1467974
You will have to obviously edit it for your needs - but it shows that it is
possible to do.
Jack
___
I will be out of the office starting 07/28/2005 and will not return until
08/03/2005.
Please call Don Sperling at 678-319-2668 or 678-428-1108
The information contained in this message may be CONFIDENTIAL and is for the
intended addressee only. Any unauthorized use, dissemination of the
info
I will be out of the office starting 06/09/2005 and will not return until
06/22/2005.
Please call Don Sperling at 678-319-2668 or 678-428-1108
The information contained in this message may be CONFIDENTIAL and is for the
intended addressee only. Any unauthorized use, dissemination of the
info
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 automatically launch th
> -Original Message-
> From: Jack D. [mailto:[EMAIL PROTECTED]
> Sent: May 30, 2005 11:57 PM
> To: 'perl-win32-users mailing list'
> Subject: RE: drag'n'drop onto desktop icon ???
>
>
>
> > -Original Message-
> > Fro
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of Glenn Linderman
> Sent: May 30, 2005 3:08 PM
> To: Ken Cornetet
> Cc: perl-win32-users mailing list; Michael D Schleif
> Subject: Re: drag'n'drop onto desktop icon ???
[snip]
> Jack's solution m
Dlg->ShowPrinter;
>
> $CommDlg->AboutBox;
It looks like OLE wants a few properties to be defined first. Defining only
MaxFileSize did it for me - but I would also add the filters you want too.
$CommDlg->{MaxFileSize} = 400;
$CommDlg->{Filter} = "All(*.*)|\*.\*";
$C
ry->{"HKEY_CLASSES_ROOT/Perl/"};
$perlKey->{"shellex/"} = {
"DropHandler/" => {
"/"=>"{86C86720-42A0-1069-A2E8-08002B30309D}"
}};
###
Once that is done - any icon with the .pl extensi
"Changing \'Last Backup\' to 2\n";
$custominfo->{'Last Backup'} = 2;
$dso->Save();
# Finally - get your new value
$result = $dso->CustomProperties->Item('Last Backup');
print "New \'Last Backup\' value is : ",$result->Value,"\n";
###
Jack
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
I will be out of the office starting 04/11/2005 and will not return until
04/15/2005.
If you need assistance for Mainframe call Don Sperling or Danny Null. For
Distributed, call Don Sperling or Prabu Doraisingam
The information contained in this message may be CONFIDENTIAL and is for the
inte
a title bar in Tk?
>
> If not Tk, then maybe Win32::GUI or wxPerl?
In Tk:
$top->overrideredirect(1);
See docs for Tk::Wm
Jack
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of $Bill Luebkert
> Sent: March 14, 2005 4:04 AM
> To: Jack D.
> Cc: Perl-Win32-Users@listserv.ActiveState.com
> Subject: Re: Changing summary information using DSOFile
Oops. My mailer somehow unwrapped the lines of the script. You get the idea
though.
BTW - If someone can figure out how to open up the summary information for a
file with *no* summary information - then please post an example.
Jack
> -Original Message-
> From: [EMAIL PRO
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of $Bill Luebkert
> Sent: March 11, 2005 6:44 PM
> To: Perl-Win32-Users@listserv.ActiveState.com
> Subject: Re: adding a title to a file on windows
>
>
.perl.org/~empi/
I tried it but cannot seem to get a proper object? Anyways - all the API
calls are there if you want to try and code it yourself. You might be better
off going through all the dialogs - you likely could do it in a shorter
timespan :-)
Jack
___
> -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
>
>
> I'm not sure why but when I cha
I will be out of the office starting 02/14/2005 and will not return until
02/21/2005.
For Mainframe call Don Sperling or Danny Null. For Distributed, call Don
Sperling or Prabu Doraisingam
The information contained in this message may be CONFIDENTIAL and is for the
intended addressee only. A
ng v5.8 on win2k.
How come no one has mentioned select? Is it platform dependent? It works on
XP Home..
select(undef, undef, undef, 0.1); #100ms
Jack
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
I will be out of the office starting 12/17/2004 and will not return until
12/27/2004.
For Mainframe call Don Sperling or Danny Null. For Distributed, call Don
Sperling or Prabu Doraisingam
The information contained in this message may be CONFIDENTIAL and is for the
intended addressee only. An
rix - is that while
they all state the perl version, none of them (that I know of) offer you the
selection of choosing based on perl *AND* Tk version.
What is your perl version? Tk version? What site did you get the ppd from?
After I compiled from scratch it works fine. I use AS build 809, perl 5.8.3,
Tk804.027.
Jack
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
e')->pack(-expand=>1, -fill=>'both');
foreach my $row (0..50) {
foreach my $col (0..20) {
$entry[$row][$col] = $pane->Entry(
-text=>"Row $row Col $col")
->grid(-row=>$row, -column=>$col);
}
}
MainLoop;
__END__
perldoc Tk::grid
rk if you
set -takefocus=>1
> I want , for example, after key
> go to the next cell/next col in the row or 1-st col in the
> next row if on the last col/ Snippets are welcome especially !
Typically a moves you to the next widget and a moves you
backwards. Try it out - but aga
on CPAN called Tk::NumEntry - if you
don't want to upgrade then you can try that instead.
Jack
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
ars
>
Is this a trick question :-) ?
use Tk;
my $mw=tkinit;
$mw->Scrolled('Text',-scrollbars=>'se',-width=>30, -height=>3)->pack;
MainLoop;
Jack
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
eqheight);
my ($minwidth,$minheight) = $w->minsize; #JD#
$mw = $minwidth if (defined $minwidth and $minwidth > $mw); #JD#
$mh = $minheight if (defined $minheight and $minheight >$mh); #JD#
my ($rx,$ry,$rw,$rh) = (0,0,0,0);
While playing/testing I saw another weird behaviour. Tk allows y
'groove', -width =>
> 20);
>$t->windowCreate('end', -window => $w);
> %info;
>$w = $t->Entry(-width => 20, -textvariable => \$info{$_});
>$t->windowCreate('end', -window => $w);
>$t->insert('end', "\n");
> }
> #$t->configure(-state => 'disabled'); # disallows user typing
> sub print_rec() {
>@key = keys %info;
>foreach $_ (@key) {
> print "$_:$info{$_}\n";
>}
$t->Save("C:/save.txt");
> }
>
> MainLoop;
>
Jack
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
I will be out of the office starting 11/26/2003 and will not return until
12/01/2003.
For eservices, R&S, and investments portal, please call pete difondi. For
genam, please call Rick Higginbotham. For all other projects, please call
Don Sperling. Thanks.
The information contained in this mess
taskbar disappear, which is against the logic of the
> program. The process of application A remains in the task
> manager and seems to continue to work.
>
> I use Perl 5.6.1 build 635 and Tk 800.024
>
> Any help will be appreciated.
Give us something to work
w->Label(-textvariable=>\$keysym)->pack();
$keysym="Press Any Key";
$mw->focusForce;
$mw->bind('',\&get);
$mw->bind('',
sub {print "You pressed the Enter key !!\n"});
MainLoop;
sub get
{
my $e=$mw->XEvent;
$keysym= "Keysym is&
late it with you cannot
> > enter data or edit data.
> >
> > Thanks,
> >
> > Dax
>
>
> http://www.cpan.org/modules/by-module/Tk/
>
> Look for Tk-TableMatrix. Also available on ppm from AS.
>
> -Lynn.
Corre
ppear for their choices/selection? Or do
>I have to do it through a web browser page like I used to?
use Tk;
Jack
PS. I'm assuming that you want a stand-alone perl program
i.e. not web-based.
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To
d('myTag', '',[\&printit,"Here"]);
sub printit {
print "$_[1]\n";
}
### End quote ###
So, my suggestion is to wrap your sub{} in square brackets...to become
$c->bind('tag','',[sub{blah}]);
Jack
PS.. Another note..you seem to be sl
- Original Message -
From: "Carl Jolley" <[EMAIL PROTECTED]>
To: "Jack" <[EMAIL PROTECTED]>
Cc: "Perl-Win32-Users" <[EMAIL PROTECTED]>
Sent: Tuesday, January 07, 2003 3:02 PM
Subject: Re: Win32::OLE and Excel, Word, Access etc.
> On Mon,
rts} = 0;
$book -> SaveAs ("$pwd\\spreadsheet.xls");
Where would one find out what the DisplayAlerts variable is? Where is SaveAs
documented?
Jack
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveS
- Original Message -
From: "James Hooker" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, December 19, 2002 1:37 PM
Subject: Win32:FileOp::OpenDialog
>
> > I am using Win32:FileOp::OpenDialog and get footprints over my main Tk
> > window when I drag this dialog over the mai
qq/This is a 'nw'
anchored...left
justified label.
Try resizing!/,
-anchor=>'nw', #anchor text to nw within widget
-justify=>'left');
$label->pack(-anchor=>'nw'); #anchor widget to nw within main
MainLoop;
is better than
> windows and vice versa" ;)
"Linux 'is' better than windows" :-)
...seriously, case-closed. My email is getting filtered properly, and I really
do appreciate not having such a long and (shall we say) repetitive subject line.
Jack
__
- Original Message -
From: "Stovall, Adrian M." <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, November 22, 2002 3:30 PM
Subject: RE: [Perl-Win32-Users]Subject Line
>Is it really any harder than filtering on "perl-win32-users" in the
>"To:" field?
Yes. The 'To:' field may cont
x27; way to do this is set the -disabledforeground (as
defined in Tk::options. However, I get error messages if I try this, hence I
have commented this line out and gone the configure->(-bg) route.
Jack
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
izard?
Jack
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
- Original Message -
From: "Jan Dubois" <[EMAIL PROTECTED]>
To: "Jack" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Monday, November 11, 2002 1:26 PM
Subject: Re: Re[2]: Release of ActivePerl 5.8.0 - released today
> I haven't followed
is a victim of this ?
>
> No, it is not. Tk is already included in ActivePerl 802, so there is no
> need to install it from the repository.
Before I download and install - can you tell me which version of Tk this is?
I assume 800.024 - or have you built the al
. Reading the 'BUGS' portion
of the Tk::Error docs - having a MainWindow here might be your
problem.
> $running_win->configure(-title=>"$title - Running...");
> $running_win->geometry ("+500+500");
> $running_win->minsize (qw(300 50));
> $running_win->Label(-text=> "\nRunning, please wait.\n\n")->pack ();
> $window->update;
> &get_values;
> &FTP_all;
> $running_win->destroy;
> }
Jack
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
s anyone have any clues?
Tk can do this quite easily - but I'm not sure if that is what you want? I can
provide sample code if necessary.
Jack
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
work on 98? 2000? etc.
Jack
use Tk;use Win32::API;use
strict;
my $mw=tkinit;
#Sometimes the window handle can be
different.
#Let's make sure it is the same using the
two
#known Tk methods.
my $ID=oct($mw->id);my $WinID=hex($mw->frame);print "Yep.
Wi
27;How about this..', -type=>'YesNo');
print "You answered $answer\n";
__END__
#No mainloop because you only wanted the message..right?
##
Jack
--
use
Tk;$/=$]<<$]+1;$"=tkinit->Canvas(-wi,$/,-he,$/)->form;map{map{create$"
Hi All
I'm fairly new to PERL. I am writing a script that has
opens a file that has two sets of values for which I
need to check for duplicate values , print only a
unique value to another file. I'm running into a
problem that is reproducible in the script below also
and seems to do with Filehandl
$can = $b->Button(-text => "Cancel",
-command => sub {print "Cancelled\n"; exit(0);},
-relief => "raised",
-width => 10,
)->pack(-side => "left",
-padx => "5",
-pady => "5");
$top->bind('', sub {print "Hit Esc\n"; exit(0);});
$top->bind('', sub {$OK_button->invoke});
$b->pack(-side => "bottom",
-padx => "5",
-pady => "5");
$srv_box->focus;
MainLoop;
#
__END__
Jack
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
1 - 100 of 129 matches
Mail list logo
