perl-win32-gui-users

[perl-win32-gui-users] How to keep my window not hidden

[Hirosi T. <ta...@se...>]

Hello, I'm new to Win32::GUI.

I found "timer.pl" in sample is good for desktop clock accesary.
Now I don't like it be hidden when other apprications get active.
I mean I like to keep it on top level in z-axis.
Is it possible?

p.s.
Sorry I've not yet checked all documents.
Not easy to read English to me.
--
Hirosi Taguti
ta...@se...

Re: [perl-win32-gui-users] How to keep my window not hidden

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

Hirosi Taguti wrote:
> Hello, I'm new to Win32::GUI.
>
> I found "timer.pl" in sample is good for desktop clock accesary.
> Now I don't like it be hidden when other apprications get active.
> I mean I like to keep it on top level in z-axis.
> Is it possible?

create the window with the -topmost => 1 option.

cheers,
Aldo

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

[perl-win32-gui-users] Re: How to keep my window not hidden

[Hirosi T. <ta...@se...>]

> > I found "timer.pl" in sample is good for desktop clock accesary.
> > Now I don't like it be hidden when other apprications get active.
> > I mean I like to keep it on top level in z-axis.
> > Is it possible?
> 
> create the window with the -topmost => 1 option.

Thank you but may I continue more?

This -topmost option cann't be changed after creation?
Below code works fine on re-sizing, but not on -topmost.

##!perl -w
#
# original is "Hello, world".
# test for -tpmost.
#
use Win32::GUI;
$MW = new Win32::GUI::Window(
    -title   => 'hello.pl',
    -left    => 100,
    -top     => 100,
    -width   => 150,
    -height  => 100,
    -name    => 'MainWindow',
    -topmost => 0,
    -visible => 1,
);
$hello = $MW->AddButton(
    -text    => 'Hello',
    -name    => 'Hello',
    -left    => 25,
    -top     => 25,
);
$rc = Win32::GUI::Dialog(0);
sub MainWindow_Terminate {
    $MW->PostQuitMessage(1);
    # return -1;
}
sub Hello_Click {
    if($MW->Hello->Text eq "Hello") {
        $MW->Hello->{-text} = "Goodby";
        $MW->Change(
             -width   => 250,
             -height  => 200,
             -topmost => 1,
        );
    } else {
        $MW->Hello->{-text} = "Hello";
        $MW->Change(
             -width   => 150,
             -height  => 100,
             -topmost => 0,
        );


    }
}

--
ta...@se...

Re: [perl-win32-gui-users] Re: How to keep my window not hidden

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

Hirosi Taguti wrote:
> Thank you but may I continue more?
>
> This -topmost option cann't be changed after creation?
> Below code works fine on re-sizing, but not on -topmost.

no, it doesn't work (yet); changing -topmost requires an
additional bit of code that I wasn't afare of until recently :-)
I'll fix this in the next release.

cheers,
Aldo

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