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

Re: [perl-win32-gui-users] Richtext field

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

Lance,

In your sub where the user closes (terminates) the window containing the
RichEdit control try adding this:

$RichEdit->Text("");


where $RichEdit is the name that you have given your RichEdit control.

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

----- Original Message -----
From: "Cuthbert, Lance (DeepGreen Bank)" <Lan...@De...>
To: <per...@li...>
Sent: Wednesday, March 14, 2001 10:44 AM
Subject: [perl-win32-gui-users] Richtext field


> I am having some difficulty with the Win32::GUI::RichEdit package and I am
> hoping that someone might be able to help.
> In the program that I writing the user invokes a RichEdit text box to view
> the results of a database query. The first time the user
> opens the RichEdit textbox, the results from just that query are present -
> this is what I want. But, after the user closes that window
> and runs another query, the next time the user opens the RichEdit textbox
> the results from the first query as well as the second query
> are there.  Any ideas?
> Thanks in advance.
>
> > Lance S. Cuthbert
> >
> >
> >
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

[perl-win32-gui-users] Richtext field

[Cuthbert, L. (D. Bank) <Lan...@De...>]

I am having some difficulty with the Win32::GUI::RichEdit package and I am
hoping that someone might be able to help.
In the program that I writing the user invokes a RichEdit text box to view
the results of a database query. The first time the user
opens the RichEdit textbox, the results from just that query are present -
this is what I want. But, after the user closes that window
and runs another query, the next time the user opens the RichEdit textbox
the results from the first query as well as the second query
are there.  Any ideas?
Thanks in advance.

> Lance S. Cuthbert
> 
> 
> 

[perl-win32-gui-users] task bar question

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

Is there any way to open a new window without creating a new item in the
OS's task bar? I'd like to open windows that are a sub of a main window but
show just one task bar item for the main window.

Thanks list.
Pete

RE: [perl-win32-gui-users] RE: [perl-win32-gui-users]Why Do I hav e to use the Mouse???

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

Jonathon/Jemery

Thank's a bundle, That Works, 

$W->{-dialogui} = 1;
$W->Input->SetFocus(); 

I can Feel the softness in my head clearing now..

Rgds  Eoin:
mailto:Eoi...@de...






-----Original Message-----
From: Jonathan Southwick [mailto:jso...@al...]
Sent: 13 March 2001 21:41
To: per...@li...
Subject: Re: [perl-win32-gui-users] RE: [perl-win32-gui-users]Why Do I
have to use the Mouse???


Add the following before your "$W ->Show;":

$W->{-dialogui} = 1;

and it should make the Window act like a DialogBox.

Use Jeremy's suggestion to put the cursor in the textfield.

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


----- Original Message -----
From: <Eoi...@de...>
To: <per...@li...>
Sent: Tuesday, March 13, 2001 12:40 PM
Subject: [perl-win32-gui-users] RE: [perl-win32-gui-users]Why Do I have to
use the Mouse???


> Can Anybody help here.
> At the moment I have to click on the textbox to highlight it before I can
> enter anything and then I have to use the mouse to click validate it....
> All I want is, When the progran start's the first textbox is already
> highlighted and to submit it all I have to do is press Enter,
> I am driven soft that something so trivial is anything But !!!!
> or is it the softness in the brain has brought me to a point in my
existence
> from where there is nowhere to progress.
>
> here it is
>     ||
>     ||
>     ||
>     \/
>
> use strict;
> use Win32::GUI;
>
> my $MWfont = Win32::GUI::Font->new(
> -name => "Arial",
> -size => 16,
> );
>
> my $W = new Win32::GUI::Window(
>     -name   => "W",
>     -text   => "Work....Let You    !!!!!",
>     -left   => 0,
>     -top    => 0,
>     -width  => 640,
>     -height => 480,
> -font  => $MWfont,
> );
>
> $W->AddTextfield(
>     -name   => "Input",
> -font => $MWfont,
> -left   => 20,
>     -top    => 40,
>     -width  => 100,
>     -height => 25,
>     -text   => "",
> -prompt => [ "Enter ????  :  ", 100 ],
> ,
> );
>
>
> $W->AddButton(
>     -text    => '&Validate',
>     -name    => 'CmdValidate',
>     -left    => 250,
>     -top     => 40,
>     -default => 1,
>     -ok      => 1,
> -height => 25,
>     -width   => 80,
> );
>
>
> $W->AddTextfield(
>     -name      => "Display",
>     -readonly  => 1,
>     -multiline => 1,
>     -left      => 40,
>     -top       => 130,
>     -width     => 540,
>     -height    => 120,
>     -text      => "I'm a placeholder",
> -foreground => [255,255,255],
> -background =>[0, 0, 255],
> );
>
> $W->AddStatusBar(
>     -name => "Status",
>     -text => "What Will I Look For Today  .",
> );
> $W ->Show;
> Win32::GUI::Dialog();
>
> sub MainWindow_Terminate {
>     PostQuitMessage(1);
> }
>
>
> #=============
> sub W_Resize {
> #=============
>     $W->Status->Move(0, $W->ScaleHeight-$W->Status->Height);
>     $W->Status->Resize($W->ScaleWidth, $W->Status->Height);
>     return 1;
> }
>
> #===============
> sub Exit_Click {
> #===============
>     return -1;
> }
>
> #===============
> sub CmdValidate_Click {
> #===============
> $W->Display->{-text} = 'Whaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa';
> }
>
>
> Rgds  Eoin:
> EMF2 Test Engineering
> mailto:Eoi...@de...
>
>
>
>
> _______________________________________________
> 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] RE: [perl-win32-gui-users]Why Do I have to use the Mouse???

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

