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

[perl-win32-gui-users] Giving focus to a control

[<se...@la...>]

I looked for this on both archives (old one at http-tech and new one 
at SourceForge) and found nothing.  How can I give the focus back to 
a control?  I want focus to return to a textfield after pressing a 
button.   Specifically, the subroutine called by clicking the button 
should select some text, but even if I call $TextFieldName->Select as 
the last thing in the subroutine, the focus remains on the button.  
If I click in the textfield, I lose the selection because the cursor 
jumps to wherever I clicked.

Re: [perl-win32-gui-users] Systray Clicks Are Called Twice?

[Erick B. <er...@je...>]

These code snippets would be perfect for the Perl Code Exhange. You can find the
Code Exchange on my site (jeb.ca). Basically the Code Exchange will be a place
where you can find code/binary for Perl ONLY. The Exchange would reduce
redundancy on this list, you can now say, "Well, the code for *that*, is located
on the Exchange." A brief description can be found here:
http://www.jeb.ca/cgi-bin/exchange/display.cgi

p.s. I will be adding a search.cgi and upload.cgi, if there is a high demand for
it.

Please enjoy!

regards,
erick bourgeois

----- Original Message -----
From: Morbus Iff <mo...@di...>
To: <per...@li...>
Sent: Friday, June 15, 2001 8:57 AM
Subject: [perl-win32-gui-users] Systray Clicks Are Called Twice?


| Has anyone noticed Systray clicks being sent twice to the script. For
| example, below is a code snippet. Whenever anyone clicks on "Open Window"
| for instance, the subroutine is called twice. We've had to implement a
| workaround (further below).
|
|     # Create the popup menu
|     $systray_menu = new Win32::GUI::Menu(
|           "SystrayMenu Functions" => "SystrayMenu",
|            "> Open Window"         => "_OpenWindow",
|            "> Refresh Channels"    => "_RefreshChannels",
|            "> Exit"                => "_FileExit"
|     );
|
|     # re-open the browser window.
|     sub _OpenWindow_Click {
|        &note("Received 'Open Window' request from Systray.");
|        &open_url( $SETTINGS->{urls}->{channels_home} );
|     }
|
| The work around is rather simple, of course:
|
|     # re-open the browser window.
|     sub _OpenWindow_Click {
|
|        &note("Received 'Open Window' request from Systray.");
|
|        unless ( $already_called ) {
|
|           # do the dirty deed.
|           &open_url( $SETTINGS->{urls}->{channels_home} );
|
|           # for some reason, we get two clicks every
|           # time someone clicks a menu item. we check
|           # for this here.
|           $already_called = 1;
|        }
|
|        else { $already_called = 0; }
|     }
|
|
| Morbus Iff
| .sig on other machine.
| http://www.disobey.com/
| http://www.gamegrene.com/
|
|
| _______________________________________________
| Perl-Win32-GUI-Users mailing list
| Per...@li...
| http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
|

RE: [perl-win32-gui-users] AddGroupbox causes Perl to crash?

[Jeremy B. <sco...@ya...>]

Doh!  I'm sorry, I'm an idiot.  I'm sure that's what
it is.

Thanks.
jb

--- "Piske, Harald" <Har...@bo...>
wrote:
> Aren't you gonna give that thing a -name? Every
> object in GUI needs a name.
> If it's not unique, that's fine so long as you don't
> need to interact with
> the thing. But popping out of Perl from unnamed
> objects, we've seen that
> before here on the list.
> 
> Have fun,
> Harald
> 
> > -----Original Message-----
> > From: Jeremy Blonde [mailto:sco...@ya...]
> > Sent: Friday, June 15, 2001 13:38
> > To: Perl-Win32-GUI-Users
> > Subject: [perl-win32-gui-users] AddGroupbox causes
> Perl to crash?
> > 
> > 
> > Has anyone been running into problems using a
> Groupbox?  My 
> > script crashes
> > if I use a Groupbox, remove the Groupbox and the
> script works fine.
> > 
> > I haven't modified my script, but I have
> downloaded the 
> > latest version of
> > Perl from Activestate (626, it is a fresh install
> I didn't 
> > overwrite 522)
> > and have installed the latest Win32-GUI module
> (.558), 
> > Win32-API (.2).  I do
> > know that the script works just fine under Perl
> 522.
> > 
> > Any ideas?
> > Jeremy Blonde
> > 
> > $Window->AddGroupbox(
> >   -text => "Enter Username",
> >   -pos  => [ 10, 10 ],
> >   -size => [ 20, 75 ],
> > );
> > 
> > 
> > 
> > 
> > 
> > 
> >
>
_________________________________________________________
> > Do You Yahoo!?
> > Get your free @yahoo.com address at
> http://mail.yahoo.com
> > 
> > 
> > _______________________________________________
> > Perl-Win32-GUI-Users mailing list
> > Per...@li...
> >
>
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> > 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
>
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users


__________________________________________________
Do You Yahoo!?
Spot the hottest trends in music, movies, and more.
http://buzz.yahoo.com/

