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

[perl-win32-gui-users] Re: Win32::GUI Release 0.0.665

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

Hi All

I've just built and packaged a PPM and sent it off to Aldo so hopefully it will
be available soon.

Oh, and yes - just tried out tool tips ... fantastic !

Cheers

Paul



*******************************************************************************
Important.
Confidentiality: This communication is intended for the above-named person and
may be confidential and/or legally privileged. Any opinions expressed in this
communication are not necessarily those of the company. If it has come to you
in error you must take no action based on it, nor must you copy or show it to
anyone; please delete/destroy and inform the sender immediately.

Monitoring/Viruses
Orange may monitor all incoming and outgoing emails in line with current
legislation.  Although we have taken steps to ensure that this email and
attachments are free from any virus, we advise that in keeping with good
computing practice the recipient should ensure they are actually virus free.

Orange PCS Limited is a subsidiary of Orange SA and is registered in England No
2178917, with its address at St James Court, Great Park Road, Almondsbury Park,
Bradley Stoke, Bristol BS32 4QJ.
*******************************************************************************

[perl-win32-gui-users] Waiting the user to continue the download of information from the web

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

Hello again,

In my aplication I have to acces  a lot of times to a web information, =
but I don't want to die my apllication if a non is_succes and I want to =
put a message error and waiting the answer of the user if he wants to =
insist or abort. I don't know if maybe yesterday I drunk too much but =
today I have no idea.
Can anybody help me ?
I include for you the code of one of them that don't go correctly for =
this reason, i have to use semaphores or something like this ?
This subroutine is not inside a module that uses any window.

 # -------------------------------------
sub obtenirget {
# -------------------------------------
# permet obtenir la informacio de la direcci=F3 web subministrada

 my $llistotal=3Dshift(@_);

 $finalitzat=3D0;
 $intents=3D0;
 while ($finalitzat=3D=3D0)
 {
  my $ua =3D LWP::UserAgent->new;
  my $req =3D HTTP::Request->new(GET =3D> $llistotal);
  my $res =3D $ua->request($req);

  if ($res->is_success)
  {
   $contingut =3D $res->content;=20
   $contingut =3D~ s/\015?\012/\n/g; ##per als salts de HTML
   $contingut =3D~ s/\015\012?/\n/g; ## per a DOS =20
   $finalitzat=3D1;
  } else=20
  {
   $intents++;
   if ($intents % 5)
   {
    $texterror=3D"Error No s ha obtingut la llista satisfactoriament =
".$res->status_line;
       Mailtool::errors::visualitza($texterror);
   }
  }
 =20
 }
=20
 return($contingut);
}

[perl-win32-gui-users] Win32::GUI Release 0.0.665

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

hello people,

finally, an update! this release of Win32::GUI introduces many new features,
the most important being:

- the NEM (New Event Model), which allows for something like:

  $Window->AddButton(
      -text => 'say hello',
      -onClick => sub { print "hello, world!\n"; },
  );

  *** editor's note *** there are actually many gotchas with NEM,
  I'll elaborate more on this in a separate post.

- tooltips are now supported on most controls with the -tip => STRING
  option.

- ListView checkboxes can now be managed with the ItemCheck() method;
  there's also a new ItemCheck event for ListViews that gets fired when
  you toggle an item's checkbox.

the biggest changes are in the codebase, which is now splitted in several
files. please note that something - particularly the NEM - may be broken
in this release (you already knew it, huh? ;-)

source code is available at my site (http://dada.perl.it, which is up and
running again :-) and at SourceForge. PPM binaries will follow ASAP -- if
someone wants to pack the binaries for us, please do it (you'll certainly
be faster than me ;-) and send me the files so that I can put it online.

cheers,
Aldo

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

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

[Ultimate R. D. <scc...@ho...>]

