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

2001-01-12 Thread Eoin_Butler 
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:[EMAIL PROTECTED]
Sent: Friday, January 05, 2001 12:25 PM
To: perl-win32-gui-users@lists.sourceforge.net
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
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

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

2001-01-12 Thread Aldo Calpini 
[EMAIL PROTECTED] 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] double click in listbox

2001-01-12 Thread Jonathan Southwick 
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
[EMAIL PROTECTED]

- Original Message -
From: "Sean Healy" <[EMAIL PROTECTED]>
To: 
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
> Perl-Win32-GUI-Users@lists.sourceforge.net
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

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

2001-01-12 Thread Jonathan Southwick 
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
[EMAIL PROTECTED]

- Original Message -
From: "Jake Skinner" <[EMAIL PROTECTED]>
To: "Perl Win32::GUI Users" 
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
> Perl-Win32-GUI-Users@lists.sourceforge.net
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

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

2001-01-12 Thread Robert White 
From: "christopher sagayam" <[EMAIL PROTECTED]>
> 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] VB dialup code

2001-01-12 Thread christopher sagayam 
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 <[EMAIL PROTECTED]>
To: 
Sent: Friday, January 12, 2001 4:24 PM
Subject: Re: [perl-win32-gui-users] VB dialup code


> From: "christopher sagayam" <[EMAIL PROTECTED]>
> > 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

2001-01-12 Thread ChristianL 
You need to look into win32::API which allows you to make API calls from
within PERL.  

Christian
[EMAIL PROTECTED]

-Original Message-
From: christopher sagayam [mailto:[EMAIL PROTECTED]
Sent: Friday, January 12, 2001 9:49 AM
To: perl-win32-gui-users@lists.sourceforge.net
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 <[EMAIL PROTECTED]>
To: 
Sent: Friday, January 12, 2001 4:24 PM
Subject: Re: [perl-win32-gui-users] VB dialup code


> From: "christopher sagayam" <[EMAIL PROTECTED]>
> > 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
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

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

2001-01-12 Thread Thomas, Timothy B 
How do you deselect all currently selected items from a listview?

-
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS · Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED]
-

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

2001-01-12 Thread Sean Healy 
  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] Win32::GUI::DC - displaying an image.

2001-01-12 Thread Thomas, Timothy B 
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 · Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED]
-


-Original Message-
From: christopher sagayam [mailto:[EMAIL PROTECTED]
Sent: Friday, January 12, 2001 8:49 AM
To: perl-win32-gui-users@lists.sourceforge.net
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 <[EMAIL PROTECTED]>
To: 
Sent: Friday, January 12, 2001 4:24 PM
Subject: Re: [perl-win32-gui-users] VB dialup code


> From: "christopher sagayam" <[EMAIL PROTECTED]>
> > 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
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

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

2001-01-12 Thread Jonathan Southwick 
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
[EMAIL PROTECTED]


- Original Message -
From: "Sean Healy" <[EMAIL PROTECTED]>
To: 
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
> Perl-Win32-GUI-Users@lists.sourceforge.net
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

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

2001-01-12 Thread Jonathan Southwick 
Sean,

or in the -addstyle linbe you can have:

 -addstyle  => WS_VSCROLL,

instead.

Jonathan Southwick
Technical & Network Services
Allegheny College, Meadsville, PA
[EMAIL PROTECTED]



- Original Message -
From: "Sean Healy" <[EMAIL PROTECTED]>
To: 
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
> Perl-Win32-GUI-Users@lists.sourceforge.net
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

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

2001-01-12 Thread Sean Healy 
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

2001-01-12 Thread Jonathan Southwick 
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
[EMAIL PROTECTED]



- Original Message -
From: "Sean Healy" <[EMAIL PROTECTED]>
To: 
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
> Perl-Win32-GUI-Users@lists.sourceforge.net
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

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

2001-01-12 Thread Erick J. Bourgeois 
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

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

2001-01-12 Thread Thomas, Timothy B 
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/[EMAIL PROTECTED]/msg00280.html
Thanks,
Tim Thomas





-
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS · Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED]
-

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

2001-01-12 Thread Jonathan Southwick 
Tim,

here goes:

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

=

sub DataView_ColumnClick {
   my $column = shift;

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

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

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

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

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

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

===

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


Jonathan Southwick
Technical & Network Services
Allegheny College, Meadsville, PA
[EMAIL PROTECTED]


- Original Message -
From: "Thomas, Timothy B" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>; 
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 looking
for the code that allows you to click on a column header and sort by that
field.
> http://www.mail-archive.com/[EMAIL PROTECTED]/msg00280.html
> Thanks,
> Tim Thomas
>
>
>
>
>
> --
---
> Tim Thomas
> Unix Systems Administrator
> Lockheed Martin EIS · Denver Data Center
> 303-430-2281
> mailto:[EMAIL PROTECTED]
> --
---
>
>
> ___
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> http://lists.sourceforge.net/lists/lis