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

[perl-win32-gui-users] status bar

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

is there any way to stop a status bar from being able to be resized?
thanx

[perl-win32-gui-users] AddLabel crashes Perl?

[Terry C. <ca...@tj...>]

I'm a new Win32:GUI user, trying the first sample in guitut1.html:

    use Win32::GUI;
    $main = Win32::GUI::Window->new(
                -name   => 'Main',
                -width  => 100,
                -height => 100,
        );
    $main->AddLabel(-text => "Hello, world");
    $main->Show();
    Win32::GUI::Dialog();

    sub Main_Terminate {
        -1;
    }

Perl is crashing when it hits the AddLabel statement (it works okay if I
remove that line); the XP error information is:

  AppName: perl.exe   AppVer: 5.6.1.631  ModName: msvcrt.dll
  ModVer: 7.0.2600.0  Offset: 0003203b

I'm running Activstate perl v5.6.1, build 631; Win32-GUI-0.0.558
(installed via PPM); Windows/XP home edition.

Any ideas?

-- 
Terry Carroll        |  
Santa Clara, CA      |   "We do hope we get the bronze, too, so
ca...@tj...      |    we can get the entire collection."
Modell delendus est  |      - David Pelletier

[perl-win32-gui-users] Dinamic windows

[Guillem C. W. <vac...@es...>]

Firstly...I put a subject on this e-mail.....

Well, I'm still having problems with my Tree_NodeClick event when this =
create some windows inside of it. This always go beneath the window =
which contains the TreeView.When ? This happens when the event ends =
(with return 0 / 1). Maybe the use of TreeView implies that a "bug" =
subroutine that put the focus on the TreeView....but I don't know...

The other thing is the same event but I thing there aren't any =
connection problem. The problem appears when I close a dinamic window =
and the same window is reopen with ->Show don't show, but It will show =
it if I open an other window between.

I think I have exposed more clearly....

Cheers,

Guillem Cunillera i Wefers

Re: [perl-win32-gui-users] Group Radiobuttons

[Johan L. <jo...@ba...>]

Eugeniy:
 >  How to make two or more independent groups of radiobuttons?

You should set the -group => 1 option on the _first_ RadioButton in each 
group. This control should also be a tabstop. The other RadioButtons in the 
group should have these options turned off.

This should be added to the FAQ.


/J
-------- ------ ---- --- -- --  --  -    -     -      -         -
Johan Lindström    Sourcerer @ Boss Casinos     jo...@ba...

Latest bookmark: "OpenNap, Clients, Utilities, File Sharing, MP3..."
<http://www.therecordindustry.com/file_sharing/napster_opennap_dir.htm>
dmoz (1 of 4): ...ters/Software/Shareware/Windows/Sound_and_Music

[perl-win32-gui-users] Group Radiobuttons

[Eugeniy O. <ogl...@on...>]

Hello perl-win32-gui-users,

  How to make two or more independent groups of radiobuttons?

  Thanks

-- 
Best regards,
 Eugeniy                          mailto:ogl...@on...

RE: [perl-win32-gui-users] (no subject)

[Guillem C. W. <vac...@es...>]

Well, firstly I'm very glad for all the indications that I receive from =
everybody.If it was possible I will pay a beer to everybody.....or more =
than one  in more than one case :)


>$win->btnHide()->SetFocus();  #fails on run-time,  btnHide?


I'm going to include the event that is sorrounding my head ...this is an =
event that comes from a TreeView, I comment some thinks in bold ,that =
is:=20

