[mcclim-devel] Re: small baby clim steps

Knut Olav Bøhmer bohmer at gmail.com
Thu May 17 20:46:15 UTC 2007


On 15/05/07, Knut Olav Bøhmer <bohmer at 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?


-- 
Knut Olav Bøhmer



More information about the mcclim-devel mailing list