RE: [perl-win32-gui] 2 questions

[Eoin_Butler]

Chris,
I Question Answered.
To Change the Font .
 
 
#    Set the Font..

     $font = Win32::GUI::Font->new(
                -name => "Comic Sans MS", 
                -size => 24,
        );
  
  
$label = $m1->AddLabel
(
-name => 'PrintInput',
-text => "'',
-width => 600,
-height  => 200,
-font       => $font, # <<     Call The Font Here
-foreground => [255, 0, 0],
-background =>[0, 0, 0],
);

Rgds 
Eoin Butler
 

-----Original Message-----
From: Christopher Sagayam [mailto:[EMAIL PROTECTED]]
Sent: Thursday, December 14, 2000 4:17 PM
To: [EMAIL PROTECTED]
Subject: [perl-win32-gui] 2 questions


to cut a long story short ...
 
$W->Tab->AddButton(
    -name     => "createchangetab0",
    -left     => 300,
    -top      => 80 ,
    -text     => " Create/Change ",
    -width    => 180,
    -height   => 22,
    -foreground => [0,255,0],
    -background => [0,0,0],
    
   
);
 
>>>>
 
 
some more code here
 
<<<<<<
 
 
$W2 = new Win32::GUI::Window(
                -name  => "W2",
                -title => "Popup Window",
                -pos   => [ 150, 150 ],
                -size  => [ 300, 200 ],
        );
 

        
 
 
 
$W->Show;
 
&Tab_Click;  # Initialize display of first tab (only).

 
Win32::GUI::Dialog();
 
 
 
        sub createchangetab0_Click { $W2->Show(); }
   
sub Tab_Click {....}
 
 
 
 
 
 
now when I click on the button     
"createchangetab0"
 
 
The subroutine
createchangetab0_Click 
 
doesnt get called ?
 
why ??
 
 
 
 
 
second question
 
how do I set a font color or font size using Win32 gui ?
 
 
Thanks
 
chris