Since Tooltip currently isn't working, I wrote what I call a poor man's
tooltip. The subroutines are here:
sub SetupPMTooltip
{
unless ($pmt_text_color = $_[0]) { $pmt_text_color = '[0,0,0]';}
unless ($pmt_bg_color = $_[1]) { $pmt_bg_color = '[255,255,255]';}
}
sub AddPMTooltip
On Mon, 15 Jan 2001, Thomas, Timothy B wrote:
> Same problem, here's the output I am getting with your new regular
> expression:
> my ($cmd);
> ($cmd) = $command=~/^(\S*)\s/;
> return $cmd;
How about this:
my $command_with_args;
my $match_nonspace_expect_in_quotes = qr/((?:"[^"
I think this topic had strayed from Win32-GUI to just Perl in general, so
I'm sending my further responses just to Tim. If anyone wants the code,
feel free to email me.
_
Get your FREE download of MSN Explorer at http://explorer.ms
Same problem, here's the output I am getting with your new regular expression:
.html="C:\PROGRA~1\Plus!\MICROS~1\iexplore.exe"
.htm="C:\PROGRA~1\Plus!\MICROS~1\iexplore.exe"
.txt="C:\Program
.pl=C:\Perl\bin\Perl.exe
.doc="C:\Program
.xls="C:\Program
.ppt="C:\Program
.log="C:\Program
.url=rundll32.e
Tim-
Thanks for the suggestions. I changed this piece:
my ($cmd);
#print "\tcommand=$command\n";
if ($command=~/^".*"\s+.*$/)
{
Sean -
Hey - that's pretty cool. I hadn't thought of taking that angle. I
noticed a problem or two with your code. The main one was that if your
association is pointing to something like "C:\Program Files\Windows
NT\Accessories\WORDPAD.EXE", it doesn't like it because of the space in
"
In addition to making the height of your combobox larger, I would also
recommend adding WS_VSCROLL to your style command. That way if you don't
make your combobox height large enough, people will not be under the
impression that they only have the choices of what they see, due to the
restricted co
Christian,
Increase the height of your combo boxes.
Felice
Koul Christian <[EMAIL PROTECTED]> on 01/15/2001 09:39:42 AM
Please respond to perl-win32-gui-users@lists.sourceforge.net
To: "[EMAIL PROTECTED]" <[EMAIL PROTECTED]>
cc:(bcc: Felice Vittoria/Aut/Schneider)
Subject: [perl-win3
Hi all,
I dont have my items in the combobox. The code is here below. can
somebody
tell me where i am wrong?
use Win32::GUI;
$menu = Win32::GUI::MakeMenu(
"&Fichier" => "Fichier",
" > &Fermer" => "Terminer",
"&Aide" => "Informations",
" > &Soft" => "So
Thanks Indy
chris
www.perl-resume.com
- Original Message -
From: Indy Singh <[EMAIL PROTECTED]>
To:
Sent: Monday, January 15, 2001 7:20 PM
Subject: Re: [perl-win32-gui-users] GUI::GetOpenFileName and current
directory of perl script
> Try something like this:
>
> use Cwd;
> my $startin
Thanks
chris
www.perl-resume.com
- Original Message -
From: Reini Urban <[EMAIL PROTECTED]>
To:
Sent: Monday, January 15, 2001 12:40 PM
Subject: Re: [perl-win32-gui-users] VB dialup code
> christopher sagayam schrieb:
> > can anyone tell me the equivalent of
> > "Private Declare Functi
Try something like this:
use Cwd;
my $starting_dir = getcwd();
$file = GUI::GetOpenFileName(...
open (FILE , ">$starting_dir/datafile.txt");
You could also do call 'chdir $starting_dir;' before doing the open, however
this probably not does not work if the user changes to a different drive
letter
sub button1_tab1_Click {
$file = GUI::GetOpenFileName(
-owner => $W,
-directory => "C:\\",
-title => "Location of ",
-file => $file,
);
open (FILE , ">./datafile.txt")
print FILE $file;
close(FILE)
}
Now I am intending to do this
1) Store the full path of
13 matches
Mail list logo
