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

[perl-win32-gui-users] looking for Mike Blazer - sorry this was the last place I saw him

[Jake S. <js...@gr...>]

this seems to be defunct!
> ==================================
> Mike Blazer
> bl...@ma...
> http://base.dux.ru/guest/fno/perl/
> ==================================

Hello Mike

Are you still maintaining the RAS perl module?

If you are, have you created a patch for Win2K Adv Server? I am unable to
create a new RAS entry. It is highly possible that I am doing something
wrong, so please forgive me for taking the easy option.

If you are unaware of any perculiarities that is also helpful to know.

Thanks in advance
Jake

ps apologies for being completely offtopic

--===code snippet===--

RasCreateEntry ({
			name   	 	  => "name",
			CountryCode	   	  => "78",
			AreaCode	   	  => "92",
			LocalPhoneNumber    => "12345678",
			DeviceName		  => $modem_name,
			NetProtocols	  => ["Ip"],
			FramingProtocol	  => "PPP",
			newFlags		  => "ModemLights SwCompression IpHeaderCompression",
	});

--=== end ===--

Re: [perl-win32-gui-users] showing firstvisible in a combo box

[Chris E. <ce...@mi...>]

phew. Thanks folks. that was the last bug to figure out. I am finished and
your suggestions worked. I created a CSS Generator for a friend and now he
can test it. If anybody wants to pick it apart for fun, here it is.

Chris


----- Original Message -----
From: "Piske, Harald" <Har...@bo...>
To: <per...@li...>
Sent: Sunday, June 03, 2001 10:35 AM
Subject: RE: [perl-win32-gui-users] showing firstvisible in a combo box


> FirstVisibleItem takes an Index, not a string. The Index is zero-based, as
> Dave said. The points are
>
> a) if you want a specific entry to be selected by default, so that the
user
> can change is if she wants and leave it if she doesn't, then you want
> $LB->Select(), not FirstVisibleItem.
>
> b) use $LB->FirstVisibleItem($LB->SelectedItem()) to make sure the
selected
> entry is not scrolled out of view.
>
> c) if you sort the entries in your listbox, $LB->Select(0) does not select
> the item you inserted first, but the first item in the sort order.
>
> d) user $LB->FindString($entry) to get the zero-based index of $entry, for
> use in other methods like Select of FirstVisibleItem.
>
> Have fun,
> Harald
>
> > -----Original Message-----
> > From: Dave [mailto:da...@sk...]
> > Sent: Sonntag, 3. Juni 2001 06:04
> > To: per...@li...
> > Subject: RE: [perl-win32-gui-users] showing firstvisible in a
> > combo box
> >
> >
> > I'm not sure this is the best way, but what I would do is change
> >
> > $bftextdecdd->FirstVisibleItem();
> > to
> > $bftextdecdd->Select(0);
> >
> > That will automatically select the first element in your list.
> > ( it is 0 because combobox uses a 0-based index to reference the items
> > in the list ).
> >
> >
> > Hope that helps.
> >
> > Dave McLaughlin
> > da...@sk...
> >
> >
> > -----Original Message-----
> > From: per...@li...
> > [mailto:per...@li...] On Behalf Of
> > Chris Etzel
> > Sent: Sunday, June 03, 2001 1:56 AM
> > To: per...@li...
> > Subject: [perl-win32-gui-users] showing firstvisible in a combo box
> >
> >
> > Hey,
> >
> > I have this code, and I want to make the word 'none' from the list
> > visible by default and then the user can choose something else if they
> > want. I have looked through the docs and have tried
> > FirstVisibleItem but
> > no luck. Any help appreciated!
> >
> > Chris
> >
> > $bftextdecdd=$Win1->AddCombobox(
> >  -name=>"bftextdecdd",
> >  -width=>100,
> >  -height=>100,
> >  -tabstop=>1,
> >  -top=>242,
> >  -left=>370,
> >  -style=> WS_VISIBLE | WS_SCROLL | 3
> >  );
> >
> >       $bftextdecdd->InsertItem("none");
> >     $bftextdecdd->InsertItem("blink");
> >     $bftextdecdd->InsertItem("line-through");
> >     $bftextdecdd->InsertItem("underline");
> >     $bftextdecdd->InsertItem("overline");
> >     #$bftextdecdd->FirstVisibleItem(); how the hell do I show
> > 'none' as
> >     #first visible by default?
> >
> >     sub bftextdecdd_Change{
> >
> > $bftextdecdd->Text($bftextdecdd->GetString($bftextdecdd->Selec
> > tedItem));
> >      }
> >
> >
> >
> > _______________________________________________
> > 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
> >
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

