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

Re: [perl-win32-gui-users] How to pass $_ to a subroutine

[Perl R. <pe...@co...>]

If you specify -onClick, aren't you using the NEM?

At any rate, Steve was exactly right: I had to assign the name of the button
to a temp variable and use a closure. Thank you so much Steve!!! I could
have written your other post verbatim (I'm surprised I couldn't find it with
all my searching). I was banging my head against this for hours, losing the
will to live but knowing that it just HAD to be possible! Thanks again!

BTW, in case it helps anyone else, here's the updated code that DWIM:


foreach ( @button_names ) {
    my ($name) = $_; # This creates a closure and assigns the name to a
temporary variable that persists into the Button_Clicked() subroutine.
    $main->AddButton(
                   -name    => $name,
                   -size    => [251,35],
                   -pos     => [0,$y],
                   -text    => $name,
                   -onClick => sub { Button_Clicked ( $name ) },
    );
    ++$y;
}
 
sub Button_Clicked {
     print "Your name is " . $_[0];
}


Regards,
Rob

-----Original Message-----
From: jez...@ho... [mailto:jez...@ho...] 
Sent: Monday, January 08, 2007 4:08 AM
To: pe...@co...; per...@li...
Subject: RE: [perl-win32-gui-users] How to pass $_ to a subroutine

Silly question, but why don't you use the NEM?

Cheers,

Jeremy.

-----Original Message-----
From: "Perl Rob" <pe...@co...>
To: "Win32 GUI Users Mailing List"
<per...@li...>
Sent: 08/01/07 08:06
Subject: [perl-win32-gui-users] How to pass $_ to a subroutine

Hi all,
 
Are you ready for this one? :) Let's see if I can even explain what I'm
trying to do...
 
I'm attempting to dynamically create buttons that use the -onClick option to
go to a subroutine that is passed the name of the button. Why am I doing
this, you ask? Well, since I don't know the name of the button at the time
of its creation, I can't have an OEM event handler for it. Below is a code
snippet that might explain it better. The problem comes on line 7 when I try
to pass the name of the button (stored in $_ ) to the subroutine. I just
can't get $_ to persist when the subroutine is called later: 
 
#############################################
 
foreach ( @button_names ) {
    $main->AddButton(
                   -name    => $_,
                   -size    => [251,35],
                   -pos     => [0,$y],
                   -text    => $_,
                   -onClick => sub { Button_Clicked ( $_ ) },
    );
    ++$y;
}
 
sub Button_Clicked {
     print "Your name is " . $_;
}
 
#############################################
 
There just has to be a way to DWIM, but I've read perlsub over and over
again without figuring it out. How can I pass the name of the button to the
subroutine successfully?
 
Thanks,
Rob

Re: [perl-win32-gui-users] Writing ActiveX modules in perl?

[Jan D. <ja...@Ac...>]

On Mon, 08 Jan 2007 17:03:45 +0000, Steve Loughran
<ste...@sc...> wrote:

>Is it relatively easy to do with the AS dev kit? Are there any online 
>help/FAQs about it? or will I be taking a trip to the local bookstore to 
>get some AX books (and convert back into perl code :) )

The PDK includes a step-by-step tutorial of a simple components:

  http://aspn.activestate.com/ASPN/docs/PDK/6.0/PerlCtrl_build.html

Note that you cannot actually create GUI ActiveX controls with PerlCtrl,
it really creates just COM components (as .DLLs) that can be called from
other languages.

Why don't you just download it with a trial license and see if it works
for you:

  http://www.activestate.com/Products/Perl_Dev_Kit

Cheers,
-Jan

Re: [perl-win32-gui-users] Writing ActiveX modules in perl?

[Steve L. <ste...@sc...>]

Is it relatively easy to do with the AS dev kit? Are there any online 
help/FAQs about it? or will I be taking a trip to the local bookstore to 
get some AX books (and convert back into perl code :) )

Steve

Jason Plum wrote:
> With the ActiveState Perl Dev Kit, yes, it is possible to make 
> stanadlone ActiveX objects for other programs uses :)
> 
> Jason P

Re: [perl-win32-gui-users] Writing ActiveX modules in perl?

[Jason P. <jp...@un...>]

With the ActiveState Perl Dev Kit, yes, it is possible to make 
stanadlone ActiveX objects for other programs uses :)

