BrowseEntry vs. disable: funktioniert nicht wirklich - #45604 (Graphische Oberflächen)

ptk

2006-06-06 14:33

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Das kann man mit der Option-DB machen. Siehe perldoc Tk::option
Ein Snippet aus einer eigenen Applikation:

Code: (dl )

    for (qw(Browse Entry NumEntry Date*NumEntryPlain PathEntry
        Listbox KListbox K2Listbox
        TixHList HList Text ROText BrowseEntry.Entry SimpleHistEntry
        ListboxSearchAnything
       )) {
    if ($os eq 'win') {
        $top->optionAdd("*$_.background", "SystemWindow", "startupFile");
    } else {
        $top->optionAdd("*$_.background", "grey95", "startupFile");
    }
    }