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

RE: [perl-win32-gui-users] Difference between ListView and ListBo x

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

> 
> WHY would I want to use an ImageList?  What does it do?
> 

Can't help you on this one.


> What is an 'Accelerator'?
> 

It's supposed to be a keyboard shortcut. I'd love to see a working example
of it, and I've seen several people on the list ask, but I don't recall ever
seeing one.


> What's the difference between 'ListBox' and 'ListView'?
> 

Check out the samples that should've come with the module. 

[perl-win32-gui-users] Difference between ListView and ListBox

[Ultimate R. D. <scc...@ho...>]

Hello,

I was just wondering if someone could answer the following questions:

WHY would I want to use an ImageList?  What does it do?

What is an 'Accelerator'?

What's the difference between 'ListBox' and 'ListView'?

Thanks to anyone that can help,

§Flame§ / Ultimate Red Dragon
-=UDIC=-
Lead Programmer: GMS http://gms.uoe.org/

_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp

Re: [perl-win32-gui-users] RE: Right way to sort(WAS Schwartzian Transform?) < Look Ma, an intelligible and descriptive subject line.....

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

Joe wrote:
>Now, anyone want to give me 1-2 examples of using the Schwartzian
>Transform and break it down?( I have seen the one linked to from
>perl.com, but it kind of makes my head hurt. I also searched google, but
>found that one and a few other links that did not really explain when to
>use and how it works.)

 From Merlyn himself:
http://www.perlmonks.org/index.pl?node_id=9108


/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] RE: Right way to sort(WAS Schwartzian Transform?) < Look Ma, an intelligible and descriptive subject line.....

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

> -----Original Message-----
> From: $Bill Luebkert [mailto:db...@wg...]
> Sent: Wednesday, September 05, 2001 22:47
> To: Frazier, Joe Jr
> Cc: per...@li...
> Subject: Re: Schwartzian Transform?
>=20
>=20
> "Frazier, Joe Jr" wrote:

> >         I have the above data structure( which will=20
> ultimatly contain
> > 6-7 items per array reference and many array elements) and=20
> need to be
> > able to sort/reverse sort on any of the reference elements.=20
>  I know the
> > Schwartzian Transform is the right way to go, but I havent=20
> a clue how to
> > start(tried a few things, but no luck).  Example:

<cut attempt=3D"totallywrong" code=3D"bad" />

> >         Please help.  Forgive the HTML post, I have to=20
> access my work
> > email from home using Outlook web mail access.....
> >=20
>=20
> You don't need it here.
>=20
> use strict;
>=20
> my @rows =3D (
>   ['Joe', 'Frazier, Jr.', ''],=20
>   ['abracadabra', 'magic word', ''],=20
>   ['John', 'First name', ''],=20
>   ['ciao', 'greetings', 'five'],=20
> );
> my @result;
>         =20
> dosort (\@rows, \@result, 1, 'f');
> exit 0;
>         =20
> sub dosort {		# dosort \@sort, \@result, column 0 to=20
> n, 'f'|'r'
> 	my ($sort, $sorted, $col, $dir) =3D @_;
>=20
> if ($dir eq 'f') {
> 	@$sorted =3D sort { $a->[$col] cmp $b->[$col] } @$sort;
> } else {
> 	@$sorted =3D sort { $b->[$col] cmp $a->[$col] } @$sort;
> }
>=20
> }
>=20
> __END__=20


Thanks Bill, that did EXACTLY what I needed!  Here is part of the script
I have been working (Win32::GUI::Listview control) in case anyone else
wants to look at it:

use Win32::GUI;
# define GLOBAL sort criteria:
my $dir =3D 'f';
my $sortCol;
# One thing not here is that I define a property of the lvwJobposts
object ($win->lvwJobposts->{Columns}) to hold the number(actually, the
last column index) of columns  in the list view.

....# create window and controls......

# given a listview control Named lvwJobposts:
sub lvwJobposts_ColumnClick{
	my $sort =3D shift;			# selected Column
	my @Rows;
	for(my $x =3D 0; $x < $win->lvwJobposts->Count();$x++){
		my @Values;
		for(my $y =3D 0; $y <=3D $win->lvwJobposts->{Columns};
$y++){
			my %data =3D $win->lvwJobposts->ItemInfo($x, $y);
			push @Values, $data{-text};	# push each
row->Column value into array
		}
		push @Rows, \@Values;  # push each row into @Rows array
	}
	if ($sort =3D=3D $sortCol){ 	# Determine if we are sorting on
same column as last time
		if($dir eq 'f'){		# if so, reverse sort
order....
			$dir =3D 'b';
		}elsif($dir eq 'b'){
			$dir =3D 'f';
		}	=09
	}else{					# otherwise, this is a
new column and set sort to forward
		$sortCol =3D $sort;
		$dir =3D "f";
	}
	my @result;
	dosort (\@Rows, \@result, $sort, $dir);
	$win->lvwJobposts->Clear();		# Clears the list view
	for (my $d =3D 0; $d <=3D $#result;$d++){
		Win32::GUI::DoEvents();			# thrown in in
case there a a large number of Rows
		$win->lvwJobposts->InsertItem(-text =3D>$result[$d]); #
adds back a row at a time
	}
}
sub dosort {		# dosort \@sort, \@result, column 0 to n,
'f'|'r'
	my ($sort, $sorted, $col, $dir) =3D @_;
	if ($dir eq 'f') {
		@$sorted =3D sort { $a->[$col] <=3D> $b->[$col] ||
$a->[$col] cmp $b->[$col] } @$sort;
	} else {
		@$sorted =3D sort { $b->[$col] <=3D> $a->[$col] ||
$b->[$col] cmp $a->[$col] } @$sort;
	}
}
>=20
> PS:  Done much boxing lately ?  :)
>=20

Not lately.  To busy trying to master Perl( it would help if I had a job
where it was what I did)

Now, anyone want to give me 1-2 examples of using the Schwartzian
Transform and break it down?( I have seen the one linked to from
perl.com, but it kind of makes my head hurt. I also searched google, but
found that one and a few other links that did not really explain when to
use and how it works.)

