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

RE: [perl-win32-gui-users] Newbie to GUI -- Busy Window?

[<pau...@or...>]

Hi Sean

If the PPM on SourceForge is the one I built for Aldo (I think it is) it was
built and tested on Windows 2000 with ActiveState Perl 5.6.1 build 630. I have
tested the PPM on Win XP but not 95.

One question, did you do ppm remove Win32-GUI before you installed the new
version ? If not it may be a good idea to remove the module (via ppm remove) and
then re-install it. Unfortunately I don't have a 95 box to test the code on. I
do have an ME test box so if I get time this weekend I'll try it there and see
if it works.

Hope this helps

Paul



*******************************************************************************
Important.
Confidentiality: This communication is intended for the above-named person and
may be confidential and/or legally privileged. Any opinions expressed in this
communication are not necessarily those of the company. If it has come to you
in error you must take no action based on it, nor must you copy or show it to
anyone; please delete/destroy and inform the sender immediately.

Monitoring/Viruses
Orange may monitor all incoming and outgoing emails in line with current
legislation.  Although we have taken steps to ensure that this email and
attachments are free from any virus, we advise that in keeping with good
computing practice the recipient should ensure they are actually virus free.

Orange PCS Limited is a subsidiary of Orange SA and is registered in England No
2178917, with its address at St James Court, Great Park Road, Almondsbury Park,
Bradley Stoke, Bristol BS32 4QJ.
*******************************************************************************

RE: [perl-win32-gui-users] Newbie to GUI -- Busy Window?

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

My message is unclearly worded.  I didn't mean that I couldn't get PPM to 
install it (the actual .ppd parses fine), but that Win32::GUI no longer 
works once I install 0.0.665.  This is the error message I get:

Can't load 'F:/Perl/site/lib/auto/Win32/GUI/GUI.dll' for module Win32::GUI: 
load_file:A device attached to the system is not functioning at 
F:/Perl/lib/DynaLoader.pm line 200.

And this is my version info:

This is perl, v5.6.0 built for MSWin32-x86-multi-thread
(with 1 registered patch, see perl -V for more detail)

Copyright 1987-2000, Larry Wall

Binary build 618 provided by ActiveState Tool Corp. 
http://www.ActiveState.com
Built 21:03:54 Sep 13 2000

The download page at ActiveState is currently offering 5.6.1, build 631.  Is 
anyone else managing to use 0.0.665 on Win95 with any version of Perl?  
(Someone who did not build it himself (or herself).)

>My guess is that you're using a different version of Win32::GUI than I
>am
>(I'm still using 0.0.558 because I couldn't get the PPM for 0.0.665 at
>SourceForge to work) and your version is slightly more tolerant of
>missing
>names.  Anyway, it seems like what's happening is that your window
>actually
>appears, but is 0 pixels by 0 pixels in dimension.


_________________________________________________________________
Send and receive Hotmail on your mobile device: http://mobile.msn.com

Re: [perl-win32-gui-users] problems with combobox

[Aldo C. <dad...@al...>]

ma...@mm... wrote:
> problem is when i click on the comboxbox it will only list 1 entry (there
> are 2)

InsertItem() can insert only one item at a time. use this instead:

  $dunlist->Add(@dunentries);

> and both $Window and $Window2 will freeze. what am i doing wrong?

you should not call $Window2->Dialog(), because it will intercept messages
from $Window2 *only*. Comboboxes fire their own messages, so you need a
Dialog() call that intercepts everything:

  Win32::GUI::Dialog();

> also is there a way to stop a window from being resized?

use -resizable => 0 when building the window.

> is there a way to open a window maximized.

call $Window2->Show(3); # 3 == SW_SHOWMAXIMIZED

> and (i think this is the last one) is it possible to make the widgets
sticky
> like in tk?

dunno what it means...


cheers,
Aldo

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

RE: [perl-win32-gui-users] problems with combobox

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

