Pavel Stranak wrote:
> I have actually looked at it and if I was developing more GUI
> applications, I might go that way.
> When I started this, I didn't know about alternatives to Perl/Tk and
> Comodo and I also didn't know about some of Perl/Tk's problems and
> lack of development.
>
> Fortunately, as soon as I resolve remaining problems with ROText /
> Viewer implementation and Balloons,
Balloons, as they were derived from Tix, are not easy in perl/Tk and I
suggest your to not go this way.
much easier to deal with tooltips with the tooltip package, which is
within 'tklib', which is distributed with ActiveTcl but I do not how to
find it on Gentoo :(
here is example script for explanation:
use Tcl::Tk;
my $mw = Tcl::Tk::tkinit;
my $int = $mw->interp;
#uncomment next line if you bring 'tooltip.tcl' with your script:
#$int->source('tooltip.tcl');
$int->packageRequire('tooltip'); # this is shortcut for
$int->call('package','require','tooltip');
# It is like 'use module;' in perl
# Unlike $int->pkg_require('tooltip');,it will explain if package was
not found
my $b1 = $mw->Button(-text=>'button1')->pack;
my $b2 = $mw->Button(-text=>'button2')->pack;
my $b3 = $mw->Button(-text=>'button3')->pack;
my $b4 = $mw->Button(-text=>'button4')->pack;
# using tooltip is easy:
$int->call('tooltip::tooltip',$b1->path,'podskazka 1');
$int->call('tooltip::tooltip',$b2,'podskazka 2'); # $b2 will stringify
to its path when needed
# or if you need many tooltips you can do this once:
$int->namespaceImport('tooltip::*'); # once again, this is
# funny way to write $int->Eval('namespace','import','tooltip::*');
# and then
$int->tooltip($b3, "button 3 ttip");
$int->tooltip($b4, "button 4 ttip");
$int->MainLoop;
Well, I'll try to figure out how to put better explanations into Tcl::Tk
bridge module.
I'll try writing better demos, manuals.
BR,
Vadim.
