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

Re: [perl-win32-gui-users] something in VB to be converted to perl

[christopher s. <chr...@ya...>]

Thanks

chris
----- Original Message -----
From: Mike Blazer <bl...@ma...>
To: <per...@li...>
Sent: Saturday, January 13, 2001 4:40 AM
Subject: Re: [perl-win32-gui-users] something in VB to be converted to perl


> Check my Win32::RASE on CPAN - it can do all dialup related suff.
>
> hth
>
> christopher sagayam wrote:
> >
> > can somebody give me 2 or 3 examples of doing something in PERL
win32::gui
> > which has already been done in VB ?
>
> --
> ==================================
> Mike Blazer
> bl...@ma...
> ==================================
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

Re: [perl-win32-gui-users] perl2exe stuff

[Indy S. <in...@in...>]

> it complaines " perlcrt.dll not found"

Make sure that you are using the correct version of Perl2Exe.  There are
several versions of Perl2Exe for different versions of Perl.

Perl2Exe V4.03 for Perl 5.6 is the latest version.  It does NOT use
perlcrt.dll
Perl2Exe V3.13 for Perl 5.005_03 is an older version.  It uses perlcrt.dll

You have two options:
1) Use Perl2Exe V4.03 and Perl 5.6.  You will not run into this problem
because this version of Perl2Exe does not use perlcrt.dll.

2) If you must use Perl2Exe V3.13, copy perlcrt.dll to the same directory as
your executable file.  The perlcrt.dll file will be located in your
windows\system32 directory.  It was placed there when you installed Perl
5.005_03.

If that does not help let me know what version of Perl you are using.

Indy Singh
IndigoSTAR Software -- www.indigostar.com


----- Original Message -----
From: "christopher sagayam" <chr...@ya...>
To: <per...@li...>
Sent: Thursday, January 11, 2001 12:19 PM
Subject: [perl-win32-gui-users] perl2exe stuff


> since there are many win32 gurus in this list I thought I could post it
here
>
> when I use
>
> "Use sockets" in my perl win32 GUI code and convert it to .exe using
> perl2exe
>
> and I try to run the code in another machine it complaines " perlcrt.dll
not
> found"
>
> can I compile perlcrt.dll into the .exe using perl2exe ?
>
> or is there any program available which will convert perl to .exe FULLY ?
>
>
> chris
>
>
>
>
> _________________________________________________________
> 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] perl2exe stuff - what version?

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

> > "Use sockets" in my perl win32 GUI code and convert it to .exe using
> > perl2exe
> >
> > and I try to run the code in another machine it complaines "
> perlcrt.dll not
> > found"

I haven't run across this before. I use perl2exe and the resultant program
runs on 2k/NT/9x/Me machines that I never see until I arrive at the clients
premises. I have this program running at 800 odd sites and this has never
happened - thankfully! :) Maybe perlcrt.dll is included? I don't think so
cause I build the exe with the -tiny flag, which puts everything in dlls -
my exe ends up being 878k, with nearly 1M in dlls. The only thing I can
think of is the p2x560.dll. Could it be the way perl was originally
compiled?

Jake

[perl-win32-gui-users] Win32::GUI::Tooltip

[Sean H. <jal...@ho...>]

I've been playing around with tooltips this weekend, trying to get them to 
work, but I kept getting an error message that tells me my tooltip object is 
undefined--well, the variable that is supposed to refer to my tooltip object 
is undefined, which means my tooltip did not get created.  I traced the 
problem as far as I could, and this is what I found:

In the Tooltip package, I found these two lines:
my $parent = $_[0];
my $new = Win32::GUI->_new(Win32::GUI::constant("WIN32__GUI__TOOLTIP", 0), 
@_);

The first should have $_[1], as it is currently assigning 
"Win32::GUI::Tooltip" to $parent, rather than the actual name of the parent 
object.  (That is not actually causing any problems right now, but it 
presumably will when the real problem is fixed.)

The real problem is that Win32::GUI->_new is returning undef, which is why I 
get that error message.  I looked in Win32::GUI->_new, and found that it is 
returning undef due to the following line:

my $handle = Win32::GUI::Create($self, $type, @input);

