K
kens
Hi all,
I have recently started to look at the Tkx module for developing GUI-
based applications. In the past I have used Tk.
I am having trouble setting the font on a checkbutton's text. The code
below does not compile, it gives the error:
unknown option "-font" at test.pl line 12.
---CODE---
use strict;
use warnings;
use Tkx;
my $font = 'Courier 10 normal';
my (
$reset,
);
my $mw = Tkx::widget->new('.');
(my $resetButton = $mw->new_ttk__checkbutton
(-text => 'Reset',
-variable => \$reset,
# The -font option causes error
-font => $font,
-onvalue => 1,
-offvalue => 0,
))->g_pack(-side=>'top', -anchor=>'w');
Tkx::MainLoop();
--- End CODE ---
The Tk reference (http://www.tcl.tk/man/tcl8.5/TkCmd/
checkbutton.htm#M16) indicates the '-font' is a standard option for a
checkbutton.
Is this option just not implemented in Perl::Tkx? Or is there a
different option?
Thanks,
Ken Slater
I have recently started to look at the Tkx module for developing GUI-
based applications. In the past I have used Tk.
I am having trouble setting the font on a checkbutton's text. The code
below does not compile, it gives the error:
unknown option "-font" at test.pl line 12.
---CODE---
use strict;
use warnings;
use Tkx;
my $font = 'Courier 10 normal';
my (
$reset,
);
my $mw = Tkx::widget->new('.');
(my $resetButton = $mw->new_ttk__checkbutton
(-text => 'Reset',
-variable => \$reset,
# The -font option causes error
-font => $font,
-onvalue => 1,
-offvalue => 0,
))->g_pack(-side=>'top', -anchor=>'w');
Tkx::MainLoop();
--- End CODE ---
The Tk reference (http://www.tcl.tk/man/tcl8.5/TkCmd/
checkbutton.htm#M16) indicates the '-font' is a standard option for a
checkbutton.
Is this option just not implemented in Perl::Tkx? Or is there a
different option?
Thanks,
Ken Slater