Re:Fill in a file

[Jorge Goncalvez]

Hi, I have this code:
@_FieldEntries =qw {VER TI TV};
sub MakeEntries()
{
    my $myframe = $_Globals{TOP_WINDOW}->Frame(-label => "",
                             -relief => "groove",
                             -borderwidth => 2)
        ->pack(-anchor => "w",pady => 20);

    foreach (@_FieldEntries) {
        MakeOneEntry($myframe, $_);
    }
}

sub MakeOneEntry($$)
{
    my ($frm, $lbl) = @_;

    my $_str = $_Strings{$_Globals{LANGAGE}}{$lbl};
    my $_varRef = $_Labels{$lbl};

    $frm->Label(-textvariable => \$_str)
        ->pack(-anchor => "w");
    return $frm->Entry(-relief => "sunken",
                       -textvariable => $_varRef,
                       -width => $_Globals{LABEL_LENGTH},
                       #-anchor => "w",
                       -bg => "white")
        ->pack(-anchor => "w");
}

It draw 3 Entries widget what I wanted to do is to get the first field entered 
by the user ie ($_varRef) to fill in a file when there is a line with this:
option vendor-encapsulated-options "install:XXX:%version:type of 
installation=tel version.
an exemple would be:
option vendor-encapsulated-options 
"install:KLOR_1:%77.90":standard=/tel/E1302.fr;

%77.90 would be the first $_varRef,standard the second and /tel/E1302.fr the 
third.

Thanks 



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]