perl-win32-gui-users Mailing List for Win32::GUI (Page 169)

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

Everybody knows some way to send a DC graphic to the printer ?
I can accept taking all the Window.

Thanks.

Guillem Cunillera i Wefers

Today is one day that sometimes I feel I'm turning crazy ....

I make a Listview in a simple program but when I put in my main program =
in a pm module ListView doesn't work (is don't show) and the complete =
name is done. This problem has not appear with other widgets...and =
before put a ListView there was a ListBox that worked well.

Any ideas ???

Guillem Cunillera

##Interf=EDcie gr=E0fica pel Parsev70b
##AUTOR: Guillem Cunillera i Wefers

use Mailtool::gethttp;
use Mailtool::tutor;
use Mailtool::config;
use Mailtool::consultor;
use Mailtool::loginUOC;
use Mailtool::mevesfonts;

use Win32::GUI;
use Win32::Clipboard;
use Win32::API;

package Mailtool::seleccio;

  my $CLIP=3DWin32::Clipboard();
   my $out;

# =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
# FINESTRES
# =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
 =20
$w_principal =3D Win32::GUI::Window->new (
 -maxsize =3D> [600,440],=20
 -width  =3D> 600,=20
 -height  =3D> 440,=20
 -text  =3D> "Seguiment 0.7 - Versi=F3 de prova    ",=20
 -name  =3D> "Mailtool::seleccio::e_w_principal",)
;
=20
$w_principal->AddLabel(
 -font  =3D> $Mailtool::mevesfonts::fo_cursiva,
 -foreground =3D> [0, 0, 0],  # Color del text: negre
 -width  =3D> 200,
 -height  =3D> 20,
 -left  =3D> 5,
 -top  =3D> 55,
 -text  =3D> "Perfils existents",);
=20
$w_principal->AddButton(
 -text  =3D> "NOU PERFIL",
 -font  =3D> $Mailtool::mevesfonts::fo_normal,
 -left  =3D> 350,
 -top  =3D> 275,
 -height  =3D> 25,
 -width  =3D> 110,
 -name  =3D> "Mailtool::seleccio::b_nou_perfil",);
$w_principal->AddButton(
 -text  =3D> "BORRAR PERFIL",
 -font  =3D> $Mailtool::mevesfonts::fo_normal,
 -left  =3D> 350,
 -top  =3D> 205,
 -height  =3D> 25,
 -width  =3D> 110,
 -name  =3D> "Mailtool::seleccio::b_borrar_perfil",);
$w_principal->AddButton(
 -text  =3D> "AJUDA",
 -font  =3D> $Mailtool::mevesfonts::fo_normal,
 -left  =3D> 470,
 -top  =3D> 275,
 -height  =3D> 25,
 -width  =3D> 70,
 -name  =3D> "Mailtool::seleccio::b_ajuda_perfil",);
$bexecucio =3D $w_principal->AddButton(
 -text  =3D> "INFORMACI=D3 DISPONIBLE", # Text al bot=F3
 -font  =3D> $Mailtool::mevesfonts::fo_normal,
 -left  =3D> 80,
 -top  =3D> 270,
 -height  =3D> 30,
 -name  =3D> "Mailtool::seleccio::b_execucio",);
$bsortir =3D $w_principal->AddButton(
 -text  =3D> "SORTIR", # Text al bot=F3
 -font  =3D> $Mailtool::mevesfonts::fo_normal,
 -left  =3D> 500,
 -top  =3D> 380,
 -height  =3D> 30,
 -name  =3D> "Mailtool::seleccio::b_sortir",);=20

my $listview =3D $w_principal->AddListView(
    -name      =3D> "Mailtool::seleccio::listview",
    -text      =3D> "Collons",
    -left      =3D> 5,=20
    -top       =3D> 75,
    -width     =3D> 340,
    -height    =3D> 195,
    -style     =3D> WS_VISIBLE | 2,
    -fullrowselect =3D> 1,
    -gridlines =3D> 0,
    -checkboxes =3D> 0,
    -hottrack   =3D> 1,
=20
);

