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)