In [1]:
(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
Out[1]:
A-BUTTON
Out[1]:
In [2]:
(defvar a-int-slider (jw:make-int-slider))

a-int-slider
Out[2]:
A-INT-SLIDER
Out[2]:
In [3]:
(jw:widget-value a-int-slider)
Out[3]:
0
In [4]:
(setf (jw:widget-value a-int-slider) 10)
Out[4]:
10
In [5]:
(setf (jw:widget-orientation a-int-slider) "vertical")
Out[5]:
"vertical"
In [6]:
a-int-slider
Out[6]:
In [ ]: