[mcclim-devel] small baby clim steps

[Knut Olav Bøhmer]

Hei,

I'm in the process of learning clim, I have a small code example under.
What I want to do is to add my own pane to a the display pane. Later I
want to be able to move the pane around in the pane by clicking on the
pane and drag it to the new place.

My first problem is that I don't know how to insert new panes into the
"display" pane.. The with-output-as-gadget require a stream, and I
don't know how to obtain this stream, and if the example under will
work.

(define-application-frame test ()
  ()
  (:panes
   (display :application :output-record
	    (make-instance 'standard-tree-output-record))
   (my-interactor :interactor))
  (:layouts
   (:default   (vertically (:height 500 :width 400)
		 (2/3 display)
		 (1/3 my-interactor)))))

(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)))))))


-- 
Knut Olav Bøhmer