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

Re: [perl-win32-gui-users] system tray, notifyicon and stuff

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

When you hide the window, also disable it.  When you want to make the
window usable again, enable it and show it.  This will make the
whatever-it-is-you-call-it disappear from the task bar while it is
minimized, but appear when the window is visible.

If you never want it to appear, make a parent window for your current
main window, and then eliminate the parent window.  Then you never get a
whatever-it-is-you-call-it in the task bar whether the window is
minimized or not.

ma...@mm... wrote:
> 
> hi. i've added a notify icon to sit in the system tray when a window is
> minimised. what i'd like to try and do is make the
> whatever-it-is-you-call-it disappear from the task bar. i figured it would
> probably have something to do with window styles, if anything, but i can't
> find anything about it in msdn. any ideas?
> 
> thanx in advance
> 
> _______________________________________________________________
> 
> Don't miss the 2002 Sprint PCS Application Developer's Conference
> August 25-28 in Las Vegas -- http://devcon.sprintpcs.com/adp/index.cfm
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

-- 
Glenn
=====
Remember, 84.3% of all statistics are made up on the spot.

[perl-win32-gui-users] system tray, notifyicon and stuff

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

hi. i've added a notify icon to sit in the system tray when a window is
minimised. what i'd like to try and do is make the
whatever-it-is-you-call-it disappear from the task bar. i figured it would
probably have something to do with window styles, if anything, but i can't
find anything about it in msdn. any ideas?

thanx in advance

[perl-win32-gui-users] GetOpenFileName and multiple selections

[H C <key...@ya...>]

I searched the list for the subject, and found two
answers...Jenda's Win32::FileOp, or
GUI::GetOpenFileName being updated to allow for the
necessary flags to permit multiple selections.

Has GetOpenFileName been updated yet?  The posts I
found were from Sept/Oct '01...

Thanks,

Carv


__________________________________________________
Do You Yahoo!?
Yahoo! - Official partner of 2002 FIFA World Cup
http://fifaworldcup.yahoo.com

Re: [perl-win32-gui-users] listview columns

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

>hi. i'm doing a program at the moment that needs to log its output to
>something and i've chosen a listview because it seems to work best with
>that. however, the column header up the top doesn't really suit what i'm
>trying to achieve. i've tried doing -style => LVS_NOCOLUMNHEADER and the
>same with -addstyle and -exstyle but the header remains. is it possible to
>get rid of it?

I don't think Win32::GUI exports that constant - that may be your problem.  
Try this:

-addstyle => 0x4000

I haven't tested this solution.

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

[perl-win32-gui-users] listview columns

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

hi. i'm doing a program at the moment that needs to log its output to
something and i've chosen a listview because it seems to work best with
that. however, the column header up the top doesn't really suit what i'm
trying to achieve. i've tried doing -style => LVS_NOCOLUMNHEADER and the
same with -addstyle and -exstyle but the header remains. is it possible to
get rid of it?

thanx

RE: [perl-win32-gui-users] smoothing of edges

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

Maybe is that or not that you want:

If your intention is to group some widgets, the easy solution to feel "gr=
oup
sensation" is using a label with -etched option at the correct position
around the widgets.

For example:

my $f3 =3D$w_dades->AddLabel(
     -frame=3D>etched,
      -foreground =3D> [0, 0, 0],  # Color del text: negre
      -width  =3D> 250,
        -height =3D> 30,
      -left   =3D> 515,
      -top    =3D> 530,
  -text =3D>"",);



Guillem Cunillera
-----Mensaje original-----
De: Johan Lindstrom <jo...@ba...>
Para: per...@li...
<per...@li...>
Fecha: dimarts, 21 / maig / 2002 15:33
Asunto: Re: [perl-win32-gui-users] smoothing of edges