It returns undef because nothing gets assigned to $handle.  Unfortunately, 
that line is calling something from either GUI.dll or GUI.lib, which I can't 
do anything about (unless I learn C++ and get a compiler).

I guess I'm just wondering where completion of Tooltip functionality is on 
the priority scale.  (I realize that the memory leak is probably taking up 
most of the time right now, so it's not a big deal--I can probably fake it 
by creating a label and manipulating the -visible option, and it's not even 
essential, anyway.)
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com

[perl-win32-gui-users] Getting the browser

[Sean H. <jal...@ho...>]

Due to a message earlier this week, I was thinking about the problem of 
getting a browser preference from the user's registry, so I wrote this:

use Win32::TieRegistry;

sub getProgram
{
	if (my $ext = $_[0])
	{
		if (my $typeName = $Registry->{"HKEY_CLASSES_ROOT\\$ext\\\\"})
		{
			if (my $command = 
$Registry->{"HKEY_CLASSES_ROOT\\$typeName\\shell\\open\\command\\\\"})
			{
				split(/ /, $command);
				return $_[0];
			}
			else { return 0; }
		}
		else { return 0; }
	}
	else { return 0; }
}

You pass in the extension and this returns the path to the associated 
program.  The extension must include the dot (i.e, pass in '.html', not 
'html').

