NewInspectorView.st
changeset 2621 285fa261cbcb
parent 2298 d5467f85544f
--- a/NewInspectorView.st	Wed Oct 14 08:13:10 2009 +0200
+++ b/NewInspectorView.st	Wed Oct 14 13:43:27 2009 +0200
@@ -1,6 +1,6 @@
 "
  COPYRIGHT (c) 1997 by eXept Software AG
-              All Rights Reserved
+	      All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -11,7 +11,7 @@
 "
 "{ Package: 'stx:libtool2' }"
 
-"{ NameSpace: NewInspector }"
+"{ NameSpace: Tools }"
 
 VariableVerticalPanel subclass:#NewInspectorView
 	instanceVariableNames:'inspectorView userSpace workSpace inspectedObject'
@@ -25,7 +25,7 @@
 copyright
 "
  COPYRIGHT (c) 1997 by eXept Software AG
-              All Rights Reserved
+	      All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -42,17 +42,17 @@
 "
     a new (multipane) inspector;
     open with:
-        NewInspector::NewInspectorView inspect:Object
+	Tools::NewInspectorView inspect:Object
 
     install as standard inspector:
-        Smalltalk at:#Inspector put:(NewInspector::NewInspectorView)
+	Smalltalk at:#Inspector put:(Tools::NewInspectorView)
 
     [open with:]
-        NewInspector::NewInspectorView 
-                inspect:(Array with:#hello with:'hello' with:#(1 2 3) asSortedCollection with:Display)
+	Tools::NewInspectorView
+		inspect:(Array with:#hello with:'hello' with:#(1 2 3) asSortedCollection with:Display)
 
     [author:]
-        Claus Atzkern
+	Claus Atzkern
 "
 !
 
@@ -60,13 +60,13 @@
 
 "
     open an inspector on an array
-                                                                        [exBegin]
+									[exBegin]
     |array|
 
     array := Array new:5.
     array at:1 put:(Array new:400).
-    NewInspector::NewInspectorView inspect:array
-                                                                        [exEnd]
+    Tools::NewInspectorView inspect:array
+									[exEnd]
 "
 ! !
 
@@ -129,7 +129,7 @@
     inspectorView action:[:el|self updateWorkSpace].
 
     inspectorView valueChangedAction:[:el||lbl|
-        workSpace list:(Array with:(el displayString)).
+	workSpace list:(Array with:(el displayString)).
     ].
 
     "Modified: 18.3.1997 / 10:57:34 / cg"