sub Tree_NodeClick
{
 $posdinsalu=3D0;
 for my $est_alu (@alumne)
 {
   if ($est_alu->{Arbre}=3D=3D$_[0])
   {
  if (!exists ($w_analisi[$posdinsalu]))
  {
   # I Create dinamically a window that depens on a variable
   $w_analisi[$posdinsalu] =3D Win32::GUI::Window->new (
     -top  =3D> 0,
     -left  =3D> 0,
     -width     =3D> 600,=20
     -height    =3D> 400,
        -minsize =3D> [600,400],
     -text  =3D> "Comentaris respecte $est_alu->{Nom}",=20
     -name  =3D> "Mailtool::tutor::e_w_analisi_$posdinsalu",);

   $canviat[$posdinsalu]=3D0;
  =20
   open ENTSIS,"<sessions/${posdinsalu}${noms}.txt";
  =20
   $res =3D<ENTSIS>;
   chop ($res);
   $toteltex=3D$res;
   while($res =3D<ENTSIS>)
   {
    chop ($res);
    $toteltex=3D$toteltex."\r\n".$res;
   }
   close ENTSIS;

    $comentaris[$posdinsalu] =3D$w_analisi[$posdinsalu]->AddTextfield(
     -foreground =3D> [0, 0, 0],  # Color del text: negre
     -font  =3D> $Mailtool::mevesfonts::fo_normal,
     -left  =3D> 10,
     -top  =3D> 10,
     -height  =3D> 350,
     -width  =3D> 480,
     -name  =3D> "Mailtool::tutor::t_comentari_$posdinsalu",
     -addstyle =3D> WS_CHILD | WS_VISIBLE | WS_VSCROLL=20
                | ES_LEFT | ES_MULTILINE | ES_AUTOVSCROLL,);

   $comentaris[$posdinsalu]->Text("${toteltex}");

   $b_guardar[$posdinsalu] =3D $w_analisi[$posdinsalu]->AddButton(
     -text  =3D> "GUARDAR", # Text al bot=F3
     -font  =3D> $Mailtool::mevesfonts::fo_normal,
     -left  =3D> 510,
     -top  =3D> 85,
     -height  =3D> 25,
     -name  =3D> "Mailtool::tutor::b_$posdinsalu",);

   ## Ens cal fer us de eval per al tractament dels events de les =
finestres din=E0miques.
  ## Aldo told me about the use of eval....it works good
       eval qq{   =20
           sub Mailtool::tutor::b_${posdinsalu}_Click {
               Mailtool::tutor::b_Click($posdinsalu);}
        =20
           sub Mailtool::tutor::e_w_analisi_${posdinsalu}_Terminate {
               Mailtool::tutor::e_w_analisi_Terminate($posdinsalu);}
     =20
           sub Mailtool::tutor::t_comentari_${posdinsalu}_Change {
               Mailtool::tutor::t_comentari_Change($posdinsalu);}
              };
   # Here stars the problem, the new windows appears for miliseconds but =
goes beneath the $w_tutor
   $w_analisi[$posdinsalu]->Show();
   $w_analisi[$posdinsalu]->SetForegroundWindow();
   $w_analisi[$posdinsalu]->SetFocus();

  }
  else
     {
    # In case that I reopen a dinamic window the first time it doesn't =
open, but yes the next time, after another one, for example
     $w_analisi[$posdinsalu]->Show();

     }=20
   }  =20
 }

    return 0;
}

A lot of thaks to everybody !!!

Regards from Catalonia,
Guillem Cunillera i Wefers "Cuni"

RE: [perl-win32-gui-users] (no subject)

[Johan L. <jo...@ba...>]

Cuillem wrote:
>Mi problem is I create dinamicaly some small windons that always go beneath
>a main window.
>
>$w_analisi[$posdinsalu]->Activate();
>
>doesn't work....how I can pass the focus to this window ?

This works for me:

$win->SetForegroundWindow();
$win->btnHide()->SetFocus();

I.e. the difference from your attempt is that I also call SetFocus on a 
control in the window. This may or may not work for you, I haven't followed 
the thread too closely. The first call really should do it, so I'm not sure 
why your solution doesn't work.


/J

-------- ------ ---- --- -- --  --  -    -     -      -         -
Johan Lindström    Sourcerer @ Boss Casinos     jo...@ba...

Latest bookmark: "Customizing Makefile.PL"
http://www.perlmonks.org/index.pl?node_id=159483
dmoz (1 of 5): /Computers/Programming/Languages/Perl

[perl-win32-gui-users] Vertical font ??

[Guillem C. W. <vac...@es...>]

Does anybody created a vertical font with Win32::GUI ? Is possible ?

Any kind of vertical font for me is good.

thanks.

Guillem Cunillera i Wefers.

RE: [perl-win32-gui-users] (no subject)

[Guillem C. W. <vac...@es...>]