$listview->InsertColumn(
    -index =3D> 0,=20
    -width =3D> 150,=20
    -text  =3D> "Nom",
);

$listview->InsertColumn(
    -index   =3D> 1,=20
    -subitem =3D> 1,=20
    -width   =3D> 150,=20
    -text    =3D> "Tipus perfil",
);=20

my $dirses =3D "sessions";

# =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
# CRIDES INTERNES
# =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D

sub InsertListItem {
    my($perfi, $nom, $qua) =3D @_;
    my $item =3D $listview->InsertItem(
        -item  =3D> $listview->Count(),=20
        -text  =3D> $perfi,=20
        -image =3D> $image,
    );
=20
    $listview->SetItem(
        -item    =3D> $item,=20
        -subitem =3D> 1,
        -text    =3D> $nom,
    );
 $listview->SetItem(
        -item    =3D> $item,=20
        -subitem =3D> 2,
        -text    =3D> $qua,
    );=20
}

# =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
# CRIDES EXTERNES
# =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D

# -------------------------------------
sub inicia {
# -------------------------------------
=20
 $Mailtool::loginUOC::NSES=3D"0";

 -d $dirses or mkdir $dirses;
 open ENTSIS,"<sessions/default.txt";
=20
 while($res =3D<ENTSIS>)
 {
  chop ($res);
  my @partim =3Dsplit ',',$res;
  print "-------->>> $partim[0],$partim[1],$partim[2] \n";
  InsertListItem($partim[0],$partim[1],$partim[2]);
 }
 close ENTSIS;
=20
  $w_principal->Show();
 $w_principal->Show();

   $listview->View(1);
   $listview->Update();
 $listview->View(1);
 $listview->Update();

  Win32::GUI::Dialog();  # Inici d'execucio gr=E0fica
}

...

Hello!

Yes, "tabstop =3D> 1" only works with windows. But why? Isn't it reasonab=
le to use it with both? I use dialogs to get rid of icons in
the taskbar for every child window.

Or should I upgrade from 558 to 665?

(By the way: What's about real modal dialogs with 665?)

Regards,

Peter

> -----Urspr=FCngliche Nachricht-----
> Von: per...@li...
> [mailto:per...@li...]Im Auftrag von
> ma...@mm...
> Gesendet am: Freitag, 26. April 2002 05:53
> An: John Crawford
> Cc: per...@li...
> Betreff: Re: [perl-win32-gui-users] Tabbing between controls
>
>
> sorry. make that it only works with a window, not a dialog.
>
>
>
>                     "John Crawford"
>                     <joh...@au...>                     To:
>                     Sent by:                                      <perl=
-wi...@li...>
>                     per...@li...urc        cc:
>                     eforge.net                                    Subje=
ct:     [perl-win32-gui-users] Tabbing
>                                                                   betwe=
en controls
>
>                     26/04/02 01:31 PM
>
>
>
>
>
> What's the secret of allowing tabbing between controls? -style =3D>
> WS_TABSTOP doesn't seem to have any effect.
>
> jmc
>
> _______________________________________________
> 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
>

That's odd. Is there something wrong with your Perl? What does perl -v tell
you? Mine is v5.6.1 build 631 and I know that with last year's build 618 and
API v0.1 it worked just the way you show it.

> -----Original Message-----
> From: Steven Swenson [mailto:ssw...@su...]
> Sent: Thursday, April 25, 2002 19:14
> To: per...@li...
> Subject: [perl-win32-gui-users] Win32::API problems invoking 
> this module
> -- Please help.
> Importance: High
> 
> 
>    I upgraded to .20  and still have this problem.  Despite 
> installing with 
> ppm I can't get the module to work.
> This is what I am trying to do:
> 
> use Win32::API;
> 
> $RegisterWindowMessage = new 
> Win32::API("User32","RegisterWindowMessage",[P],N);
> $SendMessage           = new 
> Win32::API("User32","SendMessage",[N,N,N,N],N);
> 
> 
> I get back :
> 
> Can't locate object method "new" via package "Win32::API" 
> (perhaps you 
> forgot to
>   load "Win32::API"?) at exceed.pl line 13.
> 
> What's going on???!  Please help me
> 
> --Steve
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

>> -tabstop => 1. pretty sure it only works with a gui::dialog.

>> sorry. make that it only works with a window, not a dialog.

Many thanks for prompt response. Unfortunately, I don't notice any
effect either with a window or a dialog (and I'd particularly like it
to work with a dialog). I'm using it with textfields:

$loginWin->AddTextfield(
           -name   => "Username",
           -left   => 63,
           -top    => 10,
           -text   => "",
           -width  => 120,
           -height => 22,
           -style  => WS_VISIBLE | WS_TABSTOP,
);

jmc

sorry. make that it only works with a window, not a dialog.

                    "John Crawford"                                                                                 
                    <joh...@au...>                     To:                                               
                    Sent by:                                      <per...@li...>      
                    per...@li...urc        cc:                                               
                    eforge.net                                    Subject:     [perl-win32-gui-users] Tabbing       
                                                                  between controls                                  

                    26/04/02 01:31 PM                                                                               

What's the secret of allowing tabbing between controls? -style =>
WS_TABSTOP doesn't seem to have any effect.

jmc

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

-tabstop => 1. pretty sure it only works with a gui::dialog.

                    "John Crawford"                                                                                 
                    <joh...@au...>                     To:                                               
                    Sent by:                                      <per...@li...>      
                    per...@li...urc        cc:                                               
                    eforge.net                                    Subject:     [perl-win32-gui-users] Tabbing       
                                                                  between controls                                  

                    26/04/02 01:31 PM                                                                               

What's the secret of allowing tabbing between controls? -style =>
WS_TABSTOP doesn't seem to have any effect.

jmc

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

What's the secret of allowing tabbing between controls? -style =>
WS_TABSTOP doesn't seem to have any effect.

jmc

   I upgraded to .20  and still have this problem.  Despite installing with 
ppm I can't get the module to work.
This is what I am trying to do:

use Win32::API;

$RegisterWindowMessage = new 
Win32::API("User32","RegisterWindowMessage",[P],N);
$SendMessage           = new Win32::API("User32","SendMessage",[N,N,N,N],N);

I get back :

Can't locate object method "new" via package "Win32::API" (perhaps you 
forgot to
  load "Win32::API"?) at exceed.pl line 13.

What's going on???!  Please help me

--Steve

I saw this in a program by Jonathan Southwick.  The program is gatorbase.pl.
He used to have it on a web site, and you could get it by ftp, but I don't
know if it still available.  I could send it to you, but I don't know if
that would violate his intellectual property rights -- I haven't seen him
post to this list since last November. I don't know if he is still doing
Win32-GUI stuff. 

BTW I answered a similar question back in February - you might have found
the answer by looking in the archives. 8^)  

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

-----Original Message-----
From: Alex Lee [mailto:sim...@ya...] 
Sent: Tuesday, April 23, 2002 3:53 PM
To: JCo...@EQ...; per...@li...
Subject: RE: [perl-win32-gui-users] List View-getting multiple selection i
ndexes

Wow thanks for the tip-I will try it once I get a chance.  

By the way, how come I did not see this method in the listview document-not
even in the method.html?--is there an updated archive of win32::gui
somewhere? 

Anyways, thanks again.   