RE: [perl-win32-gui-users] AddGroupbox causes Perl to crash?

[Piske, H. <Har...@bo...>]

Aren't you gonna give that thing a -name? Every object in GUI needs a name.
If it's not unique, that's fine so long as you don't need to interact with
the thing. But popping out of Perl from unnamed objects, we've seen that
before here on the list.

Have fun,
Harald

> -----Original Message-----
> From: Jeremy Blonde [mailto:sco...@ya...]
> Sent: Friday, June 15, 2001 13:38
> To: Perl-Win32-GUI-Users
> Subject: [perl-win32-gui-users] AddGroupbox causes Perl to crash?
> 
> 
> Has anyone been running into problems using a Groupbox?  My 
> script crashes
> if I use a Groupbox, remove the Groupbox and the script works fine.
> 
> I haven't modified my script, but I have downloaded the 
> latest version of
> Perl from Activestate (626, it is a fresh install I didn't 
> overwrite 522)
> and have installed the latest Win32-GUI module (.558), 
> Win32-API (.2).  I do
> know that the script works just fine under Perl 522.
> 
> Any ideas?
> Jeremy Blonde
> 
> $Window->AddGroupbox(
>   -text => "Enter Username",
>   -pos  => [ 10, 10 ],
>   -size => [ 20, 75 ],
> );
> 
> 
> 
> 
> 
> 
> _________________________________________________________
> Do You Yahoo!?
> Get your free @yahoo.com address at http://mail.yahoo.com
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

[perl-win32-gui-users] AddGroupbox causes Perl to crash?

[Jeremy B. <sco...@ya...>]

Has anyone been running into problems using a Groupbox?  My script crashes
if I use a Groupbox, remove the Groupbox and the script works fine.

