Help for this page
my $wanted_style = $tree->entrycget($path_to_copy_style_from, q{-style +});
use strict; use warnings; ... $frame_b->Button(-text => q{Exit}, -command => sub { exit })->pack; MainLoop;