--- JCo...@EQ... wrote:
> If you name your listview like
> 
> #----------
> $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,
> );
> 
> Then you can get those 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: Alex Lee [mailto:sim...@ya...]
> Sent: Tuesday, April 23, 2002 2:55 PM
> To: per...@li...
> Subject: [perl-win32-gui-users] List View-getting multiple selection
indexes
> 
> 
> Hi, all:
> 
> I was wondering if there is a way to get all of the indexes that a 
> user selects in a listview (not with check boxex), but just simply 
> highlighting the rows.  I tried using
> SelectCount() but that only returns the number of item selected and 
> not the actual indexes of each of the selected items.
> 
> for example if I have a listView of:
> 
> pear
> apple
> peach
> nuts
> 
> and if the user highlights pear and apple with their mouse,I would 
> like retrieve the indexes of  0 and 1, thereby allowing me to know 
> that apple and peach was selected.
> 
> 
> Thanks in advance!
> Alex Lee
> 
> 
> 
> =====
> **************************
> ***** END OF MESSAGE *****
> 
> __________________________________________________
> Do You Yahoo!?
> Yahoo! Games - play chess, backgammon, pool and more 
> http://games.yahoo.com/
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list 
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

=====
**************************
***** END OF MESSAGE *****

__________________________________________________
Do You Yahoo!?
Yahoo! Games - play chess, backgammon, pool and more http://games.yahoo.com/

is there any way to make a listview column so it can't be resized?

thanx

Wow thanks for the tip-I will try it once I get a chance.  

By the way, how come I did not see this method in the listview document-not even in the
method.html?--is there an updated archive of win32::gui somewhere? 

Anyways, thanks again.   

--- JCo...@EQ... wrote:
> If you name your listview like 
> 
> #----------
> $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,
> );
> 
> Then you can get those 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: Alex Lee [mailto:sim...@ya...] 
> Sent: Tuesday, April 23, 2002 2:55 PM
> To: per...@li...
> Subject: [perl-win32-gui-users] List View-getting multiple selection indexes
> 
> 
> Hi, all:  
> 
> I was wondering if there is a way to get all of the indexes that a user
> selects in a listview (not with check boxex), but just simply highlighting
> the rows.  I tried using 
> SelectCount() but that only returns the number of item selected and not the
> actual indexes of each of the selected items. 
> 
> for example if I have a listView of: 
> 
> pear
> apple
> peach
> nuts
> 
> and if the user highlights pear and apple with their mouse,I would like
> retrieve the indexes of  0 and 1, thereby allowing me to know that apple and
> peach was selected. 
> 
> 
> Thanks in advance!
> Alex Lee  
> 
> 
> 
> =====
> **************************
> ***** END OF MESSAGE *****
> 
> __________________________________________________
> Do You Yahoo!?
> Yahoo! Games - play chess, backgammon, pool and more http://games.yahoo.com/
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

=====
**************************
***** END OF MESSAGE *****

__________________________________________________
Do You Yahoo!?
Yahoo! Games - play chess, backgammon, pool and more
http://games.yahoo.com/

If you name your listview like 

#----------
$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,
);

Then you can get those 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: Alex Lee [mailto:sim...@ya...] 
Sent: Tuesday, April 23, 2002 2:55 PM
To: per...@li...
Subject: [perl-win32-gui-users] List View-getting multiple selection indexes

Hi, all:  

I was wondering if there is a way to get all of the indexes that a user
selects in a listview (not with check boxex), but just simply highlighting
the rows.  I tried using 
SelectCount() but that only returns the number of item selected and not the
actual indexes of each of the selected items. 

for example if I have a listView of: 

pear
apple
peach
nuts

and if the user highlights pear and apple with their mouse,I would like
retrieve the indexes of  0 and 1, thereby allowing me to know that apple and
peach was selected. 

Thanks in advance!
Alex Lee  

=====
**************************
***** END OF MESSAGE *****

__________________________________________________
Do You Yahoo!?
Yahoo! Games - play chess, backgammon, pool and more http://games.yahoo.com/

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

Why, doesn't

@selection = $mylist->SelectedItems();