I haven't modified my script, but I have downloaded the latest version of
Perl from Activestate (626, it is a fresh install I didn't overwrite 522)
and have installed the latest Win32-GUI module (.558), Win32-API (.2).  I do
know that the script works just fine under Perl 522.

Any ideas?
Jeremy Blonde

$Window->AddGroupbox(
  -text => "Enter Username",
  -pos  => [ 10, 10 ],
  -size => [ 20, 75 ],
);






_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com

RE: [perl-win32-gui-users] Opening a *New* Browser Window?

[Piske, H. <Har...@bo...>]

I guess there's just no way to do it so that all browsers behave the same.
And you would not want to have code for all the major browsers out there -
talk about maintainability.

How about making your code smart enough to deal with it? Open a new browser,
deliberately empty, i.e. w/o passing a url. Walk thru the list of top level
windows and note all of them. Run the ShellExecute to have the browser open
the url and then check the window list again to see if an additional browser
showed up. If so, kill the first one. See Alone.pl at
www.fairymails.com/perl/ for code on these lists of windows.

Of course, when you just open a browser with no url, they will likely try to
show the default start page and you might want to avoid that. Or the second
browser will not display with the window settings (size and position) that
you like. Or what if the target url opens a second browser window with a
dumb ad in it, then you kill the target window and keep the ad ...
Well ... for every solution, there's three new problems, rite?

Have fun,
Harald

> -----Original Message-----
> From: Morbus Iff [mailto:mo...@di...]
> Sent: Friday, June 15, 2001 08:40
> To: per...@li...
> Subject: RE: [perl-win32-gui-users] Opening a *New* Browser Window?
> 
> 
>  >use Win32::TieRegistry;
>  >use Win32::API;
>  >
>  >  $url = "http://www.activestate.com";
>  >  my $http = 
> $Registry->{"Classes\\http\\shell\\open\\command"}->{'\\'};
>  >  unless ( $pid = fork ) { system("$http $url"); }
>  >
>  >  if (! $pid){
>  >    my $ShellExecute = new Win32::API("shell32",
>  >                       "ShellExecuteA",['N','P', 'P',
>  >                                        'P', 'P', 'I'], 'N');
>  >    $ShellExecute->Call(0, "open", $url, 0, 0, 1);
>  >  }
>  >
> 
> I just barely got around to trying this code today. Again, 
> what I'm trying 
> to attempt is a cross browser way of opening a NEW window if 
> an existing 
> browser window is already open.
> 
> The code above works fine for IE 6. However, Mozilla doesn't 
> understand the 
> passed $url to the system command above. Thus, I get one window with 
> Mozilla saying it couldn't find %1, and then another window 
> with the actual 
> URL correctly thrown in.
> 
> Sigh. Ah twell.
> 
> 
> Morbus Iff
> .sig on other machine.
> http://www.disobey.com/
> http://www.gamegrene.com/
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

[perl-win32-gui-users] Systray Clicks Are Called Twice?

[Morbus I. <mo...@di...>]

Has anyone noticed Systray clicks being sent twice to the script. For 
example, below is a code snippet. Whenever anyone clicks on "Open Window" 
for instance, the subroutine is called twice. We've had to implement a 
workaround (further below).

    # Create the popup menu
    $systray_menu = new Win32::GUI::Menu(
          "SystrayMenu Functions" => "SystrayMenu",
           "> Open Window"         => "_OpenWindow",
           "> Refresh Channels"    => "_RefreshChannels",
           "> Exit"                => "_FileExit"
    );

    # re-open the browser window.
    sub _OpenWindow_Click {
       &note("Received 'Open Window' request from Systray.");
       &open_url( $SETTINGS->{urls}->{channels_home} );
    }

The work around is rather simple, of course:

    # re-open the browser window.
    sub _OpenWindow_Click {

       &note("Received 'Open Window' request from Systray.");

       unless ( $already_called ) {

          # do the dirty deed.
          &open_url( $SETTINGS->{urls}->{channels_home} );

          # for some reason, we get two clicks every
          # time someone clicks a menu item. we check
          # for this here.
          $already_called = 1;
       }

       else { $already_called = 0; }
    }


Morbus Iff
.sig on other machine.
http://www.disobey.com/
http://www.gamegrene.com/

[perl-win32-gui-users] Systray Clicks Are Called Twice?

[Kevin H. <in...@to...>]

Has anyone noticed Systray clicks being sent twice to the script. For 
example, below is a code snippet. Whenever anyone clicks on "Open Window" 
for instance, the subroutine is called twice. We've had to implement a 
workaround (further below).

    # Create the popup menu
    $systray_menu = new Win32::GUI::Menu(
          "SystrayMenu Functions" => "SystrayMenu",
           "> Open Window"         => "_OpenWindow",
           "> Refresh Channels"    => "_RefreshChannels",
           "> Exit"                => "_FileExit"
    );

    # re-open the browser window.
    sub _OpenWindow_Click {
       &note("Received 'Open Window' request from Systray.");
       &open_url( $SETTINGS->{urls}->{channels_home} );
    }

The work around is rather simple, of course:

    # re-open the browser window.
    sub _OpenWindow_Click {

       &note("Received 'Open Window' request from Systray.");

       unless ( $already_called ) {

          # do the dirty deed.
          &open_url( $SETTINGS->{urls}->{channels_home} );

          # for some reason, we get two clicks every
          # time someone clicks a menu item. we check
          # for this here.
          $already_called = 1;
       }

       else { $already_called = 0; }
    }


-- -----------------------------------------------------------------------
Kevin Hemenway

RE: [perl-win32-gui-users] Opening a *New* Browser Window?

[Morbus I. <mo...@di...>]

 >use Win32::TieRegistry;
 >use Win32::API;
 >
 >  $url = "http://www.activestate.com";
 >  my $http = $Registry->{"Classes\\http\\shell\\open\\command"}->{'\\'};
 >  unless ( $pid = fork ) { system("$http $url"); }
 >
 >  if (! $pid){
 >    my $ShellExecute = new Win32::API("shell32",
 >                       "ShellExecuteA",['N','P', 'P',
 >                                        'P', 'P', 'I'], 'N');
 >    $ShellExecute->Call(0, "open", $url, 0, 0, 1);
 >  }
 >

I just barely got around to trying this code today. Again, what I'm trying 
to attempt is a cross browser way of opening a NEW window if an existing 
browser window is already open.

The code above works fine for IE 6. However, Mozilla doesn't understand the 
passed $url to the system command above. Thus, I get one window with 
Mozilla saying it couldn't find %1, and then another window with the actual 
URL correctly thrown in.

Sigh. Ah twell.


Morbus Iff
.sig on other machine.
http://www.disobey.com/
http://www.gamegrene.com/

[perl-win32-gui-users] =?utf-8?B?UkU6IFtwZXJsLXdpbjMyLWd1aS11c2Vyc10gTGlzdEJveCwgLW11?= =?utf-8?B?bHRpc2VsIGFuZCBTZWxlY3QoKSBwcm9ibGVtcw==?=

[<Pet...@at...>]

from the samples, here's a select all. I suppose you could modify it to
select just some...

sub AddAll_Click {
    for $i (0..$List1->Count-1) {
        $List2->InsertItem($List1->GetString($i));
    }
    $List2->Select($List2->Count-1);
    $Edit2->Text($List2->GetString($List2->SelectedItem));
    return 1;
}




> -----Original Message-----
> From: Tolpinrud, Henning [mailto:Hen...@sa...]
> Sent: Friday, June 15, 2001 7:32 AM
> To: per...@li...
> Subject: [perl-win32-gui-users] ListBox, -multisel and=20
> Select() problems
>=20
>=20
> Hi!
>=20
> In my program I have a ListBox control, and I'm saving out=20
> selections from this listbox to a datafile. I need to be able
> to read a selection back in and have the program select the
> correct items in the list.=20
>=20
> I have code working for writing and reading back these lists,=20
> however I have encountered problems with the code for doing
> the actual selecting of the items.=20
>=20
> My ListBox allows for multiple selections and has a scrollbar,
> and is defined somewhat like this (only the size/pos differs):
>=20
> $SystemWindow->AddListBox(
> 	-name =3D> "Systems",
> 	-style =3D> WS_SCROLL | WS_VISIBLE,
> 	-left =3D> 10,
> 	-top =3D> 10,
> 	-height =3D> 200,
> 	-width =3D> 120,
> 	-multisel =3D> 1
> );
>=20
> The code I'm trying to use for reading in and selecting items
> looks roughly like this (removing the insignificant portions
> like tests etc.):
>=20
> [loop statement here] {
> 	if ( $SystemWindow->Systems->FindStringExact( $text ) ) {
> 		$SystemWindow->Systems->SelectString( $text );
> 	}
> }
>=20
> I have checked, and double checked, that the strings *do* match
> items in the ListBox, and that the position returned by the
> FindExactString is correct. However the items *do not* get selected.
> I have tried replacing the SelectString call with the more=20
> elaborate...
>=20
> $SystemWindow->Systems->Select(=20
> $SystemWindow->Systems->FindStringExact(
> $text ) );
>=20
> ... but it still won't work.
>=20
> HOWEVER, if I remove the -multisel statement from the ListBox
> defintion, items *do* get selected (only one at a time, though,
> obviously)! Is this a bug? And is there a known workaround for it?
> Surely I cannot be the first person to try selecting multiple
> items from within program code! :-)
>=20
> --
> Henning Tolpinrud
> Hen...@sa...
>=20
>=20
>=20
>=20
>=20
>=20
>=20
>=20
>=20
>=20
> =
**********************************************************************
> The following text is in Norwegian: Avsender er  anse som personlig
> ansvarlig for innholdet og H=E9=8F=B1rens Forsyningskommando =
fraskriver seg
> ethvert ansvar for innholdet i meldingen og eventuelle vedlegg.
>=20
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>=20