Joe Frazier, Jr
Technical Support Engineer
PeopleClick
919-645-2916
joe...@pe...
=20

FW: [perl-win32-gui-users] Sorting Listview

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

I pulled the code below straight out of a program I wrote awhile back that
does this. This issue has been discussed several times, you might find
better examples in the archives. What most people have done is store their
data in a pre-defined hash, I actually pull the data directly from the table
and spit it back into the table.... Hope this helps, let me know if you need
any help understanding all this....

	Tim Thomas

sub ListView_ColumnClick {
	my $column = shift;
	$column=$column+1;

	## 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;}
	#Win32::MsgBox("You Clicked $column, last time it was $lastcolumn,
sortorder=$sortorder", 0, "DEBUG");
	$lastcolumn = $column;

	%data=();
	$rows=$ListView->Count();
	for $i(0..$rows-1)
		{
		$row="";
		my %result=$ListView->GetItem($i,0);
		$image=$result{-image};
		for $j(0..$totalcols-1)
			{
			my %result=$ListView->GetItem($i,$j);
			$text=$result{-text};
			$row.=",$text";
			}
		$data{$i}="$image$row";
		#Win32::MsgBox("data($i)=$image$row\n");
		}

	my %sortcol = NewList($column, %data);
	SortListItem(\%data,\%sortcol,$column);
	if ($sortorder)
		{$Status->Text("Sorted descending by Column $column.");}
	else
		{$Status->Text("Sorted ascending by Column $column.");}
	return;
}

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

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

   $ListView->Clear();  ## clear the ListView window
   $index = 0;
   if ($sortorder == 0)
		{  ## this is sorting in ascending order
		if (($column == 2) or ($column == 3))
			{
			#Win32::MsgBox("sorting numerically\n");
		      foreach (sort {
(substr($sortcol{$a},0,index($sortcol{$a}," "))) <=>
(substr($sortcol{$b},0,index($sortcol{$b}," "))) } keys %sortcol)
				{
				my @newdata = split/,/,$data{$_};
 				InsertListItem(@newdata);
				}
			}
		else {
		      foreach (sort { uc($sortcol{$a}) cmp uc($sortcol{$b})
} keys %sortcol)
				{
				my @newdata = split/,/,$data{$_};
 				InsertListItem(@newdata);
				}
		}
		$ListView->Update();
		}
   else
	{   ## this is sorting in descending order
		if (($column == 2) or ($column == 3))
			{
			#Win32::MsgBox("sorting numerically\n");
		      foreach (sort {
(substr($sortcol{$b},0,index($sortcol{$b}," "))) <=>
(substr($sortcol{$a},0,index($sortcol{$a}," "))) } keys %sortcol)
				{
				my @newdata = split/,/,$data{$_};
 				InsertListItem(@newdata);
				}
			}
		else {
		      foreach (sort { uc($sortcol{$b}) cmp uc($sortcol{$a})
} keys %sortcol)
				{
				my @newdata = split/,/,$data{$_};
				InsertListItem(@newdata);
				}
			$ListView->Update();
			}
	}
   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);
}

-----Original Message-----
From: Frazier, Joe Jr [mailto:Joe...@Pe...]
Sent: Wednesday, September 05, 2001 11:18 AM
To: per...@li...
Subject: [perl-win32-gui-users] Sorting Listview


Is there a way to sort the data in a Listview control?  I know there is
a ColumnClick event for each column and this is where you would do your
sort, but has anyone already created a function to do this?  I would
assume you would have to load each row in to a data structure and use a
Schwartzian Transform, then rebuild the list?  Does this sound like the
right way to go or has anyone already done this?


Joe Frazier, Jr
Technical Support Engineer
PeopleClick
919-645-2916
joe...@pe...
 

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

[perl-win32-gui-users] RE: [The GUI Loft] OLE Tool/Tool tips/Pasting/Hourglass/In Place Editing

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

> >4.  Does anyone know a way to change the cursor during long
> >operations.  I'm just looking for an hourglass, nothing fancy.
>=20
> Don't know how, but it can be done. It's Win32::GUI stuff.
>=20
> Look in the docs, or ask on the win32-gui-users mailing list=20
> if you can't=20
> get it to work. And if you need special support in The GUI=20
> Loft, just bring=20
> it up here again.

here is an example:   See comments to weird stuff.  You can just change
what you don't need.  Basically, open window.  Press the button, and the
cursor changes.  A timer starts and returns the cursor after 5 seconds.

use Win32::GUI;
my $OLDCUR;

package Win32::GUI;
sub CenterOnScreen{
	 my ($window) =3D shift;
	 my $desk =3D $window->GetDesktopWindow();
	 my(undef, undef, $d_width, $d_height)=3D
Win32::GUI::GetWindowRect($desk);
	 my ($win_width)=3D $window->ScaleWidth();
	 my ($win_height) =3D $window->ScaleHeight();
	 my $delta_w =3D ($d_width  /2) - ($win_width/ 2);
	 my $delta_h =3D ($d_height / 2) - ($win_height / 2);
	 $window->Move($delta_w, $delta_h);
}
package main;

$window =3D new Win32::GUI::Window(
	-name   =3D> "Window",
	-topmost =3D> 1,
	-icon   =3D> "",
	-left   =3D> 300,
	-top    =3D> 400,
	-width  =3D> 205,
	-height =3D> 228,
	-maxsize  =3D> [205,228],
	-minsize  =3D> [205,228],
	-text   =3D> "Cursor",
	-maximizebox =3D> 0,
	-minimizebox =3D>1,
	-helpbutton =3D> 0,
);



sub Button_Click{
	$CUR =3D new Win32::GUI::Cursor("c:\\winnt\\cursors\\barber.ani");
# load Cursor
	$OLDCUR =3D	$window->ChangeCursor($CUR);  # set cursor
	$window->Button->Disable();  #disable button
	$window->T1->Interval(5000);  #start timer
}

sub T1_Timer{
	$window->ChangeCursor($OLDCUR);  # change cursor back
	Win32::GUI::SetCursor($OLDCUR); =20
# I had to put this here(why is this=20
#not an object method, but ChangeCursor is?)
# if I did not put this here, the cursor would not change until
# I moved the mouse.  Dont know why.

	$window->T1->Kill();
	$window->Button->Enable();
	print "Done\n";
}

