perl-win32-gui-users Mailing List for Win32::GUI

In the past I have tried various tools to profile Win32::GUI applications and I've always been disappointed with the results...
...but I have been impressed with Devel::NYTProf:
http://blog.timbunce.org/2009/12/24/nytprof-v3-worth-the-wait/
Devel::NYTProf exists as a PPM for both 5.10 and 5.8, but don't use that version (it just crashes). Download the latest version from cpan:
http://search.cpan.org/~timb/Devel-NYTProf-3.01/
Enjoy!
 		 	   		  
_________________________________________________________________
Do you have a story that started on Hotmail? Tell us now
http://clk.atdmt.com/UKM/go/195013117/direct/01/

 

> -----Original Message-----
> From: az...@nu... [mailto:az...@nu...] 
> Sent: 25 February 2010 03:54
> To: per...@li...
> Subject: [perl-win32-gui-users] Need to dynamically change the -tip
> 
> Hi,
> 
> I have developed a software using Win32::GUI and I need to have my  
> user to choose their desired language during the time when 
> they login  
> to the system. This will change not only the interface language but  
> also the tooltip. I don't have any problem doing so for 
> others but for  
> the -tip I've never succeeded.

Hi Azlan.

If you used an explicit Tooltip object instead of the -tip option, it
has a
special method to change the text. A Tooltip is a set of tooltips rather
than a
single one, so common methods (such as Text) don't work as I had
expected.

For example:

use Win32'GUI '';
my $w = Win32'GUI'Window->new('-text', 'Window', '-size', [100, 100]);
my $b = $w->AddButton('-text', 'test');
my $c = $w->AddButton('-text', 'test', '-pos', [0, 50]);
my $t = $w->AddTooltip();
$t->AddTool('-text', 'Click me.', '-subclass', 1, '-window', $b);
$t->AddTool('-text', 'Click me too.', '-subclass', 1, '-window', $c);
$b->Change('-onClick', sub() {$t->UpdateTipText($b, 'Cliquez moi.')});
$c->Change('-onClick', sub() {$t->UpdateTipText($c, 'Cliquez moi
aussi.')});
$w->Show;
Win32'GUI'Dialog;

The other way to change the text is to recreate the component which has
the
tooltip, but the above should usually be simpler.

Kieron

Hi,

I have developed a software using Win32::GUI and I need to have my  
user to choose their desired language during the time when they login  
to the system. This will change not only the interface language but  
also the tooltip. I don't have any problem doing so for others but for  
the -tip I've never succeeded.

Example one of my button:

$MAIN->AddButton(
      -name => 'Load_3',
      -text => "Load file",
      -size => [100, $BH],
      -pos =>[$LM, 223],
      -tabstop => 1,
      -tip=> "Load proxies from database"
);

I can have a function to directly change the -text but not the -tip.  
Have tried several ways but still failed. (Strangely it works only for  
Notifyicon) I have also tried using Win32::GUI::Tooltip, but I can't  
seams to make it working.

So can anyone please advise me the best way to do this.

Thanking you all in advance. :)

Regards,
Azlan

Bradley,

 

It should be -onclick instead of -click. Also, instead of using the Change() method, use ReadOnly(1) to enable readonly and ReadOnly(0) to disable.

 

Hope this helps,

 

Kevin.
 


Date: Wed, 24 Feb 2010 13:28:09 -0500
From: Bra...@bi...
To: per...@li...
Subject: [perl-win32-gui-users] Executing a subroutine when selecting a radio button







Hi,
 
I am trying to set up an action using radio buttons that when it is selected it changes the readonly state of the text field (see below code).  This code runs but the subroutine does not work when the radio button is selected.  I expect that the –click option is not doing what I want it to do.  Does anyone have any suggestions on how to get the functionality that I am looking for?
 
Cheers!
 
 
 
#!perl -w
use strict;
#use warnings;
use Win32::GUI();
 
my $w = 250;
my $h = 100;
my $main = Win32::GUI::Window->new(
    -name => 'Main',
    -text => 'Example Window',
    -width => $w,
    -height => $h,
    -resizable => 0
);
 
$main->AddRadioButton (
        -name    => 'radio_1',
        -pos     => [10, 10],
        -size    => [12,12],
        -checked => '1',
        -click => sub{$main->user_text->Change(-readonly => 1);},
);
 
$main->AddLabel(
    -text => "Disable Textfield",
    -pos => [25,10],
);
 
$main->AddRadioButton (
        -name    => 'radio_2',
        -pos     => [10, 30],
        -size    => [12,12],
        -click => sub{$main->user_text->Change(-readonly => 0);},
);
 
$main->AddLabel(
    -text => "Enable Textfield",
    -pos => [25,30],
);
 
$main->AddTextfield(
    -name => 'user_text',
    -pos => [110,28],
    -size => [60,20],
    -align => 'left',
    -readonly => 1,
);
 
$main->Show();
Win32::GUI::Dialog();     		 	   		  
_________________________________________________________________
Looking for a place to rent, share or buy? Find your next place with ninemsn Property
http://clk.atdmt.com/NMN/go/157631292/direct/01/

Hi,

 

I am trying to set up an action using radio buttons that when it is
selected it changes the readonly state of the text field (see below
code).  This code runs but the subroutine does not work when the radio
button is selected.  I expect that the -click option is not doing what I
want it to do.  Does anyone have any suggestions on how to get the
functionality that I am looking for?

 

Cheers!

 

 

 

#!perl -w

use strict;

#use warnings;

use Win32::GUI();

 

my $w = 250;

my $h = 100;

my $main = Win32::GUI::Window->new(

    -name => 'Main',

    -text => 'Example Window',

    -width => $w,

    -height => $h,

    -resizable => 0

);

 

$main->AddRadioButton (

        -name    => 'radio_1',

        -pos     => [10, 10],

        -size    => [12,12],

        -checked => '1',

        -click => sub{$main->user_text->Change(-readonly => 1);},

);

 

$main->AddLabel(

    -text => "Disable Textfield",

    -pos => [25,10],

);

 

$main->AddRadioButton (

        -name    => 'radio_2',

        -pos     => [10, 30],

        -size    => [12,12],

        -click => sub{$main->user_text->Change(-readonly => 0);},

);

 

$main->AddLabel(

    -text => "Enable Textfield",

    -pos => [25,30],

);

 

$main->AddTextfield(

    -name => 'user_text',

    -pos => [110,28],

    -size => [60,20],

    -align => 'left',

    -readonly => 1,

);

 

$main->Show();

Win32::GUI::Dialog();