>Me:
>>You can't (or it is very difficult to) change the look of the control. =
But
>>you can paint the control yourself, giving you exactly the look you wan=
t.
>
>I'm primarily talking about the Label control here, which is easy to
>render. I wouldn't wanna try to paint a RichEdit control, nor is it
>possible since it is nessecary to replace the control control wiht a
>Graphic control. You can do that with a Label, but obviously not with a
>RichEdit control :)
>
>
>/J
>
>-------- ------ ---- --- -- --  --  -    -     -      -         -
>Johan Lindstr=F6m    Sourcerer @ Boss Casinos     jo...@ba...
>
>Latest bookmark: "no tv"
>http://use.perl.org/comments.pl?sid=3D4416&cid=3D6621
>dmoz (1 of 7): /Computers/Programming/Languages/Perl
>
>
>
>_______________________________________________________________
>
>Don't miss the 2002 Sprint PCS Application Developer's Conference
>August 25-28 in Las Vegas -- http://devcon.sprintpcs.com/adp/index.cfm
>
>_______________________________________________
>Perl-Win32-GUI-Users mailing list
>Per...@li...
>https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

[perl-win32-gui-users] The correct way to put -addstyles in pm modules

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

I am testing my program in order to avoid the warnings of -w option.

Firslty question:
    Is possible to avoid the continous warning which appears when the =
program call Win32::GUI::Dialog ?

Second :
     Which is the correct way to reference the constant in .pm modules ?
    I find people who write thinks like:

    -addstyle    Win32::GUI::constant("WS_VISIBLE", 0)

    what is this 0 ?


Thanks again ,

Guillem

Re: [perl-win32-gui-users] smoothing of edges

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

Me:
>You can't (or it is very difficult to) change the look of the control. But 
>you can paint the control yourself, giving you exactly the look you want.

I'm primarily talking about the Label control here, which is easy to 
render. I wouldn't wanna try to paint a RichEdit control, nor is it 
possible since it is nessecary to replace the control control wiht a 
Graphic control. You can do that with a Label, but obviously not with a 
RichEdit control :)


/J

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

Latest bookmark: "no tv"
http://use.perl.org/comments.pl?sid=4416&cid=6621
dmoz (1 of 7): /Computers/Programming/Languages/Perl

Re: [perl-win32-gui-users] smoothing of edges

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

At 08:47 2002-05-21 -0400, Jonathan Southwick wrote:
>I have a bitmap placed in a sunken label.  The label only contains the 
>bitmap.  I have a richedit control to the right of  label that is the same 
>height as the label.  What I am wanting is for the label to look like iot 
>is part of the richedit control without having the right edge of the label 
>or left edge of the richedit control showing as separate edges ... 
>basically I want them smoothed together.
>
>Does that make sense?  Can it be done?

You can't (or it is very difficult to) change the look of the control. But 
you can paint the control yourself, giving you exactly the look you want.

Take a look at The GUI Loft, in which I do exactly that (including painting 
a bitmap on a Graphic control, which is actually VERY tricky until you 
figure out what "the right thing" is). Look at the paint code for the Label 
control.


/J

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

Latest bookmark: "no tv"
http://use.perl.org/comments.pl?sid=4416&cid=6621
dmoz (1 of 7): /Computers/Programming/Languages/Perl

[perl-win32-gui-users] smoothing of edges

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

That may be the wrong topic but here is what I am actually wanting to do.

I have a bitmap placed in a sunken label.  The label only contains the 
bitmap.  I have a richedit control to the right of  label that is the same 
height as the label.  What I am wanting is for the label to look like iot 
is part of the richedit control without having the right edge of the label 
or left edge of the richedit control showing as separate edges ... 
basically I want them smoothed together.

Does that make sense?  Can it be done?

Jonathan

Re: [perl-win32-gui-users] Sunken labels

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

Thanks.  I never thought it could be that easy!.

Jonthan