Dude ... you call &settings from an event handler and $Window2->Dialog();
from &settings. That's asking for trouble. Define all your windows and
widgets somewhere. Then call

Win32::GUI::Dialog();

once and only once from the main thread. There has been a recent posting on
how to handle more than one window with still just one Dialog() call.
Remember, as long as one event handler (like your Settings_Click) is avtive,
no other event can get handled. Which may be the reason why your window
freezes - since you call Dialog() inside the event handler, that handler
routine never returns control to the first Dialog() call. I'm not sure if
that's really what happens, I don't have the time to test it.

RE: [perl-win32-gui-users] listview sorting and stuff

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

> hi i need lots of help. i'm fairly new to perl and i only compiled
> win32::gui yesterday. i have a listview that i'd like to 
Don't worry, we've all been fairly new. With most of the stuff, most of us
still are.

> my($stuff) = @_;
> sort $a <=> $b, $stuff;
This looks like a Perl problem rather than Win32-GUI. You assign the scalar
$stuff the first item of the list @_. That's the only item you'll get that
way. Your call to sort has nothing to do. Plus, you don't put the result of
the sort anywhere. What you want may be more like

my @sortedstuff = sort $a <=> $b, @_;

but since we're talking about a listview and these things have strings, it
would have to be

my @sortedstuff = sort $a cmp $b, @_;

I hope you don't mind my saying so, but you're gonna need to be more secure
in those basics or you'll never know where the problem is. There's tons of
tutorials out there. I myself learned most from just reading the core docu -
if you installed ActiveState Perl, it's probably
C:\Perl\html\lib\Pod\perl.html

[perl-win32-gui-users] problems with combobox

[<ma...@mm...>]

hi. ive' got a combox in a settings window that displays dun entries. i've
done it like this

sub Settings_Click {
    &settings
}

sub settings {
    $Window2 = new GUI::Window(
                      -name   => "Window2",
                      -text   => "Settings",
                      -width  => 250,
                      -height => 150,
                      );
    $dunlist = $Window2->AddCombobox(
                         -name => "Dun",
                         -left => 10,
                         -top => 10,
                         -width => 230,
                         -height => 100,
                         -style => WS_VISIBLE | 2 | WS_NOTIFY,
                         );

    @dunentries = Win32::RASE->RasEnumEntries();
    $dunlist->InsertItem(@dunentries);
    $Window2->Show();
    $Window2->Dialog();
}

problem is when i click on the comboxbox it will only list 1 entry (there
are 2) and both $Window and $Window2 will freeze. what am i doing wrong?
also is there a way to stop a window from being resized? is there a way to
open a window maximized. i tried using $Window->Maximize and it would
maximize and then go back to its original size or minimize completely if i
took out -height and -width. and (i think this is the last one) is it
possible to make the widgets sticky like in tk?

thanx

[perl-win32-gui-users] listview sorting and stuff

[<ma...@mm...>]

hi i need lots of help. i'm fairly new to perl and i only compiled
win32::gui yesterday. i have a listview that i'd like to sort. i've tried
things like

my($stuff) = @_;
sort $a <=> $b, $stuff;

and variations on that theme but nothing seems to work at all. also, is it
possible to change the colour of 1 line in listview and is it possible to
change the tick in a checkbox to a cross?

thanx in advance

[perl-win32-gui-users] AddButton, AddTextfield problem

[Timothy J. <tjo...@sa...>]

Okay, I've rolled back to 0.0.558, and I'm having trouble now adding
anything other than a TextLabel.  Here's my code.  Am I doing something
wrong here?  


use Win32::GUI;
use Win32;
use strict;
$| = 1;

#declare Win32::GUI objects
my $main = Win32::GUI::Window->new(-width => 100, -height => 100, -name =>
'Main', -text => "ZipSD v1.0");
my $font = Win32::GUI::Font->new(-size => 10, -name => "Verdana", -bold =>
1);

#Add controls
$main->AddLabel(		-name => "TestLabel",
				-text => "This is my text.",
				-font => $font)	|| ErrMsg("Couldn't add
Label!"
				);
									
