------------- Begin Forwarded Message -------------
Date: Wed, 12 Sep 2001 16:51:13 +0200 (MEST)
From: Jorge Goncalvez <goncal11@cabs40>
Subject: Re: Function & Parameters Problem
Mime-Version: 1.0
Content-MD5: /AKUA+PVUkkQyC62C5CZ8A==
Hi, I have this code:
&makelabels($language_EA,$ethernet_address);
&makelabels($language_IP,$IP_address);
&makelabels($language_CN,$client_name);
&makelabels($language_BF,$boot_file);
&makelabels($language_FP,$install_file_path);
sub makelabels
{
$myframe->Label(-textvariable=>\$x)->pack(-anchor=>'w');
my $label1=$myframe->Label(-relief=>'sunken',
-textvariable=>\$y,
-width=>$lw,
-anchor=>'w',
-bg=>'white')->pack(-anchor=>'w');
}
I want that \$x and \$y take the different parameter .
How can I do this in Perl Thanks
------------- End Forwarded Message -------------
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
