perl-win32-gui-users — Using the Win32::GUI Perl extension

[perl-win32-gui-users] question about icons on the taskbar and hover over.

[Fleming, J. M <joh...@ed...>]

I'm not really sure what the technical name is for icons that show up on
the task bar, but I'm not talking about the start button, systray or
quick launch just to be clear.
=20
I'm kind of at a lose on how to look this up first off, but how could i
get a list of all the icons on the taskbar (or whatever they're called)
and get the text that is displayed when you hover the mouse over a
certain icon. The end result I'm looking for is just the data off a
single icon but i'm sure if i could get the whole list i could figure it
out from there. This is really just kind of a pet project to see if i
can pull some useful data from a ticket tracking system (like the
current open ticket number).
=20
Thanks for any input.

Re: [perl-win32-gui-users] Problem with Win32::GUI and PerlApp with Vista

[Jeremy W. <jez...@ho...>]

Hi,

Thanks for the reply. For the production build I am using PerlApp 6.0.2 - b=
ut for the testing of this issue I am using PerlApp 7.0.0 build 277058 whic=
h should have the fix that was mentioned in bug 36715. I've also tried turn=
ing DEP and messed with other Vista settings and it still fails.

I've also built Win32::GUI from the code repository. It enters the (win32 A=
PI) function GetOpenFileName and just exits, no error message, no crash. (B=
TW using the latest version of activestate perl you can just use the normal=
 makefile.pl with Mingw as it spots GCC is installed).=20

I have also found another function that causes the same problem: GetSaveFil=
eName - this is potentially more serious as the work around in using -explo=
rer =3D> 0 doesn't seem to work.=20

I have to use the  --dyndll option so will do more testing/debugging before=
 reporting the issue to Activestate.

Cheers,

jez.

