Select Code to Download

#!/usr/bin/perl

...
    print "Variable window got maxtexted ($self).\n";
    $uniqueWindow[$self]->Text("");
}

    foreach $j (0..$i-1) {
        $SUB = $j."Textfield_MaxText";
...
        my $SUB = "${idx}Textfield_MaxText";
        *$SUB = sub { variableMaxText( $j ); }
    }

-->Assigning sub function for 0
-->Assigning sub function for 1
...
Variable window got maxtexted (2).
Variable window got maxtexted (1).
Variable window got maxtexted (2).

-->Assigning sub function for 0
-->Assigning sub function for 1
-->Assigning sub function for 2
Variable window got maxtexted ().
Variable window got maxtexted ().

-->Assigning sub function for 0
-->Assigning sub function for 1
...
Variable window got maxtexted (2).
Variable window got maxtexted (2).
Variable window got maxtexted (2).