RE: [perl-win32-gui-users] showing firstvisible in a combo box

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

FirstVisibleItem takes an Index, not a string. The Index is zero-based, as
Dave said. The points are

a) if you want a specific entry to be selected by default, so that the user
can change is if she wants and leave it if she doesn't, then you want
$LB->Select(), not FirstVisibleItem.

b) use $LB->FirstVisibleItem($LB->SelectedItem()) to make sure the selected
entry is not scrolled out of view.

c) if you sort the entries in your listbox, $LB->Select(0) does not select
the item you inserted first, but the first item in the sort order.

d) user $LB->FindString($entry) to get the zero-based index of $entry, for
use in other methods like Select of FirstVisibleItem.

Have fun,
Harald

> -----Original Message-----
> From: Dave [mailto:da...@sk...]
> Sent: Sonntag, 3. Juni 2001 06:04
> To: per...@li...
> Subject: RE: [perl-win32-gui-users] showing firstvisible in a 
> combo box
> 
> 
> I'm not sure this is the best way, but what I would do is change 
> 
> $bftextdecdd->FirstVisibleItem();
> to
> $bftextdecdd->Select(0);
> 
> That will automatically select the first element in your list.
> ( it is 0 because combobox uses a 0-based index to reference the items
> in the list ).
> 
> 
> Hope that helps.
> 
> Dave McLaughlin
> da...@sk...
> 
> 
> -----Original Message-----
> From: per...@li...
> [mailto:per...@li...] On Behalf Of
> Chris Etzel
> Sent: Sunday, June 03, 2001 1:56 AM
> To: per...@li...
> Subject: [perl-win32-gui-users] showing firstvisible in a combo box
> 
> 
> Hey,
> 
> I have this code, and I want to make the word 'none' from the list
> visible by default and then the user can choose something else if they
> want. I have looked through the docs and have tried 
> FirstVisibleItem but
> no luck. Any help appreciated!
> 
> Chris
> 
> $bftextdecdd=$Win1->AddCombobox(
>  -name=>"bftextdecdd",
>  -width=>100,
>  -height=>100,
>  -tabstop=>1,
>  -top=>242,
>  -left=>370,
>  -style=> WS_VISIBLE | WS_SCROLL | 3
>  );
> 
>       $bftextdecdd->InsertItem("none");
>     $bftextdecdd->InsertItem("blink");
>     $bftextdecdd->InsertItem("line-through");
>     $bftextdecdd->InsertItem("underline");
>     $bftextdecdd->InsertItem("overline");
>     #$bftextdecdd->FirstVisibleItem(); how the hell do I show 
> 'none' as
>     #first visible by default?
> 
>     sub bftextdecdd_Change{
> 
> $bftextdecdd->Text($bftextdecdd->GetString($bftextdecdd->Selec
> tedItem));
>      }
> 
> 
> 
> _______________________________________________
> 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
> 

RE: [perl-win32-gui-users] showing firstvisible in a combo box

[Dave <da...@sk...>]

I'm not sure this is the best way, but what I would do is change 

$bftextdecdd->FirstVisibleItem();
to
$bftextdecdd->Select(0);

That will automatically select the first element in your list.
( it is 0 because combobox uses a 0-based index to reference the items
in the list ).


Hope that helps.

Dave McLaughlin
da...@sk...


-----Original Message-----
From: per...@li...
[mailto:per...@li...] On Behalf Of
Chris Etzel
Sent: Sunday, June 03, 2001 1:56 AM
To: per...@li...
Subject: [perl-win32-gui-users] showing firstvisible in a combo box


Hey,

I have this code, and I want to make the word 'none' from the list
visible by default and then the user can choose something else if they
want. I have looked through the docs and have tried FirstVisibleItem but
no luck. Any help appreciated!

Chris

$bftextdecdd=$Win1->AddCombobox(
 -name=>"bftextdecdd",
 -width=>100,
 -height=>100,
 -tabstop=>1,
 -top=>242,
 -left=>370,
 -style=> WS_VISIBLE | WS_SCROLL | 3
 );

      $bftextdecdd->InsertItem("none");
    $bftextdecdd->InsertItem("blink");
    $bftextdecdd->InsertItem("line-through");
    $bftextdecdd->InsertItem("underline");
    $bftextdecdd->InsertItem("overline");
    #$bftextdecdd->FirstVisibleItem(); how the hell do I show 'none' as
    #first visible by default?

    sub bftextdecdd_Change{

$bftextdecdd->Text($bftextdecdd->GetString($bftextdecdd->SelectedItem));
     }