Add the following before your "$W ->Show;":

$W->{-dialogui} = 1;

and it should make the Window act like a DialogBox.

Use Jeremy's suggestion to put the cursor in the textfield.

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


----- Original Message -----
From: <Eoi...@de...>
To: <per...@li...>
Sent: Tuesday, March 13, 2001 12:40 PM
Subject: [perl-win32-gui-users] RE: [perl-win32-gui-users]Why Do I have to
use the Mouse???


> Can Anybody help here.
> At the moment I have to click on the textbox to highlight it before I can
> enter anything and then I have to use the mouse to click validate it....
> All I want is, When the progran start's the first textbox is already
> highlighted and to submit it all I have to do is press Enter,
> I am driven soft that something so trivial is anything But !!!!
> or is it the softness in the brain has brought me to a point in my
existence
> from where there is nowhere to progress.
>
> here it is
>     ||
>     ||
>     ||
>     \/
>
> use strict;
> use Win32::GUI;
>
> my $MWfont = Win32::GUI::Font->new(
> -name => "Arial",
> -size => 16,
> );
>
> my $W = new Win32::GUI::Window(
>     -name   => "W",
>     -text   => "Work....Let You    !!!!!",
>     -left   => 0,
>     -top    => 0,
>     -width  => 640,
>     -height => 480,
> -font  => $MWfont,
> );
>
> $W->AddTextfield(
>     -name   => "Input",
> -font => $MWfont,
> -left   => 20,
>     -top    => 40,
>     -width  => 100,
>     -height => 25,
>     -text   => "",
> -prompt => [ "Enter ????  :  ", 100 ],
> ,
> );
>
>
> $W->AddButton(
>     -text    => '&Validate',
>     -name    => 'CmdValidate',
>     -left    => 250,
>     -top     => 40,
>     -default => 1,
>     -ok      => 1,
> -height => 25,
>     -width   => 80,
> );
>
>
> $W->AddTextfield(
>     -name      => "Display",
>     -readonly  => 1,
>     -multiline => 1,
>     -left      => 40,
>     -top       => 130,
>     -width     => 540,
>     -height    => 120,
>     -text      => "I'm a placeholder",
> -foreground => [255,255,255],
> -background =>[0, 0, 255],
> );
>
> $W->AddStatusBar(
>     -name => "Status",
>     -text => "What Will I Look For Today  .",
> );
> $W ->Show;
> Win32::GUI::Dialog();
>
> sub MainWindow_Terminate {
>     PostQuitMessage(1);
> }
>
>
> #=============
> sub W_Resize {
> #=============
>     $W->Status->Move(0, $W->ScaleHeight-$W->Status->Height);
>     $W->Status->Resize($W->ScaleWidth, $W->Status->Height);
>     return 1;
> }
>
> #===============
> sub Exit_Click {
> #===============
>     return -1;
> }
>
> #===============
> sub CmdValidate_Click {
> #===============
> $W->Display->{-text} = 'Whaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa';
> }
>
>
> Rgds  Eoin:
> EMF2 Test Engineering
> mailto:Eoi...@de...
>
>
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

Re: [perl-win32-gui-users] RE: [perl-win32-gui-users]Why Do I have to use the Mouse???

[Jeremy B. <sco...@ya...>]

$W->Display->SetFocus(), I believe is what you are
looking for.

I also use $W->Display->SelectAll() so that the text
is highlighted and when you start typing it wipes out
all of the previous text.

jb