$main->AddTextfield(	-name => 'MainText',
				-prompt => "Enter the path where the files
will be extracted",
				-text => "c:\\temp") 
				|| ErrMsg("Coudn't add Text Field!");
	

$main->AddButton(		-name => 'OKButton',
				-align => 'center',
				-ok => 1) 
				|| ErrMsg("Couldn't add Button!");

#Show Result
$main->Resize(GetClientSize(\$main)) || ErrMsg("Could not resize
Window!\n");

CenterWindow(\$main);
PresentWindow(\$main);


#SUBS
sub GetClientSize{
	my $main = ${$_[0]};
	my $ncw = $main->Width() - $main->ScaleWidth();
	my $nch = $main->Height() - $main->ScaleHeight();
	my $w =	$main->TestLabel->Width()
			+ $ncw
			+ $main->OKButton->Width()
			+ $main->MainText->Width();
			print $main->OKButton->Width()."\n";
	my $h = 	$main->TestLabel->Height()
			+ $nch
			+ $main->OKButton->Height()
			+ $main->MainText->Height();
			print $main->MainText->Height()."\n";
	print "$w, $h\n";		
	return ($w,$h);
}

sub CenterWindow{
	my $main = ${$_[0]};
	my $w = $main->Width();
	my $h = $main->Height();
	my $desk = Win32::GUI::GetDesktopWindow();
	my $dw = Win32::GUI::Width($desk);
	my $dh = Win32::GUI::Height($desk);
	my $x = ($dw - $w) / 2;
	my $y = ($dh - $h) / 2;
	$main->Move($x, $y);
}




sub PresentWindow{
	my $main = ${$_[0]};
	$main->Show();
	$main->Dialog() || ErrMsg("Could not start dialog!\n");
}

sub ErrMsg{
	Win32::MsgBox($_[0],MB_ICONSTOP,"ZipSD Error");
}

Tim Johnson
SanDisk



--------------------------------------------------------------------------------
This email may contain confidential and privileged 
material for the sole use of the intended recipient. 
If you are not the intended recipient, please contact 
the sender and delete all copies.

RE: [perl-win32-gui-users] Install 665 w/o compiling?

[Timothy J. <tjo...@sa...>]

When I downloaded the PPM version from
http://prdownloads.sourceforge.net/perl-win32-gui/Win32-GUI-0.0.665-PPM-5.6.
zip, there were three files in the .zip file:  a readme, a .ppd file, and a
gzipped tarball.  Unpack these files into a folder and run this line from
PPM:

PPM> install --location:c:\myfolder win32-gui

If it doesn't work, then you can try it manually.-

-----Original Message-----
From: Piske, Harald [mailto:Har...@bo...]
Sent: Thursday, April 04, 2002 2:21 PM
To: per...@li...
Subject: [perl-win32-gui-users] Install 665 w/o compiling?


> -----Original Message-----
> From: Timothy Johnson [mailto:tjo...@sa...]
> Subject: RE: [perl-win32-gui-users] Newbie to GUI -- Busy Window?
> 
> BTW, if you want to install 0.0.665, just extract the files 
> from the tarball
> that comes with the .ppd file.  In it is a blib folder.  You 
> should be able
> to manually copy the folders in there to their appropriate places in
> /perl/site/lib, and that will do it.

Huh? There's no ppd in 665 ... or has somebody made it into one?? Gimmeeeee!
Or do you mean adapting the ppd that came with 558 and tweak 665 into it?
How? I don't get it.

Having a ppm for 665 would really be nice, you could easily switch back and
forth, as long as there are major issues with the new version.

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


--------------------------------------------------------------------------------
This email may contain confidential and privileged 
material for the sole use of the intended recipient. 
If you are not the intended recipient, please contact 
the sender and delete all copies.

[perl-win32-gui-users] Install 665 w/o compiling?

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

> -----Original Message-----
> From: Timothy Johnson [mailto:tjo...@sa...]
> Subject: RE: [perl-win32-gui-users] Newbie to GUI -- Busy Window?
> 
> BTW, if you want to install 0.0.665, just extract the files 
> from the tarball
> that comes with the .ppd file.  In it is a blib folder.  You 
> should be able
> to manually copy the folders in there to their appropriate places in
> /perl/site/lib, and that will do it.

Huh? There's no ppd in 665 ... or has somebody made it into one?? Gimmeeeee!
Or do you mean adapting the ppd that came with 558 and tweak 665 into it?
How? I don't get it.

Having a ppm for 665 would really be nice, you could easily switch back and
forth, as long as there are major issues with the new version.

RE: [perl-win32-gui-users] Newbie to GUI -- Busy Window?

[Timothy J. <tjo...@sa...>]

 
Sorry about that.  I made a typo when I sent out the email.  I figured the
Show() function might be returning 0, but after closing the error message I
still get the busy cursor, so I wasn't sure if there was anything else I
might be getting wrong.  I also forgot to mention that I'm using Win32::GUI
v0.0.665 on Windows 2000.  I'll try rolling back to 0.0.558 and see if that
changes anything.

Side note:  I've tried adding a button since and I don't get any error, but
it's still stuck at the hourglass like it's waiting for something.

BTW, if you want to install 0.0.665, just extract the files from the tarball
that comes with the .ppd file.  In it is a blib folder.  You should be able
to manually copy the folders in there to their appropriate places in
/perl/site/lib, and that will do it.

-----Original Message-----
From: Sean Healy
To: tjo...@sa...; per...@li...
Sent: 4/4/02 6:04 AM
Subject: Re: [perl-win32-gui-users] Newbie to GUI -- Busy Window?

I ran your code.  First, it complained about the extra right curly
bracket 
in this sub:

>sub PresentWindow{
>	$main->Resize(GetClientSize()) || ErrMsg("Could not resize
>Window!\n");
>	$main->Show() || ErrMsg( "Could not un-hide window!\n");
>	}
>	$main->Dialog() || ErrMsg("Could not start dialog!\n");
>}

When I fixed that and tried again, Windows gave me a 'This application
has 
performed an illegal operation and will be shut down.  A little digging 
showed that the problem as this line, which does not have a -name option

set.

>my $label = $main->AddLabel(-text => "This is my text.", -font =>
$font);

Adding a name label fixes that, and the I get the error message that it 
can't unhide - but I also see the window!  (See Paul's message about
Show() 
returning 0.)

