Help for this page

Select Code to Download


  1. or download this
    package Tie::Textfield;                        
                                             
...
    my ($self, $text) = @_;                  
    $self->{'control'}->{'-text'} .= $text;  
    }
  2. or download this
    sub ::btnButton1_Click {
 defined(my $win = $Win32::GUI::Loft::window{main}) or return(1);
...
$main->Show();
Win32::GUI::Dialog();