_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

[perl-win32-gui-users] showing firstvisible in a combo box

[Chris E. <ce...@mi...>]

Hey,

I have this code, and I want to make the word 'none' from the list visible
by default and then the user can choose something else if they want. I have
looked through the docs and have tried FirstVisibleItem but no luck. Any
help appreciated!

Chris

$bftextdecdd=$Win1->AddCombobox(
 -name=>"bftextdecdd",
 -width=>100,
 -height=>100,
 -tabstop=>1,
 -top=>242,
 -left=>370,
 -style=> WS_VISIBLE | WS_SCROLL | 3
 );

      $bftextdecdd->InsertItem("none");
    $bftextdecdd->InsertItem("blink");
    $bftextdecdd->InsertItem("line-through");
    $bftextdecdd->InsertItem("underline");
    $bftextdecdd->InsertItem("overline");
    #$bftextdecdd->FirstVisibleItem(); how the hell do I show 'none' as
    #first visible by default?

    sub bftextdecdd_Change{

$bftextdecdd->Text($bftextdecdd->GetString($bftextdecdd->SelectedItem));
     }

[perl-win32-gui-users] Changing the states of toolbar buttons?

[<pko...@me...>]

Hello,

has anyone a solution how to change toolbar button states on the fly?

Peter

Re: [perl-win32-gui-users] color change (lable)...

[Webmaster C. <web...@cy...>]

I have it found:

I write the *init code* into a ...:

#######

&init_background();

sub init_background {
    $bgWindow = $Window->AddLabel(
         -name      => "bgWindow",
         -left      => 0,
         -top       => 0,
         -width  => $screensize_width,
         -height => $screensize_height,
         -background => "#".$BackgroundRed.$BackgroundGreen.$BackgroundBlue,
    );
}
#########

and now i say anywhere

######
$BackgroundRed = "59";
$BackgroundGreen = "12";
$BackgroundBlue = "00";

&init_background();
######

and it's work fine until now ;-)

cu

Thorsten Sommer

[perl-win32-gui-users] Re: Changing items in a ListView with columns?

[<pko...@me...>]

> How can items, especially single columns of an item in a ListView
> be changed, without removing and re-inserting the whole item?

Now I am able to give the answer to my own question I asked some days ago
:-)

$win->listview->ChangeItem(-item => $index, -subitem => 1, -text => 'Foo');


Peter

RE: [perl-win32-gui-users] color change (lable)...

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

Try the -fill and -frame options. According to docs your choices seem
limited to black/gray/white/none but trying playing with it. Maybe you can
do the exact color you want.