Re: [perl-win32-gui-users] Selecting multiple lines in ListBox

[Johan L. <jo...@ba...>]

Henning wrote:
>HOWEVER, if I remove the -multisel statement from the ListBox
>defintion, items *do* get selected (only one at a time, though,
>obviously)! Is this a bug? And is there a known workaround for it?
>Surely I cannot be the first person to try selecting multiple
>items from within program code! :-)

Working piece of code:

----------

=head2 controlSelect()

Sync the ListBox with the selected controls.

Return 1 on success, else 0.

=cut
sub controlSelect { my $self = shift; my $pkg = ref($self);

         my $check = ( keys %{$self->objCanvas()->rhControlSelected()}  ) ? 
0 : 1;
         $self->winMain()->lbControl()->SendMessage(0x0185, $check, 
0);                          #LB_SETSEL

         my $i = 1;
         for my $objControl (@{$self->objDesign()->raControl()}) {
                 $self->winMain()->lbControl()->SendMessage(0x0185,
                                 $objControl->designIsSelected(), 
$i);                           #LB_SETSEL
                 $i++;
                 }

         return(1);
         }

----------

It appears that selecting a single line vs. multiple lines are two 
different things. Look at the SendMessage call. Note: The index is 0-based, 
I just manage the first item in my list separate from the others.

Ideally, this should go into a single sub and eventually into Win32::GUI. 
Spreading custom messages and constants in your program is both unreadable 
and bad for maintenance in the long run.


/J

------ ---- --- -- -- -- -  -   -    -        -
Johan Lindström                    Boss Casinos
Sourcerer                     jo...@ba...
                  http://www.bahnhof.se/~johanl/
If the only tool you have is a hammer,
everything tends to look
like a nail 

[perl-win32-gui-users] =?utf-8?B?TGlzdEJveCwgLW11bHRpc2VsIGFuZCBTZWxlY3QoKSBwcm9ibGVt?= =?utf-8?B?cw==?=

[<Hen...@sa...>]

Hi!

In my program I have a ListBox control, and I'm saving out 
selections from this listbox to a datafile. I need to be able
to read a selection back in and have the program select the
correct items in the list. 

I have code working for writing and reading back these lists, 
however I have encountered problems with the code for doing
the actual selecting of the items. 

My ListBox allows for multiple selections and has a scrollbar,
and is defined somewhat like this (only the size/pos differs):

$SystemWindow->AddListBox(
	-name => "Systems",
	-style => WS_SCROLL | WS_VISIBLE,
	-left => 10,
	-top => 10,
	-height => 200,
	-width => 120,
	-multisel => 1
);

The code I'm trying to use for reading in and selecting items
looks roughly like this (removing the insignificant portions
like tests etc.):

[loop statement here] {
	if ( $SystemWindow->Systems->FindStringExact( $text ) ) {
		$SystemWindow->Systems->SelectString( $text );
	}
}

I have checked, and double checked, that the strings *do* match
items in the ListBox, and that the position returned by the
FindExactString is correct. However the items *do not* get selected.
I have tried replacing the SelectString call with the more elaborate...

$SystemWindow->Systems->Select( $SystemWindow->Systems->FindStringExact(
$text ) );