This works on my machine, and you're welcome to use it (or modify it to make 
it work on your system).  It does some basic error checking (makes sure you 
pass in an extension, makes sure the extension exists in the registry, makes 
sure the file type has a command associated with it).  I have not tested 
case sensitivity (I know Windows is not case-sensitive as far as file names 
go, but I don't know if the same applies to the registry).

I'd be glad to hear any feedback.
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com

Re: [perl-win32-gui-users] Listview column click sorting

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

Tim,

here goes:

NOTE:  DataView is the name of my listview that I have set up.  My data i=
s
also read in from a comma delimited file and stored in the listview.

=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D

sub DataView_ColumnClick {
   my $column =3D shift;

## i do this so that I can toggle between ascending and descending sorts
## 0 =3D ascending (A-Z), 1 =3D decending (Z - A)
   if ($lastcolumn =3D=3D $column) {   # if you clicked the same column t=
wice in
a row
      $sortorder =3D 1 - $sortorder;  # toggle between 1 and 0 values
   }
   else {
      $sortorder =3D 0;
   }
   $lastcolumn =3D $column;
   my %sortcol =3D &NewList($column, %data);
   &SortListItem(\%data,\%sortcol);
   return;
}

sub SortListItem {
   my ($data,$sortcol) =3D @_;
   my $check;
   my %data =3D %$data;
   my %sortcol =3D %$sortcol;

   $check =3D "$_" foreach (values %sortcol);

   $MainWindow->DataView->Clear();  ## clear the ListView window
   $index =3D 0;
   if ($sortorder =3D=3D 0) {  ## this is sorting in ascending order
      foreach (sort { uc($sortcol{$a}) cmp uc($sortcol{$b}) } keys %sortc=
ol)
{
         my @newdata =3D split/,/,$data{$_};
         ($fname,$lname,$build,$room,$adap,$ip,$year,$os,$type) =3D @newd=
ata;
# our list of items to sort
         if ($fname ne "") {
            $MainWindow->DataView->InsertItem(-item =3D> $index, -subitem=
=3D>
0, -text =3D> "$fname", -image =3D> $img);
            $MainWindow->DataView->SetItem(-item =3D> $index, -subitem =3D=
>
1, -text =3D> "$lname");
            $MainWindow->DataView->SetItem(-item =3D> $index, -subitem =3D=
>
2, -text =3D> "$build");
            $MainWindow->DataView->SetItem(-item =3D> $index, -subitem =3D=
>
3, -text =3D> "$room");
            $MainWindow->DataView->SetItem(-item =3D> $index, -subitem =3D=
>
4, -text =3D> "$adap");
            $MainWindow->DataView->SetItem(-item =3D> $index, -subitem =3D=
>
5, -text =3D> "$ip");
            $MainWindow->DataView->SetItem(-item =3D> $index, -subitem =3D=
>
6, -text =3D> "$year");
            $MainWindow->DataView->SetItem(-item =3D> $index, -subitem =3D=
>
7, -text =3D> "$os");
            $MainWindow->DataView->SetItem(-item =3D> $index, -subitem =3D=
>
8, -text =3D> "$type");
            ++$index;
         }
         $MainWindow->DataView->Update();
      }
   }
   else {   ## this is sorting in descending order
      foreach (sort { uc($sortcol{$b}) cmp uc($sortcol{$a}) } keys %sortc=
ol)
{
         my @newdata =3D split/,/,$data{$_};
         ($fname,$lname,$build,$room,$adap,$ip,$year,$os,$type) =3D @newd=
ata;
         if ($fname ne "") {
            $MainWindow->DataView->InsertItem(-item =3D> $index, -subitem=
 =3D>
0, -text =3D> "$fname", -image =3D> $img);
            $MainWindow->DataView->SetItem(-item =3D> $index, -subitem =3D=
>
1, -text =3D> "$lname");
            $MainWindow->DataView->SetItem(-item =3D> $index, -subitem =3D=
>
2, -text =3D> "$build");
            $MainWindow->DataView->SetItem(-item =3D> $index, -subitem =3D=
>
3, -text =3D> "$room");
            $MainWindow->DataView->SetItem(-item =3D> $index, -subitem =3D=
>
4, -text =3D> "$adap");
            $MainWindow->DataView->SetItem(-item =3D> $index, -subitem =3D=
>
5, -text =3D> "$ip");
            $MainWindow->DataView->SetItem(-item =3D> $index, -subitem =3D=
>
6, -text =3D> "$year");
            $MainWindow->DataView->SetItem(-item =3D> $index, -subitem =3D=
>
7, -text =3D> "$os");
            $MainWindow->DataView->SetItem(-item =3D> $index, -subitem =3D=
>
8, -text =3D> "$type");
            ++$index;
         }
         $MainWindow->DataView->Update();
      }
   }
   $MainStatus->Text($tempstatus);
   return;
}

sub NewList  {
   ## This creates another hash to use only for sorting purposes.
   my ($column,%sortcol) =3D @_;
   my $sortthis;

   foreach (keys %sortcol) {
      my @info =3D split /,/, $sortcol{$_};
      $sortthis =3D $info[$column];
      $sortcol{$_} =3D "$sortthis";
   }
   return(%sortcol);
}

=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D

That should be all you need.  If you have any more questions i will TRY t=
o
answer them.


Jonathan Southwick
Technical & Network Services
Allegheny College, Meadsville, PA
jso...@al...


----- Original Message -----
From: "Thomas, Timothy B" <tim...@lm...>
To: <jso...@al...>; <per...@li...=
>
Sent: Friday, January 12, 2001 3:42 PM
Subject: [perl-win32-gui-users] Listview column click sorting


> Jonathon,
> Can you post the code that you refer to in this old posting. I am looki=
ng
for the code that allows you to click on a column header and sort by that
field.
> http://www.mail-archive.com/per...@ht.../msg00280.html
> Thanks,
> Tim Thomas
>
>
>
>
>
> -----------------------------------------------------------------------=
---
-----------------------
> Tim Thomas
> Unix Systems Administrator
> Lockheed Martin EIS =B7 Denver Data Center
> 303-430-2281
> mailto:tim...@lm...
> -----------------------------------------------------------------------=
---
-----------------------
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

[perl-win32-gui-users] Listview column click sorting

[Thomas, T. B <tim...@lm...>]

Jonathon,
Can you post the code that you refer to in this old posting. I am =
looking for the code that allows you to click on a column header and =
sort by that field.
http://www.mail-archive.com/per...@ht.../msg00280.html
	Thanks,
		Tim Thomas





------------------------------------------------------------------------=
-------------------------
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS =B7 Denver Data Center
303-430-2281
mailto:tim...@lm...
------------------------------------------------------------------------=
-------------------------

[perl-win32-gui-users] Winppm.pl

[Erick J. B. <er...@e-...>]

I was fouling around with the GUI samples and I tried to run
winppm.pl, but I get this Windows error

PERL caused an invalid page fault in
module MSVCRT.DLL at 017f:78002f52.

Any ideas?

erick

Re: [perl-win32-gui-users] double click in listbox

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

Sean,

I think this is right:

The 3 means that the user is not allowed to type in their own data into the
control.  You should use this when you only want the user to be able to
select what you put in the listbox.

So I don't know why only adding the 3 made any difference.

Jonathan Southwick
Technical & Network Services
Allegheny College, Meadsville, PA
jso...@al...



----- Original Message -----
From: "Sean Healy" <jal...@ho...>
To: <per...@li...>
Sent: Friday, January 12, 2001 1:48 PM
Subject: Re: [perl-win32-gui-users] double click in listbox


> Thanks, it works great now.  What exactly does the '3' do?  (The only
change
> I made from my original code was to put that in.)
>
> > -style => WS_VISIBLE | 3 | WS_VSCROLL |,
> _________________________________________________________________
> Get your FREE download of MSN Explorer at http://explorer.msn.com
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

Re: [perl-win32-gui-users] double click in listbox

[Sean H. <jal...@ho...>]

Thanks, it works great now.  What exactly does the '3' do?  (The only change 
I made from my original code was to put that in.)

>	-style => WS_VISIBLE | 3 | WS_VSCROLL |,
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com

Re: [perl-win32-gui-users] double click in listbox

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

Sean,

or in the -addstyle linbe you can have:

 -addstyle  => WS_VSCROLL,

instead.

Jonathan Southwick
Technical & Network Services
Allegheny College, Meadsville, PA
jso...@al...



----- Original Message -----
From: "Sean Healy" <jal...@ho...>
To: <per...@li...>
Sent: Friday, January 12, 2001 12:54 PM
Subject: Re: [perl-win32-gui-users] double click in listbox


>    Thanks, Jonathan.  I was able to figure out the problem, which is that
it
> will not work when the '-style' attribute is set.  So now I can get it to
> register a double click, but only if I'm willing to give up scrollbars.
Has
> anyone found a way around this?  I guess I can use the arrow keys or page
up
> and page down.
>
>    Is this a bug?  It seems like one to me.
> _________________________________________________________________
> Get your FREE download of MSN Explorer at http://explorer.msn.com
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

Re: [perl-win32-gui-users] double click in listbox

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

Sean,

I'm sorry I didn't realize you wanted a scroll bar.  Try this:

use Win32::GUI;

my $MainWindow = new Win32::GUI::Window(
 -name   => "FruitWindow",
 -top    => 200,
 -left   => 100,
 -width  => 300,
 -height => 200,
 -minsize=> [300,200],
 -title  => "Fruit Box",
);

my $FruitList = $MainWindow->AddListbox(
 -name   => "FruitListBox",
 -top    => 52,
 -left   => 98,
 -width  => 125,
 -height => 110,
 -addstyle  => WS_VISIBLE | 3 | WS_VSCROLL,

);


$FruitList->InsertItem("Apple");
$FruitList->InsertItem("Banana");
$FruitList->InsertItem("Canteloupe");
$FruitList->InsertItem("Cherrie");
$FruitList->InsertItem("Grapes");
$FruitList->InsertItem("Guava");
$FruitList->InsertItem("Kiwi");
$FruitList->InsertItem("Lemon");
$FruitList->InsertItem("Lime");
$FruitList->InsertItem("Pineapple");
$FruitList->InsertItem("Strawberry");
$FruitList->InsertItem("Tangerine");


$MainWindow->Show();
Win32::GUI::Dialog();


sub FruitListBox_DblClick {
   print "got double click\n";
}

sub FruitWindow_Terminate {
   exit(0);
}


Jonathan Southwick
Technical & Network Services
Allegheny College, Meadsville, PA
jso...@al...


----- Original Message -----
From: "Sean Healy" <jal...@ho...>
To: <per...@li...>
Sent: Friday, January 12, 2001 12:54 PM
Subject: Re: [perl-win32-gui-users] double click in listbox


>    Thanks, Jonathan.  I was able to figure out the problem, which is that
it
> will not work when the '-style' attribute is set.  So now I can get it to
> register a double click, but only if I'm willing to give up scrollbars.
Has
> anyone found a way around this?  I guess I can use the arrow keys or page
up
> and page down.
>
>    Is this a bug?  It seems like one to me.
> _________________________________________________________________
> Get your FREE download of MSN Explorer at http://explorer.msn.com
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

[perl-win32-gui-users] Win32::GUI::DC - displaying an image.

[Thomas, T. B <tim...@lm...>]

I am not clear about the documentation on Win32::GUI::DC on =
http://dada.perl.it/gui_docs/DC.html
Is there a way to display an image?
I would like to display, given a file name, jpg, gif, tif and bmp =
files. Is this possible yet with Win32::GUI?

Does anyone have any example code of an implementation of this or =
something similar?

Has anyone written anything using DC?

Thanks,
	Tim

------------------------------------------------------------------------=
-------------------------
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS =B7 Denver Data Center
303-430-2281
mailto:tim...@lm...
------------------------------------------------------------------------=
-------------------------


-----Original Message-----
From: christopher sagayam [mailto:chr...@ya...]
Sent: Friday, January 12, 2001 8:49 AM
To: per...@li...
Subject: Re: [perl-win32-gui-users] VB dialup code


Thanks for the code

now all I need is to convert it into perl


let me take one as example

can anyone tell me the equivalent of

"Private Declare Function InternetGoOnline Lib "wininet.dll" Alias
"InternetGoOnlineA" (ByVal lpszURL As String, ByVal hwndParent As Long,
ByVal dwReserved As Long) As Long"

in perl ?

I mean the vb code is accessing a function present in the wininet.dll I
believe ..how to do the same using PERL...


chris
----- Original Message -----
From: Robert White <ro...@Ba...>
To: <per...@li...>
Sent: Friday, January 12, 2001 4:24 PM
Subject: Re: [perl-win32-gui-users] VB dialup code


> From: "christopher sagayam" <chr...@ya...>
> > I am looking for a VB (or a perl) to be later conversted to win32 =
GUI
> code
> > to autostart the default windows dial up connection if a user is =
NOT
> > connected to the internet ??
>
> see attached..... Very very complete... force dial, go online, RAS, =
ect.
> Email me for the exe if you don't run VB.
>
> Rob
> http://bangkokwizard.com/
> "Software is like sex: It's better when it's free." -- Linus Torvalds
>
>



__________________________________________________
Do You Yahoo!?
Talk to your friends online with Yahoo! Messenger.
http://im.yahoo.com

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

Re: [perl-win32-gui-users] double click in listbox

[Sean H. <jal...@ho...>]

   Thanks, Jonathan.  I was able to figure out the problem, which is that it 
will not work when the '-style' attribute is set.  So now I can get it to 
register a double click, but only if I'm willing to give up scrollbars.  Has 
anyone found a way around this?  I guess I can use the arrow keys or page up 
and page down.

   Is this a bug?  It seems like one to me.
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com

[perl-win32-gui-users] Deselect from Listview

[Thomas, T. B <tim...@lm...>]

How do you deselect all currently selected items from a listview?

------------------------------------------------------------------------=
-------------------------
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS =B7 Denver Data Center
303-430-2281
mailto:tim...@lm...
------------------------------------------------------------------------=
-------------------------

RE: [perl-win32-gui-users] VB dialup code

[<Chr...@ti...>]

You need to look into win32::API which allows you to make API calls from
within PERL.  

Christian
tcl...@we...

-----Original Message-----
From: christopher sagayam [mailto:chr...@ya...]
Sent: Friday, January 12, 2001 9:49 AM
To: per...@li...
Subject: Re: [perl-win32-gui-users] VB dialup code


Thanks for the code

now all I need is to convert it into perl


let me take one as example

can anyone tell me the equivalent of

"Private Declare Function InternetGoOnline Lib "wininet.dll" Alias
"InternetGoOnlineA" (ByVal lpszURL As String, ByVal hwndParent As Long,
ByVal dwReserved As Long) As Long"

in perl ?

I mean the vb code is accessing a function present in the wininet.dll I
believe ..how to do the same using PERL...


chris
----- Original Message -----
From: Robert White <ro...@Ba...>
To: <per...@li...>
Sent: Friday, January 12, 2001 4:24 PM
Subject: Re: [perl-win32-gui-users] VB dialup code


> From: "christopher sagayam" <chr...@ya...>
> > I am looking for a VB (or a perl) to be later conversted to win32 GUI
> code
> > to autostart the default windows dial up connection if a user is NOT
> > connected to the internet ??
>
> see attached..... Very very complete... force dial, go online, RAS, ect.
> Email me for the exe if you don't run VB.
>
> Rob
> http://bangkokwizard.com/
> "Software is like sex: It's better when it's free." -- Linus Torvalds
>
>



__________________________________________________
Do You Yahoo!?
Talk to your friends online with Yahoo! Messenger.
http://im.yahoo.com

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

Re: [perl-win32-gui-users] VB dialup code

[christopher s. <chr...@ya...>]

Thanks for the code

now all I need is to convert it into perl


let me take one as example

can anyone tell me the equivalent of

"Private Declare Function InternetGoOnline Lib "wininet.dll" Alias
"InternetGoOnlineA" (ByVal lpszURL As String, ByVal hwndParent As Long,
ByVal dwReserved As Long) As Long"

in perl ?

I mean the vb code is accessing a function present in the wininet.dll I
believe ..how to do the same using PERL...


chris
----- Original Message -----
From: Robert White <ro...@Ba...>
To: <per...@li...>
Sent: Friday, January 12, 2001 4:24 PM
Subject: Re: [perl-win32-gui-users] VB dialup code


> From: "christopher sagayam" <chr...@ya...>
> > I am looking for a VB (or a perl) to be later conversted to win32 GUI
> code
> > to autostart the default windows dial up connection if a user is NOT
> > connected to the internet ??
>
> see attached..... Very very complete... force dial, go online, RAS, ect.
> Email me for the exe if you don't run VB.
>
> Rob
> http://bangkokwizard.com/
> "Software is like sex: It's better when it's free." -- Linus Torvalds
>
>



__________________________________________________
Do You Yahoo!?
Talk to your friends online with Yahoo! Messenger.
http://im.yahoo.com

Re: [perl-win32-gui-users] VB dialup code

[Robert W. <ro...@Ba...>]

From: "christopher sagayam" <chr...@ya...>
> I am looking for a VB (or a perl) to be later conversted to win32 GUI
code
> to autostart the default windows dial up connection if a user is NOT
> connected to the internet ??

see attached..... Very very complete... force dial, go online, RAS, ect.
Email me for the exe if you don't run VB.

Rob
http://bangkokwizard.com/
"Software is like sex: It's better when it's free." -- Linus Torvalds

Re: [perl-win32-gui-users] Updown buddied with a texfield

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

Jake,

I thought you would be able to use the Accelerators but have been trying for
the past 1/2 hour to get them to work and they don't.  I can't even do a
simple print to the console.  So either this doesn't work yet or I am doing
something wrong.

Jonathan Southwick
Technical & Network Services
Allegheny College, Meadsville, PA
jso...@al...

----- Original Message -----
From: "Jake Skinner" <js...@gr...>
To: "Perl Win32::GUI Users" <per...@li...>
Sent: Friday, January 12, 2001 1:01 AM
Subject: [perl-win32-gui-users] Updown buddied with a texfield


> When the textfield has the focus I would like to be able to press the
> uparrow and have the count increase. The textfield contains a number
between
> 0 - 10.
>
> Also if there is a much simpler way to achieve the same result please let
me
> know!! :)
>
> Thanks
> Jake
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