My guess is that you're using a different version of Win32::GUI than I
am 
(I'm still using 0.0.558 because I couldn't get the PPM for 0.0.665 at 
SourceForge to work) and your version is slightly more tolerant of
missing 
names.  Anyway, it seems like what's happening is that your window
actually 
appears, but is 0 pixels by 0 pixels in dimension.

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


--------------------------------------------------------------------------------
This email may contain confidential and privileged 
material for the sole use of the intended recipient. 
If you are not the intended recipient, please contact 
the sender and delete all copies.

Re: [perl-win32-gui-users] Newbie to GUI -- Busy Window?

[Aldo C. <dad...@al...>]

Timothy Johnson wrote:
> Hi, I'm new to Win32::GUI, but I've been using Perl for a while.  I have
> been trying to go through a tutorial I found on the web, and I've
customized
> it a little bit, but not alot, so I can't figure out what's wrong.  Maybe
> I'm misunderstanding the method.  Anyway, below is my code, and what is
> happening is that my program is telling me that it can't un-hide the
window
> and then the cursor is showing an hourglass.  I don't want to add anything
> else until I figure out what I've already gotten wrong.

1. it says that you can't un-hide the window because you misunderstood the
return value from Show(). from the MSDN documentation for ShowWindow() at
http://msdn.microsoft.com/library/en-us/winui/windows_2tdj.asp the return
value for this function is:

  Nonzero indicates that the window was previously visible. Zero indicates
  that the window was previously hidden.