Thanks, I'll look into it.  Now I have to find a practical means to allow 
people to format the text within the window. (Really, converting it isn't 
even that great a problem, it's allowing people to hit a bold button etc...


 > -----Original Message-----
 > From: Ultimate Red Dragon [mailto:scc...@ho...]
 > Sent: Saturday, February 23, 2002 12:58 PM
 > To: per...@li...
 > Subject: [perl-win32-gui-users] (no subject)
 >
 >
 > Has anyone written/know how it could easily be done, a
 > WYSIWYG HTML editor
 > using a RichEdit field?
 >
 > It doesn't need to do much, just links, bold, italics, underline.
 >

ppm install RTF::Parser

There is no documentation that I could find.  It installes rtf2html.pl and 
rtf2text.pl in your perl/bin folder.  You can use that to convert an RTF 
file to HTML.  I have only done one transformation, so I cannot help you 
any.  I dont even know if there is a string method to avoid the intermediate 
save to disk step.  If you are feeling nice, maybe you can contact the 
maintainer and have this added or add yourself and push to CPAN/PPM with 
docs.



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

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

[Frazier, J. J. <Joe...@Pe...>]

> -----Original Message-----
> From: Ultimate Red Dragon [mailto:scc...@ho...]
> Sent: Saturday, February 23, 2002 12:58 PM
> To: per...@li...
> Subject: [perl-win32-gui-users] (no subject)
>=20
>=20
> Has anyone written/know how it could easily be done, a=20
> WYSIWYG HTML editor=20
> using a RichEdit field?
>=20
> It doesn't need to do much, just links, bold, italics, underline.
>=20

ppm install RTF::Parser

There is no documentation that I could find.  It installes rtf2html.pl =
and rtf2text.pl in your perl/bin folder.  You can use that to convert an =
RTF file to HTML.  I have only done one transformation, so I cannot help =
you any.  I dont even know if there is a string method to avoid the =
intermediate save to disk step.  If you are feeling nice, maybe you can =
contact the maintainer and have this added or add yourself and push to =
CPAN/PPM with docs.

[perl-win32-gui-users] Problem With Fork and Win32::GUI

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

I'm getting a problem using using fork() with Win32::GUI and wondered if
anyone else had had any success.

I can get a program to create a pipe for communication, and fork.  I then
have the parent handle the window actions and the child do any actual work
required.  When a windows event happens the parent tells the child what to
do, the child does perfoms the required action and updates the window with
the required results.  The advantage of this method is that you can
minimise or move the window while actions are being performed.

This all works fine (and, as an aside, compiles fine with Perl2Exe) so I
decided to try a further enhancement.  One of my programs uses a module
that can give debugging info to STDOUT.  It seemed a nice idea to capture
this and display it on my window.  To do this I needed a parent to handle
the window, a child to handle screen updating and a further child (or
grandchild) to carry out the required actions.  The pipes required are from
parent to child, and child to grandchild in both directions (ie parent
tells child action to be performed, child tells grandchild, captures
grandchilds STDOUT and displays it in the required control). As psuedo code
this looks something like this

      Use Win32::GUI
      ....
      my $Win= ....
      # create windows with appropriate controls
      # create pipe for parent/child communication

      if ( fork() ) {
      # Parent with GUI event subs
      # start GUI event loop

      } else {
      # Child
      # create pipes for Child/Grandchild communication
         if ( fork() ) {
            #Child
            # loop {
            #   read command from parent
            #   report them to grandchild
            #   diplay grandchilds output in appropriate control
            # }
         } else {
            #Grand Child
            # loop {
            #   Read command from child
            #   perform required action
            #}
         }
      }

This again works fine, except if a large (I haven't tried to work out the
limit) amount of data is sent from the grandchild and displayed in what
ever contol.  When this happens the program crashes on exit.  The
grandchild and child exit correctly, memory usage shoots and then I get a
Dr Watson error.

My guess is that its something to do with memory allocation for the
control. I've tried using a RichEdit, a TextBox and even displaying the
piped data in the status bar, all with the same results.

Any suggestions?

Thanks,

Kev.

Re: [perl-win32-gui-users] Perl as EXE

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

I've been using the latest version of Perl2Exe and it works very well.  The
its doesn't require extra comments to find modules, executables are smaller
than with previous versions, they load quicker, and it works with
Win32::GUI.

Haven't tried ActiveState's PDK.

Kev.



|---------+------------------------------------------------>
|         |           "Chirhart, Brian"                    |
|         |           <bch...@fn...>                 |
|         |           Sent by:                             |
|         |           per...@li...ur|
|         |           ceforge.net                          |
|         |                                                |
|         |                                                |
|         |           26/02/2002 18:02                     |
|         |                                                |
|---------+------------------------------------------------>
  >----------------------------------------------------------------------------------------------|
  |                                                                                              |
  |       To:       per...@li...                                   |
  |       cc:                                                                                    |
  |       Subject:  [perl-win32-gui-users] Perl as EXE                                           |
  >----------------------------------------------------------------------------------------------|




I am very new to the whole Perl world, but I find it really powerful!!  I
am
curious though on whether you can run a Perl app as an EXE so the end user
would not need to have Perl installed on their PC.  Is this at all
possible?

Sorry if this question does not specifically apply to Win32-GUI....


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

RE: [perl-win32-gui-users] Perl as EXE

[Matthew W. <Mat...@Qu...>]

Check out either Perl2Exe or ActiveState's Perl Development Kit..  My
personal preference is for Activestate's PDK..

...::: Matt :::...
Special thanks go out to 
my good friends, 
Sugar and Caffeine.. 


-----Original Message-----
From: Chirhart, Brian [mailto:bch...@fn...] 
Sent: Tuesday, February 26, 2002 11:02 AM
To: per...@li...
Subject: [perl-win32-gui-users] Perl as EXE


I am very new to the whole Perl world, but I find it really powerful!!  I am
curious though on whether you can run a Perl app as an EXE so the end user
would not need to have Perl installed on their PC.  Is this at all possible?

Sorry if this question does not specifically apply to Win32-GUI....


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

[perl-win32-gui-users] Perl as EXE

[Chirhart, B. <bch...@fn...>]

I am very new to the whole Perl world, but I find it really powerful!!  I am
curious though on whether you can run a Perl app as an EXE so the end user
would not need to have Perl installed on their PC.  Is this at all possible?

Sorry if this question does not specifically apply to Win32-GUI....

RE: [perl-win32-gui-users] How I have to separe the Win32::GUI between pm module

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

>
>this seems to be exactly the problem Sean pointed out. if you call the
>'initial' function for more than one module (assuming they are all
similar),
>you're in fact calling Win32::GUI::Dialog more than one time. try removing
>the Win32::GUI::Dialog call from your modules and placing it in the main
>application, where it is called only once.


Ok !!
That's I really want, only one Win32::GUI::Dialog to prevent errors.

Cheers

Regards from Catalonia
Guillem Cunillera Wefers

RE: [perl-win32-gui-users] How I have to separe the Win32::GUI between pmmodule

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

Yes, I use also a fully qualified varible names.
I have resolve the problem changing return 0 to return -1.  I tried before,
but with a depending error.
If you can send me this module for seeing how you work with modules I will
agree you.

Guillem Cunillera i Wefers



-----Mensaje original-----
De: Kev...@al... <Kev...@al...>
Para: per...@li...
<per...@li...>;
per...@li...
<per...@li...>
Fecha: dimarts, 26 / febrer / 2002 17:09
Asunto: RE: [perl-win32-gui-users] How I have to separe the Win32::GUI
between pmmodule


>
>Guillem,
>
>I found that things worked best if I fully qualified variable names, eg
>
>      $module_a::window
>
>instead of
>
>      $window
>
>I have a module that I use that I can send you if you want to have a look.
>
>Cheers,
>
>Kev.
>
>
>
>|---------+------------------------------------------------>
>|         |           "Guillem Cunillera Wefers"           |
>|         |           <vac...@es...>            |
>|         |           Sent by:                             |
>|         |           per...@li...ur|
>|         |           ceforge.net                          |
>|         |                                                |
>|         |                                                |
>|         |           26/02/2002 15:23                     |
>|         |                                                |
>|---------+------------------------------------------------>
>
>---------------------------------------------------------------------------
-------------------|
>  |
|
>  |       To:       "Sean Healy" <jal...@ho...>,
|
>  |        <per...@li...>
         |
>  |       cc:
|
>  |       Subject:  RE: [perl-win32-gui-users] How I have to separe the
Win32::GUI between pm    |
>  |        module
|
>
>---------------------------------------------------------------------------
-------------------|
>
>
>
>
>Thank you for your attention, but these 2 possible problems doesn't appear
>in my program. I think I have a more basic problem.
>Let me present how I distribute in pseudocode, for a module that can easy
>be
>extended to more modules.
>
>-------------------
>module_a.pm
>-------------------
>
># all window definition...for instance $window_a
>
>sub initial       ##the first function that is call for another module
>{
>   ...
>   $window_a->Show()
>  Win32::GUI::Dialog
>  ...
>}
>
>sub back  ## when I come from another module with cancel...
>{
> ...
>  $window_a->Show();
>...
>}
>
>
>sub b_go_click  (an event of the window)
> {
>   .....
>   $window_a->Hide();
>   Llibreria:module_b::initial();
>   .....
>   return 0;
>  }
>
>sub window_a_Terminate
>{
> $Window->Hide();
> Llibreria::module_aa::back();
> return 0;
>}
>
>
>I am doing a terrible error ??  How is the easy way do to that without
>possible errors ?
>All explanations I will receive will be wellcome.
>Excuses for my possible English mistakes.
>A lot of thanks.
>
>
>
>
>
>
>-----Mensaje original-----
>De: Sean Healy <jal...@ho...>
>Para: vac...@es... <vac...@es...>;
>per...@li...
><per...@li...>
>Fecha: dimarts, 26 / febrer / 2002 15:36
>Asunto: Re: [perl-win32-gui-users] How I have to separe the Win32::GUI
>between pm module
>
>
>>>My question is how is possible, or where can be my error, that I need to
>>>press more than one time the window close button for the main window.
>>>If there is some example about how to work with diferrent pm modules
>>>without any problems, I will agree.
>>
>>I have had this problem in the past, and I have tracked it down to one of
>>two things:
>>
>>1) I have made a second call to Win32::GUI::Dialog inside some event sub,
>so
>>when I press the close button the first time, that event finishes, but the
>>original Win32::GUI::Dialog is still waiting for a -1 to be returned.  If
>>you have other windows with their own WIn32::GUI::Dialog calls, be sure
>>whatever sub causes a secondary window to close also returns -1.
>>
>>2) I am inside a Win32::GUI::DoEvents loop, and returning -1 will have no
>>real effect until the loop terminates.  (Unless, of course, you explicitly
>>check for it - but I never do, because in every situation I've run across,
>>it's easier and more efficient to use Win32::GUI::Dialog than to use
>>Win32::GUI::DoEvents and check for -1.)
>>
>>_________________________________________________________________
>>Join the world's largest e-mail service with MSN Hotmail.
>>http://www.hotmail.com
>>
>>
>
>
>_______________________________________________
>Perl-Win32-GUI-Users mailing list
>Per...@li...
>https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
>
>
>
>_______________________________________________
>Perl-Win32-GUI-Users mailing list
>Per...@li...
>https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