> Date: Mon, 3 Dec 2007 13:23:33 +0000
> From: ro...@th...
> To: jez...@ho...
> Subject: Re: [perl-win32-gui-users] Problem with Win32::GUI and PerlApp w=
ith Vista
> CC: per...@li...
>
> On 03/12/2007, Jeremy White  wrote:
>> It seems the option --dyndll with perlapp causes the problem - I dont kn=
ow
>> why...
>
> I've not used perlapp, but might it be related to this bug:
> http://bugs.activestate.com/show_bug.cgi?id=3D36715
>
> --dyndll causes (some of?) the bundled libraries to be loaded from
> memory, rather than written to a file and loaded from there. From the
> release notes for V7.0 of the PDK
> (http://aspn.activestate.com/ASPN/docs/PDK/7.0/Release.html) it
> appears that there was some interaction between this mechanism and
> DEP. IIRC DEP is on by default for (nearly) all applications under
> Win2003 and Vista, but not under XP.
>
> Are you using a version of the PDK prior to 7.0? If so this might
> explain the difference you see between XP and Vista.
>
> Rob.
>
>>> All,
>>>
>>> I'm having an odd problem with using GetOpenFileName - but only when it=
's
>> converted into an exe with PerlApp.
>>>
>>> Using the demo example
>> (C:\Perl\site\lib\Win32\GUI\demos\GetOpenFileName.pl) I've
>> narrowed it down to the option -explorer =3D> 0 when set to one (which i=
s the
>> new browsing style [1 is the default option]) the application just exist=
s
>> with no error messages or a crash.
>>>
>>> I've tried various versions of Perl (5.8.7 813 and 5.8.8 822) and PerlA=
pp
>> (6.0.2 and 7.0.0) but I always get the same result. I'm using Win32::GUI=
 1.5
>> PPM from the sourceforge site. The exe version of GetOpenFileName runs f=
ine
>> under XP - even when built under Vista.
>>>
>>> I'm kinda struggling so I would be grateful for any suggestions? Could =
it
>> be a Vista security thing? I'll build a version of Win32::GUI and try to
>> track it down...
>>>
>>> Cheers,
>>>
>>> jez.
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>> _________________________________________________________________
>>> The next generation of MSN Hotmail has arrived - Windows Live Hotmail
>>> http://www.newhotmail.co.uk
>>>
>> ------------------------------------------------------------------------=
-
>>> SF.Net email is sponsored by: The Future of Linux Business White Paper
>>> from Novell. From the desktop to the data center, Linux is going
>>> mainstream. Let it simplify your IT future.
>>> http://altfarm.mediaplex.com/ad/ck/8857-50307-18918-4
>>> _______________________________________________
>>> Perl-Win32-GUI-Users mailing list
>>> Per...@li...
>>>
>> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>>> http://perl-win32-gui.sourceforge.net/
>>
>> ________________________________
>> The next generation of MSN Hotmail has arrived - Windows Live Hotmail
>> ------------------------------------------------------------------------=
-
>> SF.Net email is sponsored by: The Future of Linux Business White Paper
>> from Novell. From the desktop to the data center, Linux is going
>> mainstream. Let it simplify your IT future.
>> http://altfarm.mediaplex.com/ad/ck/8857-50307-18918-4
>> _______________________________________________
>> Perl-Win32-GUI-Users mailing list
>> Per...@li...
>> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>> http://perl-win32-gui.sourceforge.net/
>>
>
>
> --
> Please update your address book with my new email address:
> ro...@th...

_________________________________________________________________
The next generation of MSN Hotmail has arrived - Windows Live Hotmail
http://www.newhotmail.co.uk=

Re: [perl-win32-gui-users] Problem with Win32::GUI and PerlApp with Vista

[Robert M. <ro...@th...>]

On 03/12/2007, Jeremy White <jez...@ho...> wrote:
> It seems the option --dyndll with perlapp causes the problem - I dont know
> why...

I've not used perlapp, but might it be related to this bug:
http://bugs.activestate.com/show_bug.cgi?id=36715

--dyndll causes (some of?) the bundled libraries to be loaded from
memory, rather than written to a file and loaded from there.  From the
release notes for V7.0 of the PDK
(http://aspn.activestate.com/ASPN/docs/PDK/7.0/Release.html) it
appears that there was some interaction between this mechanism and
DEP.  IIRC DEP is on by default for (nearly) all applications under
Win2003 and Vista, but not under XP.

Are you using a version of the PDK prior to 7.0?  If so this might
explain the difference you see between XP and Vista.

Rob.

> > All,
> >
> > I'm having an odd problem with using GetOpenFileName - but only when it's
> converted into an exe with PerlApp.
> >
> > Using the demo example
> (C:\Perl\site\lib\Win32\GUI\demos\GetOpenFileName.pl) I've
> narrowed it down to the option -explorer => 0 when set to one (which is the
> new browsing style [1 is the default option]) the application just exists
> with no error messages or a crash.
> >
> > I've tried various versions of Perl (5.8.7 813 and 5.8.8 822) and PerlApp
> (6.0.2 and 7.0.0) but I always get the same result. I'm using Win32::GUI 1.5
> PPM from the sourceforge site. The exe version of GetOpenFileName runs fine
> under XP - even when built under Vista.
> >
> > I'm kinda struggling so I would be grateful for any suggestions? Could it
> be a Vista security thing? I'll build a version of Win32::GUI and try to
> track it down...
> >
> > Cheers,
> >
> > jez.
> >
> >
> >
> >
> >
> >
> >
> >
> _________________________________________________________________
> > The next generation of MSN Hotmail has arrived - Windows Live Hotmail
> > http://www.newhotmail.co.uk
> >
> -------------------------------------------------------------------------
> > SF.Net email is sponsored by: The Future of Linux Business White Paper
> > from Novell. From the desktop to the data center, Linux is going
> > mainstream. Let it simplify your IT future.
> > http://altfarm.mediaplex.com/ad/ck/8857-50307-18918-4
> > _______________________________________________
> > Perl-Win32-GUI-Users mailing list
> > Per...@li...
> >
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> > http://perl-win32-gui.sourceforge.net/
>
> ________________________________
> The next generation of MSN Hotmail has arrived - Windows Live Hotmail
> -------------------------------------------------------------------------
> SF.Net email is sponsored by: The Future of Linux Business White Paper
> from Novell.  From the desktop to the data center, Linux is going
> mainstream.  Let it simplify your IT future.
> http://altfarm.mediaplex.com/ad/ck/8857-50307-18918-4
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/
>


-- 
Please update your address book with my new email address:
ro...@th...

Re: [perl-win32-gui-users] Problem with Win32::GUI and PerlApp with Vista

[Jeremy W. <jez...@ho...>]

As a follow up:

It seems the option --dyndll with perlapp causes the problem - I dont know =
why...

Cheers,

jez.


>=20
> All,
>=20
> I'm having an odd problem with using GetOpenFileName - but only when it's=
 converted into an exe with PerlApp.=20
>=20
> Using the demo example (C:\Perl\site\lib\Win32\GUI\demos\GetOpenFileName.=
pl)  I've narrowed it down to the option -explorer =3D> 0 when set to one (=
which is the new browsing style [1 is the default option]) the application =
just exists with no error messages or a crash.
>=20
> I've tried various versions of Perl (5.8.7 813 and 5.8.8 822) and PerlApp=
 (6.0.2 and 7.0.0) but I always get the same result. I'm using Win32::GUI 1=
.5 PPM from the sourceforge site. The exe version of GetOpenFileName runs f=
ine under XP - even when built under Vista.
>=20
> I'm kinda struggling so I would be grateful for any suggestions? Could it=
 be a Vista security thing? I'll build a version of Win32::GUI and try to t=
rack it down...
>=20
> Cheers,
>=20
> jez.
>=20
>=20
>=20
>=20
>=20
>=20
> =20
> _________________________________________________________________
> The next generation of MSN Hotmail has arrived - Windows Live Hotmail
> http://www.newhotmail.co.uk
> -------------------------------------------------------------------------
> SF.Net email is sponsored by: The Future of Linux Business White Paper
> from Novell.  From the desktop to the data center, Linux is going
> mainstream.  Let it simplify your IT future.
> http://altfarm.mediaplex.com/ad/ck/8857-50307-18918-4
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/

_________________________________________________________________
Telly addicts unite!
http://www.searchgamesbox.com/tvtown.shtml=

[perl-win32-gui-users] Problem with Win32::GUI and PerlApp with Vista

[Jeremy W. <jez...@ho...>]

All,

I'm having an odd problem with using GetOpenFileName - but only when it's c=
onverted into an exe with PerlApp.=20

Using the demo example (C:\Perl\site\lib\Win32\GUI\demos\GetOpenFileName.pl=
)  I've narrowed it down to the option -explorer =3D> 0 when set to one (wh=
ich is the new browsing style [1 is the default option]) the application ju=
st exists with no error messages or a crash.

