Hi Arun,
I did it that way:
------------------------------------------------------------------------
--
use Win32::GUI ();
my $mw;
$mw = new Win32::GUI::Window
(
-name => 'main_window',
-text => 'main_window',
-left => 100,
-top => 100,
-width => 300,
-height => 200,
-onMouseMove => sub
{
$mw -> { 'statusbar' } -> Text ( '' );
}
);
$mw -> AddTextfield
(
-name => 'textfield1',
-left => 0,
-top => 0,
-width => $mw -> ScaleWidth (),
-height => $mw -> ScaleHeight () / 4,
-onMouseMove => sub
{
$mw -> { 'statusbar' } -> Text ( 'Test
01' );
}
);
$mw -> AddTextfield
(
-name => 'textfield2',
-left => 0,
-top => $mw -> ScaleHeight () / 4 + 10,
-width => $mw -> ScaleWidth (),
-height => $mw -> ScaleHeight () / 4,
-onMouseMove => sub
{
$mw -> { 'statusbar' } -> Text ( 'Test
02' );
}
);
$mw -> AddStatusBar
(
-name => 'statusbar',
);
$mw -> Show ();
Win32::GUI::Dialog ();
------------------------------------------------------------------------
--
Bye
Uwe
Von: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Im Auftrag
von Arun ragini
Gesendet: Donnerstag, 9. November 2006 07:53
An: [email protected]
Betreff: [perl-win32-gui-users] MouseOver
i have been trying to work with MouseOver on textfield, but it does'nt
seems to work, what im trying to do is, print a msg in the status bar
(tool tips).
if possible can some post the code to do that.
thanks
arun
--
-----
Fight back spam! Download the Blue Frog.
http://www.bluesecurity.com/register/s?user=YXJ1bnJhZ2luaQ%3D%3D
<http://www.bluesecurity.com/register/s?user=YXJ1bnJhZ2luaQ%3D%3D>
