Yeah, see Tk::Button you're looking for "relief", you can use Tk::WidgetDump to examine your program, I did, so I didn't have to hunt for docs to write this
#!/usr/local/bin/perl -- use strict; use warnings; use Tk; my $mw = new MainWindow; $mw->geometry( "300x300" ); my $label = $mw->Label( -text => "Hello World" )->pack; for my $relief ( qw/ raised sunken flat ridge solid groove / ){ my $button = $mw->Button( -text => $relief, -command => \&showMessage, -relief => $relief, -width => 10, )-> pack(); } $mw->WidgetDump; use Tk::WidgetDump; ## debuggery $mw->MainLoop; sub showMessage{ $Tk::widget->messageBox( -message => "The glossary has been merged", -icon=> 'info', ); } __END__
See also Tk::Style
In reply to Re^2: Tk Buttons look
by Anonymous Monk
in thread Tk Buttons look
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |