(
  (insert "xwidgetdemo<<< a button. another button\n")
  (goto-char (point-min))
  (put-text-property (point) (+ 1 (point)) 'display '(xwidget :xwidget-id 1 :type 1 :title "1" :width 40 :height 50))
)