> -----Original Message-----
> From: Webmaster CZ [mailto:web...@cy...]
> Sent: Friday, June 01, 2001 2:44 PM
> To: per...@li...
> Subject: [perl-win32-gui-users] color change (lable)...
> 
> 
> Hi !
> 
> I would like to change the background - color from my main-window :
> 
> #####
> $bgWindow = $Window->AddLabel(
>    -name      => "bgWindow",
>    -left      => 0,
>    -top       => 0,
>    -width  => $screensize_width,
>    -height => $screensize_height,
>    -background => "#".$BackgroundRed.$BackgroundGreen.$BackgroundBlue,
> );
> ######
> 
> But how i can now the color chnage ???
> 
> Thing's like:
> ##########
> $BackgroundRed = "59";
> $BackgroundGreen = "12";
> $BackgroundBlue = "00";
> 
> [....]
> 
> $bgWindow->InvalidateRect(1);
> #########
> 
> ... not working ...
> 
> #####
> $bgWindow->Background("#$BackgroundRed$BackgroundGreen$Backgro
> undBlue");
> #####
> 
> work's not too ...
> 
> ####
> $bgWindow->Change( -background =>
> "#$BackgroundRed$BackgroundGreen$BackgroundBlue");
> ####
> 
> ... is the same ... work's nothing ...
> 
> I don't know ... how can I change it ???
> Please help me, thx !!!
> 
> cu
> Thorsten Sommer
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

[perl-win32-gui-users] color change (lable)...

[Webmaster C. <web...@cy...>]

Hi !

I would like to change the background - color from my main-window :

#####
$bgWindow = $Window->AddLabel(
   -name      => "bgWindow",
   -left      => 0,
   -top       => 0,
   -width  => $screensize_width,
   -height => $screensize_height,
   -background => "#".$BackgroundRed.$BackgroundGreen.$BackgroundBlue,
);
######

But how i can now the color chnage ???

Thing's like:
##########
$BackgroundRed = "59";
$BackgroundGreen = "12";
$BackgroundBlue = "00";

[....]

$bgWindow->InvalidateRect(1);
#########

... not working ...

#####
$bgWindow->Background("#$BackgroundRed$BackgroundGreen$BackgroundBlue");
#####

work's not too ...

####
$bgWindow->Change( -background =>
"#$BackgroundRed$BackgroundGreen$BackgroundBlue");
####

... is the same ... work's nothing ...

I don't know ... how can I change it ???
Please help me, thx !!!

cu
Thorsten Sommer

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

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

> -----Original Message-----
> From: Frazier, Joe Jr=20
> Sent: Friday, June 01, 2001 11:35
> To: 'per...@li...'
> Subject: RE: [perl-win32-gui-users] Opening a *New* Browser Window?
>=20
>=20
>=20
>=20
> > -----Original Message-----
> > From: Morbus Iff [mailto:mo...@di...]
> > Sent: Friday, June 01, 2001 10:50
> > To: per...@li...
> > Subject: Re: [perl-win32-gui-users] Opening a *New* Browser Window?
> >=20
> >=20
> >  >>| Well, then you just take the best of both ... first, you=20
> > open a new
> >  >>| window and then you do what you did before. I pretty=20
> > sure that the
> >  >>| ShellExecute will target this new browser. At least,=20
> > when I click a link
> >  >
> >  >That was so blatantly obvious that I'm hiding in a corner=20
> > for not seeing it
> >  >myself. I tried it this morning using the following code:
> >  >
> Check your logic....
>=20
> >  >      use Win32::TieRegistry;
> >  >      my $http =3D=20
> $Registry->{"Classes\\http\\shell\\open\\command"}->{'\\'};
> >  >      unless ( fork ) { system("$http"); }
> You call system here..... and then...
> >  >      use Win32::API;
> >  >      my $ShellExecute =3D new Win32::API("shell32",=20
> "ShellExecuteA",
> >  >                         ['N','P', 'P', 'P', 'P', 'I'], 'N');
> >  >      $ShellExecute->Call(0, "open", $url, 0, 0, 1);
>=20
> You call the ShellExecuteA.  This results in two windows. =20
> Now... I have never used fork, so i dont know the exact=20
> syntax, but somthing like this....
>=20
>=20
> use Win32::TieRegistry;
> use Win32::API;
> my $http =3D =
$Registry->{"Classes\\http\\shell\\open\\command"}->{'\\'};
>=20
> unless (`start $http $url`){            # if this call fails,=20
> do this.....
>=20
> 	my $ShellExecute =3D new Win32::API("shell32",=20
> "ShellExecuteA",['N','P', 'P', 'P', 'P', 'I'], 'N');
> 	$ShellExecute->Call(0, "open", $url, 0, 0, 1);
> }
>=20

or..... (doh!)=20

use Win32::TieRegistry;
use Win32::API;
$url =3D "http://www.activestate.com";
      my $http =3D
$Registry->{"Classes\\http\\shell\\open\\command"}->{'\\'};
       unless ( $pid =3D fork ) { system("$http $url"); }  # note the
adding of $pid =3D
=09
# and the adding of the $url

if($pid){       # note to check if the other thing returned good pid...
       my $ShellExecute =3D new Win32::API("shell32",
"ShellExecuteA",['N','P', 'P', 'P', 'P', 'I'], 'N');
	print $ShellExecute,"\n";
       $ShellExecute->Call(0, "open", $url, 0, 0, 1);
}
print $pid, "\n";

undef $ShellExecute;




> >  >This works fine in IE6b. I'll assume it works fine=20
> > elsewhere. It does very
> >  >weird things on Mozilla though. Can anyone try this on=20
> > Netscape to see if
> >  >it's similar (I don't have NS on this machine, only Moz).
> >=20
> > Correction. This does not work on IE6. Opens two windows.
> >=20
> >=20
> > Morbus Iff
> > .sig on other machine.
> > http://www.disobey.com/
> > http://www.gamegrene.com/
> >=20
> >=20
> > _______________________________________________
> > Perl-Win32-GUI-Users mailing list
> > Per...@li...
> > http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> >=20
>=20

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

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