work?? Or don't you get the listbox to allow for multiple selections in the
first place?

Hi, all:  

I was wondering if there is a way to get all of the indexes that a user selects in a listview (not
with check boxex), but just simply highlighting the rows.  I tried using 
SelectCount() but that only returns the number of item selected and not the actual indexes of each
of the selected items. 

for example if I have a listView of: 

pear
apple
peach
nuts

and if the user highlights pear and apple with their mouse,I would like retrieve the indexes of  0
and 1, thereby allowing me to know that apple and peach was selected. 

Thanks in advance!
Alex Lee  

=====
**************************
***** END OF MESSAGE *****

__________________________________________________
Do You Yahoo!?
Yahoo! Games - play chess, backgammon, pool and more
http://games.yahoo.com/

is there any way of changin the state of a checkbox in a listview without
actually clicking the checkbox. at the moment i'm currently looking at
something like

 my($item) = @_;
    my %info = $ListView->ItemInfo($item, 4);
    $state = $info{-text};
    print $state, "\n";
    if ($state = "X") {
     $Window->ListView->somehowchangethecheckboxto1;
    }

and i've looked through the mailing list history but all i've found is
something to change the state of all checkboxes which went like this

my $SendMsg = new Win32::API("user32", "SendMessage", "NNNP", "N");
use constant LVIF_STATE  => 0x8;
use constant LVM_SETITEMSTATE  => 0x102B;
use constant LVIS_STATEIMAGEMASK  => 0xF000;
my $lpPoint = pack("LLLLLALLLL", LVIF_STATE, 0, 0,
0x2000,LVIS_STATEIMAGEMASK, " ", 127, 0, 0, 0);
my $rtn = $SendMsg->Call($ListView->{'-handle'}, LVM_SETITEMSTATE, -1,
$lpPoint);

but i don't really know how to change that to change a single checkbox. any
ideas?

thanx in advance.

wonderful. the second one worked.

                    "Piske, Harald"                                                               
                    <Harald.Piske@bowneg        To:     "'ma...@mm...'" <ma...@mm...>   
                    lobal.com>                  cc:                                               
                                                per...@li...        
                    23/04/02 12:53 PM           Subject:     RE: [perl-win32-gui-users] status    
                                                bar                                               

try
sub Main_Resize {return 0;}

That is supposed to cancel the default behavior of the resize function.
Well, that's what it says on the box ;-) If it doesn't work, try

$resizing = 0;
sub Main_Resize
{
     unless ($resizing++)
     {
          $Main->Change (-size => [800, 574]);}
          $resizing = 0;
     }
     return 1;
}

that would at least have it snap back after resizing.
Note the flag to prevent an endless loop and note return 1 because the last
command was $resizing = 0 and you shouldn't do that ... even though this is
only needed when the above doesn't work, which was ... returning 0 ... oboy
...