At 5/21/2002 09:14 AM, Johan Lindstrom wrote:
>At 12:29 2002-05-20 -0400, Jonathan Southwick wrote:
>>Is there a way to make labels appear sunken ... or any widget for that=20
>>matter?
>
>Try adding this option when you create the label:
>
>-sunken =3D> 1,
>
>
>/J
>
>-------- ------ ---- --- -- --  --  -    -     -      -         -
>Johan Lindstr=F6m    Sourcerer @ Boss Casinos     jo...@ba...
>
>Latest bookmark: "no tv"
>http://use.perl.org/comments.pl?sid=3D4416&cid=3D6621
>dmoz (1 of 7): /Computers/Programming/Languages/Perl
>
>
>
>_______________________________________________________________
>
>Don't miss the 2002 Sprint PCS Application Developer's Conference
>August 25-28 in Las Vegas -- http://devcon.sprintpcs.com/adp/index.cfm
>
>_______________________________________________
>Perl-Win32-GUI-Users mailing list
>Per...@li...
>https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

Re: [perl-win32-gui-users] Modularization broke Win32 - help?

[Morbus I. <mo...@di...>]

>Controls will default to calling event handlers in package main unless you
>-name your controls with the package name as a prefix (e.g.
>"Amphetadesk::OS::Windows::myWindow"), which makes it difficult to access
>them[1].
>
>If you try that, does it work?

Yup. Shortly after I sent my original question, I hit upon an old message
in the archives saying pretty much the same thing. After changing
everything over to the package name (I probably changed too much, but hey),
everything is working perfectly. Thanks!

-- 
Morbus Iff ( i'm the droid you're looking for )
Culture: http://www.disobey.com/ and http://www.gamegrene.com/
Tech: http://www.oreillynet.com/pub/au/779 - articles and weblog
icq: 2927491 / aim: akaMorbus / yahoo: morbus_iff / jabber.org: morbus

Re: [perl-win32-gui-users] Modularization broke Win32 - help?

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

At 16:34 2002-05-17 -0400, Morbus Iff wrote:
>I've recently switched everything over to modules/packages, and
>the above code has been given a standard modular header:
>
>   package AmphetaDesk::OS::Windows;