Jason P

Steve Loughran wrote:
> Slightly off-topic, but is it possible to write standalone (dll or ocx) 
> ActiveX modules in win32 perl? (And I dont mean show them in perl using 
> AXWindow). Or should I just stick with VB6 for that?
>
> Any helpful hints or tips would be gratefully received, especially from 
> anyone who has actually done this (or still doing it)
>
> Steve
>
> -------------------------------------------------------------------------
> Take Surveys. Earn Cash. Influence the Future of IT
> Join SourceForge.net's Techsay panel and you'll get the chance to share your
> opinions on IT & business topics through brief surveys - and earn cash
> http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/
>
>
>
>   

[perl-win32-gui-users] Writing ActiveX modules in perl?

[Steve L. <ste...@sc...>]

Slightly off-topic, but is it possible to write standalone (dll or ocx) 
ActiveX modules in win32 perl? (And I dont mean show them in perl using 
AXWindow). Or should I just stick with VB6 for that?

Any helpful hints or tips would be gratefully received, especially from 
anyone who has actually done this (or still doing it)

Steve

Re: [perl-win32-gui-users] Multi threaded Win32: :GUI app and the DBI (DBD: :mysql)

[Charles A. <cha...@al...>]

Wow, I didn't realize my perl was so out of date.  I thought I'd  
installed the latest version this June, but it turns out I had a 2+  
year old version.

So, the easy solution is to install 5.8.8.  That fixes the DBI, threads issue.


Thanks,
Charles Alderman


Quoting jez...@ho...:

> Hi,
>
> Good post - thanks for sharing.
>
> I noticed that you are using 5.8.4 if you can upgrade to at least   
> 5.8.7 you should find things more stable (less free to wrong pool   
> crashes).
>
> Cheers,
>
> Jeremy.
>
>
>

Re: [perl-win32-gui-users] a newbie's question

[Geoffrey S. <geo...@gm...>]

Without seeing your code, I'd assume that you're opening the file
outside of the "Run" subroutine and just reading the data in that
subroutine.  If this is the case, what you want to do is open the file
at the start of the subroutine, read the data, then close the file at
the end of the subroutine.  This way, it will be opened, read, and
closed each time "Run" is clicked.

On 1/7/07, Guojun Yang <gy...@pl...> wrote:
>
>
>
> Hi, All,
>
> I am trying to make a window with a "Run" botton. After click, it inports
> text from a file and, after manual manipulation of the text data in the
> textbox, it produces a graph using the text of the box. Then the graph will
> be displayed on the same window. It runs only on the first time I click
> "Run". When I click "Run" again after the first click, an error was returned
> basically saying the file reading pointer is at the end of the file, so no
> calculation is performed. Can anybody give me a hint on this?
>
> Thanks a lot,
>
> Guojun
> -------------------------------------------------------------------------
> Take Surveys. Earn Cash. Influence the Future of IT
> Join SourceForge.net's Techsay panel and you'll get the chance to share your
> opinions on IT & business topics through brief surveys - and earn cash
> http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/
>
>


-- 
Geoffrey Spear
http://www.geoffreyspear.com/

Re: [perl-win32-gui-users] How to pass $_ to a subroutine

[<jez...@ho...>]

Silly question, but why don't you use the NEM?

Cheers,

Jeremy.

-----Original Message-----
From: "Perl Rob" <pe...@co...>
To: "Win32 GUI Users Mailing List" <per...@li...>
Sent: 08/01/07 08:06
Subject: [perl-win32-gui-users] How to pass $_ to a subroutine

Hi all,
 
Are you ready for this one? :) Let's see if I can even explain what I'm
trying to do...
 
I'm attempting to dynamically create buttons that use the -onClick option to
go to a subroutine that is passed the name of the button. Why am I doing
this, you ask? Well, since I don't know the name of the button at the time
of its creation, I can't have an OEM event handler for it. Below is a code
snippet that might explain it better. The problem comes on line 7 when I try
to pass the name of the button (stored in $_ ) to the subroutine. I just
can't get $_ to persist when the subroutine is called later: 
 
#############################################
 
foreach ( @button_names ) {
    $main->AddButton(
                   -name    => $_,
                   -size    => [251,35],
                   -pos     => [0,$y],
                   -text    => $_,
                   -onClick => sub { Button_Clicked ( $_ ) },
    );
    ++$y;
}
 