--- Eoi...@de... wrote:
> Can Anybody help here.
> At the moment I have to click on the textbox to
> highlight it before I can
> enter anything and then I have to use the mouse to
> click validate it....
> All I want is, When the progran start's the first
> textbox is already
> highlighted and to submit it all I have to do is
> press Enter,
> I am driven soft that something so trivial is
> anything But !!!!
> or is it the softness in the brain has brought me to
> a point in my existence
> from where there is nowhere to progress.
> 
> here it is
>     ||
>     ||
>     ||
>     \/
> 
> use strict;
> use Win32::GUI;
> 
> my $MWfont = Win32::GUI::Font->new(
> 	-name => "Arial", 
> 	-size => 16,
> );
> 
> my $W = new Win32::GUI::Window(
>     -name   => "W",
>     -text   => "Work....Let You    !!!!!",
>     -left   => 0,
>     -top    => 0,
>     -width  => 640,
>     -height => 480,
> 	-font  => $MWfont,
> );
> 
> $W->AddTextfield(
>     -name   => "Input",
> 	-font => $MWfont,   
> 	-left   => 20,
>     -top    => 40,
>     -width  => 100,
>     -height => 25,
>     -text   => "",
> 	-prompt => [ "Enter ????  :  ", 100 ],
> ,
> );
> 
> 
> $W->AddButton(
>     -text    => '&Validate',
>     -name    => 'CmdValidate',
>     -left    => 250,
>     -top     => 40,
>     -default => 1,
>     -ok      => 1,
> 	-height => 25,
>     -width   => 80,
> );
> 
> 
> $W->AddTextfield(
>     -name      => "Display",
>     -readonly  => 1,
>     -multiline => 1,
>     -left      => 40,
>     -top       => 130,
>     -width     => 540,
>     -height    => 120,
>     -text      => "I'm a placeholder",
> 	-foreground => [255,255,255],
> 	-background =>[0, 0, 255],
> );
> 
> $W->AddStatusBar(
>     -name => "Status",
>     -text => "What Will I Look For Today  .",
> );
> $W ->Show;
> Win32::GUI::Dialog();
> 
> sub MainWindow_Terminate {
>     PostQuitMessage(1);
> }
> 
> 
> #=============
> sub W_Resize {
> #=============
>     $W->Status->Move(0,
> $W->ScaleHeight-$W->Status->Height);
>     $W->Status->Resize($W->ScaleWidth,
> $W->Status->Height);
>     return 1;
> }
> 
> #===============
> sub Exit_Click {
> #===============
>     return -1;
> }
> 
> #===============
> sub CmdValidate_Click {
> #===============
> $W->Display->{-text} =
> 'Whaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa';
> }
> 
> 
> Rgds  Eoin:
> EMF2 Test Engineering
> mailto:Eoi...@de...
> 
> 
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
>
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users


__________________________________________________
Do You Yahoo!?
Yahoo! Auctions - Buy the things you want at great prices.
http://auctions.yahoo.com/

RE: [perl-win32-gui-users] Why Do I have to use the Mouse???

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

> All I want is, When the progran start's the first textbox is already
> highlighted and to submit it all I have to do is press Enter,

I haven't done it, just read about it, so forgive me if I write something
stupid (I would anyway).
From my understanding you have to go through the process of creating an
accelerator table (the name of which does not suggest using it is fast and
easy) and then assign the enter key to a subroutine.

But there's an alternative. Instead of Window(), use DialogBox() which,
among other differences, comes with tab end enter keys working. As I said, I
didn't use this myself, so I don't know if you have to undergo a special
ritual before it does what you want. You may need a default (OK) button for
enter.

cu
Harald

[perl-win32-gui-users] RE: [perl-win32-gui-users]Why Do I have to use the Mouse???

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

Can Anybody help here.
At the moment I have to click on the textbox to highlight it before I can
enter anything and then I have to use the mouse to click validate it....
All I want is, When the progran start's the first textbox is already
highlighted and to submit it all I have to do is press Enter,
I am driven soft that something so trivial is anything But !!!!
or is it the softness in the brain has brought me to a point in my existence
from where there is nowhere to progress.

here it is
    ||
    ||
    ||
    \/

use strict;
use Win32::GUI;

my $MWfont = Win32::GUI::Font->new(
	-name => "Arial", 
	-size => 16,
);

my $W = new Win32::GUI::Window(
    -name   => "W",
    -text   => "Work....Let You    !!!!!",
    -left   => 0,
    -top    => 0,
    -width  => 640,
    -height => 480,
	-font  => $MWfont,
);

$W->AddTextfield(
    -name   => "Input",
	-font => $MWfont,   
	-left   => 20,
    -top    => 40,
    -width  => 100,
    -height => 25,
    -text   => "",
	-prompt => [ "Enter ????  :  ", 100 ],
,
);


$W->AddButton(
    -text    => '&Validate',
    -name    => 'CmdValidate',
    -left    => 250,
    -top     => 40,
    -default => 1,
    -ok      => 1,
	-height => 25,
    -width   => 80,
);


$W->AddTextfield(
    -name      => "Display",
    -readonly  => 1,
    -multiline => 1,
    -left      => 40,
    -top       => 130,
    -width     => 540,
    -height    => 120,
    -text      => "I'm a placeholder",
	-foreground => [255,255,255],
	-background =>[0, 0, 255],
);

