1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
use strict; use warnings; use Tkx; Tkx::package_require('tooltip'); Tkx::namespace_import("::tooltip::tooltip"); my $mw = Tkx::widget->new("."); my $nameDTDlbl = $mw->new_ttk__label(-text => "Name:"); $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, "Geben Sie hier den Namen ein"); Tkx::MainLoop();