$window->AddButton(
	-text =3D> "Start",
	-name =3D>"Button",
	-left=3D>0,
	-top=3D>4,
	-width=3D>198,

	);
	$window->AddTimer("T1",0);
# create timer object
$window->T1->Kill();   # Kill the timer, otherwise, it fires as soon as
the dialog starts(BUG?)
$window->CenterOnScreen();  # added Method to center new windows<smile>
$window->Show();
Win32::GUI::Dialog();

###############################
###                                                        ###
###        Win32::GUI Event Subs        ###
###                                                        ###
###############################
sub Window_Terminate{
	 -1;
}

[perl-win32-gui-users] Sorting Listview

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

Is there a way to sort the data in a Listview control?  I know there is
a ColumnClick event for each column and this is where you would do your
sort, but has anyone already created a function to do this?  I would
assume you would have to load each row in to a data structure and use a
Schwartzian Transform, then rebuild the list?  Does this sound like the
right way to go or has anyone already done this?


Joe Frazier, Jr
Technical Support Engineer
PeopleClick
919-645-2916
joe...@pe...
=20

RE: [perl-win32-gui-users] Running user functions after terminate window

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

> Everytime I write a new program I always make
> some stupid mistake that screws everything up.

Hm ... anybody here that this does NOT happen to?? I mean of those people
that really DO write programs and not recombine samples with cut&paste, the
way of Lego-programming you do VB and Dotnet and stuff ;)

RE: [perl-win32-gui-users] Running user functions after terminate window

[<Jos...@DM...>]

I'm really, really sorry.  Everytime I write a new program I always make
some stupid mistake that screws everything up.  Usually I catch it but this
time I didn't.  I'm an idiot and I'm sorry for wasting everyones time.

Thanks,

Joe






Peter Eisengrein <Pet...@at...>@lists.sourceforge.net on
09/04/2001 04:27:21 PM

Sent by:  per...@li...


To:   "'Jos...@DM...'" <Jos...@DM...>,
      per...@li...
cc:
Subject:  RE: [perl-win32-gui-users] Running user functions after terminate
       window

Between sub Dropdown_Change and sub GetFiles there's a statement of
'GetFiles($s);' That's what's doing it. Was that a typ-o?

