Re^2: [Tkx] Search for dialog box for text input

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

Comment on Re^2: [Tkx] Search for dialog box for text input Select or Download Code

Replies are listed 'Best First'.
Re^3: [Tkx] Search for dialog box for text input by Anonymous Monk on Apr 23, 2012 at 12:41 UTC
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'	[reply] [d/l] [select]
Re^4: [Tkx] Search for dialog box for text input by GUIfriend (Sexton) on Apr 28, 2012 at 08:29 UTC
Thank you for your detailed reply, with many additional hints. For me your most valuable hint was http://docs.activestate.com/activeperl/5.14/lib/Tkx/Tutorial.html. It's a pity that I wasn't aware of this tutorial before. My feeling is that every newcomer to Tkx should read it.	[reply]


Pathologically Eclectic Rubbish Lister
	PerlMonks