$W->AddStatusBar(
    -name => "Status",
    -text => "What Will I Look For Today  .",
);
$W ->Show;
Win32::GUI::Dialog();

sub MainWindow_Terminate {
    PostQuitMessage(1);
}


#=============
sub W_Resize {
#=============
    $W->Status->Move(0, $W->ScaleHeight-$W->Status->Height);
    $W->Status->Resize($W->ScaleWidth, $W->Status->Height);
    return 1;
}

#===============
sub Exit_Click {
#===============
    return -1;
}

#===============
sub CmdValidate_Click {
#===============
$W->Display->{-text} = 'Whaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa';
}


Rgds  Eoin:
EMF2 Test Engineering
mailto:Eoi...@de...

[perl-win32-gui-users] Windows newbie question

[Glenn L. <Gle...@ne...>]

Hi,

I've got another "newbie" question about Windows programming.

I wrote a nice Win32::GUI program that launches itself from the Startup
folder into the system tray, using NotifyIcon, and then pops open by
clicking on it, etc.

However, I don't know how to make the program cooperate with Windows
Shutdown.  Without any special (event?) handling, when I initiate a
shutdown from the start menu (in Win98, at least) I get a dialog box
informing me that I must shut this program down before I can shut down
windows.  And then, when I click OK to that, I get another informing me
that Windows doesn't know how to shut down this program, do I want to
Wait, End Task, or Cancel?.   So I pressed End Task and it shutdown, but
clearly that isn't the right process.

The right process would not include either dialog box.  How do I get rid
of them?

--
Glenn
=====
Even if you're on the right track,
you'll get run over if you just sit there.
                       -- Will Rogers

Re: [perl-win32-gui-users] BringWindowToTop issue

[Jeremy B. <sco...@ya...>]

I think that's it, Harald.  If I just use ->Show and
->Hide on the object it displays correctly.  If I
throw in ->BringWindowToTop it doesn't display the
object.  I'd pull out the ->BringWindowToTop and it
should work correctly, if it doesn't send me your code
and I'll see what I'm doing differently.

Hope this helps,
jb

--- Jeremy Blonde <sco...@ya...> wrote:
> From my understanding BringWindowToTop is for
> Windows
> not objects on a window.  I did a quick search on
> MSDN
> and it seems to indicate this too.  If I'm mistaken,
> please let me know.
> 
> In view of that, I wonder if BringWindowToTop is
> really doing anything, perhaps it's just the Show
> and
> Hide behavior that you are dealing with.  I'll look
> through MSDN a little bit more and see if there is
> anything there that can shed some light.  Of course,
> if someone already knows the answer they can save me
> some time. ;-)
> 
> jb
> 
> --- "Piske, Harald" <Har...@bo...>
> wrote:
> > Hi all,
> > 
> > I know I'm getting naggy with things that no one
> > ever comes across. This
> > time it's hiding select objects with
> > $main->buggything->Hide(). When I bring
> > one back with Show() I need it to be on top, so I
> do
> > $main->buggything->BringWindowToTop(). Here's the
> > catch:
> > - I only ever come on top of every other object
> that
> > has previously been
> > hidden
> > - I have to do Win32::GUI::DoEvents() between
> Show()
> > and BringWindowToTop()
> > or the object will actually land underneath all
> > others, so effectively it
> > makes a SendWindowToBack()
> > 
> > These are not reliable results, the effects vary
> > with factors I fail to
> > recognise (moon phase or so).
> > My message is, Show/Hide and BringWindowToTop
> don't
> > seem to mix. If I ever
> > hide an object (or try to sneak around hiding by
> > moving it off the visible
> > client area), the next BringWindowToTop will send
> it
> > on top of all other
> > objects previously hidden, but beneath all "static
> > junk".
> > 
> > Is that a MicroStuff "feature" or is this
> Win32-GUI
> > specific? How do I show
> > a previously hidden thing on top of everything
> else?
> > Any other way to affect
> > the Z-order? Please don't tell me to hide and show
> > all my objects. I tried
> > and, guess what, just to annoy me, that doesn't
> > work. My embarassing
> > work-around is to recreate the objects with
> > $main->AddStuff() ... ouch.
> > 
> > _______________________________________________
> > Perl-Win32-GUI-Users mailing list
> > Per...@li...
> >
>
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 
> 
> __________________________________________________
> Do You Yahoo!?
> Yahoo! Auctions - Buy the things you want at great
> prices.
> http://auctions.yahoo.com/
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
>
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users


__________________________________________________
Do You Yahoo!?
Yahoo! Auctions - Buy the things you want at great prices.
http://auctions.yahoo.com/

RE: [perl-win32-gui-users] BringWindowToTop issue

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

