...,
       ($Tk::VERSION >= 804 
        ? (-disabledbackground => "green",
            -disabledforeground => "black",
           )
        : ()
       ),
       ...