RE: [perl-win32-gui-users] How I have to separe the Win32::GUI between pm module

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

Guillem,

I found that things worked best if I fully qualified variable names, eg=


      $module_a::window

instead of

      $window

I have a module that I use that I can send you if you want to have a lo=
ok.

Cheers,

Kev.



|---------+------------------------------------------------>
|         |           "Guillem Cunillera Wefers"           |
|         |           <vac...@es...>            |
|         |           Sent by:                             |
|         |           per...@li...ur|
|         |           ceforge.net                          |
|         |                                                |
|         |                                                |
|         |           26/02/2002 15:23                     |
|         |                                                |
|---------+------------------------------------------------>
  >--------------------------------------------------------------------=
--------------------------|
  |                                                                    =
                          |
  |       To:       "Sean Healy" <jal...@ho...>,              =
                          |
  |        <per...@li...>                =
                          |
  |       cc:                                                          =
                          |
  |       Subject:  RE: [perl-win32-gui-users] How I have to separe the=
 Win32::GUI between pm    |
  |        module                                                      =
                          |
  >--------------------------------------------------------------------=
--------------------------|




Thank you for your attention, but these 2 possible problems doesn't app=
ear
in my program. I think I have a more basic problem.
Let me present how I distribute in pseudocode, for a module that can ea=
sy
be
extended to more modules.

