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