my $wanted_style = $tree->entrycget($path_to_copy_style_from, q{-style});

##</code><code>##

use strict;
use warnings;

use Tk;
use Tk::Tree;
use Tk::ItemStyle;

my $mw = MainWindow->new();

my $style_t1 = $mw->ItemStyle(q{text}, -fg => q{red}, -bg => q{gold});
my $style_t1_2 = $mw->ItemStyle(q{text}, -fg => q{red}, -bg => q{white});
my $indent0_line = 2;

my $frame_t1 = $mw->Frame()->pack;
my $frame_t2 = $mw->Frame()->pack;
my $frame_b = $mw->Frame()->pack;

my $tree_1 = $frame_t1->Tree(-itemtype => q{text})->pack;

for (0 .. 3) {
    $tree_1->add($_, -text => qq{Line: $_}, -style => $style_t1);
}

$tree_1->entryconfigure($indent0_line, -style => $style_t1_2);

my $tree_2 = $frame_t2->Tree(-itemtype => q{text})->pack;
my $indent0_line_style = $tree_1->entrycget($indent0_line, q{-style});

for (0 .. 3) {
    $tree_2->add($_, -text => qq{Line: $_}, -style => $indent0_line_style);
}

$frame_b->Button(-text => q{Exit}, -command => sub { exit })->pack;

MainLoop;