> -----Original Message-----
> From: Morbus Iff [mailto:mo...@di...]
> Sent: Friday, June 01, 2001 10:50
> To: per...@li...
> Subject: Re: [perl-win32-gui-users] Opening a *New* Browser Window?
>=20
>=20
>  >>| Well, then you just take the best of both ... first, you=20
> open a new
>  >>| window and then you do what you did before. I pretty=20
> sure that the
>  >>| ShellExecute will target this new browser. At least,=20
> when I click a link
>  >
>  >That was so blatantly obvious that I'm hiding in a corner=20
> for not seeing it
>  >myself. I tried it this morning using the following code:
>  >
Check your logic....

>  >      use Win32::TieRegistry;
>  >      my $http =3D
$Registry->{"Classes\\http\\shell\\open\\command"}->{'\\'};
>  >      unless ( fork ) { system("$http"); }
You call system here..... and then...
>  >      use Win32::API;
>  >      my $ShellExecute =3D new Win32::API("shell32", =
"ShellExecuteA",
>  >                         ['N','P', 'P', 'P', 'P', 'I'], 'N');
>  >      $ShellExecute->Call(0, "open", $url, 0, 0, 1);

You call the ShellExecuteA.  This results in two windows.  Now... I have
never used fork, so i dont know the exact syntax, but somthing like
this....


use Win32::TieRegistry;
use Win32::API;
my $http =3D $Registry->{"Classes\\http\\shell\\open\\command"}->{'\\'};

unless (`start $http $url`){            # if this call fails, do
this.....

	my $ShellExecute =3D new Win32::API("shell32",
"ShellExecuteA",['N','P', 'P', 'P', 'P', 'I'], 'N');
	$ShellExecute->Call(0, "open", $url, 0, 0, 1);
}

>  >
>  >This works fine in IE6b. I'll assume it works fine=20
> elsewhere. It does very
>  >weird things on Mozilla though. Can anyone try this on=20
> Netscape to see if
>  >it's similar (I don't have NS on this machine, only Moz).
>=20
> Correction. This does not work on IE6. Opens two windows.
>=20
>=20
> Morbus Iff
> .sig on other machine.
> http://www.disobey.com/
> http://www.gamegrene.com/
>=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] Opening a *New* Browser Window?

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

 >>| Well, then you just take the best of both ... first, you open a new
 >>| window and then you do what you did before. I pretty sure that the
 >>| ShellExecute will target this new browser. At least, when I click a link
 >
 >That was so blatantly obvious that I'm hiding in a corner for not seeing it
 >myself. I tried it this morning using the following code:
 >
 >      use Win32::TieRegistry;
 >      my $http = $Registry->{"Classes\\http\\shell\\open\\command"}->{'\\'};
 >      unless ( fork ) { system("$http"); }
 >
 >      use Win32::API;
 >      my $ShellExecute = new Win32::API("shell32", "ShellExecuteA",
 >                         ['N','P', 'P', 'P', 'P', 'I'], 'N');
 >      $ShellExecute->Call(0, "open", $url, 0, 0, 1);
 >
 >This works fine in IE6b. I'll assume it works fine elsewhere. It does very
 >weird things on Mozilla though. Can anyone try this on Netscape to see if
 >it's similar (I don't have NS on this machine, only Moz).

Correction. This does not work on IE6. Opens two windows.


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

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

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

 >| Well, then you just take the best of both ... first, you open a new
 >| window and then you do what you did before. I pretty sure that the
 >| ShellExecute will target this new browser. At least, when I click a link

That was so blatantly obvious that I'm hiding in a corner for not seeing it 
myself. I tried it this morning using the following code:

       use Win32::TieRegistry;
       my $http = $Registry->{"Classes\\http\\shell\\open\\command"}->{'\\'};
       unless ( fork ) { system("$http"); }

       use Win32::API;
       my $ShellExecute = new Win32::API("shell32", "ShellExecuteA",
                          ['N','P', 'P', 'P', 'P', 'I'], 'N');
       $ShellExecute->Call(0, "open", $url, 0, 0, 1);

This works fine in IE6b. I'll assume it works fine elsewhere. It does very 
weird things on Mozilla though. Can anyone try this on Netscape to see if 
it's similar (I don't have NS on this machine, only Moz).

What I'm seeing with Moz:

   a) before running script, open Moz.
   b) run script.
   c) script opens 2 (new) windows. both
      windows eventually have the URL in it.

Sometimes, even weirder, I get THREE windows opening, the first two with 
the correct URL, the third with a blank search on Netscape's pages. Sigh. I 
like Mozilla, but sheesh, this ain't gonna work.

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

