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
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
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, be
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::G
> -Original Message-
> From: Timothy Johnson [mailto:[EMAIL PROTECTED]
> 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
> s
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:\
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,
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 colou
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 =
> 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
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 o
11 matches
Mail list logo