... but it still won't work.

HOWEVER, if I remove the -multisel statement from the ListBox
defintion, items *do* get selected (only one at a time, though,
obviously)! Is this a bug? And is there a known workaround for it?
Surely I cannot be the first person to try selecting multiple
items from within program code! :-)

--
Henning Tolpinrud
Hen...@sa...










**********************************************************************
The following text is in Norwegian: Avsender er nse som personlig
ansvarlig for innholdet og Hns Forsyningskommando fraskriver seg
ethvert ansvar for innholdet i meldingen og eventuelle vedlegg.

[perl-win32-gui-users] Re: Win32:: GUI Capturing the enter key

[<Kev...@al...>]

Carol,

Your code looked fine to me but didn't work when I ran it either so I
looked at Aldo's PRIDE program and found that I could only get the keypress
event to be called if I declared a new class and then made the richedit a
member of that class:

     my $EC = new Win32::GUI::Class(     # Without this RichEdit KeyPress
Event doesn't get called
         -name => "MyPerlRichEditClass",
         -extends => "RichEdit",
         -widget => "RichEdit",
     );

     $W->AddRichEdit(
         -class   => $EC,
         -name    => "Console",
         -text    => "",
         -left    => 5,
         -top     => 5,
         -multiline => 1,
         -width   => $W->ScaleWidth-10,
         -height  => $W->ScaleHeight-10,
         -exstyle  => WS_EX_CLIENTEDGE,
         -style    => WS_CHILD | WS_VISIBLE | WS_VSCROLL | WS_HSCROLL
                     | ES_LEFT | ES_MULTILINE | ES_AUTOHSCROLL |
ES_AUTOVSCROLL,
     );

I also found that if you want to use the change event you need to do

     $W->Console->SendMessage(1093, 0, 1);  # Enables Change Event for
RichEdit control

I'm afraid my knowledge of XS and the Win32 API isn't up to looking at
Aldo's code to find out why you need to do this.

I've included my modifications to your code the attachment.

Cheers,

Kev.

(See attached file: richedit.pl)




                                                                                                                   
                    Carolyyne                                                                                      
                    Courtney             To:     Kev...@AL...                                         
                    <carolyyne@ho        cc:                                                                       
                    tmail.com>           Subject:     Win32:: GUI Capturing the enter key                          
                                                                                                                   
                    15/06/2001                                                                                     
                    08:33                                                                                          
                                                                                                                   
                                                                                                                   




Kevin,

I still can't get this to work!
What am I doing wrong?

Carol

###
use strict;
use Win32::GUI;

my $M = new Win32::GUI::Menu(
  "&Menu" => "menu",
    " > &Exit" => "exit",
);

my $W = new Win32::GUI::Window(
  -name        => "main",
  -text        => "Test",
  -left        => 100,
  -top         => 100,
  -width       => 400,
  -height      => 300,
  -menu        => $M,
);

$W->AddRichEdit(
    -name    => "console",
    -text    => "enter something>",
    -left    => 5,
    -top     => 5,
    -width   => $W->ScaleWidth-10,
    -height  => $W->ScaleHeight-10,
);
#
$W->Show();
Win32::GUI::Dialog();
#
sub console_KeyPress {
  my($key) = @_;

  if ($key == 13) {
    print "Enter pressed";
  }
  else {
    print "$key";
  }
}

sub exit_Click {
  return -1;
}
_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com.

Re: [perl-win32-gui-users] Archives

[Hirosi T. <ta...@se...>]

> Was "how" the search word you entered?  If so, it's probably filtered as
>  a too-common word. Try different words more topical to what you are
>  searching for help on.

Oooops.

I tried, "popup", "Textfield" in real.

--
Hirosi Taguti
ta...@se...

Re: [perl-win32-gui-users] Archives

[Marjolein K. <win...@ja...>]

Hiroshi,

Was "how" the search word you entered?  If so, it's probably filtered as a too-common word. Try different words more topical to what you are searching for help on.

At 13:48 2001-06-15 +0900, Hirosi Taguti wrote:
>I like to search on Perl-Win32-GUI-Users Archives.
>But when I enter search-word & push "Search Perl-Win32-GUI-Users"
>button at,
>http://www.geocrawler.com/lists/3/SourceForge/8381/0/
>I get always,
>"There were no matches for how found on the website."
>
>Any help, please.
>
>--
>Hirosi Taguti
>ta...@se...
>
>_______________________________________________
>Perl-Win32-GUI-Users mailing list
>Per...@li...
>http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users


Cheers,

Marjolein Katsma
HomeSite Help - http://hshelp.com/ - Extensions, Tips and Tools

[perl-win32-gui-users] Archives

[Hirosi T. <ta...@se...>]

I like to search on Perl-Win32-GUI-Users Archives.
But when I enter search-word & push "Search Perl-Win32-GUI-Users"
button at,
http://www.geocrawler.com/lists/3/SourceForge/8381/0/
I get always,
"There were no matches for how found on the website."

Any help, please.