Re: [perl-win32-gui-users] double click in listbox

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

Sean,

Try this little program and then incorporate it into your own:

use Win32::GUI;

my $MainWindow = new Win32::GUI::Window(
 -name   => "FruitWindow",
 -top    => 200,
 -left   => 100,
 -width  => 300,
 -height => 200,
 -minsize=> [300,200],
 -title  => "Fruit Box",
);

my $FruitList = $MainWindow->AddListbox(
 -name   => "FruitListBox",
 -top    => 52,
 -left   => 98,
 -width  => 125,
 -height => 110,
);


$FruitList->InsertItem("Apple");
$FruitList->InsertItem("Banana");
$FruitList->InsertItem("Grapes");
$FruitList->InsertItem("Kiwi");
$FruitList->InsertItem("Lemon");
$FruitList->InsertItem("Strawberry");


$MainWindow->Show();
Win32::GUI::Dialog();


sub FruitListBox_DblClick {
   print "got double click\n";
}

sub FruitWindow_Terminate {
   exit(0);
}


Jonathan Southwick
Technical & Network Services
Allegheny College, Meadsville, PA
jso...@al...

----- Original Message -----
From: "Sean Healy" <jal...@ho...>
To: <per...@li...>
Sent: Thursday, January 11, 2001 7:38 PM
Subject: [perl-win32-gui-users] double click in listbox


