perl-win32-gui-users

[perl-win32-gui-users] screensaver with perl

[Alex L. <sim...@gm...>]

Hi all:
Lately Ive been searching for a simple screensaver that can display
time and date with BIG text. Windows has a text version but it only
displays time. Since PERL is so robust I am wondering if there is a
simple way to write and compile a simple screensaver with PERL?
Nothing fancy just displays time and date with big bright fonts.

thanks!
Alex

[perl-win32-gui-users] How to wait for a Dialogbox to continue the program?

[<a98...@gm...>]

Hi,

I want to make an input with a dialogbox.
but I've the problem that the program continues while the dialogbox is open.

how can i make the script waiting for closing the dialogbox?

thx
juergen


my script:
[snip]
do_something...
ask_filename();
do_the_rest...

sub ask_filename {
# Create Find DialogBox
my $filenameDlg = new Win32::GUI::DialogBox(
              -name  => "FileDlg",
              -title => "Filename",
              -pos   => [ 150, 150 ],
              -size  => [ 360, 115 ],
      );

  # Filename
  $filenameDlg->AddTextfield (
                -name  => "FileDlg_Text",              
                -pos   => [10, 12],
                -size  => [220, 21],              
                -prompt  => [ "Filename: ", 45],
                -tabstop => 1,
        );
        
  $filenameDlg->AddButton (
                -name  => "FileDlg_OK",
                -text  => "&OK",
                -pos   => [270, 10],
                -size  => [75 , 21],
                -onClick => sub {  $filenameDlg->Hide(); $filename=$filenameDlg->FileDlg_Text->Text; return 0; },
                -group => 1,
                -tabstop => 1,
        );
  
  # Cancel Button
  $filenameDlg->AddButton (
                -name  => "FileDlg_Cancel",
                -text  => "C&ancel",
                -pos   => [270, 40],
                -size  => [75 , 21],
                -onClick => sub { $filenameDlg->Hide(); 0; },
                -tabstop => 1,
      );
  $filenameDlg->FileDlg_Text->SetFocus();
  $filenameDlg->Show();
  return 0;
}
[/snip]
-- 
Psssst! Schon vom neuen GMX MultiMessenger gehört?
Der kanns mit allen: http://www.gmx.net/de/go/multimessenger

Re: [perl-win32-gui-users] How to wait for a Dialogbox to continue the program?

[Robert M. <rob...@us...>]

On 26/09/2007, a98...@gm... <a98...@gm...> wrote:
> I want to make an input with a dialogbox.
> but I've the problem that the program continues while the dialogbox is
> open.
>
> how can i make the script waiting for closing the dialogbox?

As you haven't posted a *short* and *complete* example of what you are
trying to do, I can't really understand what it is that you are
asking.

I *suspect* that you want something like
  $filenameDlg->DoModal();

after your line
  $filenameDlg->Show();

I can't be more exact without a complete script to modify.  The
tutorial in the documents covers this.

regards,
Rob.


>
> thx
> juergen
>
>
> my script:
> [snip]
> do_something...
> ask_filename();
> do_the_rest...
>
> sub ask_filename {
> # Create Find DialogBox
> my $filenameDlg =3D new Win32::GUI::DialogBox(
>               -name  =3D> "FileDlg",
>               -title =3D> "Filename",
>               -pos   =3D> [ 150, 150 ],
>               -size  =3D> [ 360, 115 ],
>       );
>
>   # Filename
>   $filenameDlg->AddTextfield (
>                 -name  =3D> "FileDlg_Text",
>                 -pos   =3D> [10, 12],
>                 -size  =3D> [220, 21],
>                 -prompt  =3D> [ "Filename: ", 45],
>                 -tabstop =3D> 1,
>         );
>
>   $filenameDlg->AddButton (
>                 -name  =3D> "FileDlg_OK",
>                 -text  =3D> "&OK",
>                 -pos   =3D> [270, 10],
>                 -size  =3D> [75 , 21],
>                 -onClick =3D> sub {  $filenameDlg->Hide(); $filename=3D$f=
ilenameDlg->FileDlg_Text->Text; return 0; },
>                 -group =3D> 1,
>                 -tabstop =3D> 1,
>         );
>
>   # Cancel Button
>   $filenameDlg->AddButton (
>                 -name  =3D> "FileDlg_Cancel",
>                 -text  =3D> "C&ancel",
>                 -pos   =3D> [270, 40],
>                 -size  =3D> [75 , 21],
>                 -onClick =3D> sub { $filenameDlg->Hide(); 0; },
>                 -tabstop =3D> 1,
>       );
>   $filenameDlg->FileDlg_Text->SetFocus();
>   $filenameDlg->Show();
>   return 0;
> }
> [/snip]
> --
> Psssst! Schon vom neuen GMX MultiMessenger geh=F6rt?
> Der kanns mit allen: http://www.gmx.net/de/go/multimessenger
>
> -------------------------------------------------------------------------
> This SF.net email is sponsored by: Microsoft
> Defy all challenges. Microsoft(R) Visual Studio 2005.
> http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/
>


--=20
Please update your address book with my new email address:
ro...@th...

[perl-win32-gui-users] my labels are only shown after clicking an them or resizing the window

[<a98...@gm...>]

hi,

I've the problem that my labels are only shown after clicking on them or after resizing the window.
do I have to implement a repainting or something?

my script:

