[slime-cvs] CVS slime/contrib

[heller]

Update of /project/slime/cvsroot/slime/contrib
In directory clnet:/tmp/cvs-serv14625

Modified Files:
	ChangeLog slime-xref-browser.el 
Log Message:
Track tree-widget change: :dynarg is now called :expander.

* slime-xref-browser.el (slime-expand-class-node)
(slime-browse-classes, slime-expand-xrefs, slime-browse-xrefs):
:dynargs is obsolete, it is now called :expander.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2008/02/10 17:09:49	1.89
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2008/02/13 11:27:08	1.90
@@ -1,3 +1,11 @@
+2008-02-13  Helmut Eller  <heller at common-lisp.net>
+
+	Track tree-widget change: :dynarg is now called :expander.
+
+	* slime-xref-browser.el (slime-expand-class-node)
+	(slime-browse-classes, slime-expand-xrefs, slime-browse-xrefs):
+	:dynargs is obsolete, it is now called :expander.
+
 2008-02-10  Helmut Eller  <heller at common-lisp.net>
 
 	Fix some bugs introduced by the recent reorganization.
@@ -10,7 +18,7 @@
 	* slime-fancy.el: slime-fancy-inspector-init no longer exists, so
 	don't call it.  Once loaded, it's also no longer possible to turn
 	the fancy inspector off.
-	
+
 2008-02-04  Marco Baringer  <mb at bese.it>
 
 	* swank-presentation-streams.lisp (presenting-object-1): Add
--- /project/slime/cvsroot/slime/contrib/slime-xref-browser.el	2007/08/24 14:47:11	1.1
+++ /project/slime/cvsroot/slime/contrib/slime-xref-browser.el	2008/02/13 11:27:08	1.2
@@ -8,7 +8,7 @@
 ;; Add this to your .emacs: 
 ;;
 ;;   (add-to-list 'load-path "<directory-of-this-file>")
-;;   (add-hook 'slime-load-hook (lambda () (require 'slime-xref-browser)))
+;;   (slime-setup '(slime-xref-browser ... possibly other packages ...))
 ;;
 
 
@@ -19,7 +19,7 @@
       (let ((name (widget-get widget :tag)))
 	(loop for kid in (slime-eval `(swank:mop :subclasses ,name))
 	      collect `(tree-widget :tag ,kid
-				    :dynargs slime-expand-class-node
+				    :expander slime-expand-class-node
 				    :has-children t)))))
 
 (defun slime-browse-classes (name)
@@ -29,7 +29,7 @@
    "*slime class browser*" (slime-current-package) "Class Browser"
    (lambda ()
      (widget-create 'tree-widget :tag name 
-                    :dynargs 'slime-expand-class-node 
+                    :expander 'slime-expand-class-node 
                     :has-echildren t))))
 
 (defvar slime-browser-map nil
@@ -84,7 +84,7 @@
               collect `(tree-widget :tag ,label
                                     :xref-type ,type
                                     :xref-dspec ,dspec
-                                    :dynargs slime-expand-xrefs
+                                    :expander slime-expand-xrefs
                                     :has-children t)))))
 
 (defun slime-browse-xrefs (name type)
@@ -99,6 +99,6 @@
    "*slime xref browser*" (slime-current-package) "Xref Browser"
    (lambda ()
      (widget-create 'tree-widget :tag name :xref-type type :xref-dspec name 
-                    :dynargs 'slime-expand-xrefs :has-echildren t))))
+                    :expander 'slime-expand-xrefs :has-echildren t))))
 
-(provide 'slime-xref-browser)
\ No newline at end of file
+(provide 'slime-xref-browser)