> I can't get my listbox to register a double click.  I looked this up on
the
> old archives, and found references to the problem, but no solution.  Has
> anyone managed to get this to work?
>
> I'm using 0.0502 on Win95.
> _________________________________________________________________
> Get your FREE download of MSN Explorer at http://explorer.msn.com
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

Re: [perl-win32-gui-users] 0.0.502 on PPM

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

Eoi...@de... wrote:
> Aldo,
> Is it possible to get a copy of 502 as a ppd.
> as I am behind a firewall and have been unable to install it
> from http://dada.perl.it

I've made the PPM distribution available on SourceForge.
there is a ZIP file (be sure to choose the correct one
for your Perl, 5.005 or 5.6) which contains the PPD and
the TAR.GZ, as well as a README.txt which explains how
to install it.


cheers,
Aldo

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

RE: [perl-win32-gui-users] 0.0.502 on PPM

[<Eoi...@de...>]

Aldo,
Is it possible to get a copy of 502 as a ppd.
as I am behind a firewall and have been unable to install it from
http://dada.perl.it

 Rgds Eoin.


-----Original Message-----
From: Aldo Calpini [mailto:da...@pe...]
Sent: Friday, January 05, 2001 12:25 PM
To: per...@li...
Subject: [perl-win32-gui-users] 0.0.502 on PPM