sub Button_Clicked {
     print "Your name is " . $_;
}
 
#############################################
 
There just has to be a way to DWIM, but I've read perlsub over and over
again without figuring it out. How can I pass the name of the button to the
subroutine successfully?
 
Thanks,
Rob

Re: [perl-win32-gui-users] How to pass $_ to a subroutine

[Steve L. <ste...@sc...>]

kind of been there, done that, banged my head against it for several 
hours :)

I assigned the "name" to a temp variable, and used that

	my $name = $configdata{name};

then used

	-onClick => Button_Clicked($name)

http://sourceforge.net/mailarchive/message.php?msg_id=14457436


Perl Rob wrote:
> Hi all,
>  
> Are you ready for this one? :) Let's see if I can even explain what I'm 
> trying to do...
>  
> I'm attempting to dynamically create buttons that use the -onClick 
> option to go to a subroutine that is passed the name of the button. Why 
> am I doing this, you ask? Well, since I don't know the name of the 
> button at the time of its creation, I can't have an OEM event handler 
> for it. Below is a code snippet that might explain it better. The 
> problem comes on line 7 when I try to pass the name of the button 
> (stored in $_ ) to the subroutine. I just can't get $_ to persist when 
> the subroutine is called later: 
>  
> #############################################
>  
> foreach ( @button_names ) {
>     $main->AddButton(
>                    -name    => $_,
>                    -size    => [251,35],
>                    -pos     => [0,$y],
>                    -text    => $_,
>                    -onClick => sub { Button_Clicked ( $_ ) },
>     );
>     ++$y;
> }
>  
> sub Button_Clicked {
>      print "Your name is " . $_;
> }
>  
> #############################################
>  
> There just has to be a way to DWIM, but I've read perlsub over and over 
> again without figuring it out. How can I pass the name of the button to 
> the subroutine successfully?
>  
> Thanks,
> Rob
> 
> 
> ------------------------------------------------------------------------
> 
> -------------------------------------------------------------------------
> Take Surveys. Earn Cash. Influence the Future of IT
> Join SourceForge.net's Techsay panel and you'll get the chance to share your
> opinions on IT & business topics through brief surveys - and earn cash
> http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
> 
> 
> ------------------------------------------------------------------------
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/

[perl-win32-gui-users] How to pass $_ to a subroutine

[Perl R. <pe...@co...>]

Hi all,
 
Are you ready for this one? :) Let's see if I can even explain what I'm
trying to do...
 
I'm attempting to dynamically create buttons that use the -onClick option to
go to a subroutine that is passed the name of the button. Why am I doing
this, you ask? Well, since I don't know the name of the button at the time
of its creation, I can't have an OEM event handler for it. Below is a code
snippet that might explain it better. The problem comes on line 7 when I try
to pass the name of the button (stored in $_ ) to the subroutine. I just
can't get $_ to persist when the subroutine is called later: 
 
#############################################
 
foreach ( @button_names ) {
    $main->AddButton(
                   -name    => $_,
                   -size    => [251,35],
                   -pos     => [0,$y],
                   -text    => $_,
                   -onClick => sub { Button_Clicked ( $_ ) },
    );
    ++$y;
}
 
sub Button_Clicked {
     print "Your name is " . $_;
}
 
#############################################
 
There just has to be a way to DWIM, but I've read perlsub over and over
again without figuring it out. How can I pass the name of the button to the
subroutine successfully?
 
Thanks,
Rob

[perl-win32-gui-users] a newbie's question

[Guojun Y. <gy...@pl...>]

Hi, All, =20

I am trying to make a window with a "Run" botton. After click, it inport=
s text from a file and, after manual manipulation of the text data in th=
e textbox, it produces a graph using the text of the box. Then the graph=
 will be displayed on the same window. It runs only on the first time I =
click "Run". When I click "Run" again after the first click, an error wa=
s returned basically saying the file reading pointer is at the end of th=
e file, so no calculation is performed. Can anybody give me a hint on th=
is=3F =20

Thanks a lot, =20

Guojun

Re: [perl-win32-gui-users] Multi threaded Win32: :GUI app and the DBI (DBD: :mysql)

[<jez...@ho...>]

Hi,

Good post - thanks for sharing.

