53,55c53,56
<     set sw     [frame $path \
< 	    -relief flat -borderwidth 0 -background $bg \
< 	    -highlightthickness 0 -takefocus 0]
---
>     set sw     [eval frame $path \
> 	    -background $bg \
> 	    -highlightthickness 0 -takefocus 0 \
> 	    [Widget::subcget $path :cmd]]