[please correct me if I'm wrong here, this is how I understand it to work]

Event handlers you create here will be located in this package.

Controls will default to calling event handlers in package main unless you 
-name your controls with the package name as a prefix (e.g. 
"Amphetadesk::OS::Windows::myWindow"), which makes it difficult to access 
them[1].

I use modules all the time and I usually place all my event handler subs in 
package main like this:

sub ::myWindow_Terminate { }


If you try that, does it work?


/J

[1] Idea: In a future version of Win32::GUI, the control could keep track 
of the containing package itself, possibly using caller() to determine 
which event handler to use.

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

Latest bookmark: "no tv"
http://use.perl.org/comments.pl?sid=4416&cid=6621
dmoz (1 of 7): /Computers/Programming/Languages/Perl

Re: [perl-win32-gui-users] Sunken labels

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

At 12:29 2002-05-20 -0400, Jonathan Southwick wrote:
>Is there a way to make labels appear sunken ... or any widget for that matter?

Try adding this option when you create the label:

-sunken => 1,


/J

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

Latest bookmark: "no tv"
http://use.perl.org/comments.pl?sid=4416&cid=6621
dmoz (1 of 7): /Computers/Programming/Languages/Perl

RE: [perl-win32-gui-users] terminate

[Rogers, J. <rog...@oc...>]

> 
> sub Settings_Terminate {
>     $Window2->Hide();
>     return 0;
> }
> 
> 
>

Settings is the -name of the pop up Window ? 

must be the windows name . EG

my $Window2 = new Win32::GUI::Window(
    -title   => 'hello.pl',
    -left    => 100,
    -top     => 100,
    -width   => 150,
    -height  => 100,
    -name    => 'PoPupWindow',
    -visible => 1,
);

sub PoPupWindow_Terminate {
     $Window2->Hide();
     return 0;


would do what you want.

[perl-win32-gui-users] accelerators

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

hi. more about accelerators. i posted a question about them on the
perlmonks site and the response was that accelerators actually worked in a
previous version of win32::gui but they were broken later. can anyone
verify this and if so does anyone have a copy of the version that it works
in?

thanx

[perl-win32-gui-users] terminate

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

i'm having a problem with a little popup window. if i click on the x the
close the window and then click on settings to open it again, it doesn't
show. however  if i click on save and exit, when i click on settings it
will show itself. code below...

sub Settings_Click {
    &GetSettings;

    $Window2->DunBox->Change(-text => $dun);
    $Window2->StoreField->Change(-text => $storecode);

    $Window2->{-dialogui} = 1;
    $Window2->Show();
}


sub SaveAndExit_Click {
    $config = Config::IniFiles->new(-file => "settings.ini");
    $dun = $Window2->DunBox->Text();
    $config->setval('ARIAnet','Connection',$dun);
    $config->RewriteConfig;
    $Window2->Hide();
}


sub Settings_Terminate {
    $Window2->Hide();
    return 0;
}

[perl-win32-gui-users] Sunken labels

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

Is there a way to make labels appear sunken ... or any widget for that matter?

Jonathan

Re: [perl-win32-gui-users] keystrokes

[Mark Di N. <amo...@ih...>]

i've dug through the documentation and found win32::gui::accelerator and
win32::gui::acceleratortable and -accel -accelerators and -acceleratortable
and i've tried a number of combinations of these but it doesn't seem to
work. are these deprecated or are they supposed to work?


----- Original Message -----
From: <Kev...@al...>
To: "Mark Di Nicola" <amo...@ih...>
Cc: <ma...@mm...>; <per...@li...>;
<per...@li...>; "Peter Eisengrein"
<Pet...@at...>
Sent: Sunday, May 19, 2002 2:34 AM
Subject: Re: [perl-win32-gui-users] keystrokes


>
> Mark,
>
> I think something like the example at the below used to work but it
doesn't
> seem to work any more on my system.  Aldo's PRIDE example had something
> like this in it but this doesn't work now on my system either (it only
> worked if  I commented out the " -class    => $EditorClass," line from the
> definition of the RichEdit control).
>
> Hopefully you'll have better luck than me getting this to work.
>
> Cheers,
>
> Kev.
>
> use Win32::GUI;
>
> $Win = new Win32::GUI::Window(
>       -left   => 341,
>       -top    => 218,
>       -width  => 300,
>       -height => 300,
>       -name   => "Win",
>       -text   => "A Window"
>       );
>
> $Win->Show();
>
> $Win->AddRichEdit(
>        -text    => "",
>        -name    => "MyEdit",
>        -multiline => 1,
>        -left    => 9,
>        -top     => 14,
>        -width   => 271,
>        -height  => 248,
>        -addexstyle  => WS_EX_CLIENTEDGE,
>        -addstyle    => WS_CHILD | WS_VISIBLE | WS_VSCROLL | WS_HSCROLL
>                        | ES_LEFT | ES_MULTILINE | ES_AUTOHSCROLL |
> ES_AUTOVSCROLL,
>       );
>
> Win32::GUI::Dialog();
>
> sub MyEdit_KeyPress {
>   my $key = shift;
>   print "Key: $key\n";
> # do what ever action you want depending on the value of key
> }
>
> sub MyEdit_Change {
>   print "Richedit changed\n";
> }
>
> sub Win_Terminate {
>    return -1;
> }
>
>
> |---------+------------------------------------------------>
> |         |           "Mark Di Nicola"                     |
> |         |           <amo...@ih...>               |
> |         |           Sent by:                             |
> |         |           per...@li...ur|
> |         |           ceforge.net                          |
> |         |                                                |
> |         |                                                |
> |         |           18/05/2002 01:51                     |
> |         |                                                |
> |---------+------------------------------------------------>
>
>---------------------------------------------------------------------------
-------------------|
>   |
|
>   |       To:       "Peter Eisengrein" <Pet...@at...>,
<ma...@mm...>,           |
>   |        <per...@li...>
|
>   |       cc:
|
>   |       Subject:  Re: [perl-win32-gui-users] keystrokes
|
>
>---------------------------------------------------------------------------
-------------------|
>
>
>
>
>
> thanks. have you got any examples on how its  supposed to be done?
> ----- Original Message -----
> From:  Peter  Eisengrein
> To: 'ma...@mm...' ; per...@li...
> Sent: Saturday, May 18, 2002 4:29  AM
> Subject: RE: [perl-win32-gui-users]  keystrokes
>
> There is an 'accelerator' method which does what I think you  want but
I've
> never been able to make it work. You can fake some of it if the  keystroke
> has an associated number value.
>
>
> > -----Original Message-----
> >  From: ma...@mm... [mailto:ma...@mm...]
> > Sent: Thursday, May 16, 2002 20:11
> >  To: per...@li...
> > Subject: [perl-win32-gui-users] keystrokes
> >
> >
> > hi. is there any way of associating a keystroke with
> > something, like alt+s
> > to bring up a settings window?
> >
> >
> >  _______________________________________________________________
> >
> > Have big pipes?  SourceForge.net is looking for download
> > mirrors.  We supply
> > the hardware. You get the recognition.  Email Us:
> > ban...@so...
> > _______________________________________________
> > Perl-Win32-GUI-Users mailing list
> > Per...@li...
> > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> >
>
>
>
>
>
> _______________________________________________________________
> Hundreds of nodes, one monster rendering program.
> Now that's a super model! Visit http://clustering.foundries.sf.net/
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
>

Re: [perl-win32-gui-users] keystrokes

[<Kev...@al...>]

Mark,

I think something like the example at the below used to work but it doesn't
seem to work any more on my system.  Aldo's PRIDE example had something
like this in it but this doesn't work now on my system either (it only
worked if  I commented out the " -class    => $EditorClass," line from the
definition of the RichEdit control).