I noticed that you are using 5.8.4 if you can upgrade to at least 5.8.7 you should find things more stable (less free to wrong pool crashes). 

Cheers,

Jeremy.

[perl-win32-gui-users] Multi threaded Win32::GUI app and the DBI (DBD::mysql)

[Charles A. <cha...@al...>]

q!

Hi everyone,

This is a long message describing what I've learned about Win32::GUI,
threads, and the DBI (DBD::mysql in my case).

First of all, I want to thank the authors and contributors to this
great Win32::GUI module.  I've been using the module for a couple
of weeks now on a side programming job I have.  In the spirit of
giving back, I'd like to share a solution that I've come across
regarding a multi-threaded Win32-GUI app with a worker thread that
makes DB connections, does other work, and updates the GUI with its
progress.  I hope this can help someone.

=3D=3D=3D The Problem =3D=3D=3D

I want a multi-threaded GUI application because I have long queries
that I need to run and I still want my GUI to be responsive to the
user.  With a single threaded application, while the thread is waiting
on a query to complete, the GUI freezes up and becomes unresponsive.

To solve this issue, I first tried to use the Win32::GUI::ThreadUtils
module. (http://www.robmay.me.uk/win32gui/ BTW, thanks to Mr. Rob May.
I'm not using ThreadUtils but I am using your really cool SplashScreen
module.)  I can get the ThreadUtils examples to work, but when I start
mixing in DB connections, that's when things start to get hairy.

When using threads and the MySQL DBD, I seem to have issues.  The
connection works fine when instantiated, but when the script exits,
there is a garbage collection error: Free to wrong pool during global
destruction. (Resulting in one of those horrible Microsoft Send Error
Report popups.)  This does not make a professional looking
application.

Here's an example of the threaded DBD::mysql problem:

<perlcode>

use strict;
use threads;
use DBI;

my $thr =3D threads->new(\&worker);
$thr->join;
print "Uh-oh\n";

sub worker {
   my $dbi =3D DBI->connect( 'dbi:mysql:test', 'user', 'pass' );
   return 0;
}

</perlcode>


=3D=3D=3D My Solution =3D=3D=3D