RE: [perl-win32-gui-users] Win32::GUI::Timer memory leak?

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

> yes, there was a memory leak but it should have been fixed is 
> one of the
> last releases. which version of Win32::GUI are you using right now?


0.0.502 -- I actually just pulled it off your site maybe two weeks ago. Is
there an even newer version? Thanks for your help -- I love this module!

RE: [perl-win32-gui-users] Window Size Controls & Miscellany ?'s

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

> -----Original Message-----
> From: Forhan, Michael [mailto:Mic...@tr...]
> Sent: Thursday, May 31, 2001 14:29
> To: 'per...@li...'
> Subject: [perl-win32-gui-users] Window Size Controls & Miscellany ?'s


> Second, I was wondering if any further strides have been made=20
> on GOE ( as
> posted by Harald Piske in late march (3/25 to be exact) )=20
> I've recently been
> playing with gb109, and have started building a wishlist of=20
> my own for a
> large windows oriented development tool. (along the lines of=20
> Visual Basic).
> Is anyone aware of any Sourceforge projects for this , or is GOE still
> alive? (the fairymail link I followed didn't work for me) I'd=20
> love to see a
> fully featured windows development tool for perl (with syntax=20
> highlighting
> of course!) and am ready to contribute all I can to that project :).=20

Someone sent me gb109 a few days ago when I asked where to get it.
Thanks.   Where is the website?   I also would like to know the status.
I have installed it an I think it is a good first start, but it needs
alot more work.  I think the Sourceforge would be a good way to go with
GuiBuilder, and hopefully help speed development.  While I dont really
care about things like syntax highlighting( at least not this early in
dev), I have my own wishlist for the project of things I would like
asap.  On a side note, I am going to build a GUI interface to PerlApp.
Basically, I wanto not have to remember the command line args and after
I have defined everything, shell out to PerlApp.  I hope this is ok
within the licence, if so, I will make it available to anyone who wants
it.  I will probably use xml for a project definition file so that I can
save parameters of each app I build, so that when I add code, I dont
forget to include a module, remember the last version number, etc...=20


> Lastly, I was wondering how the Win32::Gui FAQ was coming=20
> along. I've read
> through the draft that was posted last month (april) and=20
> found that its
> getting some good info in it, and was hoping to see much more=20
> added to it in
> the future. I'd especially like to see some information in it=20
> describing
> locations to look for more information for questions not yet=20
> answered (
> though that probably isn't in-line with the concept of an FAQ=20
> ). I've found
> that many Win32 API books have helped me with style flags=20
> that I have not
> seen elsewhere (things like MB_YESNOCANCEL and the like).=20

Ditto....


>=20
> Thank you all for your help, and this great mailing list!
> -Michael Forhan
> Mic...@tr...
>=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] Opening a *New* Browser Window?

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

Yea, I know, but I thought that DOS commands which were part of the
shell would not work in Perl since they are not true executables.
Perhaps I am thinking of older versions of Perl.  It has been a LONG
time since I had to shell out to get something done.......

Anyway, If you REALLY need to get the browser to open in the users
preferred browser, then you will have to do some registry digging to
find default browser and go from there.
HKCR\http(?:s?)\shell\open\command\  This will/should give you the path
to the app they use to open http by default.  Not sure. =20

If this DOESNT do it, then do the same thing with HKCR\.htm(?:l?)( by
the way, is this right?  I don't have my Mastering regex book with me.
Should it be HKCR\.htm(?:l)? , or perhaps just  HKCR\.html? Anyway, I
digress.... )


If you REALLY have to accommodate the users preferred browser, then one
way or another, you have to do a lot of extra work.  On Windows 98+, you
are pretty much guaranteed that IE will be on the machine in some form
or another.....





> -----Original Message-----
> From: Morbus Iff [mailto:mo...@di...]
> Sent: Friday, June 01, 2001 07:29
> To: per...@li...
> Subject: RE: [perl-win32-gui-users] Opening a *New* Browser Window?
>=20
>=20
> >`start iexplore.exe http://www.activestate.com`
> >use backticks to call the "start" command in the command shell, then
> >pass an explicite exe name followed by the arguments.  I tried it
> >without the iexplore.exe and it only opened the window.  I=20
> believe this
> >is something that is wrong my machine since the same thing=20
> happens when
> >I click on a link within Outlook.  Therefore, If you just put
> >
> >`start http://www.myurl.com`;
> >I might actually work the way you want it.
>=20
> I've tried that previously - doesn't work in all versions of
> Netscape/IE/Mozilla. Sadly enough, I haven't tried Opera. At=20
> this point, as
> well, the above isn't foolproof - it doesn't help people who=20
> have screwed
> up their PATH, or for those who have renamed files.
>=20
> The "start" thing works for the same reason you can go to=20
> your Start menu,
> choose "run" and type in a URL to be taken there by your=20
> default browser.
>=20
> --=20
>       ICQ: 2927491      /      AOL: akaMorbus
>    Yahoo: morbus_iff    /  Jabber: mo...@ja...
>    mo...@di...   /   http://www.disobey.com/
>=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] Opening a *New* Browser Window?

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