> From my understanding BringWindowToTop is for Windows
> not objects on a window.
I must admit that I suspected the same, but since it works so nicely (see
snippet below), I figured it should do what I want (Perl spoiled me with
it's "do what I mean" capability). By the way, there's SetForegroundWindow()
which does pretty much the same thing.

This code shows overlapping buttons that bring themselves to top when
clicked. If you uncomment the Hide()s, things start developing a mind of
their own. Add another object so that each covers part of the others and try
to make sense of what happens ... a nice solitaire ... note that you can
click a button on a spot that is covered!

=snip=============================
$main->AddButton
(
	-name => 'knopf0',
	-text => 'knopf0',
	-pos  => [200, 200],
	-size => [70, 25],
);
sub knopf0_Click
{
#	$main->knopf0->Hide();
	$main->knopf0->Show();
	$main->knopf0->BringWindowToTop ();
}
$main->AddButton
(
	-name => 'knopf1',
	-text => 'knopf1',
	-pos  => [225, 210],
	-size => [70, 25],
);
sub knopf1_Click
{
#	$main->knopf1->Hide();
	$main->knopf1->Show();
	$main->knopf1->BringWindowToTop ();
}

Re: [perl-win32-gui-users] BringWindowToTop issue

[Jeremy B. <sco...@ya...>]

From my understanding BringWindowToTop is for Windows
not objects on a window.  I did a quick search on MSDN
and it seems to indicate this too.  If I'm mistaken,
please let me know.

In view of that, I wonder if BringWindowToTop is
really doing anything, perhaps it's just the Show and
Hide behavior that you are dealing with.  I'll look
through MSDN a little bit more and see if there is
anything there that can shed some light.  Of course,
if someone already knows the answer they can save me
some time. ;-)

jb

--- "Piske, Harald" <Har...@bo...>
wrote:
> Hi all,
> 
> I know I'm getting naggy with things that no one
> ever comes across. This
> time it's hiding select objects with
> $main->buggything->Hide(). When I bring
> one back with Show() I need it to be on top, so I do
> $main->buggything->BringWindowToTop(). Here's the
> catch:
> - I only ever come on top of every other object that
> has previously been
> hidden
> - I have to do Win32::GUI::DoEvents() between Show()
> and BringWindowToTop()
> or the object will actually land underneath all
> others, so effectively it
> makes a SendWindowToBack()
> 
> These are not reliable results, the effects vary
> with factors I fail to
> recognise (moon phase or so).
> My message is, Show/Hide and BringWindowToTop don't
> seem to mix. If I ever
> hide an object (or try to sneak around hiding by
> moving it off the visible
> client area), the next BringWindowToTop will send it
> on top of all other
> objects previously hidden, but beneath all "static
> junk".
> 
> Is that a MicroStuff "feature" or is this Win32-GUI
> specific? How do I show
> a previously hidden thing on top of everything else?
> Any other way to affect
> the Z-order? Please don't tell me to hide and show
> all my objects. I tried
> and, guess what, just to annoy me, that doesn't
> work. My embarassing
> work-around is to recreate the objects with
> $main->AddStuff() ... ouch.
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
>
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users


__________________________________________________
Do You Yahoo!?
Yahoo! Auctions - Buy the things you want at great prices.
http://auctions.yahoo.com/

[perl-win32-gui-users] BringWindowToTop issue

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

Hi all,

I know I'm getting naggy with things that no one ever comes across. This
time it's hiding select objects with $main->buggything->Hide(). When I bring
one back with Show() I need it to be on top, so I do
$main->buggything->BringWindowToTop(). Here's the catch:
- I only ever come on top of every other object that has previously been
hidden
- I have to do Win32::GUI::DoEvents() between Show() and BringWindowToTop()
or the object will actually land underneath all others, so effectively it
makes a SendWindowToBack()

These are not reliable results, the effects vary with factors I fail to
recognise (moon phase or so).
My message is, Show/Hide and BringWindowToTop don't seem to mix. If I ever
hide an object (or try to sneak around hiding by moving it off the visible
client area), the next BringWindowToTop will send it on top of all other
objects previously hidden, but beneath all "static junk".

Is that a MicroStuff "feature" or is this Win32-GUI specific? How do I show
a previously hidden thing on top of everything else? Any other way to affect
the Z-order? Please don't tell me to hide and show all my objects. I tried
and, guess what, just to annoy me, that doesn't work. My embarassing
work-around is to recreate the objects with $main->AddStuff() ... ouch.

Re: [perl-win32-gui-users] icons for every occasion

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

Thanks

chris
www.perl-resume.com

----- Original Message -----
From: Glenn Linderman <Gle...@ne...>
To: <per...@li...>
Sent: Monday, March 12, 2001 11:46 PM
Subject: Re: [perl-win32-gui-users] icons for every occasion


I have some answers, but I don't know for sure what your questions are.  It
would help if you use well-defined terminology.  Someone may be more
knowledgable about Windows than me, and provide better answers, but here's
what I know.

christopher sagayam wrote:

>  Is it possible to create different icons for different occasions for the
> same win32 gui script..