-------------------
module_a.pm
-------------------

# all window definition...for instance $window_a

sub initial       ##the first function that is call for another module
{
   ...
   $window_a->Show()
  Win32::GUI::Dialog
  ...
}

sub back  ## when I come from another module with cancel...
{
 ...
  $window_a->Show();
...
}


sub b_go_click  (an event of the window)
 {
   .....
   $window_a->Hide();
   Llibreria:module_b::initial();
   .....
   return 0;
  }

sub window_a_Terminate
{
 $Window->Hide();
 Llibreria::module_aa::back();
 return 0;
}


I am doing a terrible error ??  How is the easy way do to that without
possible errors ?
All explanations I will receive will be wellcome.
Excuses for my possible English mistakes.
A lot of thanks.






-----Mensaje original-----
De: Sean Healy <jal...@ho...>
Para: vac...@es... <vac...@es...>;
per...@li...
<per...@li...>
Fecha: dimarts, 26 / febrer / 2002 15:36
Asunto: Re: [perl-win32-gui-users] How I have to separe the Win32::GUI
between pm module


>>My question is how is possible, or where can be my error, that I need=
 to
>>press more than one time the window close button for the main window.=

>>If there is some example about how to work with diferrent pm modules
>>without any problems, I will agree.
>
>I have had this problem in the past, and I have tracked it down to one=
 of
>two things:
>
>1) I have made a second call to Win32::GUI::Dialog inside some event s=
ub,
so
>when I press the close button the first time, that event finishes, but=
 the
>original Win32::GUI::Dialog is still waiting for a -1 to be returned. =
 If
>you have other windows with their own WIn32::GUI::Dialog calls, be sur=
e
>whatever sub causes a secondary window to close also returns -1.
>
>2) I am inside a Win32::GUI::DoEvents loop, and returning -1 will have=
 no
>real effect until the loop terminates.  (Unless, of course, you explic=
itly
>check for it - but I never do, because in every situation I've run acr=
oss,
>it's easier and more efficient to use Win32::GUI::Dialog than to use
>Win32::GUI::DoEvents and check for -1.)
>
>_________________________________________________________________
>Join the world's largest e-mail service with MSN Hotmail.
>http://www.hotmail.com
>
>


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

