RE: [perl-win32-gui] sample code

[Khoa Doan]

        Hi,

        Thanks so much for help.  It works really great.  By the way, how
can I display a text in color ?.

        Thanks,

        Khoa D.


                -----Original Message-----
                From:   Eric Hansen [mailto:[EMAIL PROTECTED]]
                Sent:   Thursday, July 01, 1999 10:11 AM
                To:     '[EMAIL PROTECTED]'
                Subject:        RE: [perl-win32-gui] sample code

                $Window->textfield->SetFocus();
        
$Window->textfield->Select(0,length($Window->textfield->Text()));

                Doing a Select is also handy if you want the text in the
field to
                be selected (such as on return from a validation routine
that
                found an error with the text in the textfield) so that the
user can
                replace the bad text when they begin typing.

                Regards
                Eric Hansen

                -----Original Message-----
                From:   Aldo Calpini [SMTP:[EMAIL PROTECTED]]
                Sent:   Thursday, July 01, 1999 6:43 AM
                To:     [EMAIL PROTECTED]
                Subject:        Re: [perl-win32-gui] sample code

                Khoa Doan wrote:
                >Does anyone know how to place a cursor in a text field or
in a text box ?

                $Window->textfield->SetFocus();

                __END__
                # Aldo Calpini
                print sort {$_{$a} cmp $_{$b}} values %{{split undef, 
                "xritajbugne fahokem csuctawer jhdtlrnpqloevkshpr"}};