hello perl-win32-gui-users,

Win32::GUI version 0.0.502 is ready on PPM.
goto http://dada.perl.it for info and instruction.


cheers,
Aldo

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



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

AW: [perl-win32-gui-users] perl2exe stuff

[Strohmeier R. <Rue...@ic...>]

Hi Chris,

does the error message only occur when you have a "use sockets" =
statement or with every program?

For every .exe that was created using perl2exe you need to have the =
PerlCRT.dll e.g. in winnt\system32.


HTH
R=FCdiger

R=FCdiger Strohmeier
Email: Rue...@ic...

> -----Urspr=FCngliche Nachricht-----
> Von:	christopher sagayam [SMTP:chr...@ya...]
> Gesendet am:	Donnerstag, 11. Januar 2001 18:20
> An:	per...@li...
> Betreff:	[perl-win32-gui-users] perl2exe stuff
>=20
> since there are many win32 gurus in this list I thought I could post =
it here
>=20
> when I use
>=20
> "Use sockets" in my perl win32 GUI code and convert it to .exe using
> perl2exe
>=20
> and I try to run the code in another machine it complaines " =
perlcrt.dll not
> found"
>=20
> can I compile perlcrt.dll into the .exe using perl2exe ?
>=20
> or is there any program available which will convert perl to .exe =
FULLY ?
>=20
>=20
> chris
>=20
>=20
>=20
>=20
> _________________________________________________________
> Do You Yahoo!?
> Get your free @yahoo.com address at http://mail.yahoo.com
>=20
>=20
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

[perl-win32-gui-users] Updown buddied with a texfield

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

When the textfield has the focus I would like to be able to press the
uparrow and have the count increase. The textfield contains a number between
0 - 10.

Also if there is a much simpler way to achieve the same result please let me
know!! :)

Thanks
Jake

RE: [perl-win32-gui-users] Event processing - soln?

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

To make it not so clunky adding an update for the first window helps.

> sub Loop_Click {
> 
>    foreach $i (0 ... 3) {
>      &Show_Win2($i);

ie	 $Win->Update();

>      sleep 1;
>    }
> }

Jake