RE: [perl-win32-gui-users] (no subject)It works ...but then DialogBox =
goes beneath my other Windows...

Guillem Cunillera i Wefers.
  -----Mensaje original-----
  De: Peter Eisengrein <Pet...@at...>
  Para: 'Guillem Cunillera Wefers' <vac...@es...>; =
per...@li... =
<per...@li...>
  Fecha: dimarts, 16 / abril / 2002 16:56
  Asunto: RE: [perl-win32-gui-users] (no subject)


  I tried -topmost with a DialogBox and it worked on my NT4.0 =
Activestate perl v5.6.0, Win32::GUI v 0.0.558=20





  > -----Original Message-----=20
  > From: Guillem Cunillera Wefers [mailto:vac...@es...]=20
  > Sent: Tuesday, April 16, 2002 10:37=20
  > To: per...@li...=20
  > Subject: RE: [perl-win32-gui-users] (no subject)=20
  >=20
  >=20
  > I have tried also:=20
  >=20
  > $w_analisi[$posdinsalu]->Show();=20
  >  $w_analisi[$posdinsalu]->SetForegroundWindow();=20
  >  $w_analisi[$posdinsalu]->BringWindowToTop();=20
  >=20
  > but no results....=20
  >=20
  >=20
  > -----Mensaje original-----=20
  > De: Guillem Cunillera Wefers <vac...@es...>=20
  > Para: per...@li...=20
  > <per...@li...>=20
  > Fecha: dimarts, 16 / abril / 2002 15:54=20
  > Asunto: RE: [perl-win32-gui-users] (no subject)=20
  >=20
  >=20
  > >-topmost is not good for me because I can't see for instance some=20
  > >DialogBox...=20
  > >=20
  > >>You could also use the Activate event of the window beneath=20
  > to set the=20
  > >focus to=20
  > >>the window on top, but then you wouldn't be able to do=20
  > anything in the=20
  > >>window beneath, which would defeat the purpose of not disabling =
it.=20
  > >=20
  > >Mi problem is I create dinamicaly some small windons that=20
  > always go beneath=20
  > >a main window.=20
  > >=20
  > >$w_analisi[$posdinsalu]->Activate();=20
  > >=20
  > >doesn't work....how I can pass the focus to this window ?=20
  > >=20
  > >Guillem Cunillera i Wefers=20
  > >=20
  > >=20
  > >=20
  > >_______________________________________________=20
  > >Perl-Win32-GUI-Users mailing list=20
  > >Per...@li...=20
  > >https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users=20
  > >=20
  >=20
  >=20
  > _______________________________________________=20
  > Perl-Win32-GUI-Users mailing list=20
  > Per...@li...=20
  > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users=20
  >=20

RE: [perl-win32-gui-users] (no subject)

[Guillem C. W. <vac...@es...>]

I have tried also:

$w_analisi[$posdinsalu]->Show();
 $w_analisi[$posdinsalu]->SetForegroundWindow();
 $w_analisi[$posdinsalu]->BringWindowToTop();

but no results....


-----Mensaje original-----
De: Guillem Cunillera Wefers <vac...@es...>
Para: per...@li...
<per...@li...>
Fecha: dimarts, 16 / abril / 2002 15:54
Asunto: RE: [perl-win32-gui-users] (no subject)


>-topmost is not good for me because I can't see for instance some
>DialogBox...
>
>>You could also use the Activate event of the window beneath to set the
>focus to
>>the window on top, but then you wouldn't be able to do anything in the
>>window beneath, which would defeat the purpose of not disabling it.
>
>Mi problem is I create dinamicaly some small windons that always go beneath
>a main window.
>
>$w_analisi[$posdinsalu]->Activate();
>
>doesn't work....how I can pass the focus to this window ?
>
>Guillem Cunillera i Wefers
>
>
>
>_______________________________________________
>Perl-Win32-GUI-Users mailing list
>Per...@li...
>https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

RE: [perl-win32-gui-users] (no subject)

[Guillem C. W. <vac...@es...>]

-topmost is not good for me because I can't see for instance some
DialogBox...

