perl-win32-gui-users Mailing List for Win32::GUI

That worked.  Thanks Alan.

Jonathan


At 11/22/2002 10:46 PM, you wrote:

>Try playing about with the following (it won't work in version
>.665 - and don't ask me how/why it works in .558!). I use it to draw
>rectangles for widgets in a primitive but quite useful gui designer
>that makes Perl do much of the work we all lo-o-o-ove to do manually.
>vPerl it ain't, however! You may want to use $tracker->Hide() to hide
>the button until tracking is needed, when $tracker->Show() will "roll
>down the blind" and let you follow the mouse pointer around.
>
>$bclass = new Win32::GUI::Class(  # reveals _MouseMove events from button
>         -name => "bclass",
>         -extends => 'Button',
>         -widget => "Button",
>         );
>
># make an invisible button that covers the area of your graphic
># $x/$y/$w/$h are left/top/width/height of the graphic
>$tracker = $mainwin->AddButton (
>         -name,  'tracker',
>         -class, 'bclass',
>         -left,  $x,
>         -top,   $y,
>         -width, $w,
>         -height,  $h,
>         -pushstyle, 11 | 0x800 ,  # this makes an invisible button
>         );
>
>sub tracker_MouseMove {
>         my($mmx, $mmy) = Win32::GUI::GetCursorPos();
>         dostuff_with_coordinates();
>         }
>
>sub tracker->Click {
>         do_some_stuff();
>         $tracker->Hide();   # roll it up until it is needed
>         }
>
>This may also be of some use - I use it as part of a routine that
>shifts a desktop planner display back and forth. There is no need for
>subclassing, but I don't think it responds to _MouseMove.
>
># ($left, $top, $width, $height) = dimensions of your graphic object
>$clicker = new GUI::Button (
>         -name, 'clicker',
>         -parent, $Win,
>         -left, $left,
>         -top, $top,
>         -width, $width,
>         -height, $height,
>         -pushstyle, 11,
>         );
>
>sub clicker_Click {
>         my($mmx, $mmy) = Win32::GUI::GetCursorPos();
>         dostuff_with_coordinates();
>         }
>
>(Aldo, pretty please give us access to the message loop next time
>round!)
>
>Virlin

i tried it, it works fine. i'm using activeperl 5.6.1.633 on windows 98=
 and
win32::gui 0.0.665. the only problem i see is if you 'use strict' (whic=
h
you should) you'd need to change $Win2 =3D new..... to my $Win2 otherwi=
se
you'll get an error about a global symbol requiring an explicit package=

name.

which versions of what are you using? it might be worth getting the lat=
est
ones.


                                                                       =
                                             =20
                    "Pascal Lagasse"                                   =
                                             =20
                    <PLa...@Ko...>                      To:  =
                                             =20
                    Sent by:                                      <perl=
-wi...@li...>      =20
                    per...@li...urc        cc:  =
                                             =20
                    eforge.net                                    Subje=
ct:     [perl-win32-gui-users] Win32::GUI and=20
                                                                  Warni=
ngs                                          =20
                                                                       =
                                             =20
                    25/11/02 07:39 PM                                  =
                                             =20
                                                                       =
                                             =20
                                                                       =
                                             =20




G'day,

I found a piece of Code in the list.
Unfortunately, when I tried it, (although it works fine), I got warning=
s.

I am using always the switch -w (perl -w ... program name)

What I got  as warning is:

...
Use of uninitialized value in subroutine entry at wintest.pl line 54.
     (in cleanup) Can't call method "EXISTS" on an undefined value at
C:/Programme/Perl/site/lib/Win32/GUI.pm line 918 during global destruct=
ion.


The piece of Code that I found in the list is:
#----------------------------------------
use Win32::GUI;

my $i=3D0;=00
my $Win =3D new Win32::GUI::Window(
      -left   =3D> 341,
      -top    =3D> 218,
      -width  =3D> 300,
      -height =3D> 213,
      -name   =3D> "Win",
      -text   =3D> "Window Title"
      );



$Win->AddButton(
       -text    =3D> "Loop",
       -name    =3D> "Loop",
       -left    =3D> 104.5,
       -top     =3D> 102,
       -width   =3D> 95,
       -height  =3D> 28,
      );

$Win2 =3D new Win32::GUI::Window(
      -left   =3D> 391,
      -top    =3D> 238,
      -width  =3D> 200,
      -height =3D> 183,
      -name   =3D> "Win2",
      -title   =3D> "New Window",
      );

$Win2->AddLabel(
       -text    =3D> "",
       -name    =3D> "Label",
       -left    =3D> 60,
       -top     =3D> 30,
       -width   =3D> 20,
       -height  =3D> 20,
      );

$Win2->AddButton(
       -text    =3D> "OK",
       -name    =3D> "OK",
       -left    =3D> 50,
       -top     =3D> 102,
       -width   =3D> 95,
       -height  =3D> 28,
      );

$Win->Show();

Win32::GUI::Dialog();

sub Win_Terminate {
   return -1;
}

sub OK_Click {
   $Win2->Hide();
   $i++;
}

sub Loop_Click {
   &Show_Win2($i);

}

sub Show_Win2 {
   my $num =3D shift;

   $Win2->Label->Text($num);
   $Win2->Show();
   $Win2->Update();

}
#----------------------------------------

I did not found a FAQ, so I do not know what key-concepts I am missing.=

I am not able to find what is wrong in the program.

Can someone help me! Thank you very much!


/Pascal Lagass=E9

K=F6sel GmbH & Co. KG - =DCber 400 Jahre B=FCcher mit System
Wartenseestra=DFe 11 87435 Kempten
http://www.koeselbuch.de mailto:pla...@ko...




-------------------------------------------------------
This sf.net email is sponsored by:ThinkGeek
Welcome to geek heaven.
http://thinkgeek.com/sf
_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

=

G'day,

I found a piece of Code in the list.
Unfortunately, when I tried it, (although it works fine), I got warnings.

I am using always the switch -w (perl -w ... program name)

What I got  as warning is:

...
Use of uninitialized value in subroutine entry at wintest.pl line 54.
	(in cleanup) Can't call method "EXISTS" on an undefined value at
C:/Programme/Perl/site/lib/Win32/GUI.pm line 918 during global destruction.


The piece of Code that I found in the list is:
#----------------------------------------
use Win32::GUI;

my $i=0;

my $Win = new Win32::GUI::Window(
      -left   => 341,
      -top    => 218,
      -width  => 300,
      -height => 213,
      -name   => "Win",
      -text   => "Window Title"
      );



$Win->AddButton(
       -text    => "Loop",
       -name    => "Loop",
       -left    => 104.5,
       -top     => 102,
       -width   => 95,
       -height  => 28,
      );

$Win2 = new Win32::GUI::Window(
      -left   => 391,
      -top    => 238,
      -width  => 200,
      -height => 183,
      -name   => "Win2",
      -title   => "New Window",
      );

$Win2->AddLabel(
       -text    => "",
       -name    => "Label",
       -left    => 60,
       -top     => 30,
       -width   => 20,
       -height  => 20,
      );

$Win2->AddButton(
       -text    => "OK",
       -name    => "OK",
       -left    => 50,
       -top     => 102,
       -width   => 95,
       -height  => 28,
      );

$Win->Show();

Win32::GUI::Dialog();

sub Win_Terminate {
   return -1;
}

sub OK_Click {
   $Win2->Hide();
   $i++;
}

sub Loop_Click {
   &Show_Win2($i);

}

sub Show_Win2 {
   my $num = shift;

   $Win2->Label->Text($num);
   $Win2->Show();
   $Win2->Update();

}
#----------------------------------------

I did not found a FAQ, so I do not know what key-concepts I am missing.
I am not able to find what is wrong in the program.

Can someone help me! Thank you very much!


/Pascal Lagassé

Kösel GmbH & Co. KG - Über 400 Jahre Bücher mit System
Wartenseestraße 11 87435 Kempten
http://www.koeselbuch.de mailto:pla...@ko...