I'm just returning this value, so it doesn't mean success or failure.

2. the hourglass issue is a bug in version 0.0.665, I'm still looking on how
to solve it (help? anybody? ;-)


cheers,
Aldo

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

Re: [perl-win32-gui-users] Newbie to GUI -- Busy Window?

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

I ran your code.  First, it complained about the extra right curly bracket 
in this sub:

>sub PresentWindow{
>	$main->Resize(GetClientSize()) || ErrMsg("Could not resize
>Window!\n");
>	$main->Show() || ErrMsg( "Could not un-hide window!\n");
>	}
>	$main->Dialog() || ErrMsg("Could not start dialog!\n");
>}

When I fixed that and tried again, Windows gave me a 'This application has 
performed an illegal operation and will be shut down.  A little digging 
showed that the problem as this line, which does not have a -name option 
set.

>my $label = $main->AddLabel(-text => "This is my text.", -font => $font);

Adding a name label fixes that, and the I get the error message that it 
can't unhide - but I also see the window!  (See Paul's message about Show() 
returning 0.)

My guess is that you're using a different version of Win32::GUI than I am 
(I'm still using 0.0.558 because I couldn't get the PPM for 0.0.665 at 
SourceForge to work) and your version is slightly more tolerant of missing 
names.  Anyway, it seems like what's happening is that your window actually 
appears, but is 0 pixels by 0 pixels in dimension.

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

Re: [perl-win32-gui-users] Newbie to GUI -- Busy Window?

[<pau...@or...>]

Tim

I think the problem may be that $main->Show() returns 0 so the left hnd side of
your or ( || ) evaluates to false.

If I modify your code to test the theory :

my $return = ($main->Show());
ErrMsg( "Could not un-hide window - $return  \n");

The message box reports :

Could not un-hide window - 0

Hope this helps.

Paul



*******************************************************************************
Important.
Confidentiality: This communication is intended for the above-named person and
may be confidential and/or legally privileged. Any opinions expressed in this
communication are not necessarily those of the company. If it has come to you
in error you must take no action based on it, nor must you copy or show it to
anyone; please delete/destroy and inform the sender immediately.

Monitoring/Viruses
Orange may monitor all incoming and outgoing emails in line with current
legislation.  Although we have taken steps to ensure that this email and
attachments are free from any virus, we advise that in keeping with good
computing practice the recipient should ensure they are actually virus free.

Orange PCS Limited is a subsidiary of Orange SA and is registered in England No
2178917, with its address at St James Court, Great Park Road, Almondsbury Park,
Bradley Stoke, Bristol BS32 4QJ.
*******************************************************************************

[perl-win32-gui-users] Newbie to GUI -- Busy Window?

[Timothy J. <tjo...@sa...>]

Hi, I'm new to Win32::GUI, but I've been using Perl for a while.  I have
been trying to go through a tutorial I found on the web, and I've customized
it a little bit, but not alot, so I can't figure out what's wrong.  Maybe
I'm misunderstanding the method.  Anyway, below is my code, and what is
happening is that my program is telling me that it can't un-hide the window
and then the cursor is showing an hourglass.  I don't want to add anything
else until I figure out what I've already gotten wrong.

###################################

use Win32::GUI;
use Win32;
use strict;
$| = 1;

#declare Win32::GUI objects
my $main = Win32::GUI::Window->new(-width => 100, -height => 100, -name =>
'Main', -text => "ZipSD v1.0");
my $font = Win32::GUI::Font->new(-size => 10, -name => "Verdana", -bold =>
1);

#Add controls
my $label = $main->AddLabel(-text => "This is my text.", -font => $font);

#Show Result
CenterWindow();
PresentWindow();


#SUBS
sub GetClientSize{
	my $ncw = $main->Width() - $main->ScaleWidth();
	my $nch = $main->Height() - $main->ScaleHeight();
	my $w = $label->Width() + $ncw;
	my $h = $label->Height() + $nch;
	return ($w,$h);
}

