[mcclim-cvs] CVS mcclim/Apps/Inspector

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim/Apps/Inspector
In directory clnet:/tmp/cvs-serv19441/Apps/Inspector

Modified Files:
	inspector.lisp 
Log Message:
Removed ancient and seemingly now-unnecessary gilberthack.


--- /project/mcclim/cvsroot/mcclim/Apps/Inspector/inspector.lisp	2008/01/01 22:51:03	1.39
+++ /project/mcclim/cvsroot/mcclim/Apps/Inspector/inspector.lisp	2008/01/01 23:23:07	1.40
@@ -58,7 +58,7 @@
   (declare (ignore force-p))
   ;; `Make-clim-stream-pane' creates bizarro object hierarchies, so
   ;; getting the actual scrollable is not obvious.
-  (let* ((scrollable-pane (sheet-parent (sheet-parent (find-pane-named frame 'app))))
+  (let* ((scrollable-pane (sheet-parent (find-pane-named frame 'app)))
          (viewport (pane-viewport scrollable-pane)))
     (multiple-value-bind (x-displacement y-displacement)
         (transform-position (sheet-transformation scrollable-pane) 0 0)