Hallo Renee,

da der Code inzwischen schon recht umfangreich ist hier die - wie ich hoffe - relevanten Stellen.

[...]
$OBrowser=$Browser_Frame->Scrolled('Tree',
-scrollbars => 'osoe',
#-drawbranch => 0,
#indicator => 0,
#indent => 15,
-selectmode => 'browse',
-height => 16,
-width => 150,
-header => 1,
-columns => 6,
-background => 'white'
)->pack(-expand => 1,
-fill => 'both',
-anchor => 'n'
);

[...]
$OBrowser->configure(-browsecmd => [ \&DispWork #, $OBrowser #, $_ #, $OBrowser,
#$StyleOK
]
);
$OBrowser->configure(-command => [ \&DispWork #, $OBrowser #, $_ #, $OBrowser,
#$StyleOK
]
);

[...]
$OBrowser->add($NewDir, -itemtype => 'imagetext', -image => $folderimage, -text => 'ASO:', -style => $StyleNormal);
$OBrowser->itemCreate($NewDir, 1, -text => $NewDir, -style => $StyleNormal);
$OBrowser->itemCreate($NewDir, 2, -text => $NewASO_Bez, -style => $StyleNormal);
$OBrowser->itemCreate($NewDir, 3, -text => "NEIN", -style => $StyleNOK);
$OBrowser->itemCreate($NewDir, 4, -text => "NEIN", -style => $StyleNOK);
$OBrowser->itemCreate($NewDir, 5, -text => DirSize($Dir_Path."/".$NewDir), -style => $StyleNormal);
$OBrowser->update;
$OBrowser->selectionClear($Path);
$OBrowser->selectionSet($NewDir);
$OBrowser->see($NewDir);
$OBrowser->anchorSet($NewDir);

Hilft Dir das?

Ich sitze da jetzt schon seit einer Woche dran und habe gegoogelt was das Zeug hält.


Gruß
Oli