Strangely enough, fork() works where perl threads don't.  I don't
know the details of why this is.  I say strangely because it is my
understanding that fork is emulated on Windows by using perl threads.
(See http://search.cpan.org/~nwclark/perl-5.8.8/pod/perlfork.pod).
I've found that a fork()ed pseudo-process that has its own DB
connection doesn't die with the same garbage collection error as
threads do when exiting.

So, my setup is to have a worker fork()ed pseudo-process that handles
all DB connections.  The worker is pre-forked (after the GUI is set
up) so that there is no delay when the user makes a request.  The
GUI thread communicates with the worker via a one-way pipe.

It is my understanding that this works as the the fork()ed worker
pseudo-process gets a copy of all the GUI handles and makes its own
DB handles.  GUI handles can be shared among threads, but DB handles
can't be shared.

Compatibility:  In my application, I'm also using the GUI Loft visual
editor to create my GUI and the Win32::GUI::SplashScreen module for
a quick and easy splash screen.  Both tools seem to work fine with
this method of preforking a worker process.  Actually, I think the
splash screen is necessary because there is a noticable delay when
calling fork() (or at least on my machine there is).

See http://www.bahnhof.se/~johanl/perl/Loft/ for more info on GUI
Loft.

One final note on the "Attempt to free unreferenced scalar" errors.
I've noticed that when I create my own Win32::GUI objects "by hand",
I get "Attempt to free unreferenced scalar" errors on script
termination.  This is also noted in the examples from
Win32::GUI::ThreadUtils.  However, if I use Win32::GUI::Loft to create
my GUI objects, I don't get any errors on script termination.  I'm
not sure why this is.

I've included an example below.

=3D=3D=3D My Configuration Details =3D=3D=3D

Win32::GUI - 1.03
DBI        - 1.53
DBD::mysql - 3.0002
perl       - v5.8.4 built for MSWin32-x86-multi-thread
              (ActiveState binary build 810).
The modules were installed from the ActiveState PPM2 Repository.
MySQL server - 5.0


Well, I hope this can help someone.  I'd love to hear any questions
or comments.

Thanks,
Charles Alderman
charlie-win32gui at aldermania dot com
!;

####  Example  ####
## Obviously, this example is written for windows.  I'm running XP.
## In this example, there is a GUI thread (parent) and a worker thread
## (child).  The worker thread handles all DB connections to a MySQL
## database.
##
## Note: I just say thread, although each thread is actualy a
## pseudo-process that has been forked.  The terminology may need
## some work.

use strict;
use warnings;

use DBI;
use Win32::GUI ();

my $parent;   # Indirect filehandle for the GUI thread

sub main {

   my $win =3D Win32::GUI::Window->new(
     -name  =3D> 'MainWindow',
     -title =3D> 'Forking Exmple',
=09  -pos   =3D> [100,100],
=09  -size  =3D> [300,300],
   );

   $win->AddTextfield(
=09  -name =3D> 'tfResults',
=09  -multiline =3D> 1,
=09  -vscroll =3D> 1,
=09  -autovscroll =3D> 1,
=09  -pos =3D> [10,10],
=09  -size =3D> [280,200],
   );

   $win->AddButton(
     -name =3D> 'btQuery',
     -text =3D> 'Run Query',
=09  -pos  =3D> [10, 220],
=09  -height =3D> 25,
   );

   ########################################################
   ## Set up worker process... communicate through a pipe
   ## the worker thread eval's anything passed from the GUI thread.
   ##
   pipe my $child, $parent or die "Can't create pipe: $!";
   my $pid =3D fork;
   die "Can't fork: $!" unless defined $pid;

   # Child...
   if ($pid =3D=3D 0) {

     my $dbh =3D DBI->connect( 'dbi:mysql:test_db', 'user', 'pass' );

     close $parent;
     while (<$child>) {
       print "$_\n";

       my $results =3D eval $_;
       next unless $results;

       for my $row ( @$results ) {
         my $str =3D join ', ', @$row;
         $str .=3D "\r\n";  # \r\n necessary for the textfield
         $win->tfResults->Append( $str );
       }
     }
     exit(0);
   }

   # Back to parent...
   # Make sure to set the pipe to auto-flush
   close $child;
   my $stdout =3D select $parent;
   $|++;
   select $stdout;
   ########################################################

   $win->Show();
   Win32::GUI::Dialog();
   $win->DESTROY;
}


sub MainWindow_Terminate {
   close $parent;  # This is necessary to clean up the worker thread
   wait;
   return(-1);
}

sub btQuery_Click {
   print $parent q{
     $dbh->selectall_arrayref('SELECT * FROM my_table');
   };
}

# Start up...
eval { main() };
Win32::GUI::MessageBox(0, "Error: $@", "DOH") if $@;

Re: [perl-win32-gui-users] Trouble setting the focus in a ListView

[Robert M. <rm...@po...>]

Brian Fredette wrote:
> All,
> How do I set the focus to a particular item in a ListView once the 
> ListView receives the focus?  So far I have:

[snip]

> # list view for roles
> $Window->AddListView(
>    -name => "lbRoles",
>    -pos  => [ 15, 90 ],
>    -size => [ 245, 145 ],
>    -fullrowselect => 1,
>    -nocolumnheader => 1,
>    -visible => 1,
>    -tabstop => 1,
>    -onGotFocus => sub {
>                         $Window->lbRoles->SetSelectionMark(3);
                           $Window->lbRoles->Select(3);
>                         return;
>                   },
>  );

If I understand your question correctly.

Regards,
Rob.

Re: [perl-win32-gui-users] Change values out of a thread

[Steve L. <ste...@sc...>]

http://www.robmay.me.uk/win32gui/


Darian wrote:
> Hello Uwe, 
> 
> How do I find this package. I searched on google but could not find it. Do
> you have a link you can forward? 
> 
> -Darian
> 
> 
> 
> Kind, Uwe (AGIS) wrote:
>> Hi maleadt, 
>>
>>  
>>
>> have a look at the Win32::GUI::ThreadUtils package. It comes with a good
>> example for changing the value of a progress bar. Setting the content of
>> a textbox is quite comparable.
>>  
>> Bye,
>> Uwe
>>  
>> ________________________________
>>
>> Von: per...@li...
>> [mailto:per...@li...] Im Auftrag
>> von MALEADt
>> Gesendet: Mittwoch, 27. Dezember 2006 21:01
>> An: per...@li...
>> Betreff: [perl-win32-gui-users] Change values out of a thread
>>
>>
>>
>> Hi,
>>
>>  
>>
>> Maybe a stupid question, but how do I change a value of a textbox out of
>> a thread?
>>
>> Textbox is created in the main program. On a button click, a thread is
>> launched and detached, but that thread can't change the value of that
>> textbox.. always getting: "thread failed to start: can't call method
>> "change" on unblessed reference at ...".
>>
>>  
>>
>> Thanks in advance,
>>
>> maleadt
>>
>>
>> -------------------------------------------------------------------------
>> Take Surveys. Earn Cash. Influence the Future of IT
>> Join SourceForge.net's Techsay panel and you'll get the chance to share
>> your
>> opinions on IT & business topics through brief surveys - and earn cash
>> http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
>> _______________________________________________
>> Perl-Win32-GUI-Users mailing list
>> Per...@li...
>> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>> http://perl-win32-gui.sourceforge.net/
>>
> 

[perl-win32-gui-users] Trouble setting the focus in a ListView

[Brian F. <bfr...@gm...>]

All,
How do I set the focus to a particular item in a ListView once the ListView
receives the focus?  So far I have:


#! perl
use Win32::GUI;
my %roles = ("r1" => "role 1",
 "r2" => "role 2",
 "r3" => "role 3",
 "r4" => "role 4",
 "r5" => "role 5",
);

# Create Main Window
my $Window = new Win32::GUI::DialogBox (
   -name     => "Window",
   -title    => "Testing",
   -pos      => [100, 100],
   -size     => [400, 400],
) or die "new Window";

#
# list view for roles
$Window->AddListView(
   -name => "lbRoles",
   -pos  => [ 15, 90 ],
   -size => [ 245, 145 ],
   -fullrowselect => 1,
   -nocolumnheader => 1,
   -visible => 1,
   -tabstop => 1,
   -onGotFocus => sub {
                        $Window->lbRoles->SetSelectionMark(3);
                        return;
                  },
 );

$Window->lbRoles->InsertColumn( -index => 0, -subitem => 0, -text=>
"Description", -width => 240);

foreach (sort keys %roles) {
 $Window->lbRoles->InsertItem(-text => ["$roles{$_}"]) if $_ ne "" &&
$roles{$_} ne "";
}

#
# ok button
#
$Window->AddButton(
   -name => "btnOk",
   -pos=>[36,242],
   -width => 100,
   -height => 25,
   -cancel => 1,
   -text => "Ok",
   -default => 1,
   -ok => 1,
   -tabstop => 1,
   -visible => 1,
);
# ---
# end ok button

$Window->Show();
Win32::GUI::Dialog();
__END__


Thanks,
Brian

Re: [perl-win32-gui-users] Change values out of a thread

[Darian <dm...@ho...>]

Hello Uwe, 

How do I find this package. I searched on google but could not find it. Do
you have a link you can forward? 

-Darian



Kind, Uwe (AGIS) wrote:
> 
> Hi maleadt, 
> 
>  
> 
> have a look at the Win32::GUI::ThreadUtils package. It comes with a good
> example for changing the value of a progress bar. Setting the content of
> a textbox is quite comparable.
>  
> Bye,
> Uwe
>  
> ________________________________
> 
> Von: per...@li...
> [mailto:per...@li...] Im Auftrag
> von MALEADt
> Gesendet: Mittwoch, 27. Dezember 2006 21:01
> An: per...@li...
> Betreff: [perl-win32-gui-users] Change values out of a thread
> 
> 
> 
> Hi,
> 
>  
> 
> Maybe a stupid question, but how do I change a value of a textbox out of
> a thread?
> 
> Textbox is created in the main program. On a button click, a thread is
> launched and detached, but that thread can't change the value of that
> textbox.. always getting: "thread failed to start: can't call method
> "change" on unblessed reference at ...".
> 
>  
> 
> Thanks in advance,
> 
> maleadt
> 
> 
> -------------------------------------------------------------------------
> Take Surveys. Earn Cash. Influence the Future of IT
> Join SourceForge.net's Techsay panel and you'll get the chance to share
> your
> opinions on IT & business topics through brief surveys - and earn cash
> http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/
> 

-- 
View this message in context: http://www.nabble.com/Change-values-out-of-a-thread-tf2887447.html#a8142292
Sent from the perl-win32-gui-users mailing list archive at Nabble.com.

Re: [perl-win32-gui-users] [win32-gui] Possible to change default button in DialogBox

[Brian F. <bfr...@gm...>]

Hi Rob,

Thanks for the pointers.  I was able to get this working by using
btnTest->Change(-default=>1).


On 1/2/07, Robert May <rm...@po...> wrote:
>
> Brian Fredette wrote:
> > Is it possible to change the default button in a window created with
> > DialogBox?
>
> Yes, give the (one) button you want to be default the
>   -default => 1
> option.
>
> Regards,
> Rob.
>

Re: [perl-win32-gui-users] [win32-gui] Tooltips balloon icons

[Robert M. <rm...@po...>]

Brian Millham wrote:
> The balloon with NotifyIcon works correctly. It's when using a ToolTip (for
> a window) that the 'warning' and 'info' icons are reversed (when using the
> -balloon option). I can post a sample if that will help.