Yes.  But you have to detect the occasions yourself.

> if so please give me sample code

Don't have sample code.

> The occasions are
>
> 1. In the desktop ( as shortcut)

Windows properties allows you to choose any icon for any shortcut, whether
it
is related to the launch program or not.  Create the shortcut, pop up the
properties window, shortcut tab, "Change icon".  From the docs it looks like
the Win32::Shortcut package could also be used to achieve that same end.

> 2. When it is minimized on the bottom bar

Whatever the "bottom bar" is?  I assume you mean the Windows task bar
(although you use that term later, to maybe mean something else?)

This is the same icon as is used for the window itself, when the window is
open.  The task entry is visible in the task bar when the window is open, as
well as when it is minimized.  You can change the icons when you get a
"_Minimize" event if you want, and change it again on "_Maximize" or
"_Resize", or "_Activate" events, which may achieve your goals, but would
not
give a consistent icon in the task bar for the duration of the program, as
is
typical for windows programs.

> 3 when the window is open

Just call  $my_window -> SetIcon with appropriate parameters

> 4 When the window is made  a small icon on the Task bar

Again, this isn't clear.  Perhaps you mean in the "system tray"?  In which
case you would use the Win32::GUI::NotifyIcon features.

> 5 When the script file is seen under windows explorer file listing

The icon here is derived from the program that is used to "open" the script
file by default.  You may have to make an extra copy of perl and change its
default icon to achieve this one.  You'd also have to rename your script
files for which you want a "different than the perl icon" icon, to have a
unique extension, to which you define the association to the extra copy of
perl.

> if I have  5  different icon images how to insert them into the code
> apprpriately ?
>
> chris
>
> _______________________________________________
> 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

--
Glenn
=====
Even if you're on the right track,
you'll get run over if you just sit there.
                       -- Will Rogers



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

Re: [perl-win32-gui-users] icons for every occasion

[Glenn L. <Gle...@ne...>]

I have some answers, but I don't know for sure what your questions are.  It
would help if you use well-defined terminology.  Someone may be more
knowledgable about Windows than me, and provide better answers, but here's
what I know.

christopher sagayam wrote:

>  Is it possible to create different icons for different occasions for the
> same win32 gui script..

Yes.  But you have to detect the occasions yourself.

> if so please give me sample code

Don't have sample code.

> The occasions are
>
> 1. In the desktop ( as shortcut)

Windows properties allows you to choose any icon for any shortcut, whether it
is related to the launch program or not.  Create the shortcut, pop up the
properties window, shortcut tab, "Change icon".  From the docs it looks like
the Win32::Shortcut package could also be used to achieve that same end.

> 2. When it is minimized on the bottom bar

Whatever the "bottom bar" is?  I assume you mean the Windows task bar
(although you use that term later, to maybe mean something else?)

This is the same icon as is used for the window itself, when the window is
open.  The task entry is visible in the task bar when the window is open, as
well as when it is minimized.  You can change the icons when you get a
"_Minimize" event if you want, and change it again on "_Maximize" or
"_Resize", or "_Activate" events, which may achieve your goals, but would not
give a consistent icon in the task bar for the duration of the program, as is
typical for windows programs.

> 3 when the window is open

Just call  $my_window -> SetIcon with appropriate parameters

> 4 When the window is made  a small icon on the Task bar

Again, this isn't clear.  Perhaps you mean in the "system tray"?  In which
case you would use the Win32::GUI::NotifyIcon features.

> 5 When the script file is seen under windows explorer file listing

The icon here is derived from the program that is used to "open" the script
file by default.  You may have to make an extra copy of perl and change its
default icon to achieve this one.  You'd also have to rename your script
files for which you want a "different than the perl icon" icon, to have a
unique extension, to which you define the association to the extra copy of
perl.

> if I have  5  different icon images how to insert them into the code
> apprpriately ?
>
> chris
>
> _______________________________________________
> 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

--
Glenn
=====
Even if you're on the right track,
you'll get run over if you just sit there.
                       -- Will Rogers

Re: [perl-win32-gui-users] icons for every occasion

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

has anyone got an answer to the following question ?

chris
----- Original Message ----- 
From: christopher sagayam <chr...@ya...>
To: <per...@li...>
Sent: Sunday, March 11, 2001 11:16 PM
Subject: [perl-win32-gui-users] icons for every occasion



Hi all

It may have been told in the docs but I may have missed it

 Is it possible to create different icons for different occasions for the
same win32 gui script..

if so please give me sample code

The occasions are

1. In the desktop ( as shortcut)
2. When it is minimized on the bottom bar
3 when the window is open
4 When the window is made  a small icon on the Task bar
5 When the script file is seen under windows explorer file listing

if I have  5  different icon images how to insert them into the code
apprpriately ?


chris





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