>`start iexplore.exe http://www.activestate.com`
>use backticks to call the "start" command in the command shell, then
>pass an explicite exe name followed by the arguments.  I tried it
>without the iexplore.exe and it only opened the window.  I believe this
>is something that is wrong my machine since the same thing happens when
>I click on a link within Outlook.  Therefore, If you just put
>
>`start http://www.myurl.com`;
>I might actually work the way you want it.

I've tried that previously - doesn't work in all versions of
Netscape/IE/Mozilla. Sadly enough, I haven't tried Opera. At this point, as
well, the above isn't foolproof - it doesn't help people who have screwed
up their PATH, or for those who have renamed files.

The "start" thing works for the same reason you can go to your Start menu,
choose "run" and type in a URL to be taken there by your default browser.

-- 
      ICQ: 2927491      /      AOL: akaMorbus
   Yahoo: morbus_iff    /  Jabber: mo...@ja...
   mo...@di...   /   http://www.disobey.com/

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

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

Not sure how this would work otherwise, but I did this on may machine
and it worked. =20


`start iexplore.exe http://www.activestate.com`
use backticks to call the "start" command in the command shell, then
pass an explicite exe name followed by the arguments.  I tried it
without the iexplore.exe and it only opened the window.  I believe this
is something that is wrong my machine since the same thing happens when
I click on a link within Outlook.  Therefore, If you just put=20

`start http://www.myurl.com`;=20
I might actually work the way you want it.=20

Note: AP build 523  Win NT SP6a




> -----Original Message-----
> From: Erick Bourgeois [mailto:er...@je...]
> Sent: Friday, June 01, 2001 01:05
> To: per...@li...
> Subject: Re: [perl-win32-gui-users] Opening a *New* Browser Window?
>=20
>=20
> | So, I first open a new browser and then click the link - voila.
>=20
> Side topic: hold shift and press the left mouse button on any=20
> link and it will
> open a new browser with that address.
>=20
> regards,
>=20
> erick
>=20
> ----- Original Message -----
> From: Piske, Harald <Har...@bo...>
> To: <per...@li...>
> Sent: Thursday, May 31, 2001 3:10 PM
> Subject: RE: [perl-win32-gui-users] Opening a *New* Browser Window?
>=20
>=20
> | Well, then you just take the best of both ... first, you=20
> open a new browser
> | window and then you do what you did before. I pretty sure that the
> | ShellExecute will target this new browser. At least, when I=20
> click a link in
> | a mail in this rotten !#^%$Outlook, it does the very same=20
> &^%!# thing of
> | navigating away from the most important web site I happen=20
> to have been
> | looking at. So, I first open a new browser and then click=20
> the link - voila.
> |
> | -----Original Message-----
> | From: Morbus Iff [mailto:mo...@di...]
> | Sent: Donnerstag, 31. Mai 2001 14:56
> | To: per...@li...;
> | 'per...@li...'
> | Subject: RE: [perl-win32-gui-users] Opening a *New* Browser Window?
> |
> |
> |  >use Win32::TieRegistry;
> |  >$http =3D=20
> $Registry->{"Classes\\http\\shell\\open\\command"}->{'\\'};
> |  >`$http $url`;
> |
> | Ok. Well, it certainly opened up new windows on Mozilla,=20
> unfortunately, it
> | didn't pass the URL to Mozilla correctly - I got search results from
> | NetScape for the term "". Sigh.
> |
> |
> | 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 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] Win32::GUI::Timer memory leak?

[Aldo C. <da...@pe...>]

