Opened by zipster at 2006-06-03 16:28
User since
2003-11-28
3645 Artikel
ModeratorIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-11-28
3645 Artikel
ModeratorIn
Da gab es wohl einen Mischmasch mit exakten und abgekürzten Konfigurationsoptionen. Im Tk-Core ist es häufig (immer?) erlaubt, Abkürzungen für Konfigurationsoptionen und -werte zu verwenden. Dieses Codestück gibt "disabled" aus:
Tk::BrowseEntry ist nun aber ein zusammengesetztes Widget, bei dem ein Teil der Konfigurationsoptionen an die Core-Widgets weitergeleitet wird (und hier Abkürzungen möglich sind), einige Sachen aber direkt in Perl mit "eq" abgefragt werden. Der Bösewicht ist wohl in Zeile 176 in BrowseEntry.pm. Hier hätte man vielleicht $w->Subwidget("arrow")->cget(-state) verwenden sollen.
Code: (dl
)
1
2
3
4
5
use Tk;
$top = new MainWindow;
$b = $top->Button(-st => "disa")->pack;
warn $b->cget(-state);
MainLoop;
Tk::BrowseEntry ist nun aber ein zusammengesetztes Widget, bei dem ein Teil der Konfigurationsoptionen an die Core-Widgets weitergeleitet wird (und hier Abkürzungen möglich sind), einige Sachen aber direkt in Perl mit "eq" abgefragt werden. Der Bösewicht ist wohl in Zeile 176 in BrowseEntry.pm. Hier hätte man vielleicht $w->Subwidget("arrow")->cget(-state) verwenden sollen.