;; do not edit - file generated by clog-builder (in-package "HELLO-BUILDER") (defclass hello-page (clog:clog-div) ((my-button :reader my-button)(hello-span :reader hello-span))) (defun create-hello-page (clog-obj) (let ((panel (change-class (clog:create-div clog-obj :content "Hello World!") 'hello-page))) (setf (slot-value panel 'my-button) (attach-as-child clog-obj "CLOGB38523257302" :clog-type 'CLOG:CLOG-BUTTON :new-id t)) (setf (slot-value panel 'hello-span) (attach-as-child clog-obj "CLOGB38523250771" :clog-type 'CLOG:CLOG-SPAN :new-id t)) (set-on-click (my-button panel) (lambda (target) (declare (ignorable target)) (my-click panel))) panel))