--
Hirosi Taguti
ta...@se...

RE: [perl-win32-gui-users] RE: How to change tip for Notify Icon

[Frazier, J. J. <Joe...@Pe...>]

Thanks Johan, but i am fairly new to GUI Dev.  I have a little knowledge
of VB, and have been working in Perl for about 3 years, but none of it
has used core API calls directly.  Also, I have never needed to use
pack/unpack before, so I am not sure of the intricate details.


Here is a sample, perhasp Aldo or someone else can help me make sure it
is right( I am sure it is not)

$icon =3D new Win32::GUI::Icon('SECUR05.ICO');
$Window->ChangeIcon($icon);
$ni =3D $Window->AddNotifyIcon(-name =3D> "NI", -id =3D> 1, -icon =3D> =
$icon,
-tip =3D> "PCKeys");




$nifunc =3D new Win32::API("shell32", =
"Shell_NotifyIconA",[N,N,N,N,N,N,P],
I);

$size =3D   		# what?
$tip =3D "Show this tip"; # same as tip above
$id =3D 1;		# same as id above
$flags =3D undef;		# would this be -style type stuff?
$callback =3D undef;	# right? what else could you put?  A callback
when the icon i
#created/modified/deleted?

$icon =3D $icon;		# I assume I can use an object?????

$hWnd =3D                  # what?   Is this the -name Param above or =
the
parent window object?

$params =3D pack("LLLLLLA", $size, $hWnd, $id, $flags, $callback, $icon,
$tip); =20
	# I have never messed with pack/unpack, does this look about
right?

$NIM_ADD =3D 0;
$NIM_MODIFY =3D 1;
$NIM_DELETE =3D 2;


$rval =3D $nifunc->Call($NIM_MODIFY,$params);  #  now what?  I know I =
have
to unpack,=20
 	#but what kind of data is returned?  Is is a simple bool?
$return =3D unpack("I", $rval);



for the pack/unpack, are values returned signed or unsigned?  Also,
should strings normally be a,A or Z in pack/unpack? =20

Thanks for any pointers. =20





> -----Original Message-----
> From: Johan Lindstrom [mailto:jo...@ba...]
> Sent: Wednesday, June 13, 2001 17:06
> To: per...@li...
> Subject: RE: [perl-win32-gui-users] RE: How to change tip for Notify
> Icon
>=20
>=20
> Joe wrote:
> >No go..  Got the "Cant Locate object method Change in package
> >Win32::GUI::NotifyIcon .....  Any more thoughts?
>=20
> When Win32::GUI doesn't do what you want, you do what you=20
> want with Win32::API.
>=20
> Look at "Shell_NotifyIcon" and "NOTIFYICONDATA" in the Win32=20
> API Reference.=20
> I posted a few urls the other day.
>=20
>=20
> /J
>=20
> ------ ---- --- -- -- -- -  -   -    -        -
> Johan Lindstr=F6m                    Boss Casinos
> Sourcerer                     jo...@ba...
>                   http://www.bahnhof.se/~johanl/
> If the only tool you have is a hammer,
> everything tends to look
> like a nail=20
>=20
>=20
>=20
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>=20

Re: [perl-win32-gui-users] TreeView... how to detect right-mouse click (and coords...)

[Jonathan S. <jso...@al...>]

Simon,.

I can answer the second question.  In the subroutine that captures the 
event invoking the popup menu you can do this:

    my($X, $Y) = Win32::GUI::GetCursorPos();
    $MainWindow->TrackPopupMenu($PopupMenu->{ItemProp},$X, $Y);


In this case ItemProp is the name given to the popup menu.

I hope this helps.

Jonathan
-----------------------------------------------------------
Jonathan Southwick
jso...@al...
Technical & Network Services
Allegheny College, Meadville, PA 16335


At 6/14/2001 02:48 PM, you wrote:
>Dear fellow GUI fans,
>
>Say I want have a right-mouse-click driven context pop-up menu in a 
>TreeView...
>
>1. How to discover when the right-mouse-button is pressed and relate it to 
>a particular tree node? ...TreeView methods only seem to support left 
>clicking, or?
>
>2. How to figure out the screen coordinates of the click in order to place 
>the pop-up menu?
>
>Thanks,
>
>Simon
>
>
>Powered by the Email PIM - Info Select - www.miclog.com
>
>_______________________________________________
>Perl-Win32-GUI-Users mailing list
>Per...@li...
>http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

[perl-win32-gui-users] TreeView... using 3rd party (non-Microsoft) controls?

[Simon Hardy-F. <si...@we...>]

Dear fellow GUI fans,

Say for example that I want to bind a bigger / faster TreeView control with=
 my Perl script (e.g. the FlyTree control from  http://imcasys.com/cgi-bin/=
components.cgi?act=3D1&cid=3D1)... How to do this? Can one somehow ask Win3=
2::GUI to recognize other controls or must one extend Win32::GUI with new l=
ow-level system interface code? If the later then does anybody have experie=
nce / tips / examples for doing this?

