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