OK - I mis-read your original post.  No need for an example - I can see 
that it's wrong - will be fixed in the next release.

Thanks,
Rob.


> 
> Brian Millham
> Tommy, Helen and Paka
> This message has traveled at least 44,000 miles to reach you!
> http://www.millham.net
> br...@mi...
> 
>> -----Original Message-----
>> From: Robert May [mailto:rm...@po...]
>> Sent: Tuesday, January 02, 2007 4:53 PM
>> To: Brian Millham
>> Cc: per...@li...
>> Subject: Re: [win32-gui] [perl-win32-gui-users] Tooltips balloon icons
>>
>> Brian Millham wrote:
>>> I've just started using ToolTips with the -balloon option.  It appears
>> that
>>> the 'warning' and 'info' icons are reversed (1.05). When I use the
>> 'warning'
>>> icon, the info icon is displayed, and when I use the 'info' icon, I get
>> the
>>> ! in a triangle icon.  Should I raise a tracker on this?
>> Are you sure?  They seem OK for me (AS Perl 5.8.8, Win2k).  Can you run
>> the NotifyIcon.pl demo and see if it behaves correctly for you?
>>
>> Thanks,
>> Rob.
> ---
> avast! Antivirus: Outbound message clean.
> Virus Database (VPS): 0666-1, 12/31/2006
> Tested on: 1/2/2007 7:48:49 PM
> avast! is copyright (c) 2000-2007 ALWIL Software.
> http://www.avast.com
> 
> 
> 
> ---
> avast! Antivirus: Outbound message clean.
> Virus Database (VPS): 0666-1, 12/31/2006
> Tested on: 1/2/2007 7:49:39 PM
> avast! is copyright (c) 2000-2007 ALWIL Software.
> http://www.avast.com
> 
> 
> 
> 
> 
> -------------------------------------------------------------------------
> Take Surveys. Earn Cash. Influence the Future of IT
> Join SourceForge.net's Techsay panel and you'll get the chance to share your
> opinions on IT & business topics through brief surveys - and earn cash
> http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/
> 

Re: [perl-win32-gui-users] [win32-gui] Tooltips balloon icons

[Brian M. <bmi...@hu...>]

The balloon with NotifyIcon works correctly. It's when using a ToolTip (for
a window) that the 'warning' and 'info' icons are reversed (when using the
-balloon option). I can post a sample if that will help.

Brian Millham
Tommy, Helen and Paka
This message has traveled at least 44,000 miles to reach you!
http://www.millham.net
br...@mi...

> -----Original Message-----
> From: Robert May [mailto:rm...@po...]
> Sent: Tuesday, January 02, 2007 4:53 PM
> To: Brian Millham
> Cc: per...@li...
> Subject: Re: [win32-gui] [perl-win32-gui-users] Tooltips balloon icons
> 
> Brian Millham wrote:
> > I've just started using ToolTips with the -balloon option.  It appears
> that
> > the 'warning' and 'info' icons are reversed (1.05). When I use the
> 'warning'
> > icon, the info icon is displayed, and when I use the 'info' icon, I get
> the
> > ! in a triangle icon.  Should I raise a tracker on this?
> 
> Are you sure?  They seem OK for me (AS Perl 5.8.8, Win2k).  Can you run
> the NotifyIcon.pl demo and see if it behaves correctly for you?
> 
> Thanks,
> Rob.
---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 0666-1, 12/31/2006
Tested on: 1/2/2007 7:48:49 PM
avast! is copyright (c) 2000-2007 ALWIL Software.
http://www.avast.com