> -----Original Message-----
> From: ma...@mm... [mailto:ma...@mm...]
> Sent: Monday, April 22, 2002 18:52
> To: Peter Eisengrein
> Cc: per...@li...
> Subject: RE: [perl-win32-gui-users] status bar
>
>
>
> i don't think thats what i'm trying to do. i'll explain. i
> have a window
> that 800x574 (cuts off just above the taskbar). i've disabled
> the maximise
> button and the window isn't resizable. i decided to put a
> status bar down
> the bottom cos otherwise it just looked really ugly but i can
> resize the
> window using the status bar. the status bar servers no
> function its just
> there to look pretty and i don't want it to be able to resize
> the window.
> hope thats a little clearer.
>
> thanx
>
>
>
>
>
>
>                     Peter Eisengrein
>
>                     <Pet...@at...>
>     To:     "'ma...@mm...'" <ma...@mm...>,
>                     Sent by:
>     per...@li...
>                     per...@li...urc
>     cc:
>                     eforge.net
>     Subject:     RE: [perl-win32-gui-users] status
>
>     bar
>
>
>                     23/04/02 01:26 AM
>
>
>
>
>
>
>
>
>
>
> In your _Resize sub do not resize the status bar, just move
> it (so that
> it's always at the bottom). If you do nothing then it will
> always hold its
> original position which is probably not what you want.
>
> $Window->Status->Move(0,
> $Window->ScaleHeight-$Window->Status->Height);
>
>
>
>
> > -----Original Message-----
> > From: ma...@mm... [mailto:ma...@mm...]
> > Sent: Sunday, April 21, 2002 20:14
> > To: per...@li...
> > Subject: [perl-win32-gui-users] status bar
> >
> >
> > is there any way to stop a status bar from being able to be resized?
> > thanx
> >
> >
> > _______________________________________________
> > 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
>

try
sub Main_Resize {return 0;}

That is supposed to cancel the default behavior of the resize function.
Well, that's what it says on the box ;-) If it doesn't work, try

$resizing = 0;
sub Main_Resize
{
	unless ($resizing++)
	{
		$Main->Change (-size => [800, 574]);}
		$resizing = 0;
	}
	return 1;
}

that would at least have it snap back after resizing.
Note the flag to prevent an endless loop and note return 1 because the last
command was $resizing = 0 and you shouldn't do that ... even though this is
only needed when the above doesn't work, which was ... returning 0 ... oboy
...

