scigraph and 1 button mouse

[Sheldon S. Ball <ssb@fiona.umsmed.edu>]

I am still attempting to finish to port of scigraph to MCL 2.0/CLIM 1.1.
I am stuck on the problem of a one button mouse.

How are the gestures: :SELECT, :DESCRIBE, :EDIT, :DELETE, and :MENU
defined? Do I need to redifine them for a one button mouse?

The macro button-case in scigraph:mouse.lisp uses :select, :describe, and
:menu. 

(defmacro button-case (button &key left middle right)
  "Implementation-specific way to dispatch based on the button pushed."
  #FEATURE-CASE
  (((not :clim)
    `(case ,button
       ,@(if left `((#\mouse-l ,left)))
       ,@(if middle `((#\mouse-m ,middle)))
       ,@(if right `((#\mouse-r ,right)))))
   (:clim-0.9
    `(case ,button
       ,@(if left `((:left ,left)))
       ,@(if middle `((:middle ,middle)))
       ,@(if right `((:right ,right)))))
   (:clim-1.0
    `(cond
      ,@(if left
	    `(((clim::button-press-event-matches-gesture-name ,button :select)
	       ,left)))
      ,@(if middle
	    `(((clim::button-press-event-matches-gesture-name ,button :describe)
	       ,middle)))
      ,@(if right
	    `(((clim::button-press-event-matches-gesture-name ,button :menu)
	       ,right)))))
   (:clim-2
    `(cond
      ,@(if left
	    `(((clim-internals::button-press-event-matches-gesture-name-p ,button :select)
	       ,left)))
      ,@(if middle
	    `(((clim-internals::button-press-event-matches-gesture-name-p ,button :describe)
	       ,middle)))
      ,@(if right
	    `(((clim-internals::button-press-event-matches-gesture-name-p ,button :menu)
	       ,right)))))))

I have no documentation for clim::button-press-event-matches-gesture-name
Any suggestions?

Thanks, Sheldon