refactored scalehandle and fixed tcl error about '-fill'