Peter Eisengrein wrote:
> Is there a known memory problem with the GUI module and/or the Timer object?
> I have a script that runs through a _Timer sub once per second and
> increments a var (like $count++) and writes it to a Label. Just sitting
> there quietly doing nothing more than that adds 4k to the process' memory
> every second or two (or three -- it's not very exact). I would expect a
> *little* more memory to be used but these 4k's add up over time.
>
> Just curious.

yes, there was a memory leak but it should have been fixed is one of the
last releases. which version of Win32::GUI are you using right now?


cheers,
Aldo

__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;

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

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

| So, I first open a new browser and then click the link - voila.

Side topic: hold shift and press the left mouse button on any link and it will
open a new browser with that address.

regards,

erick

----- Original Message -----
From: Piske, Harald <Har...@bo...>
To: <per...@li...>
Sent: Thursday, May 31, 2001 3:10 PM
Subject: RE: [perl-win32-gui-users] Opening a *New* Browser Window?


| Well, then you just take the best of both ... first, you open a new browser
| window and then you do what you did before. I pretty sure that the
| ShellExecute will target this new browser. At least, when I click a link in
| a mail in this rotten !#^%$Outlook, it does the very same &^%!# thing of
| navigating away from the most important web site I happen to have been
| looking at. So, I first open a new browser and then click the link - voila.
|
| -----Original Message-----
| From: Morbus Iff [mailto:mo...@di...]
| Sent: Donnerstag, 31. Mai 2001 14:56
| To: per...@li...;
| 'per...@li...'
| Subject: RE: [perl-win32-gui-users] Opening a *New* Browser Window?
|
|
|  >use Win32::TieRegistry;
|  >$http = $Registry->{"Classes\\http\\shell\\open\\command"}->{'\\'};
|  >`$http $url`;
|
| Ok. Well, it certainly opened up new windows on Mozilla, unfortunately, it
| didn't pass the URL to Mozilla correctly - I got search results from
| NetScape for the term "". Sigh.
|
|
| 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 mailing list
| Per...@li...
| http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
|

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

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

Well, then you just take the best of both ... first, you open a new browser
window and then you do what you did before. I pretty sure that the
ShellExecute will target this new browser. At least, when I click a link in
a mail in this rotten !#^%$Outlook, it does the very same &^%!# thing of
navigating away from the most important web site I happen to have been
looking at. So, I first open a new browser and then click the link - voila.

-----Original Message-----
From: Morbus Iff [mailto:mo...@di...]
Sent: Donnerstag, 31. Mai 2001 14:56
To: per...@li...;
'per...@li...'
Subject: RE: [perl-win32-gui-users] Opening a *New* Browser Window?


 >use Win32::TieRegistry;
 >$http = $Registry->{"Classes\\http\\shell\\open\\command"}->{'\\'};
 >`$http $url`;

Ok. Well, it certainly opened up new windows on Mozilla, unfortunately, it 
didn't pass the URL to Mozilla correctly - I got search results from 
NetScape for the term "". Sigh.


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] Opening a *New* Browser Window?

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

 >use Win32::TieRegistry;
 >$http = $Registry->{"Classes\\http\\shell\\open\\command"}->{'\\'};
 >`$http $url`;

Ok. Well, it certainly opened up new windows on Mozilla, unfortunately, it 
didn't pass the URL to Mozilla correctly - I got search results from 
NetScape for the term "". Sigh.


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

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

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

 >use Win32::TieRegistry;

Well, now this is odd. I don't seem to have that on my machine, and a PPM 
says it's not found. Huh. Sigh. Gotta find it now...


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

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

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

Try this:

use Win32::TieRegistry;
$http = $Registry->{"Classes\\http\\shell\\open\\command"}->{'\\'};
`$http $url`;

I did not try with other browsers, though, just Micro$tuff.

Have fun,
Harald

-----Original Message-----
From: Morbus Iff [mailto:mo...@di...]
Sent: Donnerstag, 31. Mai 2001 13:18
To: per...@li...
Subject: [perl-win32-gui-users] Opening a *New* Browser Window?


Good day.

Currently, in my code [the opensource AmphetaDesk at
http://www.disobey.com/amphetadesk/], I open a browser window like so:

    use Win32::API;
    my $ShellExecute = new Win32::API("shell32", "ShellExecuteA",
                       ['N','P', 'P', 'P', 'P', 'I'], 'N');
    $ShellExecute->Call(0, "open", $url, 0, 0, 1);

This has the niceness of working with most browsers I've tested that have
been set as the default browser (Netscape, Mozilla, IE, etc.). My problem
is that this code always uses an *existing* browser window if it exists.

This causes some angst - if I'm viewing something, and then suddenly the
program takes over and loses my current page, I get pissed. So, anyways to
always open a *new* window, whether an existing one is there or not?


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