         [:input.slidebar
          {:type "range"
           :min "0"
-          :max "1"
-          :value (:stroke-opacity shape "1")
-          :step "0.0001"
+          :max "10000"
+          :value (* 10000 (:stroke-opacity shape 1))
+          :step "1"
           :on-change on-opacity-change}]]]])))
 
 (defmethod -render-menu :menu/fill

        [:input.slidebar
         {:type "range"
          :min "0"
          :max "1"
          :value (:fill-opacity shape "1")
          :step "0.0001"
          :on-change on-opacity-change}]]]])))

(defmethod -render-menu :menu/rect-measures

              (change-stroke {:width value})))
          (on-opacity-change [event]
            (let [value (dom/event->value event)
                  value (parse-float value 1)
                  value (/ value 10000)]
              (change-stroke {:opacity value})))
          (on-color-change [event]
            (let [value (dom/event->value event)]