> -----Original Message-----
> From: Jos...@DM... [mailto:Jos...@DM...]
> Sent: 04 September 2001 12:09
> To: per...@li...
> Subject: [perl-win32-gui-users] Running user functions after terminate
> window
>
>
> Hello,
>
> I have a strange problem with my code.  After I terminate my
> window.  The
> program runs my user defined functions again.  Why is it
> doing this and how
> do I stop it.  I've included my code but I took everything out but the
> print statements which show the function running after the I
> terminate the
> gui window, below the code is the output.
>
> -----------CODE-----------
> # WebDeploy v2.0.0
>
> use Win32::GUI;
> use File::Copy;
> use Win32::File;
>
> print "#Before CreateWindow()\n";
> CreateWindow();
> print "#After CreateWindow(), Before Show()\n";
> $Window->Show();
> print "#After Show(), Before Dialog\n";
> Win32::GUI::Dialog();
> print "#After Dialog\n";
> print "#Finished\n";
>
> #=====================
> sub CreateWindow {
>      print "#Start of CreateWindow()\n";
>      $Window = new GUI::Window(
>           -name     =>   "Window",
>           -text     =>   "Web Deploy v2.0.0",
>           -width    =>   800,
>           -height   =>   700,
>           -left     =>   25,
>           -top =>   25,
>      );
>
>
>
>      $CBdropdown = $Window->AddCombobox(
>          -name   => "Dropdown",
>          -left   => 10,
>          -top    => 500,
>          -width  => 250,
>          -height => 100,
>          -style  => WS_VISIBLE | 2 | WS_NOTIFY,
>      );
>      $CBdropdown->InsertItem("samples");
>      $CBdropdown->InsertItem("Ops");
>      $CBdropdown->InsertItem("Timesheet");
>
>      print "#End of CreateWindow()\n";
> }
>
> #====================
> sub Dropdown_Change {
>      print "#Start of Dropdown_Change\n";
>      my $s = $CBdropdown->SelectedItem;
>      print "#Before GetFiles()\n";
>      GetFiles($s);
>      print "#After GetFiles(), End of Dropdown_Change\n"
> }
>
> #=====================
> GetFiles($s);
> #=====================
> sub GetFiles {
>      print "#Start of GetFiles()\n";
>      print "#Before InsertListItem\n";
>      InsertListItem();
>      print "#After InsertListItem\n";
>      print "#End of GetFiles()\n";
> }
>
> #====================
> sub InsertListItem {
>      print "#Start of InsertListItem\n";
>      print "#End of InsertListItem\n";
> }
>
> #=====================
> sub Window_Terminate {
>      print "#In Window_Terminate\n";
>     return -1;
> }
>
> -----------OUTPUT---------------
> D:\code>webdeploy2.pl
> #Before CreateWindow()
> #Start of CreateWindow()
> #End of CreateWindow()
> #After CreateWindow(), Before Show()
> #After Show(), Before Dialog
> #Start of Dropdown_Change
> #Before GetFiles()
> #Start of GetFiles()
> #Before InsertListItem
> #Start of InsertListItem
> #End of InsertListItem
> #After InsertListItem
> #End of GetFiles()
> #After GetFiles(), End of Dropdown_Change
> #In Window_Terminate
> #After Dialog
> #Finished
> #Start of GetFiles()
> #Before InsertListItem
> #Start of InsertListItem
> #End of InsertListItem
> #After InsertListItem
> #End of GetFiles()
>
> D:\code>
>
> What I did was start the program (The output goes to '#After
> Show(), Before
> Dialog').  Then I select something from the dropdown box
> (output goes to '
> #After GetFiles(), End of Dropdown_Change').  Then click on the 'X' to
> close the window.  Now after "#Finished" shouldn't the
> program end and not
> run my user functions again?
>
> Please help.
>
> Thanks,
>
> Joe
>
>
>
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

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

RE: [perl-win32-gui-users] Running user functions after terminate window

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

Between sub Dropdown_Change and sub GetFiles there's a statement of
'GetFiles($s);' That's what's doing it. Was that a typ-o?

> -----Original Message-----
> From: Jos...@DM... [mailto:Jos...@DM...]
> Sent: 04 September 2001 12:09
> To: per...@li...
> Subject: [perl-win32-gui-users] Running user functions after terminate
> window
> 
> 
> Hello,
> 
> I have a strange problem with my code.  After I terminate my 
> window.  The
> program runs my user defined functions again.  Why is it 
> doing this and how
> do I stop it.  I've included my code but I took everything out but the
> print statements which show the function running after the I 
> terminate the
> gui window, below the code is the output.
> 
> -----------CODE-----------
> # WebDeploy v2.0.0
> 
> use Win32::GUI;
> use File::Copy;
> use Win32::File;
> 
> print "#Before CreateWindow()\n";
> CreateWindow();
> print "#After CreateWindow(), Before Show()\n";
> $Window->Show();
> print "#After Show(), Before Dialog\n";
> Win32::GUI::Dialog();
> print "#After Dialog\n";
> print "#Finished\n";
> 
> #=====================
> sub CreateWindow {
>      print "#Start of CreateWindow()\n";
>      $Window = new GUI::Window(
>           -name     =>   "Window",
>           -text     =>   "Web Deploy v2.0.0",
>           -width    =>   800,
>           -height   =>   700,
>           -left     =>   25,
>           -top =>   25,
>      );
> 
> 
> 
>      $CBdropdown = $Window->AddCombobox(
>          -name   => "Dropdown",
>          -left   => 10,
>          -top    => 500,
>          -width  => 250,
>          -height => 100,
>          -style  => WS_VISIBLE | 2 | WS_NOTIFY,
>      );
>      $CBdropdown->InsertItem("samples");
>      $CBdropdown->InsertItem("Ops");
>      $CBdropdown->InsertItem("Timesheet");
> 
>      print "#End of CreateWindow()\n";
> }
> 
> #====================
> sub Dropdown_Change {
>      print "#Start of Dropdown_Change\n";
>      my $s = $CBdropdown->SelectedItem;
>      print "#Before GetFiles()\n";
>      GetFiles($s);
>      print "#After GetFiles(), End of Dropdown_Change\n"
> }
> 
> #=====================
> GetFiles($s);
> #=====================
> sub GetFiles {
>      print "#Start of GetFiles()\n";
>      print "#Before InsertListItem\n";
>      InsertListItem();
>      print "#After InsertListItem\n";
>      print "#End of GetFiles()\n";
> }
> 
> #====================
> sub InsertListItem {
>      print "#Start of InsertListItem\n";
>      print "#End of InsertListItem\n";
> }
> 
> #=====================
> sub Window_Terminate {
>      print "#In Window_Terminate\n";
>     return -1;
> }
> 
> -----------OUTPUT---------------
> D:\code>webdeploy2.pl
> #Before CreateWindow()
> #Start of CreateWindow()
> #End of CreateWindow()
> #After CreateWindow(), Before Show()
> #After Show(), Before Dialog
> #Start of Dropdown_Change
> #Before GetFiles()
> #Start of GetFiles()
> #Before InsertListItem
> #Start of InsertListItem
> #End of InsertListItem
> #After InsertListItem
> #End of GetFiles()
> #After GetFiles(), End of Dropdown_Change
> #In Window_Terminate
> #After Dialog
> #Finished
> #Start of GetFiles()
> #Before InsertListItem
> #Start of InsertListItem
> #End of InsertListItem
> #After InsertListItem
> #End of GetFiles()
> 
> D:\code>
> 
> What I did was start the program (The output goes to '#After 
> Show(), Before
> Dialog').  Then I select something from the dropdown box 
> (output goes to '
> #After GetFiles(), End of Dropdown_Change').  Then click on the 'X' to
> close the window.  Now after "#Finished" shouldn't the 
> program end and not
> run my user functions again?
> 
> Please help.
> 
> Thanks,
> 
> Joe
> 
> 
> 
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

[perl-win32-gui-users] Running user functions after terminate window

[<Jos...@DM...>]

Hello,

I have a strange problem with my code.  After I terminate my window.  The
program runs my user defined functions again.  Why is it doing this and how
do I stop it.  I've included my code but I took everything out but the
print statements which show the function running after the I terminate the
gui window, below the code is the output.

-----------CODE-----------
# WebDeploy v2.0.0

use Win32::GUI;
use File::Copy;
use Win32::File;

print "#Before CreateWindow()\n";
CreateWindow();
print "#After CreateWindow(), Before Show()\n";
$Window->Show();
print "#After Show(), Before Dialog\n";
Win32::GUI::Dialog();
print "#After Dialog\n";
print "#Finished\n";

#=====================
sub CreateWindow {
     print "#Start of CreateWindow()\n";
     $Window = new GUI::Window(
          -name     =>   "Window",
          -text     =>   "Web Deploy v2.0.0",
          -width    =>   800,
          -height   =>   700,
          -left     =>   25,
          -top =>   25,
     );



     $CBdropdown = $Window->AddCombobox(
         -name   => "Dropdown",
         -left   => 10,
         -top    => 500,
         -width  => 250,
         -height => 100,
         -style  => WS_VISIBLE | 2 | WS_NOTIFY,
     );
     $CBdropdown->InsertItem("samples");
     $CBdropdown->InsertItem("Ops");
     $CBdropdown->InsertItem("Timesheet");

     print "#End of CreateWindow()\n";
}

#====================
sub Dropdown_Change {
     print "#Start of Dropdown_Change\n";
     my $s = $CBdropdown->SelectedItem;
     print "#Before GetFiles()\n";
     GetFiles($s);
     print "#After GetFiles(), End of Dropdown_Change\n"
}

#=====================
GetFiles($s);
#=====================
sub GetFiles {
     print "#Start of GetFiles()\n";
     print "#Before InsertListItem\n";
     InsertListItem();
     print "#After InsertListItem\n";
     print "#End of GetFiles()\n";
}

#====================
sub InsertListItem {
     print "#Start of InsertListItem\n";
     print "#End of InsertListItem\n";
}

#=====================
sub Window_Terminate {
     print "#In Window_Terminate\n";
    return -1;
}

-----------OUTPUT---------------
D:\code>webdeploy2.pl
#Before CreateWindow()
#Start of CreateWindow()
#End of CreateWindow()
#After CreateWindow(), Before Show()
#After Show(), Before Dialog
#Start of Dropdown_Change
#Before GetFiles()
#Start of GetFiles()
#Before InsertListItem
#Start of InsertListItem
#End of InsertListItem
#After InsertListItem
#End of GetFiles()
#After GetFiles(), End of Dropdown_Change
#In Window_Terminate
#After Dialog
#Finished
#Start of GetFiles()
#Before InsertListItem
#Start of InsertListItem
#End of InsertListItem
#After InsertListItem
#End of GetFiles()

D:\code>

What I did was start the program (The output goes to '#After Show(), Before
Dialog').  Then I select something from the dropdown box (output goes to '
#After GetFiles(), End of Dropdown_Change').  Then click on the 'X' to
close the window.  Now after "#Finished" shouldn't the program end and not
run my user functions again?

Please help.

Thanks,

Joe

RE: [perl-win32-gui-users] What is the value of WM_HELP?

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

VGhhbmtzLCBJIGd1ZXNzIHdoYXQgSSB3YXMgbG9va2luZyBmb3IgZGlkbnQgcGFuIG91dC4gIEJh
c2ljYWxseSwgSSB3YXMNCnRyeWluZyB0byBmaW5kIGEgd2F5IHRvIHVzZSB0aGUgaGVscGJ1dHRv
biBmcm9tIERpYWxvZ2JveGVzLiAgSSBhc3N1bWVkDQp0aGF0IHVzaW5nIGdldG1lc3NhZ2Ugb3Ig
cGVla21lc3NhZ2UoaW5zaWRlIGEgbWFpbiB3aW5kb3cgdGltZXIgZXZlbnQpDQp3b3VsZCBiZSBh
YmxlIHRvIGdldCB0aGUgbWVzc2FnZSBmcm9tIHRoZSBxdWV1ZSBhbmQgdGhlbiB1c2UgdGhlDQpy
ZXR1cm5lZCB4IGFuZCB5IHRvIGZpbmQgb3V0IHdoYXQgY29udHJvbCBpcyB1bmRlci4gIEkgZG9u
dCBzZWVtIHRvIGJlDQpnZXR0aW5nIGFueXdoZXJlIHRob3VnaC4gIEkgZG9udCBrbm93IEMsIHNv
IGRvbnQgcmVhbGx5IGtub3cgd2hlcmUgdG8NCnN0YXJ0LiAgQW55b25lIGVsc2Ugd29ya2VkIG9u
IHNvbWV0aGluZyBsaWtlIHRoaXM/ICANCiANCmJ0dy4uIHRoaXMgaXMganVzdCBmb3IgY3VyaW9z
aXR5IHNha2UuDQogDQogDQoNCgktLS0tLU9yaWdpbmFsIE1lc3NhZ2UtLS0tLSANCglGcm9tOiBK
b2hhbiBMaW5kc3Ryb20gDQoJU2VudDogTW9uIDkvMy8yMDAxIDE6MDAgUE0gDQoJVG86IHBlcmwt
d2luMzItZ3VpLXVzZXJzQGxpc3RzLnNvdXJjZWZvcmdlLm5ldCANCglDYzogDQoJU3ViamVjdDog
UmU6IFtwZXJsLXdpbjMyLWd1aS11c2Vyc10gV2hhdCBpcyB0aGUgdmFsdWUgb2YNCldNX0hFTFA/
DQoJDQoJDQoNCglKb2Ugd3JvdGU6DQoJPiAgICAgICAgIFdoYXQgaXMgdGhlIHZhbHVlIG9mIFdN
X0hFTFA/DQoJDQoJI2RlZmluZSBXTV9IRUxQICAgICAgICAgICAgICAgICAgICAgICAgIDB4MDA1
Mw0KCQ0KCQ0KCS9KDQoJDQoJLS0tLS0tIC0tLS0gLS0tIC0tIC0tIC0tIC0gIC0gICAtICAgIC0g
ICAgICAgIC0NCglKb2hhbiBMaW5kc3Ryw7ZtICAgICAgICAgICAgICAgICAgICBCb3NzIENhc2lu
b3MNCglTb3VyY2VyZXIgICAgICAgICAgICAgICAgICAgICBqb2hhbmxAYmFobmhvZi5zZQ0KCSAg
ICAgICAgICAgICAgICAgIGh0dHA6Ly93d3cuYmFobmhvZi5zZS9+am9oYW5sLw0KCUlmIHRoZSBv
bmx5IHRvb2wgeW91IGhhdmUgaXMgYSBoYW1tZXIsDQoJZXZlcnl0aGluZyB0ZW5kcyB0byBsb29r
DQoJbGlrZSBhIG5haWwNCgkNCgkNCgkNCglfX19fX19fX19fX19fX19fX19fX19fX19fX19fX19f
X19fX19fX19fX19fX19fXw0KCVBlcmwtV2luMzItR1VJLVVzZXJzIG1haWxpbmcgbGlzdA0KCVBl
cmwtV2luMzItR1VJLVVzZXJzQGxpc3RzLnNvdXJjZWZvcmdlLm5ldA0KCQ0KaHR0cHM6Ly9saXN0
cy5zb3VyY2Vmb3JnZS5uZXQvbGlzdHMvbGlzdGluZm8vcGVybC13aW4zMi1ndWktdXNlcnMNCgkN
Cg0K

Re: [perl-win32-gui-users] What is the value of WM_HELP?

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

Joe wrote:
>         What is the value of WM_HELP?

#define WM_HELP                         0x0053


/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] What is the value of WM_HELP?

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

CVdoYXQgaXMgdGhlIHZhbHVlIG9mIFdNX0hFTFA/DQoNCg==

Re: [perl-win32-gui-users] Newbie question: destroy button.

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

Alessandro wrote:
>In this case, I want work in the same window.
>How can I destroy the 2 buttons ?
>Most general: How can destroy any controls so I can reuse the same window 
>to put in it other controls ??

Short answer: you don't. At least I don't think that's the best option, 
although it may be possible. What you can do is this:

Hide the controls you don't want and simply create new ones to replace 
them. This will involve losing the memory until the program ends, but if 
we're not talking about long-running processes here (and my guess is that 
we're not), that should remain a theoretical problem (were it not for the 
fact that memory leaks hurt our perfectionist egos :).

It is possible to create event handler subs on the fly (with eval string) 
if that should be needed. But maybe you already know exactly which controls 
to create? In that case, I suggest that you create them from the beginning 
and just keep them hidden until they are needed.


/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] Newbie question: destroy button.

[Alessandro A. <am...@am...>]

I've started to use Win32-GUI.

In the first stage I've created a simple window with 2 button: =
"Continue" and "Exit":

Use Win32::GUI;
$main=3DWin32::GUI::Window->new(-title=3D>'TEST',-name=3D>'Main',-width =
=3D> 400, -height =3D> 200);
$main->AddButton(-name=3D>'BOK',-text=3D>'Continue',-pos=3D>[50,100]);
$main->AddButton(-name=3D>'BEXIT',-text=3D>'Exit',-pos=3D>[150,100]);
$main->Show();
Win32::GUI::Dialog();
.....other code.....


If I click on "Exit", the program end.
If I click on "Continue" obviously the program continue.
In this case, I want work in the same window.
How can I destroy the 2 buttons ?=20
Most general: How can destroy any controls so I can reuse the same =
window to put in it other controls ??

[perl-win32-gui-users] Doctor Watson error with Win32-GUI

[Anufriyenko,Igor,SOLON,I. - D. D. <igo...@us...>]

	Dr.Watson error was fixed by following:

*	Installing Win32-GUI module from the dada's repository instead of
Active State repository.

	It seems that Active State has something wrong with the Win32-GUI
module

	Just a note.

       Igor Anufriyenko
       Phone: (440)264.61.35 
       E-mail: igo...@us...

RE: [perl-win32-gui-users] How to get items that are checked in a list view.

[<JCo...@EQ...>]

To get which items have the box checked you use the method
"ItemCheck(INDEX)" method.

I took your code and added a button to query this.  

The button looks like this:

#----------
my $fab1 = $Window->AddButton
#----------
(
    -name           => "GetChecks", 
    -left           => 120,
    -top            => 200,
    -text           => "  Get Checks  ",
    -visible        =>   1,
    -default        =>   1,
    -ok             =>   1,  
#    -cancel         =>   1,
    -tabstop        =>   1,
);

then I added an event to execute when the button is pushed:
sub GetChecks_Click
{

    #
    # this gets the number of items in the ListView
    #
    my $cnt = $Window->ListView->Count();

    #
    # a listview index starts at zero so
    #
    foreach ( 0 .. ( $cnt - 1 ) )
    {

        $del[ $_ ] = $Window->ListView->ItemCheck( $_ );
    }
    #
    # @del is an array that contains a 1 if the box is checked
    # and a zero if the box is not checked
    #
    print "Count = $cnt\n";
    print "Checked Items = @del \n";
}

I changed the directory to one of my own ... it has three files in it.
I checked the first one and clicked on my button 

Count = 3
Checked Items = 1 0 0 

was printed in the dos box.

I checked the other two and 

Count = 3
Checked Items = 1 1 1 

was printed in the dos box.

The code is not beautiful, but it seems to work.
I would recommend downloading the source code from Source Forge as it
contains the docs,
which are incomplete but the best we have.

You can also find the docs at http://dada.perl.it/gui_docs/gui.html

HTH

Jeff Colwell
Senior Software Engineer
Equity Residential Properties Trust
Phone: 312-928-1146 Fax: 312-526-0999 Cell: 312-656-5962
No electrons were harmed in making this e-mail message.


-----Original Message-----
From: Jos...@DM... [mailto:Jos...@DM...]
Sent: Wednesday, August 29, 2001 1:20 PM
To: per...@li...
Subject: [perl-win32-gui-users] How to get items that are checked in a
list view.


Hello,

I do get items in a list view that are checked to put in an array/hash/what
ever.  My code list the contents of a directory and puts them in a list
view what I want is that after someone selects the files they want by
checking the box next to it.  They click on a button and it copies the
selected file to a new location.  Any ideas?

Thanks,

Joe

Here is my code:

use Win32::GUI;

$Window = new GUI::Window(
    -name   => "Window",
    -text   => "WEB Deploy v1.0.0",
    -width  => 800,
    -height => 400,
    -left   => 100,
    -top    => 100,
);

$Window->AddListView(
    -name      => "ListView",
    -text      => "hello world!",
    -left      => 10,
    -top       => 10,
    -width     => 780,
    -height    => 180,
    -style     => WS_CHILD | WS_VISIBLE | 1,
    -fullrowselect => 1,
    -gridlines => 1,
    -checkboxes => 1,
#    -hottrack   => 1,
);

$width = $Window->ListView->ScaleWidth;

$Window->ListView->InsertColumn(
    -index => 0,
    -width => $width/4,
    -text  => "File",
);
$Window->ListView->InsertColumn(
    -index   => 1,
    -subitem => 1,
    -width   => $width/1.33,
    -text    => "Path",
);

sub InsertListItem {
    my($name, $description) = @_;
    my $item = $Window->ListView->InsertItem(
        -item  => $Window->ListView->Count(),
        -text  => $name,
        # -index => $Window->ListView->Count(),
    );
    $Window->ListView->SetItem(
        -item    => $item,
        -subitem => 1,
        -text    => $description,
    );
}

$whereami = `chdir`;
chomp($whereami);

$dir = "L:\\Inetpub\\Timesheet";
push @dir,$dir;
chomp($dir);

while ($dirs=pop @dir){
  chomp($dirs);
  chdir $dirs;
  while (<*>) {
    next if ($_ eq ".");
    next if ($_ eq "..");
    if (-d $_) {
      next if (-l $_);
      print "\t Dir-> ",$_,"\n" if $DEBUG;
      push @dir,$dirs."/".$_;
    } else {
     InsertListItem($_, $dirs);
        print "\t File-> ",$_," => $size\n" if $DEBUG;
    }
  }
  exit if $DEBUG;
  chdir $whereami;
}

# $Window->ListView->TextColor(hex("0000FF"));

$Window->Show();

$Window->Dialog();






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

RE: [perl-win32-gui-users] How to get items that are checked in a list view.

[<Jos...@DM...>]

ListView_ItemClick is called when an item is selected.  I want the items
that have the check box checked.





Peter Eisengrein <Pet...@at...>@lists.sourceforge.net on
08/29/2001 04:45:11 PM

Please respond to per...@li...

Sent by:  per...@li...


To:   "'per...@li...'"
      <per...@li...>
cc:    (bcc: Joseph Vieira/DMR/CA)
Subject:  RE: [perl-win32-gui-users] How to get items that are checked in a
       list view.

Each time an item is selected, it will run
sub ListView_ItemClick
What you probably want is to keep an array of the items (filenames) that
are
selected and then if/when a button (which isn't in your code) is _Click 'd
then do a foreach on your list and move each file then undef the list.

> -----Original Message-----
> From: Jos...@DM... [mailto:Jos...@DM...]
> Sent: 29 August 2001 14:20
> To: per...@li...
> Subject: [perl-win32-gui-users] How to get items that are checked in a
> list view.
>
>
> Hello,
>
> I do get items in a list view that are checked to put in an
> array/hash/what
> ever.  My code list the contents of a directory and puts them
> in a list
> view what I want is that after someone selects the files they want by
> checking the box next to it.  They click on a button and it copies the
> selected file to a new location.  Any ideas?
>
> Thanks,
>
> Joe
>
> Here is my code:
>
> use Win32::GUI;
>
> $Window = new GUI::Window(
>     -name   => "Window",
>     -text   => "WEB Deploy v1.0.0",
>     -width  => 800,
>     -height => 400,
>     -left   => 100,
>     -top    => 100,
> );
>
> $Window->AddListView(
>     -name      => "ListView",
>     -text      => "hello world!",
>     -left      => 10,
>     -top       => 10,
>     -width     => 780,
>     -height    => 180,
>     -style     => WS_CHILD | WS_VISIBLE | 1,
>     -fullrowselect => 1,
>     -gridlines => 1,
>     -checkboxes => 1,
> #    -hottrack   => 1,
> );
>
> $width = $Window->ListView->ScaleWidth;
>
> $Window->ListView->InsertColumn(
>     -index => 0,
>     -width => $width/4,
>     -text  => "File",
> );
> $Window->ListView->InsertColumn(
>     -index   => 1,
>     -subitem => 1,
>     -width   => $width/1.33,
>     -text    => "Path",
> );
>
> sub InsertListItem {
>     my($name, $description) = @_;
>     my $item = $Window->ListView->InsertItem(
>         -item  => $Window->ListView->Count(),
>         -text  => $name,
>         # -index => $Window->ListView->Count(),
>     );
>     $Window->ListView->SetItem(
>         -item    => $item,
>         -subitem => 1,
>         -text    => $description,
>     );
> }
>
> $whereami = `chdir`;
> chomp($whereami);
>
> $dir = "L:\\Inetpub\\Timesheet";
> push @dir,$dir;
> chomp($dir);
>
> while ($dirs=pop @dir){
>   chomp($dirs);
>   chdir $dirs;
>   while (<*>) {
>     next if ($_ eq ".");
>     next if ($_ eq "..");
>     if (-d $_) {
>       next if (-l $_);
>       print "\t Dir-> ",$_,"\n" if $DEBUG;
>       push @dir,$dirs."/".$_;
>     } else {
>      InsertListItem($_, $dirs);
>         print "\t File-> ",$_," => $size\n" if $DEBUG;
>     }
>   }
>   exit if $DEBUG;
>   chdir $whereami;
> }
>
> # $Window->ListView->TextColor(hex("0000FF"));
>
> $Window->Show();
>
> $Window->Dialog();
>
>
>
>
>
>
> _______________________________________________
> 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] How to get items that are checked in a list view.

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

Joe wrote:
>I do get items in a list view that are checked to put in an array/hash/what
>ever.  My code list the contents of a directory and puts them in a list
>view what I want is that after someone selects the files they want by
>checking the box next to it.  They click on a button and it copies the
>selected file to a new location.  Any ideas?

Forget about the checkbox stuff unless you want to code it yourself. (Maybe 
(and that's a big maybe) checking a checkbox will change the state flags of 
an item. If so, check that with the ItemInfo() method.)

What you can do is to let the user Ctrl-click-select many items in the 
ListView. They should be acccessible using the SelectedItems() method.

These methods are described in the HTML documentation. The state flag for 
checkboxes you'll probably need to reverse-engineer yourself.


/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] How to get items that are checked in a list view.

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

Each time an item is selected, it will run 
sub ListView_ItemClick
What you probably want is to keep an array of the items (filenames) that are
selected and then if/when a button (which isn't in your code) is _Click 'd
then do a foreach on your list and move each file then undef the list.

> -----Original Message-----
> From: Jos...@DM... [mailto:Jos...@DM...]
> Sent: 29 August 2001 14:20
> To: per...@li...
> Subject: [perl-win32-gui-users] How to get items that are checked in a
> list view.
> 
> 
> Hello,
> 
> I do get items in a list view that are checked to put in an 
> array/hash/what
> ever.  My code list the contents of a directory and puts them 
> in a list
> view what I want is that after someone selects the files they want by
> checking the box next to it.  They click on a button and it copies the
> selected file to a new location.  Any ideas?
> 
> Thanks,
> 
> Joe
> 
> Here is my code:
> 
> use Win32::GUI;
> 
> $Window = new GUI::Window(
>     -name   => "Window",
>     -text   => "WEB Deploy v1.0.0",
>     -width  => 800,
>     -height => 400,
>     -left   => 100,
>     -top    => 100,
> );
> 
> $Window->AddListView(
>     -name      => "ListView",
>     -text      => "hello world!",
>     -left      => 10,
>     -top       => 10,
>     -width     => 780,
>     -height    => 180,
>     -style     => WS_CHILD | WS_VISIBLE | 1,
>     -fullrowselect => 1,
>     -gridlines => 1,
>     -checkboxes => 1,
> #    -hottrack   => 1,
> );
> 
> $width = $Window->ListView->ScaleWidth;
> 
> $Window->ListView->InsertColumn(
>     -index => 0,
>     -width => $width/4,
>     -text  => "File",
> );
> $Window->ListView->InsertColumn(
>     -index   => 1,
>     -subitem => 1,
>     -width   => $width/1.33,
>     -text    => "Path",
> );
> 
> sub InsertListItem {
>     my($name, $description) = @_;
>     my $item = $Window->ListView->InsertItem(
>         -item  => $Window->ListView->Count(),
>         -text  => $name,
>         # -index => $Window->ListView->Count(),
>     );
>     $Window->ListView->SetItem(
>         -item    => $item,
>         -subitem => 1,
>         -text    => $description,
>     );
> }
> 
> $whereami = `chdir`;
> chomp($whereami);
> 
> $dir = "L:\\Inetpub\\Timesheet";
> push @dir,$dir;
> chomp($dir);
> 
> while ($dirs=pop @dir){
>   chomp($dirs);
>   chdir $dirs;
>   while (<*>) {
>     next if ($_ eq ".");
>     next if ($_ eq "..");
>     if (-d $_) {
>       next if (-l $_);
>       print "\t Dir-> ",$_,"\n" if $DEBUG;
>       push @dir,$dirs."/".$_;
>     } else {
>      InsertListItem($_, $dirs);
>         print "\t File-> ",$_," => $size\n" if $DEBUG;
>     }
>   }
>   exit if $DEBUG;
>   chdir $whereami;
> }
> 
> # $Window->ListView->TextColor(hex("0000FF"));
> 
> $Window->Show();
> 
> $Window->Dialog();
> 
> 
> 
> 
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

[perl-win32-gui-users] How to get items that are checked in a list view.

[<Jos...@DM...>]

Hello,

I do get items in a list view that are checked to put in an array/hash/what
ever.  My code list the contents of a directory and puts them in a list
view what I want is that after someone selects the files they want by
checking the box next to it.  They click on a button and it copies the
selected file to a new location.  Any ideas?

Thanks,

Joe

Here is my code:

use Win32::GUI;

$Window = new GUI::Window(
    -name   => "Window",
    -text   => "WEB Deploy v1.0.0",
    -width  => 800,
    -height => 400,
    -left   => 100,
    -top    => 100,
);

$Window->AddListView(
    -name      => "ListView",
    -text      => "hello world!",
    -left      => 10,
    -top       => 10,
    -width     => 780,
    -height    => 180,
    -style     => WS_CHILD | WS_VISIBLE | 1,
    -fullrowselect => 1,
    -gridlines => 1,
    -checkboxes => 1,
#    -hottrack   => 1,
);

$width = $Window->ListView->ScaleWidth;

$Window->ListView->InsertColumn(
    -index => 0,
    -width => $width/4,
    -text  => "File",
);
$Window->ListView->InsertColumn(
    -index   => 1,
    -subitem => 1,
    -width   => $width/1.33,
    -text    => "Path",
);

sub InsertListItem {
    my($name, $description) = @_;
    my $item = $Window->ListView->InsertItem(
        -item  => $Window->ListView->Count(),
        -text  => $name,
        # -index => $Window->ListView->Count(),
    );
    $Window->ListView->SetItem(
        -item    => $item,
        -subitem => 1,
        -text    => $description,
    );
}

$whereami = `chdir`;
chomp($whereami);

$dir = "L:\\Inetpub\\Timesheet";
push @dir,$dir;
chomp($dir);

while ($dirs=pop @dir){
  chomp($dirs);
  chdir $dirs;
  while (<*>) {
    next if ($_ eq ".");
    next if ($_ eq "..");
    if (-d $_) {
      next if (-l $_);
      print "\t Dir-> ",$_,"\n" if $DEBUG;
      push @dir,$dirs."/".$_;
    } else {
     InsertListItem($_, $dirs);
        print "\t File-> ",$_," => $size\n" if $DEBUG;
    }
  }
  exit if $DEBUG;
  chdir $whereami;
}

# $Window->ListView->TextColor(hex("0000FF"));

$Window->Show();

$Window->Dialog();

RE: [perl-win32-gui-users] open file dialog?

[Forhan, M. <Mic...@tr...>]

Yes, there is. Try this Function on for Size:
   
   my @File_Filter = ( "Perl Files (*.pl)", "*.pl", "Perl Gui Files
(*.plx)", "*.plx", "All Files (*.*)", "*.*" );
   my $dir = cwd;

   my $OPENED_FILE = GUI::GetOpenFileName(
                     -owner => $Window,
                     -directory => "$dir",
                     -title => "Gui Template - Open File", 
                     -filter => \@File_Filter
   );

Hope this helps,
Mic...@tr...

-----Original Message-----
From: Steve Comrie [mailto:sc...@sh...]
Sent: Monday, August 27, 2001 11:20 AM
To: per...@li...
Subject: [perl-win32-gui-users] open file dialog?


Is there a standard open file dialog box or are we own our own?

===
steve comrie :: senior developer
www.shrinkingplanet.ca


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

[perl-win32-gui-users] open file dialog?

[Steve C. <sc...@sh...>]

Is there a standard open file dialog box or are we own our own?

===
steve comrie :: senior developer
www.shrinkingplanet.ca

RE: [perl-win32-gui-users] RE: NotifyIcon - How to Change icon pr ogrammatically

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

That did it!!! Thanks!


> 
> > How can you change the -icon after it already exists in the 
> > system tray?
> 
> Don't know how supported it is but this is what I had to do is call
> Win32::GUI::NotifyIcon::Modify directly (it is located in the 
> GUI.xs file
> for those with the source). Example works off the click on 
> the tray icon.
> 
>