Thanks,

Simon

Powered by the Email PIM - Info Select - www.miclog.com

[perl-win32-gui-users] TreeView... how to detect right-mouse click (and coords...)

[Simon Hardy-F. <si...@we...>]

Dear fellow GUI fans,

Say I want have a right-mouse-click driven context pop-up menu in a TreeVie=
w...

1. How to discover when the right-mouse-button is pressed and relate it to =
a particular tree node? ...TreeView methods only seem to support left click=
ing, or?

2. How to figure out the screen coordinates of the click in order to place =
the pop-up menu?

Thanks,

Simon


Powered by the Email PIM - Info Select - www.miclog.com

RE: [perl-win32-gui-users] RE: How to change tip for Notify Icon

[Johan L. <jo...@ba...>]

Joe wrote:
>No go..  Got the "Cant Locate object method Change in package
>Win32::GUI::NotifyIcon .....  Any more thoughts?

When Win32::GUI doesn't do what you want, you do what you want with Win32::API.

Look at "Shell_NotifyIcon" and "NOTIFYICONDATA" in the Win32 API Reference. 
I posted a few urls the other day.


/J

------ ---- --- -- -- -- -  -   -    -        -
Johan Lindström                    Boss Casinos
Sourcerer                     jo...@ba...
                  http://www.bahnhof.se/~johanl/
If the only tool you have is a hammer,
everything tends to look
like a nail 

RE: [perl-win32-gui-users] RE: How to change tip for Notify Icon

[Frazier, J. J. <Joe...@Pe...>]

No go..  Got the "Cant Locate object method Change in package
Win32::GUI::NotifyIcon .....  Any more thoughts?