Hopefully you'll have better luck than me getting this to work.

Cheers,

Kev.

use Win32::GUI;

$Win = new Win32::GUI::Window(
      -left   => 341,
      -top    => 218,
      -width  => 300,
      -height => 300,
      -name   => "Win",
      -text   => "A Window"
      );

$Win->Show();

$Win->AddRichEdit(
       -text    => "",
       -name    => "MyEdit",
       -multiline => 1,
       -left    => 9,
       -top     => 14,
       -width   => 271,
       -height  => 248,
       -addexstyle  => WS_EX_CLIENTEDGE,
       -addstyle    => WS_CHILD | WS_VISIBLE | WS_VSCROLL | WS_HSCROLL
                       | ES_LEFT | ES_MULTILINE | ES_AUTOHSCROLL |
ES_AUTOVSCROLL,
      );

Win32::GUI::Dialog();

sub MyEdit_KeyPress {
  my $key = shift;
  print "Key: $key\n";
# do what ever action you want depending on the value of key
}

sub MyEdit_Change {
  print "Richedit changed\n";
}

sub Win_Terminate {
   return -1;
}


|---------+------------------------------------------------>
|         |           "Mark Di Nicola"                     |
|         |           <amo...@ih...>               |
|         |           Sent by:                             |
|         |           per...@li...ur|
|         |           ceforge.net                          |
|         |                                                |
|         |                                                |
|         |           18/05/2002 01:51                     |
|         |                                                |
|---------+------------------------------------------------>
  >----------------------------------------------------------------------------------------------|
  |                                                                                              |
  |       To:       "Peter Eisengrein" <Pet...@at...>, <ma...@mm...>,           |
  |        <per...@li...>                                          |
  |       cc:                                                                                    |
  |       Subject:  Re: [perl-win32-gui-users] keystrokes                                        |
  >----------------------------------------------------------------------------------------------|





thanks. have you got any examples on how its  supposed to be done?
----- Original Message -----
From:  Peter  Eisengrein
To: 'ma...@mm...' ; per...@li...
Sent: Saturday, May 18, 2002 4:29  AM
Subject: RE: [perl-win32-gui-users]  keystrokes