I've tried various versions of Perl (5.8.7 813 and 5.8.8 822) and PerlApp (=
6.0.2 and 7.0.0) but I always get the same result. I'm using Win32::GUI 1.5=
 PPM from the sourceforge site. The exe version of GetOpenFileName runs fin=
e under XP - even when built under Vista.

I'm kinda struggling so I would be grateful for any suggestions? Could it b=
e a Vista security thing? I'll build a version of Win32::GUI and try to tra=
ck it down...

Cheers,

jez.






=20
_________________________________________________________________
The next generation of MSN Hotmail has arrived - Windows Live Hotmail
http://www.newhotmail.co.uk=

[perl-win32-gui-users] Is it possible to implement click-events or some menu options on an balloon?

[<a98...@gm...>]

Hi,

is it possible to make a "menu" like "button1" and "button2" or a click event like "click here to do something" on a balloon?
how can I realize this?

thx for help
juergen

-- 
Psssst! Schon vom neuen GMX MultiMessenger gehört?
Der kann`s mit allen: http://www.gmx.net/de/go/multimessenger

[perl-win32-gui-users] why are the prompts of my textfields not shown?

[<a98...@gm...>]

Hi,
I've a small application with a configuration window.
this window is created with a for-loop and some textfields with "prompt" for the values.
this window is shown with an Animate().
but the prompts aren't shown until i focus it with tabstopps or the mouse.
what's my problem?

thx for help.
juergen

[snip]
sub configuration
{
  configuration_window();  # create the window
  my $count = 0;
  my $padding = 10;

  $cfg_window->AddGroupbox(
  	-name  => "CFGX",
  	-title => "Configuration",
  	-left  => 25,
  	-top   => 10,
  	-width => 400,
        -group  => 1,
  );
  
  foreach my $xx (sort(keys %config))
  {
    $count = $count + 1;
    print "$xx = $config{$xx}\n";
    $cfg_window->AddTextfield(
      -name => "${xx}_name",
      -text => "$config{$xx}",
      -tip  => "$config_tooltips{$xx}",
      -left => 35,
      -prompt => [ "$xx:" , 150 ],
      -height => 20,
      -width => 200,
	    -top   => 25 + ($count * 20),
	    -width => $cfg_window->CFGX->Width() - (2 * 20),
	    -tabstop => 1,
    );
  }
  
  $cfg_window->CFGX->Height(350);
  $cfg_window->CFGX->Width(550);
  
  $cfg_window->{archive_destination_name}->SetFocus();
  do_animation($cfg_window);
  $cfg_window->SetRedraw(1);
  get_configuration();
}
[/snip]

-- 
Psssst! Schon vom neuen GMX MultiMessenger gehört?
Der kann`s mit allen: http://www.gmx.net/de/go/multimessenger

Re: [perl-win32-gui-users] Tooltip Help?

[Brian M. <bmi...@hu...>]

Your example works fine for me on Windows 2000. What OS and version of 
Win32::GUI are you testing on?

Brian

Micah Wilson wrote:
> Here's my test code:
>
> #!/usr/bin/perl
> use strict;
> use Win32::GUI;
>
> my $mw = new Win32::GUI::Window (
>  -title    => "test",
>  -pos      => [600, 600],
>  -size     => [100, 100],
>  -name     => "Window",
> );
> my $tooltip1 = Win32::GUI::Tooltip->new( -parent => $mw,
>                                          -name   => "tooltip1",
>                                        );
> $tooltip1->AddTool( -window => $mw,
>                     -text   => "Text that pops up",
>                   );
> $tooltip1->Activate();
> $mw->Show();
> Win32::GUI::Dialog();
>
> sub Window_Terminate { -1 }
>
> This should generate a simple tooltip when I hover the mouse over the 
> main window, yet nothing happens. I'm not sure what I am missing here. 
> ;_;
> ------------------------------------------------------------------------
>
> -------------------------------------------------------------------------
> This SF.net email is sponsored by: Splunk Inc.
> Still grepping through log files to find problems?  Stop.
> Now Search log events and configuration files using AJAX and a browser.
> Download your FREE copy of Splunk now >> http://get.splunk.com/
> ------------------------------------------------------------------------
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/


-- 
Brian, Tommy, Helen and Paka -- bmi...@hu...
This message traveled at least 44,000 miles to reach you!




---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 071114-0, 11/14/2007
Tested on: 11/14/2007 9:44:44 PM
avast! is copyright (c) 2000-2007 ALWIL Software.
http://www.avast.com

[perl-win32-gui-users] Tooltip Help?

[Micah W. <top...@gm...>]

Here's my test code:

#!/usr/bin/perl
use strict;
use Win32::GUI;

my $mw = new Win32::GUI::Window (
 -title    => "test",
 -pos      => [600, 600],
 -size     => [100, 100],
 -name     => "Window",
);
my $tooltip1 = Win32::GUI::Tooltip->new( -parent => $mw,
                                         -name   => "tooltip1",
                                       );
$tooltip1->AddTool( -window => $mw,
                    -text   => "Text that pops up",
                  );
$tooltip1->Activate();
$mw->Show();
Win32::GUI::Dialog();

sub Window_Terminate { -1 }

This should generate a simple tooltip when I hover the mouse over the main
window, yet nothing happens. I'm not sure what I am missing here. ;_;

Re: [perl-win32-gui-users] my labels are only shown after clicking an them or resizing the window

[Robert M. <rob...@us...>]

