--- a/NewInspectorList.st Wed Sep 08 12:00:12 1999 +0200
+++ b/NewInspectorList.st Wed Sep 08 19:40:37 1999 +0200
@@ -13,14 +13,14 @@
"{ NameSpace: NewInspector }"
-Object subclass:#InspectorList
+Object subclass:#NewInspectorList
instanceVariableNames:'inspectedObject instanceNames instanceTypes selection'
classVariableNames:''
poolDictionaries:''
- category:'Interface-Inspector'
+ category:'Interface-NewInspector'
!
-!InspectorList class methodsFor:'documentation'!
+!NewInspectorList class methodsFor:'documentation'!
copyright
"
@@ -37,7 +37,7 @@
! !
-!InspectorList class methodsFor:'instance creation'!
+!NewInspectorList class methodsFor:'instance creation'!
for:anObject
"create a new list for an instance
@@ -54,7 +54,7 @@
! !
-!InspectorList class methodsFor:'helpers'!
+!NewInspectorList class methodsFor:'helpers'!
asString:aCollection
"converts any collection to a string seperated by spaces. If
@@ -83,7 +83,7 @@
! !
-!InspectorList class methodsFor:'testing'!
+!NewInspectorList class methodsFor:'testing'!
isDirectory:anInstance
"returns true if the instance is a directory
@@ -129,7 +129,7 @@
! !
-!InspectorList methodsFor:'accessing'!
+!NewInspectorList methodsFor:'accessing'!
includesSelf:aBoolean
"includes 'self' dependant on the boolean
@@ -194,7 +194,7 @@
"Modified: / 4.2.1999 / 20:00:38 / cg"
! !
-!InspectorList methodsFor:'accessing contents'!
+!NewInspectorList methodsFor:'accessing contents'!
inspectedObject
"returns current inspected object
@@ -253,7 +253,7 @@
! !
-!InspectorList methodsFor:'initialization'!
+!NewInspectorList methodsFor:'initialization'!
initialize
"initialize instance attributes
@@ -265,7 +265,7 @@
! !
-!InspectorList methodsFor:'private'!
+!NewInspectorList methodsFor:'private'!
resizeTo:aNumber
"resize list to minimum aNumber
@@ -316,7 +316,7 @@
].
! !
-!InspectorList methodsFor:'selections'!
+!NewInspectorList methodsFor:'selections'!
selectedInstanceType
"returns type assigned to the selected list entry (#directory #normal #self #grow).
@@ -357,7 +357,7 @@
]
! !
-!InspectorList methodsFor:'testing'!
+!NewInspectorList methodsFor:'testing'!
includesSelf
"returns true if 'self' is included in the list
@@ -381,7 +381,7 @@
! !
-!InspectorList methodsFor:'user interaction'!
+!NewInspectorList methodsFor:'user interaction'!
accept:aText notifying:aView
"evaluating aText on the selected instance var; if an error occurs #Error
@@ -488,7 +488,7 @@
self update
! !
-!InspectorList class methodsFor:'documentation'!
+!NewInspectorList class methodsFor:'documentation'!
version
^ '$Header$'