Thank you, this link was a great help. After some effort I got the example working. Here is my result (it may help successors):

use strict;
use warnings;
use Tkx;

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

Tkx::package_require('widget::dialog');
my $db = $mw->new_widget__dialog(
    -title => 'MyTitle',
    -type => "okcancel",
    -modal => "local",
#    -parent => $mw,
#    -padding => 10,
    -synchronous => 1,
);
$db->g_bind('<Key-Return>', sub { $db->close('ok'); });
my $f = $db->getframe();
my $yearval = 2012;
my $weekval = 16;

my $sel_fr = $db->new_ttk__frame;
my $ly = $sel_fr->new_ttk__label(-text => "Year");
my $lw = $sel_fr->new_ttk__label(-text => "Week");
my $y = $sel_fr->new_ttk__spinbox(
        -textvariable => \$yearval,
        -from => 2009, -to => 2014,
    );
my $w = $sel_fr->new_ttk__spinbox(
        -textvariable => \$weekval,
        -from => 1, -to => 53,
    );
$ly->g_grid(-row => 0, -column => 0);
$lw->g_grid(-row => 1, -column => 0);
$y->g_grid(-row => 0, -column => 1);
$w->g_grid(-row => 1, -column => 1);
$sel_fr->g_pack(-in => $f);

my $answer = $db->display;
if ($answer ne "ok") {exit};
[download]

This solution is acceptable, but not perfect. For some reason the dialog buttons stick to the right side of the window.

In the meantime I found an alternative at http://tktable.sourceforge.net/tile/doc/dialog.html. This module has more modern syntax (options instead of positional parameters), and also additional interesting options. Unfortunately I failed already at the 1st line, translating

package require ttk::dialog

from Tcl/Tk to Perl/Tkx. Hopefully one of you monks can help me along again.

Kind regards

GUIfriend

This solution is acceptable, but not perfect. For some reason the dialog buttons stick to the right side of the window.

Tk::DialogBox mentions you have no control over appearance of buttons, from experience I know this is just following Tcl/Tk tradition , so I won't go digging to see where this is explained in Tk docs (its not in the obvious places)

In the meantime I found an alternative at http://tktable.sourceforge.net/tile/doc/dialog.html ...

package require ttk::dialog
[download]

from Tcl/Tk to Perl/Tkx. Hopefully one of you monks can help me along again.

You probably don't have that installed, so the following won't help

 
$ perl -MTkx -e " Tkx::package_require(q/ttk::dialog/); "
can't find package ttk::dialog at -e line 1.
[download]

Even the undocumented (raw tcl commands) don't work

$ perl -MTkx -e " Tkx::i->interp->Eval(q/package require ttk::dialog/)
+ "
can't find package ttk::dialog at -e line 1.
[download]

Safe to say ttk::dialog doesn't come standard (esp with activeperl) so you'd have to install it yourself if its possible. See also

• ttk::dialog: site:http://docs.activestate.com, ttk::dialog: site:http://docs.activestate.com
• http://docs.activestate.com/activeperl/5.14/lib/Tkx.html
• http://docs.activestate.com/activeperl/5.14/lib/Tkx/Tutorial.html
• http://docs.activestate.com/activeperl/5.14/lib/Tcl/tkkit.html
• Re: TclTk interface with Perl code, is it possible?
• Re^2: GUI toolkit+designer for the perl newbie
• Creating Dialogs
• Re^2: Tkx.pm: invoke features of 'tcllib'

And the question is?

I would switch to Tcl::pTk, its like Tk