=

RE: [perl-win32-gui-users] How I have to separe the Win32::GUI between pm module

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

Thank you for your attention, but these 2 possible problems doesn't appea=
r
in my program. I think I have a more basic problem.
Let me present how I distribute in pseudocode, for a module that can easy=
 be
extended to more modules.

-------------------
module_a.pm
-------------------

# all window definition...for instance $window_a

sub initial       ##the first function that is call for another module
{
   ...
   $window_a->Show()
  Win32::GUI::Dialog
  ...
}

sub back  ## when I come from another module with cancel...
{
 ...
  $window_a->Show();
...
}


sub b_go_click  (an event of the window)
 {
   .....
   $window_a->Hide();
   Llibreria:module_b::initial();
   .....
   return 0;
  }

sub window_a_Terminate
{
 $Window->Hide();
 Llibreria::module_aa::back();
 return 0;
}


I am doing a terrible error ??  How is the easy way do to that without
possible errors ?
All explanations I will receive will be wellcome.
Excuses for my possible English mistakes.
A lot of thanks.






-----Mensaje original-----
De: Sean Healy <jal...@ho...>
Para: vac...@es... <vac...@es...>;
per...@li...
<per...@li...>
Fecha: dimarts, 26 / febrer / 2002 15:36
Asunto: Re: [perl-win32-gui-users] How I have to separe the Win32::GUI
between pm module


>>My question is how is possible, or where can be my error, that I need t=
o
>>press more than one time the window close button for the main window.
>>If there is some example about how to work with diferrent pm modules
>>without any problems, I will agree.
>
>I have had this problem in the past, and I have tracked it down to one o=
f
>two things:
>
>1) I have made a second call to Win32::GUI::Dialog inside some event sub=
,
so
>when I press the close button the first time, that event finishes, but t=
he
>original Win32::GUI::Dialog is still waiting for a -1 to be returned.  I=
f
>you have other windows with their own WIn32::GUI::Dialog calls, be sure
>whatever sub causes a secondary window to close also returns -1.
>
>2) I am inside a Win32::GUI::DoEvents loop, and returning -1 will have n=
o
>real effect until the loop terminates.  (Unless, of course, you explicit=
ly
>check for it - but I never do, because in every situation I've run acros=
s,
>it's easier and more efficient to use Win32::GUI::Dialog than to use
>Win32::GUI::DoEvents and check for -1.)
>
>_________________________________________________________________
>Join the world=92s largest e-mail service with MSN Hotmail.
>http://www.hotmail.com
>
>

Re: [perl-win32-gui-users] How I have to separe the Win32::GUI between pm module

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

>My question is how is possible, or where can be my error, that I need to 
>press more than one time the window close button for the main window.
>If there is some example about how to work with diferrent pm modules 
>without any problems, I will agree.

I have had this problem in the past, and I have tracked it down to one of 
two things:

1) I have made a second call to Win32::GUI::Dialog inside some event sub, so 
when I press the close button the first time, that event finishes, but the 
original Win32::GUI::Dialog is still waiting for a -1 to be returned.  If 
you have other windows with their own WIn32::GUI::Dialog calls, be sure 
whatever sub causes a secondary window to close also returns -1.

2) I am inside a Win32::GUI::DoEvents loop, and returning -1 will have no 
real effect until the loop terminates.  (Unless, of course, you explicitly 
check for it - but I never do, because in every situation I've run across, 
it's easier and more efficient to use Win32::GUI::Dialog than to use 
Win32::GUI::DoEvents and check for -1.)

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

[perl-win32-gui-users] How I have to separe the Win32::GUI between pm modules

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

I am doing a program with different perl modules(.pm) where everyone has =
his own Window and events, and it works fine.
There are some events that call to the beggin procedure of another pm =
and I Include "return 0" after the call. Of course, I put the correct =
name for each window, such as    -name  =3D> =
"Accessoris::seleccio::e_w_principal",=20

My question is how is possible, or where can be my error, that I need to =
press more than one time the window close button for the main window.
If there is some example about how to work with diferrent pm modules =
without any problems, I will agree.

Thanks,

Guillem Cunillera i Wefers

RE: [perl-win32-gui-users] ListView - selected Items

[<JCo...@EQ...>]

That will work provided you create your ListView with the name "DataView"


#----------
$window->AddListView
#----------
(
    -name           => "DataView",
    -top            => 160,
    -left           =>   0,
    -width          => 600,
    -height         => 200,
    -addstyle       => 	WS_CHILD       |
                       	WS_VISIBLE     |
                     	ES_AUTOVSCROLL | 
                     	WS_VSCROLL     |
                         1,
    -checkboxes     =>   0,
    -fullrowselect  =>   1,
    -gridlines      =>   1,
    -multisel       =>   2,
    -view           =>   1,
);

