--- 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"