RE: [perl-win32-gui-users] default GUI installed by PPM (was RE: Bug in Textfield scrolling)

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

Hi Guys

Has anyone contacted ActiveState and asked them to use the newer distribution ?
I'll be happy to try since I'm officially "Win32 PPM chief" !

Cheers

PB



*******************************************************************************
Important. This E-mail is intended for the above named person and may be
confidential and/or legally privileged. If this has come to you in error you
must take no action based on it, nor must you copy or show it to anyone; please
inform the sender immediately.
*******************************************************************************

[perl-win32-gui-users] icons for every occasion

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

Hi all

It may have been told in the docs but I may have missed it

 Is it possible to create different icons for different occasions for the
same win32 gui script..

if so please give me sample code

The occasions are

1. In the desktop ( as shortcut)
2. When it is minimized on the bottom bar
3 when the window is open
4 When the window is made  a small icon on the Task bar
5 When the script file is seen under windows explorer file listing

if I have  5  different icon images how to insert them into the code
apprpriately ?


chris

Re: [perl-win32-gui-users] Progress Bar

[Dmitry <sy...@ga...>]

Hello

   1. Where can i find examples of using Win32::GUI or additional
   controls ???
   2. What is a correct way to write my own control/subclass ?
   
   Thanx

-- 
Best regards,
 Dmitry                            mailto:sy...@ga...

RE: [perl-win32-gui-users] default GUI installed by PPM (was RE: Bug in Textfield scrolling)

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

Hi Aldo

Still, I think somebody should do something about it. The way it is, it
damages the reputation of Win32-GUI because people install it, try to run
the samples, go "the thing can not do what I need" and never try again.
Imagine, until I discovered what's wrong, I almost started my project in VB,
yuck ;-)

cu
Harald

| -----Original Message-----
| From: Aldo Calpini [mailto:da...@pe...]
| Sent: Friday, March 09, 2001 9:26
| To: Piske, Harald
| Subject: Re: [perl-win32-gui-users] default GUI installed by PPM (was
| RE: Bug in Textfield scrolling)
| 
| 
| Piske, Harald wrote:
| > same here. When you do PPM QUERY it states version 0.99, which
| > is > 0.0.558, so it refuses to install the "older" version.
| > ActiveState should store the latest versions on their site.
| 
| ActiveState should had never invented the 0.99 version number
| (at least not without contacting me first). blame ActiveState
| for this, and no, I'm not going to release 1.00 just because
| they were too creative ;-).
| 
| when in doubt, it's always safer to do a 'ppm remove' before
| the install.
| 
| 
| cheers,
| Aldo
| 
| __END__
| $_=q,just perl,,s, , another ,,s,$, hacker,,print;
| 
| 
| 
| _______________________________________________
| Perl-Win32-GUI-Users mailing list
| Per...@li...
| http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
| 

Re: [perl-win32-gui-users] default GUI installed by PPM (was RE: Bug in Textfield scrolling)

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

Piske, Harald wrote:
> same here. When you do PPM QUERY it states version 0.99, which
> is > 0.0.558, so it refuses to install the "older" version.
> ActiveState should store the latest versions on their site.

ActiveState should had never invented the 0.99 version number
(at least not without contacting me first). blame ActiveState
for this, and no, I'm not going to release 1.00 just because
they were too creative ;-).

when in doubt, it's always safer to do a 'ppm remove' before
the install.


cheers,
Aldo

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

[perl-win32-gui-users] default GUI installed by PPM (was RE: Bug in Textfield scrolling)

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