On 26/09/2007, a98...@gm... <a98...@gm...> wrote:
> I've the problem that my labels are only shown after clicking on them
> or after resizing the window.
> do I have to implement a repainting or something?

No, but you have to process the event queue somewhere in your code.
You example is incomplete, and does not show whether/where you ever
call Dialog()/DoEvent()/DoModal().

I suggest you read this if you haven't already:
http://www.catb.org/~esr/faqs/smart-questions.html

Regards,
Rob.

>
> my script:
>
> [snip]
>   $cfg_window=Win32::GUI::Window->new(
>         -name  => "configwin",
>         -title => "$cfg{name} - Configuration",
>         -left => CW_USEDEFAULT,
>         -size  => [ 600, 450 ],
>         -parent => $main,
>     -vscroll => 1,
>     -hscroll => 1,
>     -helpbutton  => 0,
>     -dialogui    => 1,
>     -resizable   => 1,
>     -onTerminate => sub { do_animation($cfg_window); 0; },
>   );
>
>   my $ncw = $cfg_window->ScaleWidth();
>   my $nch = 20;
>
>   $cfg_window->AddButton(
>     -name => "CFGOK",
>     -text => "OK",
>     -pos  => [ 30, $nch ],
>   );
>   $cfg_window->AddButton(
>     -name => "CFGCANCEL",
>     -text => "CANCEL",
>     -pos  => [ 70, $nch ],
>   );
>
>   my $count = 0;
>   my $padding = 10;
>
>   $cfg_window->AddGroupbox(
>         -name  => "CFGX",
>         -title => "Configuration",
>         -left  => 25,
>         -top   => 10,
>         -width => 400,
>         -group  => 1,
>   );
>
>   foreach my $xx (sort(keys %config))
>   {
>     $count = $count + 1;
>     $cfg_window->AddTextfield(
>       -name => "${xx}_name",
>       -text => "$config{$xx}",
>       -left => 35,
>       -prompt => [ "$xx:" , 150 ],
>       -height => 20,
>       -width => 200,
>             -top   => 25 + ($count * 20),
>             -width => $cfg_window->CFGX->Width() - (2 * 20),
>             -tabstop => 1,
>     );
>   }
>
>   $cfg_window->CFGX->Height(350);
>   $cfg_window->CFGX->Width(550);
>
>   do_animation($cfg_window);
>   $cfg_window->SetRedraw(1);
>
> [/snip]
>
> thx
> juergen
>
> --
> GMX FreeMail: 1 GB Postfach, 5 E-Mail-Adressen, 10 Free SMS.
> Alle Infos und kostenlose Anmeldung: http://www.gmx.net/de/go/freemail
>
> -------------------------------------------------------------------------
> This SF.net email is sponsored by: Microsoft
> Defy all challenges. Microsoft(R) Visual Studio 2005.
> http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/
>


-- 
Please update your address book with my new email address:
ro...@th...

Re: [perl-win32-gui-users] How to wait for a Dialogbox to continue the program?

[Robert M. <rob...@us...>]

On 26/09/2007, a98...@gm... <a98...@gm...> wrote:
> I want to make an input with a dialogbox.
> but I've the problem that the program continues while the dialogbox is
> open.
>
> how can i make the script waiting for closing the dialogbox?

As you haven't posted a *short* and *complete* example of what you are
trying to do, I can't really understand what it is that you are
asking.

I *suspect* that you want something like
  $filenameDlg->DoModal();

after your line
  $filenameDlg->Show();

I can't be more exact without a complete script to modify.  The
tutorial in the documents covers this.

regards,
Rob.


>
> thx
> juergen
>
>
> my script:
> [snip]
> do_something...
> ask_filename();
> do_the_rest...
>
> sub ask_filename {
> # Create Find DialogBox
> my $filenameDlg =3D new Win32::GUI::DialogBox(
>               -name  =3D> "FileDlg",
>               -title =3D> "Filename",
>               -pos   =3D> [ 150, 150 ],
>               -size  =3D> [ 360, 115 ],
>       );
>
>   # Filename
>   $filenameDlg->AddTextfield (
>                 -name  =3D> "FileDlg_Text",
>                 -pos   =3D> [10, 12],
>                 -size  =3D> [220, 21],
>                 -prompt  =3D> [ "Filename: ", 45],
>                 -tabstop =3D> 1,
>         );
>
>   $filenameDlg->AddButton (
>                 -name  =3D> "FileDlg_OK",
>                 -text  =3D> "&OK",
>                 -pos   =3D> [270, 10],
>                 -size  =3D> [75 , 21],
>                 -onClick =3D> sub {  $filenameDlg->Hide(); $filename=3D$f=
ilenameDlg->FileDlg_Text->Text; return 0; },
>                 -group =3D> 1,
>                 -tabstop =3D> 1,
>         );
>
>   # Cancel Button
>   $filenameDlg->AddButton (
>                 -name  =3D> "FileDlg_Cancel",
>                 -text  =3D> "C&ancel",
>                 -pos   =3D> [270, 40],
>                 -size  =3D> [75 , 21],
>                 -onClick =3D> sub { $filenameDlg->Hide(); 0; },
>                 -tabstop =3D> 1,
>       );
>   $filenameDlg->FileDlg_Text->SetFocus();
>   $filenameDlg->Show();
>   return 0;
> }
> [/snip]
> --
> Psssst! Schon vom neuen GMX MultiMessenger geh=F6rt?
> Der kanns mit allen: http://www.gmx.net/de/go/multimessenger
>
> -------------------------------------------------------------------------
> This SF.net email is sponsored by: Microsoft
> Defy all challenges. Microsoft(R) Visual Studio 2005.
> http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/
>