Jeff Colwell
No electrons were harmed in making this e-mail message.


-----Original Message-----
From: JCo...@EQ... [mailto:JCo...@EQ...]
Sent: Monday, February 25, 2002 3:04 PM
To: ogl...@on...; per...@li...
Subject: [perl-win32-gui-users] ListView - selected Items



@items = $window->DataView->SelectedItems();

then you can do something like 

foreach ( @items )
{
	# do something with each item
}

Jeff Colwell
No electrons were harmed in making this e-mail message.


-----Original Message-----
From: Eugeniy Ogloblin [mailto:ogl...@on...]
Sent: Monday, February 25, 2002 1:04 PM
To: per...@li...
Subject: [perl-win32-gui-users] ListView - selected Items


Hello All,

How to get selected items in ListView?

  

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



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

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

[perl-win32-gui-users] ListView - selected Items

[<JCo...@EQ...>]

@items = $window->DataView->SelectedItems();

then you can do something like 

foreach ( @items )
{
	# do something with each item
}

Jeff Colwell
No electrons were harmed in making this e-mail message.


-----Original Message-----
From: Eugeniy Ogloblin [mailto:ogl...@on...]
Sent: Monday, February 25, 2002 1:04 PM
To: per...@li...
Subject: [perl-win32-gui-users] ListView - selected Items


Hello All,

How to get selected items in ListView?

  

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



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

[perl-win32-gui-users] ListView - selected Items

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

Hello All,

How to get selected items in ListView?

  

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

Re: [perl-win32-gui-users] ActivePerl 5.6.1 build 631 withWin32-GUI 0.0.558

[<pko...@me...>]

That is strange, Eric. I have no problems with  ActivePerl 5.6.1 Build 63=
1,
Win32-GUI 0.0.558 and Perl2Exe 5.03.

Perhaps you want to try my sources:
http://sourceforge.net/projects/auctioneer/. I am making excessive use of
ListViews.

Hope, you find the problem,

Peter