> -----Original Message-----
> From: Piske, Harald [mailto:Har...@bo...]
> Sent: Wednesday, June 13, 2001 12:58
> To: 'per...@li...'
> Subject: RE: [perl-win32-gui-users] RE: How to change tip for Notify
> Icon
>=20
>=20
> I did not try this, but when setting a hash value doesn't=20
> work with a GUI
> object, Aldo sometimes tells us to use the Change method instead. I.e.
>=20
>           $Window->NI->Change(-tip =3D> "Show PCKeys");
> instead of
>           $Window->NI->{-tip} =3D "Show PCKeys";
>=20
> Worth trying.
> Have fun,
> Harald
>=20
> > -----Original Message-----
> > From: Frazier, Joe Jr [mailto:Joe...@Pe...]
> > Sent: Wednesday, June 13, 2001 08:19
> > To: per...@li...
> > Subject: [perl-win32-gui-users] RE: How to change tip for=20
> Notify Icon
> >=20
> >=20
> > Below is part of some code.  I want to be able to change the=20
> > Notify Icon
> > tip based on the status of the main window:
> >=20
> > If window is visible, tip should be "Hide PCKeys", if not=20
> visible, tip
> > should be "Show PCKeys".  Can this be done?   I have tried several
> > different things and nothing has worked.  I have the=20
> hide/show part in
> > my NI_Click sub, but cant change the tip text... Help...
> >=20
> > Joe Frazier, Jr
> > Technical Support Engineer
> > PeopleClick
> > 919-645-2916
> > joe...@pe...
> > =20
> >=20
> > use Win32::GUI;
> >=20
> > $Window =3D new Win32::GUI::Window(
> >     -name   =3D> "Window",
> >     -topmost =3D> 1,
> >     -left   =3D> 300,
> >     -top    =3D> 400,
> >     -width  =3D> 205,
> >     -height =3D> 228,
> >     -maxsize  =3D> [205,228],
> >     -minsize  =3D> [205,228],
> >     -text   =3D> "PC 4.0 Keys",
> >  -maximizebox =3D> 0,
> > =20
> >=20
> > );
> >=20
> > $icon =3D new Win32::GUI::Icon('SECUR05.ICO');
> > $Window->ChangeIcon($icon);
> > $ni =3D $Window->AddNotifyIcon(-name =3D> "NI", -id =3D> 1,
> >                                -icon =3D> $icon, -tip =3D> =
"PCKeys");
> >=20
> > $Window->Show();
> > Win32::GUI::Dialog();
> >=20
> > #=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
> > sub Window_Terminate {
> > #=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
> > $ni =3D $Window->AddNotifyIcon(-name =3D> "NI", -id =3D> 1,
> >                                -icon =3D> '', -tip =3D> "Hide =
PCKeys");
> >     return -1;
> > }
> >=20
> > sub NI_Click {
> >  if ($Window->IsVisible){
> >   $Window->Disable();
> >          $Window->Hide();
> >          $Window->NI->{-tip} =3D "Show PCKeys";
> >   return 1;
> >  }
> >  else {
> >          $Window->Enable();
> >          $Window->Show();
> >          $Window->NI->{-tip} =3D "Hide PCKeys";
> >   return 1;
> >  }
> > }
> >=20
> > _______________________________________________
> > Perl-Win32-GUI-Users mailing list
> > Per...@li...
> > http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> >=20
>=20
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>=20

RE: [perl-win32-gui-users] RE: How to change tip for Notify Icon

[Piske, H. <Har...@bo...>]

I did not try this, but when setting a hash value doesn't work with a GUI
object, Aldo sometimes tells us to use the Change method instead. I.e.

          $Window->NI->Change(-tip => "Show PCKeys");
instead of
          $Window->NI->{-tip} = "Show PCKeys";

Worth trying.
Have fun,
Harald

> -----Original Message-----
> From: Frazier, Joe Jr [mailto:Joe...@Pe...]
> Sent: Wednesday, June 13, 2001 08:19
> To: per...@li...
> Subject: [perl-win32-gui-users] RE: How to change tip for Notify Icon
> 
> 
> Below is part of some code.  I want to be able to change the 
> Notify Icon
> tip based on the status of the main window:
> 
> If window is visible, tip should be "Hide PCKeys", if not visible, tip
> should be "Show PCKeys".  Can this be done?   I have tried several
> different things and nothing has worked.  I have the hide/show part in
> my NI_Click sub, but cant change the tip text... Help...
> 
> Joe Frazier, Jr
> Technical Support Engineer
> PeopleClick
> 919-645-2916
> joe...@pe...
>  
> 
> use Win32::GUI;
> 
> $Window = new Win32::GUI::Window(
>     -name   => "Window",
>     -topmost => 1,
>     -left   => 300,
>     -top    => 400,
>     -width  => 205,
>     -height => 228,
>     -maxsize  => [205,228],
>     -minsize  => [205,228],
>     -text   => "PC 4.0 Keys",
>  -maximizebox => 0,
>  
> 
> );
> 
> $icon = new Win32::GUI::Icon('SECUR05.ICO');
> $Window->ChangeIcon($icon);
> $ni = $Window->AddNotifyIcon(-name => "NI", -id => 1,
>                                -icon => $icon, -tip => "PCKeys");
> 
> $Window->Show();
> Win32::GUI::Dialog();
> 
> #=====================
> sub Window_Terminate {
> #=====================
> $ni = $Window->AddNotifyIcon(-name => "NI", -id => 1,
>                                -icon => '', -tip => "Hide PCKeys");
>     return -1;
> }
> 
> sub NI_Click {
>  if ($Window->IsVisible){
>   $Window->Disable();
>          $Window->Hide();
>          $Window->NI->{-tip} = "Show PCKeys";
>   return 1;
>  }
>  else {
>          $Window->Enable();
>          $Window->Show();
>          $Window->NI->{-tip} = "Hide PCKeys";
>   return 1;
>  }
> }
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

Re: [perl-win32-gui-users] ListView Item Click and Windows 2000

[<Kev...@al...>]

Jonathan,

You're right, removing -hotrack => 1 gives exactly what I want.  You'd
think I might have noticed that option and wondered what it did.  I must be
too used to using GB to design the forms and not be paying any attention to
what all the things are its doing for me.

Thanks very much for that,

Kev.



                                                                                                                                            
                    Jonathan Southwick                                                                                                      
                    <jso...@al...>                      To:     per...@li...                        
                    Sent by:                                      cc:                                                                       
                    per...@li...urc        Subject:     Re: [perl-win32-gui-users] ListView Item Click and Windows   
                    eforge.net                                    2000                                                                      
                                                                                                                                            
                                                                                                                                            
                    13/06/2001 16:59                                                                                                        
                    Please respond to perl-win32-gui-users                                                                                  
                                                                                                                                            
                                                                                                                                            




Kevin,

I just tried something on my program and it seemed to work just fine.

My guess is you have -hotrack => 1 in your defined ListView object.  try
taking that out and see if you get the results you want.

Jonathan
----------------------------------------------------------
Jonathan Southwick
jso...@al...
Technical & Network Services
Allegheny College, Meadville, PA 16335
(814) 332-2755

Re: [perl-win32-gui-users] ListView Item Click and Windows 2000

[Jonathan S. <jso...@al...>]

Kevin,

I just tried something on my program and it seemed to work just fine.

My guess is you have -hotrack => 1 in your defined ListView object.  try 
taking that out and see if you get the results you want.

Jonathan
----------------------------------------------------------
Jonathan Southwick
jso...@al...
Technical & Network Services
Allegheny College, Meadville, PA 16335
(814) 332-2755


At 6/13/2001 04:21 PM, you wrote:

>Jonathan,
>
>The particular app that this is for will use the ListView to display files.
>I was hoping to allow a single click to select a file, further single
>clicks to select multiple files and a double click to perform an action on
>the files that had been selected.  This would mean over riding the default
>action of a single click de-selecting the items that had previously been
>selected and then selecting the item the mouse pointer is on.  As leaving
>the mouse on an item has the same effect as clicking (and I don't seem to
>be able to over ride this) I can't do it that way.
>
>Looking back at that paragraph it looks even more confusing now!
>
>Thanks again for your experience with this.
>
>Kev.