--=20
Please update your address book with my new email address:
ro...@th...

Re: [perl-win32-gui-users] Listview mental block

[Robert M. <rob...@us...>]

On 19/09/2007, Brian Rowlands (Greymouth High School)
<Row...@gr...> wrote:
> I've used TheLoft to create a gui interface for a program I'm writing. A
> button I click is meant to read a selected line from a listview pane and
> display the results in a selection of tf / cb controls:
>
>     # determine which rows have been selected
>     my @selection = $win-> lvwFleece-> SelectedItems();
>
> 1. @selection contains the index values of the rows selected. However,
> if no rows are selected I was expecting it to be return a () array but
> printing its size in such a case shows a value of 1. Why would that be?

Bug, in my opinion.  There is similar behaviour throughout the XS code
where the return value from subs that are expected to return lists is
incorrect for there being no values - the subs return undef rather
than the empty list.

You'll find the one item in the list is undef.

I'm fixing them as I find them, despite the change being non-backwards
compatible, as it's very useful to be able to write:

# process all selected items
for ($win->SelectedItems()) {
    process_item($_);
}

rather than what you have to do now:

# process all selected items
for ($win->SelectedItems()) {
    next if not defined $_;
    process_item($_);
}

or some equivalent.  So long as code handles both empty lists and the
undefined value case, then there is no backwards-compatibility issue.
Backwards compatibility issues may occur with any code that assumes
the list has at least one entry and check the first value in the list
for definedness.



> 2. I really need some better way to determine if the listview has been
> clicked. The event ItemClick(ITEM) in the package description for
> listview looks as though it could be a better option for me. Can
> someone kindly help me to construct the line to determine if the
> listview has had a line selected please? I'm still learning perl and
> I'm puzzled how to do this simple task.

Does this help?

#!perl -w
use strict;
use warnings;

use Win32::GUI qw();

my $mw = Win32::GUI::Window->new(
    -title => "ListView - Report Mode",
    -size  => [400,300],
);

$mw->AddListView(
    -name        => "LV",
    -width       => $mw->ScaleWidth(),
    -height      => $mw->ScaleHeight(),
    -report      => 1,
    -singlesel   => 1,
    -onItemClick => \&itemSelected,
);

for my $col_name ("Title", "Card Number", "Shelf Location") {
    $mw->LV->InsertColumn(
        -text  => $col_name,
        -width => 100,
    );
}

$mw->LV->InsertItem(
    -text => [ "Green Eggs and Ham", "JF SEU", "Children's", ],
);
$mw->LV->InsertItem(
    -text => [ "A Brief History of the Universe", "897.112", "2nd Floor", ],
);
$mw->LV->InsertItem(
    -text => [ "Your Book Title Here", "501.2", "Vault", ],
);

$mw->Show();
Win32::GUI::Dialog();
exit(0);

sub itemSelected {
    my ($self, $item) = @_;

    my %info = $self->GetItem($item);

    print qq(Selected: "$info{-text}"\n);

    return 1;
}
__END__

Regards,
Rob.

Re: [perl-win32-gui-users] Kbd Fires Click Twice for Radiobuttons, Why?

[Robert M. <rob...@us...>]

On 06/09/2007, Veli-Pekka T=E4til=E4 <vt...@ma...> wrote:
> Hi list,
> I think I might have found a bug in the event handling of Radio Buttons,
> or else have just somehow misunderstood how their event handling works.
> EIther way, I'd appreciate any comments and clarifications.
>
> Issue:
>
> if I create two radio buttons in a dialog, set them up in the tab order,
> and then use the arrows to select one of the buttons, the onClick event
> is fired twice when the arrows are used to select another radio button.
> In contrast, if I use the mouse or click the button programmatically,
> the event is fired only once. I would have expected the latter behavior
> in keyboard usage, too. What causes the refiring of the onClick event?

I, too, was surprised by this behaviour, but it appears to be
'standard' windows behaviour for radio buttons.  I can't really
explain it, but will describe what I see using Spy++:

Using the mouse:
- Mouse down sets the focus to the button and set the highlight state.
- Mouse up unsets the highlight state and send a BN_CLICKED message to
the parent

Using the keyboard:
- key down causes IsDialogMessage to move the focus to the new button
(which generates a BN_CLICKED message)
- key up causes IsDialogMessage to send a BN_CLICK message to the
button, which in turn causes the button to send itself WM_LBUTTONDOWN
and WM_LBUTTONUP messages (which generates the sequence of events for
the mouse click, which in turn generates the second BN_CLICKED
message)

As I say, I don't really understand the complexity of the message
generation, but I am convinced that this is a windows thing and not a
Win32::GUI bug.

Your click handler needs to cope with multiple clicks anyway, as I can
set there and click the same button again and again ....

Regards,
Rob.


>
> version info:
>
> This is perl, v5.8.8 built for MSWin32-x86-multi-thread
> Documentation for Win32::GUI v1.05 created 05 Nov 2006
>
> Sample code:
>
> use strict; use warnings;
> use Win32::GUI qw||; use Win32::GUI::GridLayout;
>
> my($width, $height) =3D qw|4 4|;
> my $win =3D Win32::GUI::DialogBox->new
> (
>    -name =3D> 'win', -size =3D> [40 * $width, 40 * $height],
>    -text =3D> 'radios' -onTerminate =3D> sub { -1 },
> );
>
> my $grid =3D Win32::GUI::GridLayout->apply
> (
>    $win, $width, $height,
>    0, 0
> );
>
> my @buttons;
> for my $i (1 .. $width)
> { # Ad some radio buttons.
>    my $radio =3D Win32::GUI::RadioButton->new
>    (
>       $win, -name =3D> "b$i", -tabstop =3D> 1 , -text =3D> $i,
>       -onClick =3D> sub
>       {
>          print "Click ", (shift)->UserData() . "\n";
>          1
>     }
>    );
>    $radio->UserData($i);
>    $grid->add($radio, $i, $height / 2);
>    push @buttons, $radio;
> } # for
> my $first =3D $buttons[0];
> $first->SetFocus();
> $first->Click();
> $grid->recalc();
> $win->Show();
> Win32::GUI::Dialog();
>
> --
> With kind regards Veli-Pekka T=E4til=E4 (vt...@ma...)
> Accessibility, game music, synthesizers and programming:
> http://www.student.oulu.fi/~vtatila
>
> -------------------------------------------------------------------------
> This SF.net email is sponsored by: Splunk Inc.
> Still grepping through log files to find problems?  Stop.
> Now Search log events and configuration files using AJAX and a browser.
> Download your FREE copy of Splunk now >>  http://get.splunk.com/
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/
>


--=20
Please update your address book with my new email address:
ro...@th...

Re: [perl-win32-gui-users] HighRes Timing and Sleep in GUI MIDI Apps

[Robert M. <rob...@us...>]

On 06/09/2007, Veli-Pekka T=E4til=E4 <vt...@ma...> wrote:
> How good is the Win32::GUI timer for semi realtime applications?

Pretty much useless.  The underlying mechanism (using the WM_TIMER
message) has no guarantees on accuracy, and if the application is
processing many messages delivery of WM_TIMER messages takes the
lowest priority and will likely happen late.

> I've
> codedd a drum machine, minus some final tweaks and testing, in Perl
> using Win32::GUI as the GUI lib and Win32::MIDI for MIDI. I generate my
> own note off events (note on velocity 0) so that Win32::MIDI does not
> have to sleep. As I want the ability to operate the GUI while the thing
> plays back stuff, I use Win32::GUI::Timer as the heart beat for my step
> sequencer. I need the ability to time pretty exactly 32th notes from 50
> to 250 bpm (150 to 30 ms),

I expect you'll need a different mechanism.  Win32 provides special
multimedia timer APIs for this purpose (look up timeSetEvent and the
related time* functions in MSDN).

> since I want to be able to quantize the
> user's input to the closest 16th note (step). I'd also need a pretty
> exact sleep for generating lag for swing, at max one 32th note and
> possibly much smaller values, too. I'm using Win32::Sleep for the swing,
> at the moment.

Win32::Sleep won't accurately time less that about 50ms (IIRC),
especially on older machines.

> Timing seems surprisingly stable and even though I use large amounts of
> objects (each step is one) and hash lookups Perl's CPU usage shows 0,
> even when playing simultaneously 12 parts at 250 bpm. However, at some
> pretty normal tempo ranges like 130 to 140 BPM, changing the tempo does
> seem to have very little effect. However, if I export the data as MIDi
> at 960 PPQ, I use the MIDI Perl modules for that, the tempo does change.

Right - WM_TIMER messages get delivered when they can - at some point
they stop getting delivered any faster ...

Regards,
Rob.

Re: [perl-win32-gui-users] FindWindow and SendMessage

[Robert M. <rob...@us...>]

On 16/08/2007, Perl Rob <pe...@co...> wrote:
> Well, I answered my own question, so I thought I'd post the answer
> in case it helps someone else who wants to close a window in this
> manner. Turns out I had to create a quoted word list and add
> WM_CLOSE to it (as a part of my "use Win32::GUI" line):
>
> use Win32::GUI qw( WM_CLOSE );
>
>
> To be perfectly honest, I don't understand *why* that fixed the
> problem, but it did. I couldn't get any windows to close until I
> did that=97now I can close any window (that allows it) by finding
> its handle and sending it the WM_CLOSE message.

That's the syntax for getting Win32::GUI to import constants into the
caller's namespace (in fact it's a very common perl syntax in
general).  Read the documentation for Win32::GUI::Constants for more
information.

If you had a 'use warnings;' line, then your earlier attempts would
have given you more information about why they were not working.

[As an aside you shouldn't blindly assume that sending a window a
WM_CLOSE will close it - an application is perfectly entitled to catch
the WM_CLOSE message and not close the window - for example many
programs catch the WM_CLOSE and pop up a dialog asking whether the
user really wants to exit (annoying, but it happens) - this is perhaps
more useful if the application is reporting that there are unsaved
changes and asking if the user wants to save them before exiting.]

Regards,
Rob.

Re: [perl-win32-gui-users] Method for Clicking Menu Items?

[Robert M. <rob...@us...>]

On 10/08/2007, Veli-Pekka T=E4til=E4 <vt...@ma...> wrote:
> Is there a method I can call to programmatically click a menu item? I'm
> planning on calling it in the Ctrl+N handler in my accelerator table.

Not that I'm aware of.

