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

        [: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-fill {:color value})))
          (on-opacity-change [event]
            (let [value (dom/event->value event)
                  value (parse-float value 1)
                  value (/ value 10000)]
              (change-fill {:opacity value})))
          (on-color-picker-event [color]
            (change-fill {:color color}))]
