set title-pane text
Hi
I have this piece of code generated by interface
builder:
(capi:define-interface interface-1 ()
()
(:panes
(title-pane-1
capi:title-pane
:text "")
(push-button-11
capi:push-button
:text "1"
:press-callback 'click-1
:visible-min-height 50
:visible-min-width 50)
()
(:panes
(title-pane-1
capi:title-pane
:text "")
(push-button-11
capi:push-button
:text "1"
:press-callback 'click-1
:visible-min-height 50
:visible-min-width 50)
and I made a function:
(defun click-1 (data interface)
(setf (slot-value title-pane-1 text) "1")):
(setf (slot-value title-pane-1 text) "1")):
but when I click the button I get the message
that:
Variable title-pane-1 is unbound.
How is this setting of title-pane-1 text
attribute done properly ?
Thanks