Re^2: [Tkx] Tk's Balloon translation

Doh! You are right. BTW Gtk2 calls them tooltips as well, so forget about calling them balloons, unless for educational purposes within Tk. ! :-)

I'm not really a human, but I play one on earth.
Old Perl Programmer Haiku

Comment on Re^2: [Tkx] Tk's Balloon translation

Replies are listed 'Best First'.
Re^3: [Tkx] Tk's Balloon translation by sebapabst (Acolyte) on Feb 25, 2010 at 13:26 UTC
Ouh, I just forgot to post it! I I found how to write it, thanks a lot! Here is an example : use Tkx; Tkx::package_require('tooltip'); Tkx::namespace_import("::tooltip::tooltip"); my $mw = Tkx::widget->new("."); my $nameDTDlbl = $mw->new_ttk__label(-text => "The following entry wid +get got a tooltip :"); $nameDTDlbl->g_grid( -column => 0, -row => 0, -sticky => "we", -pady=> +5); my $nameDTDcase= $mw->new_ttk__entry(-width => 35,); $nameDTDcase->g_grid( -column => 0, -row => 1, -sticky => "w", -padx=> +10, -pady => "0 3"); Tkx::tooltip($nameDTDcase, "Example : \"tei_corpus.dtd\""); Tkx::MainLoop(); [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: [Tkx] Tk's Balloon translation
by sebapabst (Acolyte) on Feb 25, 2010 at 13:26 UTC

Ouh, I just forgot to post it! I I found how to write it, thanks a lot!
Here is an example :

use Tkx;

Tkx::package_require('tooltip');
Tkx::namespace_import("::tooltip::tooltip");


my $mw = Tkx::widget->new(".");

my $nameDTDlbl = $mw->new_ttk__label(-text => "The following entry wid
+get got a tooltip :");
$nameDTDlbl->g_grid( -column => 0, -row => 0, -sticky => "we", -pady=>
+5);
my $nameDTDcase= $mw->new_ttk__entry(-width => 35,);
$nameDTDcase->g_grid( -column => 0, -row => 1, -sticky => "w", -padx=>
+10, -pady => "0 3");
Tkx::tooltip($nameDTDcase, "Example : \"tei_corpus.dtd\"");

Tkx::MainLoop();
[download]

[reply]
[d/l]