>You could also use the Activate event of the window beneath to set the
focus to
>the window on top, but then you wouldn't be able to do anything in the
>window beneath, which would defeat the purpose of not disabling it.

Mi problem is I create dinamicaly some small windons that always go beneath
a main window.

$w_analisi[$posdinsalu]->Activate();

doesn't work....how I can pass the focus to this window ?

Guillem Cunillera i Wefers

Re: [perl-win32-gui-users] (no subject)

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

>How can be force that one Window is always over an other ?, without having 
>to disable the second one.
>
>I'm going to end my actual program in few days and I hope that few 
>questions you will see....

Well, the -topmost => 1 option allows the window to stay on top - but it 
will also be on top of all other windows, even non-Win32::GUI windows.  You 
could also use the Activate event of the window beneath to set the focus to 
the window on top, but then you wouldn't be able to do anything in the 
window beneath, which would defeat the purpose of not disabling it.

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

Re: [perl-win32-gui-users] (no subject)

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

>How can be force that one Window is always over an other ?, without having 
>to disable the second one.
>
>I'm going to end my actual program in few days and I hope that few 
>questions you will see....

Well, the -topmost => 1 option allows the window to stay on top - but it 
will also be on top of all other windows, even non-Win32::GUI windows.  You 
could also use the Activate event of the window beneath to set the focus to 
the window on top, but then you wouldn't be able to do anything in the 
window beneath, which would defeat the purpose of not disabling it.

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

[perl-win32-gui-users] (no subject)

[Guillem C. W. <vac...@es...>]

How can be force that one Window is always over an other ?, without =
having to disable the second one.

I'm going to end my actual program in few days and I hope that few =
questions you will see....

Regards from Catalonia,

Guillem Cunillera i Wefers

RE: [perl-win32-gui-users] Dinamic windows...

[Guillem C. W. <vac...@es...>]

Ok,now it works....after changing $est->alu->{Nom} for other variable tha=
t
doesn't contains any spaces !!!!

Best regards from Catalonia
Guillem Cunillera i Wefers


-----Mensaje original-----
De: Aldo Calpini <dad...@al...>
Para: Guillem Cunillera Wefers <vac...@es...>; perlwin32gui
<per...@li...>
Fecha: dilluns, 15 / abril / 2002 12:33
Asunto: Re: [perl-win32-gui-users] Dinamic windows...


>
>Guillem Cunillera Wefers wrote:
>> [...]
>>  $b_guardar{$est_alu->{Nom}} =3D $w_analisi{$est_alu->{Nom}}->AddButto=
n(
>>  -text  =3D> "GUARDAR", # Text al bot=F3
>>  -font  =3D> $Mailtool::mevesfonts::fo_normal,
>>  -left  =3D> 520,
>>  -top  =3D> 85,
>>  -height  =3D> 25,
>>  -name  =3D> "Mailtool::tutor::b_${est_alu->{Nom}}",  #
????????????????????
>
>the line above should read:
>
>   -name  =3D> "Mailtool::tutor::b_$est_alu->{Nom}",
>
>> How I can receive the event for every instance of button ??
>
>do something like:
>
>   eval qq{
>     sub Mailtool::tutor::b_$est_alu->{Nom}_Click {
>       Mailtool::tutor::b_Click( "$est_alu->{Nom}" );
>     }
>   };
>
>this will call the "generic" Mailtool::tutor::b_Click subroutine, passin=
g
>$est_alu->{Nom} as its first parameter. you can then perform appropriate
>actions for your instance.
>
>
>cheers,
>Aldo
>
>__END__
>$_=3Dq,just perl,,s, , another ,,s,$, hacker,,print;
>
>
>_______________________________________________
>Perl-Win32-GUI-Users mailing list
>Per...@li...
>https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

RE: [perl-win32-gui-users] Dinamic windows...

[Guillem C. W. <vac...@es...>]

I'm going to try....and...a lot of thanks again...

Guillem Cunillera i Wefers

-----Mensaje original-----
De: Aldo Calpini <dad...@al...>
Para: Guillem Cunillera Wefers <vac...@es...>; perlwin32gui
<per...@li...>
Fecha: dilluns, 15 / abril / 2002 12:33
Asunto: Re: [perl-win32-gui-users] Dinamic windows...


>
>Guillem Cunillera Wefers wrote:
>> [...]
>>  $b_guardar{$est_alu->{Nom}} =3D $w_analisi{$est_alu->{Nom}}->AddButto=
n(
>>  -text  =3D> "GUARDAR", # Text al bot=F3
>>  -font  =3D> $Mailtool::mevesfonts::fo_normal,
>>  -left  =3D> 520,
>>  -top  =3D> 85,
>>  -height  =3D> 25,
>>  -name  =3D> "Mailtool::tutor::b_${est_alu->{Nom}}",  #
????????????????????
>
>the line above should read:
>
>   -name  =3D> "Mailtool::tutor::b_$est_alu->{Nom}",
>
>> How I can receive the event for every instance of button ??
>
>do something like:
>
>   eval qq{
>     sub Mailtool::tutor::b_$est_alu->{Nom}_Click {
>       Mailtool::tutor::b_Click( "$est_alu->{Nom}" );
>     }
>   };
>
>this will call the "generic" Mailtool::tutor::b_Click subroutine, passin=
g
>$est_alu->{Nom} as its first parameter. you can then perform appropriate
>actions for your instance.
>
>
>cheers,
>Aldo
>
>__END__
>$_=3Dq,just perl,,s, , another ,,s,$, hacker,,print;
>
>
>_______________________________________________
>Perl-Win32-GUI-Users mailing list
>Per...@li...
>https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

Re: [perl-win32-gui-users] Dinamic windows...

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

Guillem Cunillera Wefers wrote:
> [...]
>  $b_guardar{$est_alu->{Nom}} =3D $w_analisi{$est_alu->{Nom}}->AddButton=
(
>  -text  =3D> "GUARDAR", # Text al bot=F3
>  -font  =3D> $Mailtool::mevesfonts::fo_normal,
>  -left  =3D> 520,
>  -top  =3D> 85,
>  -height  =3D> 25,
>  -name  =3D> "Mailtool::tutor::b_${est_alu->{Nom}}",  # ???????????????=
?????

the line above should read:

   -name  =3D> "Mailtool::tutor::b_$est_alu->{Nom}",

> How I can receive the event for every instance of button ??

do something like:

   eval qq{
     sub Mailtool::tutor::b_$est_alu->{Nom}_Click {
       Mailtool::tutor::b_Click( "$est_alu->{Nom}" );
     }
   };

this will call the "generic" Mailtool::tutor::b_Click subroutine, passing
$est_alu->{Nom} as its first parameter. you can then perform appropriate
actions for your instance.


cheers,
Aldo

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

[perl-win32-gui-users] Dinamic windows...

[Guillem C. W. <vac...@es...>]

Maybe the subject is a litlle ambigous but...

Well, in this case I'm an trying to create and use a set of Windows with =
the same behaviour, that's to say:=20

$w_analisi{$est_alu->{Nom}} =3D Win32::GUI::Window->new (
  -top  =3D> 0,
  -left  =3D> 0,
  -width     =3D> 600,=20
  -height    =3D> 400,
     -minsize =3D> [600,400],
  -text  =3D> "Comentaris respecte $est_alu->{Nom}",=20
  -name  =3D> "Mailtool::tutor::e_w_analisi",);

 $comentaris{$est_alu->{Nom}} =
=3D$w_analisi{$est_alu->{Nom}}->AddTextfield(
 -foreground =3D> [0, 0, 0],  # Color del text: negre
 -text
 -font  =3D> $Mailtool::mevesfonts::fo_normal,
 -left  =3D> 10,
 -top  =3D> 10,
 -height  =3D> 350,
 -width  =3D> 480,
 -name  =3D> "Mailtool::tutor::t_comentari",
 -addstyle =3D> WS_CHILD | WS_VISIBLE | WS_VSCROLL=20
            | ES_LEFT | ES_MULTILINE | ES_AUTOVSCROLL,
);

 $comentaris{$est_alu->{Nom}}->Text("${toteltex}");


 $b_guardar{$est_alu->{Nom}} =3D $w_analisi{$est_alu->{Nom}}->AddButton(
 -text  =3D> "GUARDAR", # Text al bot=F3
 -font  =3D> $Mailtool::mevesfonts::fo_normal,
 -left  =3D> 520,
 -top  =3D> 85,
 -height  =3D> 25,
 -name  =3D> "Mailtool::tutor::b_${est_alu->{Nom}}",  # =
????????????????????
 );

  $w_analisi{$est_alu->{Nom}}->Show();


How I can receive the event for every instance of button ?? Every window =
have its own button.
I guess you understand what I'm trying to do...you know.....Monday =
morming...

Regards from Catalonia,
Guillem Cunillera i Wefers

Re: [perl-win32-gui-users] DC and GetTextExtentPoint32

[Darek A. <dar...@eu...>]

----- Original Message -----
From: "Sean Healy" <jal...@ho...>
Date: Sat, 13 Apr 2002 17:47:51 -0800
To: dar...@eu..., per...@li...
Subject: Re: [perl-win32-gui-users] DC and GetTextExtentPoint32


> 
> ($width,$height) = $Window->GetTextExtentPoint32($text,$FontObject);
> 

Thank You.

So It seems 'GetTextExtentPoint32' method description I found in Win32_GUI.html (from  source code version of Win32::GUI module) is not correct  - It places args in wrong order:

GetTextExtentPoint32([FONT], STRING)

Regards
Darek
-- 

_______________________________________________
Sign-up for your own FREE Personalized E-mail at Mail.com
http://www.mail.com/?sr=signup

Re: [perl-win32-gui-users] DC and GetTextExtentPoint32

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

>Hi Everybody
>First of all I must say I'm completely new to the Win32::GUI module 
>programming
>  (and Win32 in general) - I just installed (on Win'98 and latest version 
>of ActiveState Perl) binary version fetched from sourceforge.  Getting to 
>the point - to get the length and
>width of some font text I tried to use GetTextExtentPoint32 t but  I failed 
>to find the
>way to specify font to be affected in return value.
>I tried:
>
>1)
>$Window->GetTextExtentPoint32($font, "some text");
>
>2)
>$Window->SelectObject($Window->{DC}, $font);
>$Window->GetTextExtentPoint32("some text");
>
>3)
>$Window->SetFont($font);
>$Window->GetTextExtentPoint32("some text");
>
>In both cases $font was created by new WIN32::GUI::Font method and
>successfully aplied to Paint method (TextOut). No matter the -size and
>-name was the return value was the same.

