for (qw(BrowseEntry Entry Radiobutton Checkbutton VarnameBrowseEntry VarnameEntry VarnameCheckbutton
       )) {
        $hauptfenster->optionAdd("*$_.disabledForeground",  "black");
        $hauptfenster->optionAdd("*$_.Foreground",  "black");
        }