sub CenterWindow{
	my $w = $main->Width();
	my $h = $main->Height();
	my $desk = Win32::GUI::GetDesktopWindow();
	my $dw = Win32::GUI::Width($desk);
	my $dh = Win32::GUI::Height($desk);
	my $x = ($dw - $w) / 2;
	my $y = ($dh - $h) / 2;
	$main->Move($x, $y);
}


sub PresentWindow{
	$main->Resize(GetClientSize()) || ErrMsg("Could not resize
Window!\n");
	$main->Show() || ErrMsg( "Could not un-hide window!\n");
	}
	$main->Dialog() || ErrMsg("Could not start dialog!\n");
}

sub ErrMsg{
	Win32::MsgBox($_[0],MB_ICONSTOP,"ZipSD Error");
}



Tim Johnson
SanDisk
Network Administrator
tjo...@sa... 
phone: (408) 542-0776 




--------------------------------------------------------------------------------
This email may contain confidential and privileged 
material for the sole use of the intended recipient. 
If you are not the intended recipient, please contact 
the sender and delete all copies.

RE: [perl-win32-gui-users] Windows help (winhlp32)

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

use Win32::GUI;

$Menu = Win32::GUI::MakeMenu(
    "&Help" => "&Help",
    ">  &Winnt Help"   => "helpme",
);

$Win = new Win32::GUI::Window(
    -left   => 100,
    -top    => 100,
    -width  => 300,
    -height => 300,
    -name   => "Window",
    -text   => "Win32::GUI Help Menu",
    -menu   => $Menu,
);


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

sub helpme_Click
{
	print "Trying to help...\n";
	system("winnt.hlp");
	return 0;
}

sub Window_Terminate
{
    return -1;
}


### works on NT4 anyway...
### Pete




> -----Original Message-----
> From: sacha courtney [mailto:gad...@ho...]
> Sent: Wednesday, April 03, 2002 03:17
> To: per...@li...
> Subject: [perl-win32-gui-users] Windows help (winhlp32)
> 
> 
> Hi,
> 
> Is there anyway that I can lauch a windows help file(.hlp) from a 
> Win32::GUI::Menu?
> 
> Or has someone coded a win32::gui window help file equivelant?
> 
> Thanks.
> 
> 
> _________________________________________________________________
> Join the world's largest e-mail service with MSN Hotmail. 
> http://www.hotmail.com
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

[perl-win32-gui-users] Windows help (winhlp32)

[sacha c. <gad...@ho...>]

Hi,

Is there anyway that I can lauch a windows help file(.hlp) from a 
Win32::GUI::Menu?

Or has someone coded a win32::gui window help file equivelant?

Thanks.


_________________________________________________________________
Join the world’s largest e-mail service with MSN Hotmail. 
http://www.hotmail.com

RE: [perl-win32-gui-users] Question...

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

Yes, it is or at least appears to be. I have ME at home (hate it!) so I have
not done a lot with it so I can't speak to how completely it behaves on ME,
but most of the basics seem to work ok.

-Pete


> -----Original Message-----
> From: Michelangelo Corradini [mailto:mic...@ti...]
> Sent: Saturday, March 30, 2002 11:20
> To: per...@li...
> Subject: [perl-win32-gui-users] Question...
> 
> 
> The module Win32::Gui is compatible with Windows ME ?
> Thanks.
> 
> Michelangelo
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

[perl-win32-gui-users] Re: Win32::GUI/ME compatability

[Scott 'm. M. <me...@fa...>]

Try it and see =)
- me22
P.S. It works for me

> Reply-To: "Michelangelo Corradini" <mic...@ti...>
> From: "Michelangelo Corradini" <mic...@ti...>
> To: <per...@li...>
> Date: Sat, 30 Mar 2002 17:19:59 +0100
> Organization: Mi & Ma Software
> Subject: [perl-win32-gui-users] Question...
> 
> The module Win32::Gui is compatible with Windows ME ?
> Thanks.
> 
> Michelangelo