($width,$height) = $Window->GetTextExtentPoint32($text,$FontObject);

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

[perl-win32-gui-users] DC and GetTextExtentPoint32

[Darek A. <dar...@eu...>]

Hi Everybody
First of all I must say I'm completely new to the Win32::GUI module programming
 (and Win32 in general) - I just installed (on Win'98 and latest version of ActiveState Perl) binary version fetched from sourceforge.  Getting to the point - to get the length and 
width of some font text I tried to use GetTextExtentPoint32 t but  I failed to find the
way to specify font to be affected in return value. 
I tried:

1)
$Window->GetTextExtentPoint32($font, "some text");

2)
$Window->SelectObject($Window->{DC}, $font);
$Window->GetTextExtentPoint32("some text");

3)
$Window->SetFont($font);
$Window->GetTextExtentPoint32("some text");

In both cases $font was created by new WIN32::GUI::Font method and 
successfully aplied to Paint method (TextOut). No matter the -size and 
-name was the return value was the same.

Regards
Darek

PS. Perhaps I missed something It's very late in the night.
-- 

_______________________________________________
Sign-up for your own FREE Personalized E-mail at Mail.com
http://www.mail.com/?sr=signup

[perl-win32-gui-users] Textfield / RichEdit problem concerning CANCEL key

[Joey L. <in...@pd...>]

Hi,
 
If I use DialogBox and create a multiline Textfield or a RichEdit, and
if I press "cancel" when the control has the focus, the dialog window
disappears (I'm afraid it's destroyed at this point). Do you happen to
know what to prevent this to happen? Assigning "-cancel" option to a
button won't work; the _Click event is not called. Thanks for any hints,
 
Joey
 

Re: [perl-win32-gui-users] Alarm clock

[Johan L. <jo...@ba...>]