> -----Urspr=FCngliche Nachricht-----
> Von: per...@li...
> [mailto:per...@li...]Im Auftrag von
> Eric Hansen
> Gesendet am: Montag, 25. Februar 2002 15:48
> An: per...@li...
> Betreff: Re: [perl-win32-gui-users] ActivePerl 5.6.1 build 631
> withWin32-GUI 0.0.558
>
> Peter, Thanks for the suggestion. For some reason, this is not
> helping completelty. I am at least getting a border around my
> ListView, but the columns and rows are still not working.   I
> wonder if Win32-GUI 0.0.558 binary build is not compatible with
> 5.6.1/631 ActivePerl binary build?
>
> Also, I have found that the Terminate event for a GUI
> Window/DialogBox causes a Windows illegal operation messagebox to
> pop up if the application is compiled with Indigostar PERL2EXE
> compiler version 5.03, the latest version for Perl 5.6.1.  But
> running an application with the Perl Interpreter for 5.6.1/631, I
> don't get the error msg box upon the Terminate event firing.
>
> I am temporaily going  back to earlier,  more stable releases of
> ActivePerl (i.e. 5.19), Win32-GUI (i.e. 0.0.434), and PERL2EXE
> (i.e. 3.12) as of 1 year ago, the last time I upgraded.  I had no
> problems then.
>
> Eric
>
>
> >>> "Peter K=F6ller" <pko...@me...> 02/23/02 02:05AM >>>
> Hello Eric,
>
> I have a solution: Try to insert the magic spell "-style =3D> WS_CHILD =
|
> WS_VISIBLE | 1" in the AddListView. This worked for me.
>
> Peter
>
> > -----Urspr=FCngliche Nachricht-----
> > Von: per...@li...
> > [mailto:per...@li...]Im Auftrag v=
on
> > Eric Hansen
> > Gesendet am: Freitag, 22. Februar 2002 20:05
> > An: per...@li...
> > Betreff: [perl-win32-gui-users] ActivePerl 5.6.1 build 631 with
> > Win32-GUI 0.0.558
> >
> > I just uninstalled my old build of both ActivePerl and Win32-GUI
> > and installed the latest releases. Rebooted and everything.
> > Win32-GUI is not working right anymore????   I ran a small
> > program (with a ListView, see below code) that ran fine with
> > older releases of Perl and Win32-GUI, but runs like garbage with
> > the new installs. The ListView looks like hell.  I can't see the
> > control at all, no borders, no column headers.  All I see are the
> > words "Apples  Pears  Oran..."   all on the same row?????    What I
> > should see is a column header "FRUIT" and underneath that I
> > should see Apples on the first row, Pears on the second row, and
> > Oranges on the third row.  Anybody tried the latest Perl build
> > with latest Win32-GUI build and experienced any problems???
> >
> > Thanks,
> > Eric
> > Dallas, TX USA
> >
> > use Win32::GUI;
> >
> > $W =3D new Win32::GUI::DialogBox(
> >     -name =3D> "Window",
> >     -text =3D> "ListView Test",
> >     -width =3D> 275,
> >     -height =3D> 250,
> >     -left =3D> 50,
> >     -top =3D> 50
> > );
> >
> > $LV =3D $W->AddListView(
> >          -name =3D> "ListView",
> >          -left =3D> 12,
> >          -top =3D> 10,
> >          -height =3D> 200,
> >          -width  =3D> 225,
> > );
> > $LV->View(1);       # detailed listing, i.e. columns and rows
> >
> > $W->Show();
> > $W->BringWindowToTop();
> > Load_ListView();
> >
> > Win32::GUI::Dialog();
> >
> > sub Load_ListView {
> >    $LV->InsertColumn(-index =3D> 1, -width =3D> 200, -text =3D> "FRUI=
T");
> >
> >    $LV->InsertItem(-item =3D> 0, -text =3D> "Apples");
> >    $LV->InsertItem(-item =3D> 1, -text =3D> "Pears");
> >    $LV->InsertItem(-item =3D> 2, -text =3D> "Oranges");
> > }
> >
> > sub Window_Terminate {
> >    return -1;
> > }
> >
> > #-- END SCRIPT
> >
> >
> > _______________________________________________
> > Perl-Win32-GUI-Users mailing list
> > Per...@li...
> > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> >
>
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

[perl-win32-gui-users] HTML rendering

[Matthew W. <Mat...@Qu...>]

Is there an easy way to render HTML? Other that shelling to IE, of course..

I have a GUI app that builds a tree based on the results of a scan.. I'd
like to view a conditional web page depending on what sub-item the user
clicks on..

If all else fails, I'll just shell to IE.

...::: Matt :::...
Special thanks go out to 
my good friends, 
Sugar and Caffeine.. 

Re: [perl-win32-gui-users] ActivePerl 5.6.1 build 631 with Win32-GUI 0.0.558

[Eric H. <Ha...@sw...>]

Peter, Thanks for the suggestion. For some reason, this is not helping =
completelty. I am at least getting a border around my ListView, but the =
columns and rows are still not working.   I wonder if Win32-GUI 0.0.558 =
binary build is not compatible with 5.6.1/631 ActivePerl binary build?  =
=20

Also, I have found that the Terminate event for a GUI Window/DialogBox =
causes a Windows illegal operation messagebox to pop up if the application =
is compiled with Indigostar PERL2EXE compiler version 5.03, the latest =
version for Perl 5.6.1.  But running an application with the Perl =
Interpreter for 5.6.1/631, I don't get the error msg box upon the =
Terminate event firing. =20

I am temporaily going  back to earlier,  more stable releases of  =20
ActivePerl (i.e. 5.19), Win32-GUI (i.e. 0.0.434), and PERL2EXE (i.e. 3.12) =
as of 1 year ago, the last time I upgraded.  I had no problems then.

Eric


>>> "Peter K=F6ller" <pko...@me...> 02/23/02 02:05AM >>>
Hello Eric,

I have a solution: Try to insert the magic spell "-style =3D> WS_CHILD |
WS_VISIBLE | 1" in the AddListView. This worked for me.

Peter

> -----Urspr=FCngliche Nachricht-----
> Von: per...@li...=20
> [mailto:per...@li...]Im Auftrag von
> Eric Hansen
> Gesendet am: Freitag, 22. Februar 2002 20:05
> An: per...@li...=20
> Betreff: [perl-win32-gui-users] ActivePerl 5.6.1 build 631 with
> Win32-GUI 0.0.558
>
> I just uninstalled my old build of both ActivePerl and Win32-GUI
> and installed the latest releases. Rebooted and everything.
> Win32-GUI is not working right anymore????   I ran a small
> program (with a ListView, see below code) that ran fine with
> older releases of Perl and Win32-GUI, but runs like garbage with
> the new installs. The ListView looks like hell.  I can't see the
> control at all, no borders, no column headers.  All I see are the
> words "Apples  Pears  Oran..."   all on the same row?????    What I
> should see is a column header "FRUIT" and underneath that I
> should see Apples on the first row, Pears on the second row, and
> Oranges on the third row.  Anybody tried the latest Perl build
> with latest Win32-GUI build and experienced any problems???
>
> Thanks,
> Eric
> Dallas, TX USA
>
> use Win32::GUI;
>
> $W =3D new Win32::GUI::DialogBox(
>     -name =3D> "Window",
>     -text =3D> "ListView Test",
>     -width =3D> 275,
>     -height =3D> 250,
>     -left =3D> 50,
>     -top =3D> 50
> );
>
> $LV =3D $W->AddListView(
>          -name =3D> "ListView",
>          -left =3D> 12,
>          -top =3D> 10,
>          -height =3D> 200,
>          -width  =3D> 225,
> );
> $LV->View(1);       # detailed listing, i.e. columns and rows
>
> $W->Show();
> $W->BringWindowToTop();
> Load_ListView();
>
> Win32::GUI::Dialog();
>
> sub Load_ListView {
>    $LV->InsertColumn(-index =3D> 1, -width =3D> 200, -text =3D> =
"FRUIT");
>
>    $LV->InsertItem(-item =3D> 0, -text =3D> "Apples");
>    $LV->InsertItem(-item =3D> 1, -text =3D> "Pears");
>    $LV->InsertItem(-item =3D> 2, -text =3D> "Oranges");
> }
>
> sub Window_Terminate {
>    return -1;
> }
>
> #-- END SCRIPT
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...=20
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users=20
>

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

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

At 11:32 2002-02-25 +0100, NAHUM Marc wrote:
>How can'i refresh a windows ?
>I try to made a progress bar and i need refresh the window when a new action
>is do ...

$win->InvalidateRect(1);

will send a WM_PAINT to the window, causing it to be redrawn.

The method can also be called on a single control.


/J

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

Latest bookmark: "Re (tilly) 6 Code Critique"
<http://www.perlmonks.org/index.pl?lastnode_id=133235&node_id=135630>

[perl-win32-gui-users] refresh gui

[NAHUM M. <mar...@re...>]

hye,
How can'i refresh a windows ?
I try to made a progress bar and i need refresh the window when a new action
is do ...
Thanks for help ...

Marc,

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

[Ultimate R. D. <scc...@ho...>]

Yeah, that seems to work.  Thanks.

I wonder if tracking will ever be completely incorperated into it.  It would 
be nice if a person could just push the up arrow and expect it to scroll up 
with them.

*Adds to wish list*

Thanks again.  Now all I need to do is figure out how to allow people to 
format the text entered.

Know of any detailed examples of how to insert parts of other programs into 
win32::gui windows?

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

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

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

>#This IS executing, I can tell because $changes is being set to 1...
>sub reDesc_Change{
>   $changes = 1;
>   my ($x,$y) = $main->reDesc->Selection;
>   my $currentline = $main->reDesc->LineFromChar($x);
>
>   while (1)
>   {
>      my $firstline = $main->reDesc->FirstVisibleLine;
>      my $linecount = $main->reDesc->SendMessage(0x00ba,0,0);
>      my $lastline = $firstline + $linecount - 1;
>      last if ($lastline >= $currentline);
>      $main->reDesc->SendMessage(0x00b5,1,0);
>   }
>   return 1;
>}

Okay, the problem is EM_LINECOUNT returns total lines, not visible lines (I 
should have read the documentation more closely).  I tried this and it 
works:

sub reDesc_Change{
   $changes = 1;
   my ($start,$stop) = $main->reDesc->Selection;

   while (1)
   {
      my ($x,$y) = $main->reDesc->PosFromChar($stop);  # or $start, if you 
prefer
      last if ($y <= $main->reDesc->Height - 20);
      $main->reDesc->SendMessage(0x00b5,1,0);
   }
   return 1;
}

You might want to set a variable before the while loop instead of calling 
$main->reDesc->Height over and over again (it's less processor-intensive, 
although in my tests, the code took less than a second, anyway) (or, if you 
never resize the control, you could even hard-code it, although I dislike 
that approach myself).

I subtract 20 because the limiting rectangle of the control (that's the 
amount of space text can appear in) is smaller than the actual rectangle.  
(PosFromChar returns a value relative to the limiting rectangle, not the 
actual rectangle.)  There is a message you can send to get the actual 
limiting rectangle, but it requires packing a structure, which apparently 
will not work with Win32::GUI::SendMessage (although someone posted that it 
will work if you roll your own SendMessage via Win32::API).  Rather than go 
through all that, I simply fudged it by using 20.  (If you're planning on 
using different font sizes, you'll probably want to use a variable here, 
too.)  If you would prefer a more exact approach, I would be willing to help 
(as, I'm sure, would others).

_________________________________________________________________
Chat with friends online, try MSN Messenger: http://messenger.msn.com