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

Replies are listed 'Best First'.
Re^2: [Tkx] Search for dialog box for text input by GUIfriend (Sexton) on Apr 23, 2012 at 10:02 UTC
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	[reply] [d/l] [select]
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]