Help for this page

Select Code to Download


  1. or download this
    $string='Match';
#
...
if ($style_data eq $string)
{   $tree2->entryconfigure($indent0_line,-style=>$tree2_match_style);
}
  2. or download this
    Tree1 style[Match]
Tree1 wanted style[Tk::ItemStyle=HASH(0x21dd6d4)]
  3. or download this
    $string='Match';
#
...
#configure tree2 node  with retrieved style from tree1 node
#
$tree2->entryconfigure($indent0_line,-style=>$wanted_style);