> I guess I could call the underlying subs that my menu items call, but
> I'd rather have the keyboard control the UI, in stead.

In C/C++ you'd create the Accelerator and Menu item with the same ID,
and the the OS would do this all automatically for you (both
Accelerators and Menu items generate WM_COMMAND messages, with a flag
set to indicate which was used, but I don't see a way to utilise this
functionality with Win32::GUI)

> Its highly useful
> for push buttons, for instance. As the hotkey pushes the button, the
> user gets visual feedback and also as a screne reader user, I get
> notified of the focus and button state change accordingly. is it
> slightly "unorthodox" to click menus in hotkey handlers like that, in
> staed of activating the underlying function? As a user I've always
> disliked the fact that nothing visual happens when I save using the hot
> key. SO I press alt+f, s in stead, and then the screen reader tells me
> the file menu opens and closes confirming that something in deed
> happened. Part of my desire to try the programmatic clicking of menu
> items, too, would be to give this kind of visual feedback, even when the
> hotkeys are used.

You could probably code the hotkey handler to post 'alt-f' and 's'
keystrokes to the thread's message queue, which might work.

Regards,
Rob.

[perl-win32-gui-users] My continued absense

[Robert M. <rob...@us...>]

All,

Apologies for the lack of my presence in this group, and the lack of
progress on a new version of Win32::GUI.  I am in the middle of a move
from the UK to Bangalore, and it is taking me longer than expected to
be up and running again.

Rest assured that I haven't forgotten about you or Win32:GUI and I
hope to be back in the thick of things in a week or so - I'll start by
trying to catch up on the backlog of list postings in my inbox!

In the mean time my thanks to those of you who have been answering
questions and keeping things ticking over.

Regards,
Rob.

[perl-win32-gui-users] How to print the currently displaying web page

[Neelakandan <nee...@gm...>]

 I am developing an ieautomation tool usint the perl module WIN32::GUITest
and i am able to click the links in the webpage after all the links are
clicked i want to send the CTRL+P keys to the menu of the Internet
Explorer.I can able to get the handle of the menubar in the Internet
explorer using SPY++. But the handle that i got usinh the SPY++ is dynamic.I
can't able to get the correct handle of the IE using the FindWindowLike
function.i compared the handle value that i got using the FindWindowLike
function to the handle value in the SPY++ it is different.

Can anyone tell me how to access the menu bar in the internet explorer and
pass the keys ctrl+p to the internet explorer. Please someone help me in
resolving this issue.It's very urgent.

Thanks in advance.  

Neelakandan.

-- 
View this message in context: http://www.nabble.com/How-to-print-the-currently-displaying-web-page-tf4747124.html#a13574024
Sent from the perl-win32-gui-users mailing list archive at Nabble.com.

Re: [perl-win32-gui-users] re turn the text of an object

[redmist <szu...@gm...>]

I got the solution as following

sub show_text {
    my $obj = shift;
    my $obj_name = $obj->{-name};
    print $obj_name;
    
}



-- 
View this message in context: http://www.nabble.com/return-the-text-of-an-object-tf4625127.html#a13502387
Sent from the perl-win32-gui-users mailing list archive at Nabble.com.

Re: [perl-win32-gui-users] How to call menu item click event handlersas methods rather than classes?

[Jason P. <jp...@da...>]

Here is the problem:

You are using OEM methodology inside a package. OEM was designed to operate
in the MAIN namespace. Switch to the NEM and you should be right as rain.
(e.g. inside of new for the menu use -onClick => &menu_click )

-----Original Message-----
From: per...@li...
[mailto:per...@li...] On Behalf Of
John, Gareth
Sent: Tuesday, October 30, 2007 6:33 AM
To: per...@li...
Subject: [perl-win32-gui-users] How to call menu item click event handlersas
methods rather than classes?

Hi,
I'm trying to write the event handlers for menu item clicks.  I have
sub-classed Win32::GUI::Window to provide the main window for my
application.

This all works nicely, except that I've just added a menu to my main
window and I can't seem to figure out how to access any object data from
my _Click handlers.  The program below reproduces this issue.  What I
would like is to be able to access the main window as $self in sub
Exit_Click, but it's undefined.

#!/usr/bin/perl -w
package MyWindow;
use Win32::GUI();

@MyWindow::ISA = qw (Win32::GUI::Window);

sub new {
  my $proto = shift;
  my $class = ref($proto) || $proto;

  my %params = @_;
  $params{-menu} = Win32::GUI::Menu->new(
    "&File" => "File",
    ">E&xit" => "MyWindow::Exit",
  );

  my $self = $class->SUPER::new(%params);
  bless $self, $class;

  return $self;
};

sub Exit_Click {
  my $self = shift;
  print ref($self), "\n";

  print "File->Exit Clicked";

  return -1;
}

1;

package main;

my $window = new MyWindow(-height => 200, -width => 300);
$window->Show();
Win32::GUI::Dialog();

__END__

Is there any way to call the _Click event handlers as object methods
rather than class methods?

Cheers,
Gareth John





-------------------------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc.
Still grepping through log files to find problems?  Stop.
Now Search log events and configuration files using AJAX and a browser.
Download your FREE copy of Splunk now >> http://get.splunk.com/
_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/

[perl-win32-gui-users] How to call menu item click event handlers as methods rather than classes?

[John, G. <gj...@qu...>]

Hi,
I'm trying to write the event handlers for menu item clicks.  I have
sub-classed Win32::GUI::Window to provide the main window for my
application.

