[cells-gtk-devel] making a text-buffer inputp

[Jonathan Heusser]

>         (mk-button :label "Clear"
>                    :on-clicked 
>                    (callback (w e d) 
>                      (setf (text (buffer (unique-widget :backout-text))) 
>  
>
That was it!
My buffer is now declared with:
(buffer :accessor buffer :initarg :buffer
       :initform (mk-text-buffer :text (c-in "")))

and the button form:
 (mk-button :md-name :b :label "send" :on-clicked
                (callback (w e d)
                  (incf (nclics (upper self buttons)))
                  (setf (text (buffer (upper self buttons)))
                    (md-value (fm-other :entry))))))))

It's working like that.

Thanks. That's fast help :).

Jonathan

-- 
ACF8 4AC4 E7E4 1C72 44C5  4E55 2CF0 79E9 84B6 4AD3