On 15/05/07, Knut Olav Bøhmer bohmer@gmail.com wrote: <-cut->
(define-test-command (com-add :name t :menu "Add") () (with-output-as-gadget (stream) (make-pane 'push-button :label "Click here to exit" :activate-callback #'(lambda (button) (frame-exit (pane-frame button)))))))
I found an example that did what I want.
(define-petrinet-command (com-dynamic :menu t :name t) () (with-look-and-feel-realization (*default-frame-manager* *application-frame*) (let ((button (make-pane 'push-button :label "Dynamically Generated")) (layout-pane (find-pane-named *application-frame* 'simulation))) (sheet-adopt-child layout-pane button))))
But why should I not use presentations? What are presentation-types related to what I'm doing?