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();