| Once I actually got 0.0.558 installed (no clue what version
| ActiveState's ppm gets by default) a number of things started working
| better for me.  (no surprise there, I suspect).

same here. When you do PPM QUERY it states version 0.99, which is > 0.0.558,
so it refuses to install the "older" version. ActiveState should store the
latest versions on their site.

RE: [perl-win32-gui-users] use of Pos method

[Moore, L. <Lar...@tf...>]

Bingo!  I changed my subs to:

 sub geo_codes_Click {
        $sel = $geo_codes->SelectedItem();
        if ($sel != -1 ) {$updown2->Pos($sel);}
 }

(lifted from sample code I must confess) and happiness returns.

Larry

-----Original Message-----
From: Glenn Linderman [mailto:Gle...@ne...]
Sent: Friday, March 09, 2001 11:50 AM
To: per...@li...
Subject: Re: [perl-win32-gui-users] use of Pos method


"Moore, Larry" wrote:

> ->Select() doesn't work, I tried it, because $updown1 and $updown2 are
> UpDown objects and Pos is the method for this object.  If I comment out
the
> two lines which set the Pos, then the program dies immediately.

I suspect this latter death is caused by the lack of an appropriate return
value.  Event subs return -1/0/1 to result in death/no action/default action
respectively.

When you comment out Pos, the return value is $sel, which is -1 if nothing
is
selected....

I haven't played with UpDown yet, I'm interested to watch future responses
in
this thread.

>
>
> Larry
>
> -----Original Message-----
> From: Peter Eisengrein [mailto:Pet...@at...]
> Sent: Thursday, March 08, 2001 2:34 PM
> To: 'per...@li...'
> Subject: RE: [perl-win32-gui-users] use of Pos method
>
> Do you want ->Pos() or ->Select()? I suspect you probably want the latter.
>
> -----Original Message-----
> From: Moore, Larry [mailto:Lar...@tf...]
> Sent: Thursday, March 08, 2001 1:49 PM
> To: 'per...@li...'
> Subject: [perl-win32-gui-users] use of Pos method
>
> I have two listboxes each as the Buddy to an UpDown object.
>
> I want to synchronize the selected item for the two listboxes.
>
> I use two click event subroutines to allow selection in the list, as well
as
> two scroll events.  I get an error message saying that the Pos method is
not
> available in my click subs, but after responding ok to these two messages,
> one for each sub, my code seems to perform as I expect.  What am I doing
> wrong?  Here is the code:
>
> sub ud1_Scroll {
>         geo_codes_Click();
> }
>
> sub ud2_Scroll {
>         geo_names_Click();
> }
>
> sub geo_codes_Click {
>         $sel = $geo_codes->SelectedItem();
>         $updown2->Pos($sel);
> }
>
> sub geo_names_Click {
>         $sel = $geo_names->SelectedItem();
>         $updown1->Pos($sel);
> }
>
> Tks,
> Larry
>
> _______________________________________________
> 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
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

--
Glenn
=====
Even if you're on the right track,
you'll get run over if you just sit there.
                       -- Will Rogers



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

[perl-win32-gui-users] Bug in Textfield scrolling

[Glenn L. <Gle...@ne...>]

Hi,

Once I actually got 0.0.558 installed (no clue what version
ActiveState's ppm gets by default) a number of things started working
better for me.  (no surprise there, I suspect).

However, I note that scrolling doesn't work in Textfield items... the
top/bottom line of text doesn't get erased during the scroll, and the
new line overwrites it.  This is pretty consistent for most ways you can
scroll, except that clicking in the empty area of a scrollbar to scroll
down actually works.  Perhaps doing that to scroll up would also work,
if I had enough data to have a whole page worth the scroll up to.

Fortunately, scrolling seems to work in RichEdit, so I switched.  I'm
sure there is a performance penalty for switching to RichEdit, but an a
GHz machine, it isn't noticable.

--
Glenn
=====
Even if you're on the right track,
you'll get run over if you just sit there.
                       -- Will Rogers

Re: [perl-win32-gui-users] use of Pos method

[Glenn L. <Gle...@ne...>]

"Moore, Larry" wrote:

> ->Select() doesn't work, I tried it, because $updown1 and $updown2 are
> UpDown objects and Pos is the method for this object.  If I comment out the
> two lines which set the Pos, then the program dies immediately.

I suspect this latter death is caused by the lack of an appropriate return
value.  Event subs return -1/0/1 to result in death/no action/default action
respectively.

When you comment out Pos, the return value is $sel, which is -1 if nothing is
selected....

I haven't played with UpDown yet, I'm interested to watch future responses in
this thread.

>
>
> Larry
>
> -----Original Message-----
> From: Peter Eisengrein [mailto:Pet...@at...]
> Sent: Thursday, March 08, 2001 2:34 PM
> To: 'per...@li...'
> Subject: RE: [perl-win32-gui-users] use of Pos method
>
> Do you want ->Pos() or ->Select()? I suspect you probably want the latter.
>
> -----Original Message-----
> From: Moore, Larry [mailto:Lar...@tf...]
> Sent: Thursday, March 08, 2001 1:49 PM
> To: 'per...@li...'
> Subject: [perl-win32-gui-users] use of Pos method
>
> I have two listboxes each as the Buddy to an UpDown object.
>
> I want to synchronize the selected item for the two listboxes.
>
> I use two click event subroutines to allow selection in the list, as well as
> two scroll events.  I get an error message saying that the Pos method is not
> available in my click subs, but after responding ok to these two messages,
> one for each sub, my code seems to perform as I expect.  What am I doing
> wrong?  Here is the code:
>
> sub ud1_Scroll {
>         geo_codes_Click();
> }
>
> sub ud2_Scroll {
>         geo_names_Click();
> }
>
> sub geo_codes_Click {
>         $sel = $geo_codes->SelectedItem();
>         $updown2->Pos($sel);
> }
>
> sub geo_names_Click {
>         $sel = $geo_names->SelectedItem();
>         $updown1->Pos($sel);
> }
>
> Tks,
> Larry
>
> _______________________________________________
> 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
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

--
Glenn
=====
Even if you're on the right track,
you'll get run over if you just sit there.
                       -- Will Rogers