Help for this page

Select Code to Download


  1. or download this
    
  bless({
...
    wordDelimiters => ".()\"',#!%^&*{}[]?/|;:<>-= \xFF\t",
    writeOnly      => 1,
  }, "Prima::InputLine"),
  2. or download this
    $w-> insert( "InputLine",
    pack      => { pady => 20, padx => 20, fill => 'x', side => 'botto
+m'},
    text      => $w-> text,
...
            if $_[0]-> owner-> menu-> has_item( 'coexistentor');
    },
);
  3. or download this
    $inputline->password;
sub Prima::InputLine::password {
...
    local $@;
    return "".eval { $inputine->{undo}->[-1][1][1] };
}