---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 0666-1, 12/31/2006
Tested on: 1/2/2007 7:49:39 PM
avast! is copyright (c) 2000-2007 ALWIL Software.
http://www.avast.com

Re: [perl-win32-gui-users] [win32-gui] Possible to change default button in DialogBox

[Robert M. <rm...@po...>]

Brian Fredette wrote:
> Is it possible to change the default button in a window created with 
> DialogBox?

Yes, give the (one) button you want to be default the
   -default => 1
option.

Regards,
Rob.

[perl-win32-gui-users] Possible to change default button in DialogBox

[Brian F. <bfr...@gm...>]

All,

Is it possible to change the default button in a window created with
DialogBox?

Thanks in advance.

Brian

Re: [perl-win32-gui-users] [win32-gui] Button + multiline text?

[Robert M. <rm...@po...>]

Steve Loughran wrote:
> Secondly, I notice there is a -multiline option for buttons, but I am 
> unable to force my text to "wrap" with the usual "\r\n" entry in the 
> text that I can use in other objects that support the -multiline option. 
> Any ideas?

It seems to work for me.  Does this work for you?
Regards,
Rob.

#!perl -w
use strict;
use warnings;

use Win32::GUI 1.05 qw(CW_USEDEFAULT);

my $mw = Win32::GUI::Window->new(
     -left => CW_USEDEFAULT,
     -size => [400,300],
);

$mw->AddButton(
     -width  => 150,
     -height => 60,
     -multiline => 1,
     -align => 'left',
     -text  => "Some quite long text that we want to wrap.\r\n" .
               "And a second line",
);

$mw->Show();
Win32::GUI::Dialog();
$mw->Hide();
exit(0);

Re: [perl-win32-gui-users] [win32-gui] Tooltips balloon icons

[Robert M. <rm...@po...>]

Brian Millham wrote:
> I've just started using ToolTips with the -balloon option.  It appears that
> the 'warning' and 'info' icons are reversed (1.05). When I use the 'warning'
> icon, the info icon is displayed, and when I use the 'info' icon, I get the
> ! in a triangle icon.  Should I raise a tracker on this?

Are you sure?  They seem OK for me (AS Perl 5.8.8, Win2k).  Can you run 
the NotifyIcon.pl demo and see if it behaves correctly for you?

Thanks,
Rob.

Re: [perl-win32-gui-users] [win32-gui] Is it possible to print an inline bitmap using Win32::Printer?

[Robert M. <rm...@po...>]

Perl Rob wrote:
> Hi all,
>  
> I'd like to print inline bitmaps using the Win32::Printer module, but 
> I'm confused by the "$dc" in every one of the documentation examples:

I'm not familiar with Win32::Printer, but the $dc in the snippet you 
look at below looks like a Win32::Printer object from a quick scan of 
the Win32::Printer documentation.

Not sure I can be of more help than that.

Regards,
Rob.

>  
> #############################
>  
> $image_handle = $dc->Image($filename);
> ($image_handle, $original_width, $original_height) = $dc->Image($filename);
>  
> or
>  
> $image_handle = $dc->Image($filename, $x, $y, [$width, $height]);
> ($image_handle, $original_width, $original_height) = 
> $dc->Image($filename, $x, $y, [$width, $height]);
> $dc->Image($image_handle, $x, $y, [$width, $height]);
>  
> or
>  
> ($width, $height) = $dc->Image($image_handle);
>  
> #############################
>  
> What exactly is $dc, and how/where do I define it? Also...must I specify 
> a filename, or can $image_handle be an inline bitmap?
>  
> Thanks,
> Rob
>  
> P.S. - A special thanks to Richard Noble for sending me a PPD of 
> Win32::Printer built with FreeImage support.
> 
> 
> ------------------------------------------------------------------------
> 
> -------------------------------------------------------------------------
> Take Surveys. Earn Cash. Influence the Future of IT
> Join SourceForge.net's Techsay panel and you'll get the chance to share your
> opinions on IT & business topics through brief surveys - and earn cash
> http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
> 
> 
> ------------------------------------------------------------------------
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/