[mcclim-cvs] CVS update: mcclim/gadgets.lisp

[Andy Hefner]

Update of /project/mcclim/cvsroot/mcclim
In directory common-lisp.net:/tmp/cvs-serv14568

Modified Files:
	gadgets.lisp 
Log Message:
Fix incorrect default mode of list pane.

Provide some tactile feedback by changing the pointer cursor within box-adjuster-gadget.


Date: Sun Jan  2 06:25:38 2005
Author: ahefner

Index: mcclim/gadgets.lisp
diff -u mcclim/gadgets.lisp:1.85 mcclim/gadgets.lisp:1.86
--- mcclim/gadgets.lisp:1.85	Mon Nov 15 07:17:04 2004
+++ mcclim/gadgets.lisp	Sun Jan  2 06:25:38 2005
@@ -46,9 +46,6 @@
 ;; Why is there GADGET-LABEL-TEXT-STYLE? The spec says, that just the
 ;; pane's text-style should be borrowed.
 
-;; Is "no label" as initarg to labelled gadget really such a good
-;; idea? I would prefer "".
-
 ;; RANGE-GADGET / RANGE-GADGET-MIXIN: same thing as with
 ;; ORIENTED-GADGET-MIXIN.
 
@@ -1965,7 +1962,7 @@
 
 (defclass meta-list-pane ()
   ((mode        :initarg :mode
-                :initform :some-of
+                :initform :exclusive
                 :reader list-pane-mode
                 :type (member :one-of :some-of))
    (items       :initarg :items
@@ -2835,3 +2832,6 @@
         (changing-space-requirements (:resize-frame nil)
           (adjust-space-requirement left-peer  left-sr  orientation delta)
           (adjust-space-requirement right-peer right-sr orientation (- delta)))))))
+
+(defmethod note-sheet-grafted ((sheet clim-extensions:box-adjuster-gadget))
+  (setf (sheet-pointer-cursor sheet) :rotate))