This all works nicely, except that I've just added a menu to my main
window and I can't seem to figure out how to access any object data from
my _Click handlers.  The program below reproduces this issue.  What I
would like is to be able to access the main window as $self in sub
Exit_Click, but it's undefined.

#!/usr/bin/perl -w
package MyWindow;
use Win32::GUI();

@MyWindow::ISA =3D qw (Win32::GUI::Window);

sub new {
  my $proto =3D shift;
  my $class =3D ref($proto) || $proto;

  my %params =3D @_;
  $params{-menu} =3D Win32::GUI::Menu->new(
    "&File" =3D> "File",
    ">E&xit" =3D> "MyWindow::Exit",
  );

  my $self =3D $class->SUPER::new(%params);
  bless $self, $class;

  return $self;
};

sub Exit_Click {
  my $self =3D shift;
  print ref($self), "\n";

  print "File->Exit Clicked";

  return -1;
}

1;

package main;

my $window =3D new MyWindow(-height =3D> 200, -width =3D> 300);
$window->Show();
Win32::GUI::Dialog();

__END__

Is there any way to call the _Click event handlers as object methods
rather than class methods?

Cheers,
Gareth John

[perl-win32-gui-users] Media Player controls

[Octavian R. <ora...@gm...>]

Hi,

How can I change the volume of a Media Player control used in a Win32::GUI 
application?
(By code, of course)

Is it possible?

Thank you.

Octavian

[perl-win32-gui-users] Adding a bitmap to a label

[Brian R. (G. H. School) <Row...@gr...>]

Hi there
I'm resubmitting a variation on my previous cry for help (to which I got
no answers sadly) but narrowed down to a specific point now.

I've a win32 gui created using  The GUI Loft and it has a label which I
want to put a bmp on using perl.

However, I can't find a way to put this image on to the label. Can
anyone help please? Each of the following failed:

1. Tried;
$icon =3D getdcwd()."output.bmp";
$win-> lblHallblacks(-bitmap =3D> $icon);

2. Clutching at staws, I tried:
$icon =3D Win32::GUI::Bitmap->new(getdcwd()."output.bmp");
$win-> lblHallblacks(-bitmap =3D> $icon);



Thanks
Brian Rowlands
We must accept finite disappointment, but we must never lose infinite
hope.
Martin Luther King Jr. </quotes/k/martinlutherking/> =20

[perl-win32-gui-users] re turn the text of an object

[redmist <szu...@gm...>]

Hello ,
I want to implement a subroutine which return caller's text value (caller
maybe a Label control, Button control...etc)

the following is the code : 

$W1->AddLabel(
	-name => "Label1",
	-text => "label 1",
             -notify => 1,
             -font => $font,
	-pos  => [ 50, 50 ],
             -onClick =>\&show_text,
);


$W1->AddLabel(
	-name => "Label2",
	-text => "label2",
             -notify => 1,
             -font => $font,
	-pos  => [ 50, 50 ],
             -onClick =>\&show_text,
);

$W1->AddButton(
	-name => "Button1",
	-text => "button1",
             -notify => 1,
             -font => $font,
	-pos  => [ 50, 50 ],
             -onClick =>\&show_text,
);


sub show_text {

   #print the caller object's text value. Print "button1" if Button1 is
clicked, "label 1" if Label1 is clicked..etc

}


How should I implement the show_text subroutine?
thanks for any reply

-- 
View this message in context: http://www.nabble.com/return-the-text-of-an-object-tf4625127.html#a13208401
Sent from the perl-win32-gui-users mailing list archive at Nabble.com.

[perl-win32-gui-users] Putting a bitmap on a label

[Brian R. (G. H. School) <Row...@gr...>]

Hi
I'm wanting to take an icon out of a SQLite database and paste it on a
label in a Win32 GUI I've built using The GUI Loft.

Sample code:
# suck icon from SQLite database:=20
my @array;
my $dbh =3D DBI-> connect("dbi:SQLite:dbname=3D$datafile","","",{});    =
#
database handle
my $sql =3D "SELECT icon FROM icons WHERE name =3D 'logo'";
my $sth =3D $dbh-> prepare($sql);                                     #
statement handle
if (defined($sth)) {
    $sth -> execute();
    while (my @result =3D $sth-> fetchrow_array()) {
        push (@array, $result[0]);
    }
}
$sth->finish;
undef $sth;
$dbh->disconnect();=20


# check I've got an icon
my $size =3D @array;
print "$size\n";   # prints 1 so ONE icon has been captured
		# printed $array[0] to a richedit window and got:
		#
BM~r%0%0%0%0%0%06%0%0%0(%0%0%0\%0%0%0j%0%0%0=01%0=18%0%0%0%0%0Hr%0%0%0% =
...
		# which makes me think all is ok so far=20


# create an "inline" bitmap file
my $logo =3D new Win32::GUI::BitmapInline($array[0]); # not sure if I =
need
to do this or not


# place bitmap on a label in a WinGui I've created with "The GUI Loft"
1) this doesn't work: $win-> lblLogo-> SetImage($logo); - generates
error
2) this doesn't work: $win-> lblLogo(-bitmap =3D> $logo); - no error
generated

Could some kind soul help me understand where I'm going wrong please?


Thanks
Brian Rowlands
We must accept finite disappointment, but we must never lose infinite
hope.
Martin Luther King Jr. </quotes/k/martinlutherking/> =20