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

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

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

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

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. ;_;

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...

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...

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.

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...

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.

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.

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.

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.

 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.