Ed wrote:
>The way I would probably do this, without a gui, is to
>read the file,
>figure out what time to go off, convert it to seconds
>and sleep until then.
>But I can't do that because the main gui loop is
>always running waiting
>for an event, correct?
>How would I do a periodic check on the alarm time, and
>not interfere
>with the main gui loop, can these be reconciled?

Take a look at the Win32::GUI::Timer control. It can be set to trigger an 
event every n milliseconds(?) in which you can do your stuff.


/J

-------- ------ ---- --- -- --  --  -    -     -      -         -
Johan Lindström    Sourcerer @ Boss Casinos     jo...@ba...

Latest bookmark: "CGI Help Guide"
http://www.perlmonks.org/index.pl?node=CGI%20Help%20Guide
dmoz (1 of 8): /Computers/Programming/Languages/Perl

[perl-win32-gui-users] Alarm clock

[ed <co...@ya...>]

Hey all.   I want to write a simple alarm clock that
will play 
a wav file, probably using win32::sound .
My idea for this little app, is that I will be able to
enter the time 
that it will go off, and allow it go off at specified
intervals afterwards. 
For instance, I want to set it to go off at 12:00pm
and play the 
wav file every 5 minutes until I turn it off.  
The way I would probably do this, without a gui, is to
read the file, 
figure out what time to go off, convert it to seconds
and sleep until then. 
But I can't do that because the main gui loop is
always running waiting
for an event, correct?
How would I do a periodic check on the alarm time, and
not interfere 
with the main gui loop, can these be reconciled?
I haven't really done any gui programming, I've just
messed around a little bit 
with win32::gui .  So my question may make rather
evident that I don't have a clue :)

tia,
--ed



__________________________________________________
Do You Yahoo!?
Yahoo! Tax Center - online filing with TurboTax
http://taxes.yahoo.com/

RE: [perl-win32-gui-users] Using a \t in a text of a treeview

[Guillem C. W. <vac...@es...>]

Ok, I tried before to make a monospaced font...but I didn't know how to =
do it.....but now ...it works.

I use Courier New font (a monospaced font)

our $fo_fixa  =3DWin32::GUI::Font->new (-bold =3D> 0,-name=3D>"Courier =
New",-size=3D>13);

and counting length.....

The tree:

 $TV =3D $w_tutor->AddTreeView(
    -name      =3D> "Mailtool::tutor::Tree",
    -text      =3D> "hello world!",
    -width     =3D> $w_tutor->ScaleWidth,=20
    -height    =3D> $w_tutor->ScaleHeight-40,
    -left      =3D> 0,=20
    -top       =3D> 40,
    -lines     =3D> 1,=20
    -rootlines =3D> 1,
    -buttons   =3D> 1,
    -visible   =3D> 1,
    -imagelist =3D> $IL,
  -checkboxes =3D> 1,
 -font  =3D> $ajudes::mevesfonts::fo_fixa,
  #  -hottrack  =3D> 1,
);=20

Easy!

Cheers




Cheers=20

-----Mensaje original-----
De: Sean Healy <jal...@ho...>
Para: vac...@es... <vac...@es...>; =
per...@li... =
<per...@li...>
Fecha: divendres, 12 / abril / 2002 15:49
Asunto: RE: [perl-win32-gui-users] Using a \t in a text of a treeview


>>I'm still trying to do to do two colums but no results. I also tryed =
to=20
>>count the length of the string and it works good on stdout but no in =
the=20
>>window ,
>
>
>It might work in the window if you used a monospaceed font, but a =
better=20
>idea is probably to use a ListView with
>
>-nocolumnheader =3D> 1,
>
>(this option is undocumented) and just put your text in two different=20
>columns.  The only problem is that ListView does not indent, so you'll =
have=20
>to prepend whitespace to your entries.  And if you want images, there =
may=20
>not be a way at all to indent the images.  (In that case, you'll =
probably=20
>have to use a monospaced font.)
>
>If this works, please send me a copy of the successful code.  A =
multi-column=20
>treeview seems like something I'd want to have around.
>
>_________________________________________________________________
>Join the world=92s largest e-mail service with MSN Hotmail.=20
>http://www.hotmail.com
>
>