(defvar a-button (jw:make-button :description "Click me" :on-click (list (lambda (w) (setf (jw:widget-description w) "I've been clicked.")))))

a-button

(defvar a-int-slider (jw:make-int-slider))

a-int-slider

(jw:widget-value a-int-slider)

(setf (jw:widget-value a-int-slider) 10)

(setf (jw:widget-orientation a-int-slider) "vertical")

a-int-slider