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");
    }
    }