(defmethod (setf command) (val (button button))
  (add-callback (name button) val)
  (format-wish "~a configure -command {callback ~a}" (widget-path button) (name button))
  val)

(defmethod (setf command) (val (scale scale))
  (add-callback (name scale) val)				
  ;(format-wish "proc ~a-command {val} {callbackval ~a $val}" (name scale) (name scale))
  (format-wish "~a configure -command {callback -a}" (widget-path scale) (name scale))
  val)