Re: [perl-win32-gui] Tabs

[David Hiltz]

> 
> Thanks for the response.  I'm afraid I don't have any experience with dialog
> boxes. I sure don't like the sound of it though. 

  Dialog boxes are easy.  Here is the username/password dialog that I
  beleive Aldo posted a while back.

use Win32::GUI;

$Ident = new Win32::GUI::DialogBox(
    -left     => 100,
    -top      => 100,
    -width    => 300,
    -height   => 150,
    -title    => "Identification",
    -name     => "Identification",
);

$L_Username = $Ident->AddLabel(
    -left     => 10,
    -top      => 10,
    -text     => "Username:",
    -name     => "L_Username",
);

$Username = $Ident->AddTextfield(
    -left     => 100,
    -top      => 10,
    -width    => 120,
    -height   => 20,
    -name     => "Username",
    -tabstop  => 1,
);

$L_Password = $Ident->AddLabel(
    -left     => 10,
    -top      => 40,
    -text     => "Password:",
    -name     => "L_Username",
);

$Password = $Ident->AddTextfield(
    -left     => 100,
    -top      => 40,
    -width    => 120,
    -height   => 20,
    -name     => "Password",
    -password => 1,
    -tabstop  => 1,
);

$OK = $Ident->AddButton(
    -left     => 80,
    -top      => 70,
    -width    => 60,
    -text     => "OK",
    -name     => "OK",
    -default  => 1,
    -ok       => 1,
    -tabstop  => 1,
);

$Cancel = $Ident->AddButton(
    -left     => 160,
    -top      => 70,
    -width    => 60,
    -text     => "Cancel",
    -name     => "Cancel",
    -cancel   => 1,
    -tabstop  => 1,
);

$Ident->Show();
$Ident->Dialog();

sub OK_Click {
    print "Username: ", $Username->Text, "\n";
    print "Password: ", $Password->Text, "\n";
    return -1;
}

sub Cancel_Click {
    print "User cancelled!\n";
    return -1;
}


  -David Hiltz

> > -----Original Message-----
> > From: [EMAIL PROTECTED]
> > [mailto:[EMAIL PROTECTED]]On Behalf Of Joe Stewart
> > Sent: Tuesday, February 23, 1999 9:21 PM
> > To: [EMAIL PROTECTED]
> > Subject: Re: [perl-win32-gui] Tabs
> >
> >
> > On Tue, 23 Feb 1999 21:07:11 -0500, you wrote:
> >
> > >Can someone tell me how to enable tabbing among my text fields?  I know
> > >that the RichEdit class has a keypress return property I might use, but
> > >I don't see that the text class does. I could probably use RichEdit, but
> > >I don't know how to limit the row size to one and/or the column size to
> > >a fixed amount.
> >
> > I asked this question a while back; here's the answer Aldo gave:
> >
> > <!--BEGIN Aldo quote-->
> >
> > yes, the tabstop is implemented (gosh, it puzzled me for some months...),
> > but only for DialogBoxes, not for Windows; eg.:
> >
> > $W = new Win32::GUI::DialogBox(
> >     -name => "Window",
> >     -left => 0, # etc...
> > );
> >
> > $B = $W->AddButton(
> >     -name => "Button",
> >     -tabstop => 1,
> > );
> >
> > DialogBox controls can also have the -group option (0/1), which
> > will "group"
> > a series of controls so you can move between them with the arrow keys.
> >
> > BTW, this solution doesn't really satisfy me, I would like Windows too to
> > intercept tabstops and arrowkeys, but it seems things are done to
> > work this
> > way in the Win32 SDK... or maybe there's something I still have to
> > understand :-)
> >
> >
> > <!--END Aldo quote-->
> >
> > C ya,
> > -Joe
> >
> >
> >
> >
> 
>