Help for this page

Select Code to Download


  1. or download this
     
#!c:\perl58\bin\wperl.exe -W
use strict;
...
$test->Enable(0);
$mainform->Show();
Win32::GUI::Dialog;
  2. or download this
     
our $test = $mainform->AddTextfield(
            -name=>'test',
...
            -width=>100,-height=>20,
            -onClick=>sub{},
            ) or die "control creation failed: $!\n";
  3. or download this
    #!c:\perl58\bin\wperl.exe -w

...
$mainform->Show();
Win32::GUI::Dialog();
exit(0);