> -----Original Message-----
> From: ma...@mm... [mailto:ma...@mm...]
> Sent: Monday, April 22, 2002 18:52
> To: Peter Eisengrein
> Cc: per...@li...
> Subject: RE: [perl-win32-gui-users] status bar
> 
> 
> 
> i don't think thats what i'm trying to do. i'll explain. i 
> have a window
> that 800x574 (cuts off just above the taskbar). i've disabled 
> the maximise
> button and the window isn't resizable. i decided to put a 
> status bar down
> the bottom cos otherwise it just looked really ugly but i can 
> resize the
> window using the status bar. the status bar servers no 
> function its just
> there to look pretty and i don't want it to be able to resize 
> the window.
> hope thats a little clearer.
> 
> thanx
> 
> 
> 
> 
>                                                               
>                                                       
>                     Peter Eisengrein                          
>                                                       
>                     <Pet...@at...>                
>     To:     "'ma...@mm...'" <ma...@mm...>,  
>                     Sent by:                                  
>     per...@li...        
>                     per...@li...urc    
>     cc:                                               
>                     eforge.net                                
>     Subject:     RE: [perl-win32-gui-users] status    
>                                                               
>     bar                                               
>                                                               
>                                                       
>                     23/04/02 01:26 AM                         
>                                                       
>                                                               
>                                                       
>                                                               
>                                                       
> 
> 
> 
> 
> 
> In your _Resize sub do not resize the status bar, just move 
> it (so that
> it's always at the bottom). If you do nothing then it will 
> always hold its
> original position which is probably not what you want.
> 
> $Window->Status->Move(0, 
> $Window->ScaleHeight-$Window->Status->Height);
> 
> 
> 
> 
> > -----Original Message-----
> > From: ma...@mm... [mailto:ma...@mm...]
> > Sent: Sunday, April 21, 2002 20:14
> > To: per...@li...
> > Subject: [perl-win32-gui-users] status bar
> >
> >
> > is there any way to stop a status bar from being able to be resized?
> > thanx
> >
> >
> > _______________________________________________
> > 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
> 

i don't think thats what i'm trying to do. i'll explain. i have a window
that 800x574 (cuts off just above the taskbar). i've disabled the maximise
button and the window isn't resizable. i decided to put a status bar down
the bottom cos otherwise it just looked really ugly but i can resize the
window using the status bar. the status bar servers no function its just
there to look pretty and i don't want it to be able to resize the window.
hope thats a little clearer.

thanx

                    Peter Eisengrein                                                                                
                    <Pet...@at...>                    To:     "'ma...@mm...'" <ma...@mm...>,  
                    Sent by:                                      per...@li...        
                    per...@li...urc        cc:                                               
                    eforge.net                                    Subject:     RE: [perl-win32-gui-users] status    
                                                                  bar                                               

                    23/04/02 01:26 AM                                                                               

In your _Resize sub do not resize the status bar, just move it (so that
it's always at the bottom). If you do nothing then it will always hold its
original position which is probably not what you want.

$Window->Status->Move(0, $Window->ScaleHeight-$Window->Status->Height);

> -----Original Message-----
> From: ma...@mm... [mailto:ma...@mm...]
> Sent: Sunday, April 21, 2002 20:14
> To: per...@li...
> Subject: [perl-win32-gui-users] status bar
>
>
> is there any way to stop a status bar from being able to be resized?
> thanx
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

I am using perl ole automation to run an Internet Explorer Browser.  I have
gotten rather far, capturing frames and pretty much having my way with the
DOM.  Until SSL causes IE to raise a message box.

I have the Window Handle to IE, is there any way with win32::GUI to wait for
a child SSL window to appear and then click on it's yes button?  As a call
back type thing....

Thanks
Henry Wasserman
hen...@fm...

In your _Resize sub do not resize the status bar, just move it (so that it's
always at the bottom). If you do nothing then it will always hold its
original position which is probably not what you want.

$Window->Status->Move(0, $Window->ScaleHeight-$Window->Status->Height);

> -----Original Message-----
> From: ma...@mm... [mailto:ma...@mm...]
> Sent: Sunday, April 21, 2002 20:14
> To: per...@li...
> Subject: [perl-win32-gui-users] status bar
> 
> 
> is there any way to stop a status bar from being able to be resized?
> thanx
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

Guillem Cunillera Wefers wrote:
> I include this simple program because I want to download some web pages
without
> losing the user interaction. How I have to change this code in order to
avoid
> the error in the second click ?

which is the error in the second click?
I ran your program and everything seems fine. this is the output after
clicking
on 'OBTENIR DADES' three times (the button stays disabled for approx. 1
second
then I can click on it again):

  A
  acabo click
  B
  A
  acabo click
  B
  A
  acabo click
  B
  adeu!

no error as far I can see...

cheers,
Aldo

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

I include this simple program because I want to download some web pages =
without losing the user interaction. How I have to change this code in =
order to avoid the error in the second click ?

If someone have some example for doing this I will be very very happy !

##Interf=EDcie gr=E0fica pel Parsev70b
##AUTOR: Guillem Cunillera i Wefers

use Win32::GUI;
use Win32::API;
use LWP::UserAgent;=20
use LWP::Simple;
use URI::https;
use LWP::Protocol::https;

my $w_tutor =3D Win32::GUI::Window->new (
 -top  =3D> 0,
 -left  =3D> 0,
 -width     =3D> 600,=20
 -height    =3D> 600,
    -minsize =3D> 600,600
 -text  =3D> "Tutor",=20
 -name  =3D> "e_w_tutor",);

my $download =3D $w_tutor->AddButton(
 -text  =3D> "OBTENIR DADES", # Text al bot=F3
 -left  =3D> 400,
 -top  =3D> 160,
 -height  =3D> 25,
 -name  =3D> "download",
 );

sub download_Click {
=20
 $download->Disable();
 =20
 if ($ere=3Dfork() ) {
=20
     print "A\n";=20
 }=20
 else=20
 {        =20
    print "B \n";
    $download->Enable();
    exit(0);
 =20
 } =20
 print "acabo click \n";
 return 1;      =20
}

=20
# ---------------------------
sub e_w_tutor_Terminate {
# --------------------------
 $w_tutor->Hide();
=20
 print "adeu! \n";
 return -1;

}

$w_tutor->Show ();

Win32::GUI::Dialog();  # Inici d'execucio gr=E0fica

On Sun, 21 Apr 2002, Piske, Harald wrote:

> You need a -name => 'something' option in *every* widget.
> The name does not need to be unique, if you don't have to access the widget
> later, but it *must* be specified. V 0.0.558 crashes on a widget without
> -name, other versions don't.

Thanks, Harald (and Sean and Mark, who also wrote me with similar
advice).  That did the trick.

-- 
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

You need a -name => 'something' option in *every* widget.
The name does not need to be unique, if you don't have to access the widget
later, but it *must* be specified. V 0.0.558 crashes on a widget without
-name, other versions don't.

2001	Jan (226)	Feb (139)	Mar (156)	Apr (95)	May (181)	Jun (166)	Jul (80)	Aug (59)	Sep (69)	Oct (83)	Nov (142)	Dec (33)
2002	Jan (42)	Feb (91)	Mar (76)	Apr (113)	May (67)	Jun (68)	Jul (37)	Aug (41)	Sep (16)	Oct (135)	Nov (51)	Dec (21)
2003	Jan (37)	Feb (36)	Mar (37)	Apr (103)	May (68)	Jun (70)	Jul (77)	Aug (12)	Sep (9)	Oct (53)	Nov (88)	Dec (63)
2004	Jan (263)	Feb (106)	Mar (36)	Apr (21)	May (21)	Jun (34)	Jul (33)	Aug (34)	Sep (35)	Oct (21)	Nov (43)	Dec (63)
2005	Jan (28)	Feb (42)	Mar (29)	Apr (14)	May (41)	Jun (20)	Jul (65)	Aug (136)	Sep (41)	Oct (74)	Nov (34)	Dec (94)
2006	Jan (85)	Feb (94)	Mar (68)	Apr (103)	May (66)	Jun (51)	Jul (24)	Aug (56)	Sep (57)	Oct (85)	Nov (73)	Dec (68)
2007	Jan (59)	Feb (32)	Mar (13)	Apr (32)	May (36)	Jun (36)	Jul (64)	Aug (35)	Sep (19)	Oct (10)	Nov (13)	Dec (20)
2008	Jan (26)	Feb (41)	Mar (19)	Apr (24)	May (16)	Jun (33)	Jul (34)	Aug (4)	Sep (11)	Oct	Nov (26)	Dec (23)
2009	Jan (5)	Feb (2)	Mar (21)	Apr (16)	May (13)	Jun (6)	Jul (34)	Aug (2)	Sep (1)	Oct (7)	Nov (5)	Dec (24)
2010	Jan (3)	Feb (5)	Mar (6)	Apr (6)	May (14)	Jun (6)	Jul (1)	Aug (12)	Sep (10)	Oct (9)	Nov	Dec (2)
2011	Jan (4)	Feb (5)	Mar (30)	Apr (1)	May (2)	Jun (5)	Jul (3)	Aug (2)	Sep (3)	Oct	Nov (6)	Dec
2012	Jan	Feb (10)	Mar	Apr	May (1)	Jun (3)	Jul (1)	Aug	Sep (2)	Oct	Nov (2)	Dec (4)
2013	Jan (5)	Feb (3)	Mar	Apr (3)	May	Jun (1)	Jul	Aug	Sep	Oct	Nov	Dec
2014	Jan (2)	Feb	Mar	Apr (1)	May (3)	Jun	Jul	Aug	Sep	Oct (9)	Nov (7)	Dec
2015	Jan	Feb	Mar	Apr	May	Jun (4)	Jul	Aug	Sep	Oct	Nov	Dec
2017	Jan (1)	Feb	Mar	Apr	May	Jun	Jul	Aug	Sep	Oct (1)	Nov (5)	Dec
2019	Jan	Feb	Mar	Apr	May	Jun	Jul	Aug (2)	Sep	Oct	Nov	Dec

perl-win32-gui-users Mailing List for Win32::GUI (Page 169)

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