Perl / Tk：对齐BrowseEntry列表框中的文本

Question

我有一个BrowseEntry，其文本右对齐，如下面的代码所示。

my $brEntry = $mw->BrowseEntry(
                    -variable => \$var,
                    -state => 'readonly',
                    -justify => 'right'
              )->pack(-side => 'left', -expand => 'yes', -fill => 'both');

但是这个BrowseEntry的下拉列表带有左对齐的文本。我还需要右对齐此列表中的文本。有没有办法可以做到这一点？

我试过

$brEntry->Subwidget('slistbox')->configure(-justify => 'right');

但这不起作用而且会出错。