There is an 'accelerator' method which does what I think you  want but I've
never been able to make it work. You can fake some of it if the  keystroke
has an associated number value.


> -----Original Message-----
>  From: ma...@mm... [mailto:ma...@mm...]
> Sent: Thursday, May 16, 2002 20:11
>  To: per...@li...
> Subject: [perl-win32-gui-users] keystrokes
>
>
> hi. is there any way of associating a keystroke with
> something, like alt+s
> to bring up a settings window?
>
>
>  _______________________________________________________________
>
> Have big pipes?  SourceForge.net is looking for download
> mirrors.  We supply
> the hardware. You get the recognition.  Email Us:
> ban...@so...
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

Re: [perl-win32-gui-users] keystrokes

[Mark Di N. <amo...@ih...>]

RE: [perl-win32-gui-users] keystrokesthanks. have you got any examples =
on how its supposed to be done?
  ----- Original Message -----=20
  From: Peter Eisengrein=20
  To: 'ma...@mm...' ; per...@li...=20
  Sent: Saturday, May 18, 2002 4:29 AM
  Subject: RE: [perl-win32-gui-users] keystrokes


  There is an 'accelerator' method which does what I think you want but =
I've never been able to make it work. You can fake some of it if the =
keystroke has an associated number value.




  > -----Original Message-----=20
  > From: ma...@mm... [mailto:ma...@mm...]=20
  > Sent: Thursday, May 16, 2002 20:11=20
  > To: per...@li...=20
  > Subject: [perl-win32-gui-users] keystrokes=20
  >=20
  >=20
  > hi. is there any way of associating a keystroke with=20
  > something, like alt+s=20
  > to bring up a settings window?=20
  >=20
  >=20
  > _______________________________________________________________=20
  >=20
  > Have big pipes? SourceForge.net is looking for download=20
  > mirrors. We supply=20
  > the hardware. You get the recognition. Email Us:=20
  > ban...@so...=20
  > _______________________________________________=20
  > Perl-Win32-GUI-Users mailing list=20
  > Per...@li...=20
  > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users=20
  >=20

[perl-win32-gui-users] Grabbing the browser URL

[Marcus <li...@wo...>]

Can you grab the browser URL with Win32::GUI?

I remember somebody was writing a control to open IE windows.

Marcus

[perl-win32-gui-users] Modularization broke Win32 - help?

[Morbus I. <mo...@di...>]

Good day. I'm the developer of popular AmphetaDesk program:

   http://www.disobey.com/amphetadesk/

Anyways, I use Win32::GUI to make the GUI for the Windows side of things, 
and then I use perl2exe to make it into a binary for distribution. This has 
been working fine for about a year now.

In the current release version, I'm using simple perl libraries -
no packages or modules. The current code is here:

  http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/amphetadesk/AmphetaDesk/
       lib/Windows.pl?rev=1.37&content-type=text/vnd.viewcvs-markup

I've recently switched everything over to modules/packages, and
the above code has been given a standard modular header:

   package AmphetaDesk::OS::Windows;

   use strict; $|++;
   use AmphetaDesk::Settings;
   use AmphetaDesk::Utilities;
   use Win32::GUI;
   require Exporter;
   use vars qw( @ISA @EXPORT );
   @ISA = qw(Exporter);
   @EXPORT = qw( gui_init gui_listen gui_note open_url );

Besides the above addition, it's identical to what I've been using in the 
past. Unfortunately, things aren't working 100%. The main window is drawn 
correctly, the systray icon is shown, the various menu items will expand, 
but NOTHING seems to work save the "gui_init" and "gui_listen" routines:

  - the systray right click menu doesn't show up.
  - the File>Exit or Tools sub-items display, but don't work.
  - the X box closes the current window, but doesn't release the memory.

I've tried numerous little things to get this working (like EXPORTing all 
of the my'd variables into the parent namespace, which is now 
AmphetaDesk::, not main::), and nothing works.

Any ideas?


-- 
Morbus Iff ( i'm the droid you're looking for )
Culture: http://www.disobey.com/ and http://www.gamegrene.com/
Tech: http://www.oreillynet.com/pub/au/779 - articles and weblog
icq: 2927491 / aim: akaMorbus / yahoo: morbus_iff / jabber.org: morbus

RE: [perl-win32-gui-users] keystrokes

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

There is an 'accelerator' method which does what I think you want but I've
never been able to make it work. You can fake some of it if the keystroke
has an associated number value.



> -----Original Message-----
> From: ma...@mm... [mailto:ma...@mm...]
> Sent: Thursday, May 16, 2002 20:11
> To: per...@li...
> Subject: [perl-win32-gui-users] keystrokes
> 
> 
> hi. is there any way of associating a keystroke with 
> something, like alt+s
> to bring up a settings window?
> 
> 
> _______________________________________________________________
> 
> Have big pipes? SourceForge.net is looking for download 
> mirrors. We supply
> the hardware. You get the recognition. Email Us: 
> ban...@so...
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

RE: [perl-win32-gui-users] Strange end of my program when I roll the wheel of my mouse while downloading information from the web

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

I don't understand your explanation , but in order to avoid the possible
problems of the Treeview events I remake my Window:
I delete all events from the Treeview, and replaced the desired actions w=
ith
another Comboboxes in the same window (the most stupid easy solution) , b=
ut
the same error still ocurrs when I roll the wheel of the mouse when I am
downloading web information.
The  routine of LWP for downloading information includes a DoEvents() ins=
ide
a subroutine such it was explained for Flame in one mailing list.
It could be a bug of the Treeview but I don't know what kind of problem
could be.
I will include like a bug of my program   ;>(

Thanks again,
Guillem



-----Mensaje original-----
De: Johan Lindstrom <jo...@ba...>
Para: Per...@li...
<Per...@li...>
Fecha: divendres, 17 / maig / 2002 13:04
Asunto: RE: [perl-win32-gui-users] Strange end of my program when I roll =
the
wheel of my mouse while downloading information from the web


>At 11:57 2002-05-17 +0200, Guillem Cunillera Wefers wrote:
>>I only use the NodeClick, and it seems to go wrigth, but:
>>- Some NodeClick events are send when I haven't done, for instance when=
 I
>>roll the wheel
>
>Maybe this is related to the problems I had, I don't know. This is how I
>"solved" my problem:
>
>-----
>I wrote:
>>If I don't actually double click on the node, the problem disappears. I=
f I
>>call the DblCLick() sub from e.g. a NodeClick() event or a button Click=
()
>>it works fine.
>
>And so it went away.
>
>The workaround--I'm big on workarounds, having a past as a web designer-=
-is
>to not do important stuff in the DblClick() event. What I do now is this=
:
>
>In the DblClick() event I set a property, eventWrapper, to the code I wa=
nt
>to execute. Nothing else. A timer triggers 50 times a second, looking at
>the eventWrapper property. If it's nonempty, the timer evals the string.
Voila!
>
>The timer doesn't seem to affect performance, and the delay between doub=
le
>click and action isn't noticable unless you know it's there.
>
>It's not industrial-strength tested yet, but it seems to work fine.
>-----
>
>
>/J
>
>-------- ------ ---- --- -- --  --  -    -     -      -         -
>Johan Lindstr=F6m    Sourcerer @ Boss Casinos     jo...@ba...
>
>Latest bookmark: "HowStuffWorks - Learn how Everything Works!"
>http://www.howstuffworks.com/
>
>
>
>_______________________________________________________________
>
>Have big pipes? SourceForge.net is looking for download mirrors. We supp=
ly
>the hardware. You get the recognition. Email Us: bandwidth@sourceforge.n=
et
>_______________________________________________
>Perl-Win32-GUI-Users mailing list
>Per...@li...
>https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
>