To add plain text, you can use a label:
$W->AddLabel(
-name => "mylabel1",
-left => 10,
-top => 150,
-width => 100,
-height => 22,
-text => "Some Text Here"
);
--- MJG <[EMAIL PROTECTED]> wrote:
> I have a simple window I've created. Usually, I
> just do windows with
> buttons, but I have a need for text with the window.
> I have not found
> any examples of how to do this. Can someone provide
> an example within
> my example of how to just add text to the main
> portion of the window?
> Thank you in advance
>
>
> Use Win32::GUI;
> use Win32 ();
>
> &Win32_GUI();
>
> quit(0);
>
> sub Win32_GUI
> {
>
> my $I = new Win32::GUI::Icon('icon.ICO');
> my $C = new Win32::GUI::Bitmap("./harrow.cur", 2);
>
> my $F = new Win32::GUI::Font(
> -name => "Comic Sans MS",
> -size => 10,
> -bold => 0,
> -underline=>0,
> );
>
> # Register a BUTTON class with cursor
> my $BC = new Win32::GUI::Class(
> -name => 'Class_Button',
> -extends => 'BUTTON',
> -widget => 'Button',
> -cursor => $C,
> );
>
> my $WC = new Win32::GUI::Class(
> -name => '_Button',
> -cursor => $C,
> -icon => $I,
> -color => 2,
> );
>
> my $W = new Win32::GUI::Window(
> -title => "Uptime Monitor",
> -pos => [100, 100],
> -size => [400, 400],
> -left => 300,
> -top => 100,
> -width => 300,
> -height => 600,
> -name => "Main",
> -class => $WC,
> -topmost => 1,
> -font => $F,
> -sysmenu => 0,
> -resizable =>0,
> );
>
> $W->AddButton(
> -text => "Server List",
> -name => "GroupBox_1",
> -left => 2,
> -top => 40,
> -width => 290,
> -height => 530,
> -style => WS_CHILD | WS_VISIBLE | 7, # GroupBox
> );
>
> $W->AddButton(
> -name => "Update",
> -left => 150,
> -top => 5,
> -text => "Update",
> -tabstop => 1,
> -class => $BC,
> #-icon => $I,
> );
>
> $W->AddButton(
> -name => "Close",
> -left => 50,
> -top => 5,
> -text => "Exit",
> -tabstop => 1,
> -class => $BC,
> #-icon => $I,
> );
>
> #$W->{-dialogui} = 0;
>
> my ($left, $top, $right, $bottom) =
> Win32::GUI::GetDesktopWindow();
>
> my $SysTrayICON = new Win32::GUI::Icon('icon.ICO');
>
> my $SysTray = $W->AddNotifyIcon(-name => "SysTray",
> -id => 1,
> -icon => $SysTrayICON,
> -tip => "UPTIME!",
> );
>
>
> $W->Show();
>
> Win32::GUI::Dialog(0);
>
> }
>
> sub Window_Terminate {
> return -1;
> }
>
> sub Close_Click {
>
> Window_Terminate();
> }
>
> sub Update_Click {
>
>
> }
>
> __END__
>
>
>
>
-------------------------------------------------------
> This SF.Net email is sponsored by: NEC IT Guy Games.
> Get your fingers limbered up and give it your best
> shot. 4 great events, 4
> opportunities to win big! Highest score wins.NEC IT
> Guy Games. Play to
> win an NEC 61 plasma display. Visit
> http://www.necitguy.com/?r
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> [email protected]
>
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
