[slime-cvs] CVS slime

[trittweiler]

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

Modified Files:
	slime.el 
Log Message:

	The inspector page layout has changed slightly. Before the header
	looked like

	  A proper list.
            [type: CONS]
	  -------------------

	It now looks like

	  #<CONS {B3DBD39}>:
	     A proper list.
	  --------------------

	Rationale is to have a "presentation link" to the currently
	inspected object itself, to copy it down to the REPL via `M-RET'.
	This is mostly useful when trying to get a value from the Slime
	Debugger to the REPL, which you can do by inspecting the value
	first by `i', and then using `M-RET' on the object representation
	in the new header layout.

	Such a "presentation link" existed already but was removed in
	2007-08-23. The old behaviour was to have the title ("A proper
	list" in the above example) to contain the link. I decided to make
	the link more explicit.

	* swank.lisp (inspect-object): Now additionally returns a
	string-representation of the object itself, and an inspector id
	for it. Removed returning its type as this is implicit in the new
	string representation.

	* slime.el (slime-open-inspector): Adapted for new header layout.


--- /project/slime/cvsroot/slime/slime.el	2007/09/27 12:56:40	1.875
+++ /project/slime/cvsroot/slime/slime.el	2007/11/01 14:29:43	1.876
@@ -7486,14 +7486,19 @@
     (setq slime-buffer-connection (slime-current-connection))
     (let ((inhibit-read-only t))
       (erase-buffer)
-      (destructuring-bind (&key title type content) inspected-parts
+      (destructuring-bind (&key string-representation id title content) inspected-parts
         (macrolet ((fontify (face string) 
                             `(slime-inspector-fontify ,face ,string)))
+          (slime-propertize-region
+              (list 'slime-part-number id 
+                 'mouse-face 'highlight
+                 'face 'slime-inspector-value-face)
+            (insert string-representation))
+          (insert ":\n   ")
           (insert (fontify topline title))
           (while (eq (char-before) ?\n)
             (backward-delete-char 1))
-          (insert "\n [" (fontify label "type:") " " (fontify type type) "]\n"
-                  (fontify label "--------------------") "\n")
+          (insert "\n" (fontify label "--------------------") "\n")
           (save-excursion 
             (mapc #'slime-inspector-insert-ispec content))
           (pop-to-buffer (current-buffer))