accept-values-pane

For those interested, I have a mostly portable version of accept-values-pane
running on lispworks CLIM and today I have it semi-working on McCLIM.
Here is the patch file I load to supply missing parts of McCLIM. It would be
cool
if someone could add this functionality to the code base.

I plan to post my code in a few days once I figure out how to handle radio-box.
The spec and McCLIM have radio-box :choices and :current-selection as
toggle-button
objects. CLIM makes things a bit easier so I want to make a wrapper around the
button-object constraint.

What's really missing in McCLIM are list-pane and option-pane gadgets.

Another thing. CLIM puts with-look-and-feel-realization in the expansion of
with-output-to-gadget. It would be good if McCLIM did as well. I don't think
the spec forbids that.

Paul

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;;; -*- Package: clim-internals -*-

(in-package :clim-internals)

;;; Add missing view classes and +xxx-view+ objects.
(macrolet ((frob (name)
   (let ((sym (intern (string name) :clim-internals))
         (par (intern (concatenate 'string "+" (string name) "+")
        :clim-internals)))
     `(progn
        (defclass ,sym (clim:gadget-view)())
        (import '(,sym ,par) :clim)
        (export '(,sym ,par) :clim)
        (defparameter ,par (make-instance ',sym))))))
  (frob toggle-button-view)
  (frob push-button-view)
  (frob radio-box-view)
  (frob check-box-view)
  (frob slider-view)
  ;(frob text-field-view)
  (frob text-editor-view)
  (frob list-pane-view)
  (frob option-pane-view)
  )

(import '(name-key value-key test documentation-key) :clim)
(export '(name-key value-key test documentation-key) :clim)

(defun accept-present-default
       (type stream view default default-supplied-p present-p query-identifier)
  (funcall-presentation-generic-function accept-present-default
    type stream view default default-supplied-p present-p query-identifier))

(defmethod pane-frame ((pane standard-encapsulating-stream))
  (pane-frame (encapsulating-stream-stream pane)))

(defmethod invoke-with-sheet-medium-bound
  (continuation   (medium null)  (sheet standard-encapsulating-stream))
  (invoke-with-sheet-medium-bound  continuation medium
(encapsulating-stream-stream sheet)))