[snip]
  $cfg_window=Win32::GUI::Window->new(
  	-name  => "configwin",
  	-title => "$cfg{name} - Configuration",
        -left => CW_USEDEFAULT,
  	-size  => [ 600, 450 ],
  	-parent => $main,
    -vscroll => 1,
    -hscroll => 1,
    -helpbutton  => 0,
    -dialogui    => 1,
    -resizable   => 1,
    -onTerminate => sub { do_animation($cfg_window); 0; },
  );
  
  my $ncw = $cfg_window->ScaleWidth();
  my $nch = 20;
  
  $cfg_window->AddButton(
    -name => "CFGOK",
    -text => "OK",
    -pos  => [ 30, $nch ],
  );
  $cfg_window->AddButton(
    -name => "CFGCANCEL",
    -text => "CANCEL",
    -pos  => [ 70, $nch ],
  );

  my $count = 0;
  my $padding = 10;

  $cfg_window->AddGroupbox(
  	-name  => "CFGX",
  	-title => "Configuration",
  	-left  => 25,
  	-top   => 10,
  	-width => 400,
	-group  => 1,
  );
  
  foreach my $xx (sort(keys %config))
  {
    $count = $count + 1;
    $cfg_window->AddTextfield(
      -name => "${xx}_name",
      -text => "$config{$xx}",
      -left => 35,
      -prompt => [ "$xx:" , 150 ],
      -height => 20,
      -width => 200,
	    -top   => 25 + ($count * 20),
	    -width => $cfg_window->CFGX->Width() - (2 * 20),
	    -tabstop => 1,
    );
  }
  
  $cfg_window->CFGX->Height(350);
  $cfg_window->CFGX->Width(550);
  
  do_animation($cfg_window);
  $cfg_window->SetRedraw(1);

[/snip]

thx
juergen

-- 
GMX FreeMail: 1 GB Postfach, 5 E-Mail-Adressen, 10 Free SMS.
Alle Infos und kostenlose Anmeldung: http://www.gmx.net/de/go/freemail

Re: [perl-win32-gui-users] my labels are only shown after clicking an them or resizing the window

[Robert M. <rob...@us...>]

On 26/09/2007, a98...@gm... <a98...@gm...> wrote:
> I've the problem that my labels are only shown after clicking on them
> or after resizing the window.
> do I have to implement a repainting or something?

No, but you have to process the event queue somewhere in your code.
You example is incomplete, and does not show whether/where you ever
call Dialog()/DoEvent()/DoModal().

I suggest you read this if you haven't already:
http://www.catb.org/~esr/faqs/smart-questions.html

Regards,
Rob.

>
> my script:
>
> [snip]
>   $cfg_window=Win32::GUI::Window->new(
>         -name  => "configwin",
>         -title => "$cfg{name} - Configuration",
>         -left => CW_USEDEFAULT,
>         -size  => [ 600, 450 ],
>         -parent => $main,
>     -vscroll => 1,
>     -hscroll => 1,
>     -helpbutton  => 0,
>     -dialogui    => 1,
>     -resizable   => 1,
>     -onTerminate => sub { do_animation($cfg_window); 0; },
>   );
>
>   my $ncw = $cfg_window->ScaleWidth();
>   my $nch = 20;
>
>   $cfg_window->AddButton(
>     -name => "CFGOK",
>     -text => "OK",
>     -pos  => [ 30, $nch ],
>   );
>   $cfg_window->AddButton(
>     -name => "CFGCANCEL",
>     -text => "CANCEL",
>     -pos  => [ 70, $nch ],
>   );
>
>   my $count = 0;
>   my $padding = 10;
>
>   $cfg_window->AddGroupbox(
>         -name  => "CFGX",
>         -title => "Configuration",
>         -left  => 25,
>         -top   => 10,
>         -width => 400,
>         -group  => 1,
>   );
>
>   foreach my $xx (sort(keys %config))
>   {
>     $count = $count + 1;
>     $cfg_window->AddTextfield(
>       -name => "${xx}_name",
>       -text => "$config{$xx}",
>       -left => 35,
>       -prompt => [ "$xx:" , 150 ],
>       -height => 20,
>       -width => 200,
>             -top   => 25 + ($count * 20),
>             -width => $cfg_window->CFGX->Width() - (2 * 20),
>             -tabstop => 1,
>     );
>   }
>
>   $cfg_window->CFGX->Height(350);
>   $cfg_window->CFGX->Width(550);
>
>   do_animation($cfg_window);
>   $cfg_window->SetRedraw(1);
>
> [/snip]
>
> thx
> juergen
>
> --
> GMX FreeMail: 1 GB Postfach, 5 E-Mail-Adressen, 10 Free SMS.
> Alle Infos und kostenlose Anmeldung: http://www.gmx.net/de/go/freemail
>
> -------------------------------------------------------------------------
> This SF.net email is sponsored by: Microsoft
> Defy all challenges. Microsoft(R) Visual Studio 2005.
> http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/
>


-- 
Please update your address book with my new email address:
ro...@th...

Re: [perl-win32-gui-users] HIJACKING "screensaver with perl" (Rudeness or immaturity?)

[Linda W <per...@tl...>]

[rude?] a98...@gm... wrote:
Subject: Re: screensaver with perl: How to wait for a Dialogbox to
continue the	program?
 > Hi,
 >
 > I want to make an input with a dialogbox.
----------------------------------------------

[immature?] a98...@gm... wrote:
Subject: Re: screensaver with perl: my labels are only shown after
clicking an	them or resizing the window

 > hi,
 >
 > I've the problem that my labels are only shown after clicking on
 > them or after resizing the window.
 > do I have to implement a repainting or something?
-----------------------------------------------------------------------------
Maybe this is normal, but do people normally respond to a thread
("screensavers in perl") with completely unrelated topics?

It sorta defeats the idea of threads -- I looked at the "Re: Screensaver
with perl" thread looking to see if anyone _RESPONDED_ **>>TO THE SUBJECT<<**
and instead I find the above 'fluff' completely unrelated to the topic.

Isn't this this sorta childish and or immature?  Reminds me of slashdot.

:-(