_________________________________________________________________
    http://fastmail.ca/ - Fast Secure Web Email for Canadians

RE: [perl-win32-gui-users] textfield problem

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

You must not return -1 from mySearchDialog_Terminate, because it destroys
and releases all the objects associated with it. You want to reuse the
DialogWindow, so just Hide() it and return One. That does not exit your
Dialog() call, but that's not needed. If you want to make the Dialog modal,
you have to give it the focus when the mainWindow gets the focus. Otherwise,
all widgets and all windows are being handled by a single call to
Win32::GUI::Dialog() - don't use $myWinVar->Dialog().

Maybe you can go with your way of having another Dialog() call for the
DialogWindow - if you return 0 from your terminate sub. That would also exit
the Dialog() call, but retain the window and its widgets for later use. I
don't know if that would solve the modality issue, if you want that.

Have fun,
Harald

> -----Original Message-----
> From: emir cruz [mailto:mi...@ya...]
> Sent: Saturday, March 30, 2002 04:52
> To: per...@li...
> Subject: [perl-win32-gui-users] textfield problem
> 
> 
> hey guys.. i got a problem...
> below is a program with a main window with menu.
> Selecting the 'Search Song' menu item shows a dialog
> box with textfield. I want to get an input from the 
> user and store that input into a variable named
> $title_string. 
> 
> Heres the problem... 
> it only prints the first time around...
> 
> theres something wrong with the code.. i duno what it
> is. im kinda new to perl and win32 and help would be
> appreciated very much.. thanks
> 
> 

[SNIP]

> sub mySearchDialog_Terminate 
> {
> 	$searchDialog->Hide;
> 	$window->Enable();	
> 	return -1;
> }
> 
> sub myWindow_Terminate 
> {
> 	Win32::GUI::Show($DOS);
> 	    return -1;
> }

[perl-win32-gui-users] Question...

[Michelangelo C. <mic...@ti...>]

The module Win32::Gui is compatible with Windows ME ?
Thanks.

Michelangelo

[perl-win32-gui-users] Win32::Gui 0.0.665 problem...

[Michelangelo C. <mic...@ti...>]

Hello, I have downloaded today the new version of the Win32::Gui and the
relative examples but I have found various errors that listed later on.
Use ActivePerl v5.6.1 build 631 with Windows 98 and the previous  version of
the module Win32::Gui I did not have no problem.
Of continuation, using Win32::Gui on any example not there are more the
cursors of resize the windows.
Moreover why using the option of warning "-w" the Perl says to me
that -style and -exstyle they are deprecate options?

Here the list of the example scripts that they have given problems to me:

class.pl
Can't load nobody icon.

cmeta.pl
Not valid Operation: error of division in the module gui.dll

dc.pl
Can' t locate auto/DELETE.al in @INC at dc.pl line 48, calling the routine
EndPaint().

mousemove.pl
Not valid Operation: not valid page in the module: <unknown >

nem_lv.pl
The traditional event for the buttons does not work.

pmx.pl it
Does not work until that uses the "New Event Model", if remove lines 79..81
then all works.

pride.pl
Not valid Operation: not valid page in the module: <unknown>

progressbar.pl
Can' t locate auto/PB.al in @INC at progressbar.pl line 182

vmeta.pl
Can' t locate auto/DELETE.al in @INC at vmeta.pl line 26


I hope that someone of you can help me.
Excuse for my bad english. :-)
Thanks.

Michelangelo

[perl-win32-gui-users] textfield problem

[emir c. <mi...@ya...>]

hey guys.. i got a problem...
below is a program with a main window with menu.
Selecting the 'Search Song' menu item shows a dialog
box with textfield. I want to get an input from the 
user and store that input into a variable named
$title_string. 

Heres the problem... 
it only prints the first time around...

theres something wrong with the code.. i duno what it
is. im kinda new to perl and win32 and help would be
appreciated very much.. thanks


##### START OF CODE #########
use win32::GUI;

	$menu = new Win32::GUI::Menu(
			"&Search"       => "mnuSearch",
			 " > &Songs..."	=> "mnuSearchSongs",);

	$windowClass = new Win32::GUI::Class(
                     -name => "myWindowClass",
		     -color=> 16);								
 
	$window = new Win32::GUI::Window(
                -title    => "Blue Steel",
		-left     => 0,
		-top      => 0,
		-width    => 640, 
		-height   => 480,
		-class    => $windowClass,
		#-style    => WS_SYSMENU | WS_MINIMIZEBOX,
		-name     => "myWindow",
		-menu     => $menu
		 );


	$searchDialog = new Win32::GUI::DialogBox(
                -title    => "Search Song(s)", 
		-name     => "mySearchDialog",
		-class    => "myWindowClass",
		-parent	=> "myWindow",
	 	-height	=> 210,
		-width	=> 380,
		-helpbox  => 0
		);

	$window->Show;
	
	$window->Dialog();

sub OpenSearchDialog()
{
	$title_string ="";		

	$searchTitle =
	$searchDialog->AddTextfield(
                -name   => "txtTitle",
                -left   => 20,
		-top    => 20,
		-height => 20,
		-width  => 300,
		-multiline => 0,
		-tabstop => 1,
		-prompt => ["Title ",30]
	);


	$searchDialog->AddButton(
            -name    => "searchButton",
            -left    => 170,
            -top     => 140,
            -height  => 20,
            -width   => 90,
            -tabstop => 1,
            -text    => "Search",
	);

	$searchDialog->Show;
	$searchDialog->Enable();

	#Win32::GUI::Dialog();
	$searchDialog->Dialog();
}

sub Separate()
{
	print
"========================================================"
;
}

sub searchButton_Click
{
	$title_string  = $searchTitle->Text;	
	print $title_string . "\n";

	$searchTitle->Text("");
	print $title_string;
	mySearchDialog_Terminate();
}

sub mnuSearchSongs_Click
{
	OpenSearchDialog();
	Separate(); 
}

sub mySearchDialog_Terminate 
{
	$searchDialog->Hide;
	$window->Enable();	
	return -1;
}

sub myWindow_Terminate 
{
	Win32::GUI::Show($DOS);
	    return -1;
}







__________________________________________________
Do You Yahoo!?
Yahoo! Greetings - send holiday greetings for Easter, Passover
http://greetings.yahoo.com/

[perl-win32-gui-users] Re: Opening Web Pages From PERL

[Scott 'm. M. <me...@fa...>]

Use the system() function to "start" the Web address (needs Http://)
F.EX.
system("start http://www.hotmail.com/");
- me22

> From: "NAHUM Marc" <mar...@re...>
> To: <per...@li...>
> Date: Thu, 28 Mar 2002 17:17:30 +0100
> Subject: [perl-win32-gui-users] URL in label
> 
> Hye,
> 
> I write a text in a box where the user click yes or no ...
> easy,
> but I want put a url in this text and the user can click on this
> url it open a browser with this url ...
> 
> Any idea ?

_________________________________________________________________
    http://fastmail.ca/ - Fast Secure Web Email for Canadians

[perl-win32-gui-users] Re: Win32::GUI Documentation

[Scott 'm. M. <me...@fa...>]

If you DL the non-binary version it includes a bunch of useful sample scripts to demonstrate the controls, as well as some tutorials, among other useful bits.
- me22

> Date: Wed, 27 Mar 2002 20:07:27 -0800 (PST)
> From: emir cruz <mi...@ya...>
> To: per...@li...
> Subject: [perl-win32-gui-users] on list views
> 
> hi! I am a newbie in perl and the win32 module...
> 
> could u guys tell me how do i delete an item in
> a list view and refresh the list view?
> 
> and also.. is there a more comprehensive documentation
> on the module? i find the one bundled with release
> somewhat incomplete.
> 
> thx.

_________________________________________________________________
    http://fastmail.ca/ - Fast Secure Web Email for Canadians