4083 ! |
4083 ! |
4084 |
4084 |
4085 classDerivedInstancesInspect |
4085 classDerivedInstancesInspect |
4086 "inspect the current classes derived instances" |
4086 "inspect the current classes derived instances" |
4087 |
4087 |
4088 |insts| |
4088 self |
4089 |
4089 classInspectObjectsReturnedBy:[currentClass allSubInstances] |
4090 self checkClassSelected ifFalse:[^ self]. |
4090 ifNone:[self warn:'no direct or derived instances'. ^ self] |
4091 |
4091 |
4092 insts := currentClass allSubInstances. |
4092 "Created: / 24-02-1996 / 16:12:14 / cg" |
4093 insts size == 0 ifTrue:[ |
4093 "Modified: / 20-04-2005 / 11:20:26 / cg" |
4094 self warn:'no direct or derived instances'. |
|
4095 ^ self |
|
4096 ]. |
|
4097 insts size == 1 ifTrue:[ |
|
4098 insts first inspect. |
|
4099 ^ self. |
|
4100 ]. |
|
4101 insts inspect |
|
4102 |
|
4103 "Created: / 24.2.1996 / 16:12:14 / cg" |
|
4104 "Modified: / 21.7.1998 / 11:32:49 / cg" |
|
4105 ! |
4094 ! |
4106 |
4095 |
4107 classDocumentation |
4096 classDocumentation |
4108 "show classes documentation (i.e. open doc-View on it)" |
4097 "show classes documentation (i.e. open doc-View on it)" |
4109 |
4098 |
4341 self checkClassSelected ifFalse:[^ self]. |
4330 self checkClassSelected ifFalse:[^ self]. |
4342 |
4331 |
4343 currentClass inspect. |
4332 currentClass inspect. |
4344 ! |
4333 ! |
4345 |
4334 |
|
4335 classInspectObjectsReturnedBy:aBlock ifNone:warnBlock |
|
4336 "inspect the current classes derived instances" |
|
4337 |
|
4338 |insts numInsts inspectedObject| |
|
4339 |
|
4340 self checkClassSelected ifFalse:[^ self]. |
|
4341 |
|
4342 insts := aBlock value. |
|
4343 |
|
4344 numInsts := insts size. |
|
4345 numInsts == 0 ifTrue:[ |
|
4346 warnBlock value. |
|
4347 ^ self |
|
4348 ]. |
|
4349 numInsts == 1 ifTrue:[ |
|
4350 inspectedObject := insts first. |
|
4351 ] ifFalse:[ |
|
4352 inspectedObject := insts |
|
4353 ]. |
|
4354 inspectedObject inspect |
|
4355 |
|
4356 "Created: / 24-02-1996 / 16:12:14 / cg" |
|
4357 "Modified: / 20-04-2005 / 11:21:18 / cg" |
|
4358 ! |
|
4359 |
4346 classInstancesInspect |
4360 classInstancesInspect |
4347 "inspect the current classes instances" |
4361 "inspect the current classes instances" |
4348 |
4362 |
4349 |insts| |
4363 self |
4350 |
4364 classInspectObjectsReturnedBy:[currentClass allInstances] |
4351 self checkClassSelected ifFalse:[^ self]. |
4365 ifNone:[self warn:'no instances'. ^ self] |
4352 |
4366 |
4353 insts := currentClass allInstances. |
4367 "Created: / 24-02-1996 / 16:12:14 / cg" |
4354 insts size == 0 ifTrue:[ |
4368 "Modified: / 20-04-2005 / 11:21:08 / cg" |
4355 self warn:'no instances'. |
|
4356 ^ self |
|
4357 ]. |
|
4358 insts size == 1 ifTrue:[ |
|
4359 insts first inspect. |
|
4360 ^ self. |
|
4361 ]. |
|
4362 insts inspect |
|
4363 |
|
4364 "Created: / 24.2.1996 / 16:12:14 / cg" |
|
4365 "Modified: / 21.7.1998 / 11:32:49 / cg" |
|
4366 ! |
4369 ! |
4367 |
4370 |
4368 classLoad |
4371 classLoad |
4369 "load an autoloaded class" |
4372 "load an autoloaded class" |
4370 |
4373 |
11871 |box panel selectorHolder where whereChannel caseHolder |
11874 |box panel selectorHolder where whereChannel caseHolder |
11872 b sel classes areas toSearch cls inputField ns| |
11875 b sel classes areas toSearch cls inputField ns| |
11873 |
11876 |
11874 areas := OrderedCollection new. |
11877 areas := OrderedCollection new. |
11875 |
11878 |
11876 isSelector ifTrue:[ |
11879 sel := isSelector ifTrue:[self selectorToSearchFor] ifFalse:[self stringToSearchFor]. |
11877 sel := self selectorToSearchFor. |
|
11878 ] ifFalse:[ |
|
11879 sel := self stringToSearchFor. |
|
11880 ]. |
|
11881 sel size == 0 ifTrue:[ |
11880 sel size == 0 ifTrue:[ |
11882 "/ use last searchString |
11881 "/ use last searchString |
11883 LastSearchPatterns size > 0 ifTrue:[ |
11882 LastSearchPatterns size > 0 ifTrue:[ |
11884 sel := LastSearchPatterns first. |
11883 sel := LastSearchPatterns first. |
11885 ]. |
11884 ]. |
12294 remainSet remove:aClass ifAbsent:[]. |
12293 remainSet remove:aClass ifAbsent:[]. |
12295 |
12294 |
12296 aBlock value:aClass value:level. |
12295 aBlock value:aClass value:level. |
12297 |
12296 |
12298 subclasses := subclassDictionary at:aClass ifAbsent:[nil]. |
12297 subclasses := subclassDictionary at:aClass ifAbsent:[nil]. |
12299 (subclasses size == 0) ifFalse:[ |
12298 (subclasses size > 0) ifTrue:[ |
12300 names := subclasses collect:[:class | class name]. |
12299 names := subclasses collect:[:class | class name]. |
12301 names sortWith:subclasses. |
12300 names sortWith:subclasses. |
12302 subclasses do:[:aSubClass | |
12301 subclasses do:[:aSubClass | |
12303 self classHierarchyOf:aSubClass |
12302 self classHierarchyOf:aSubClass |
12304 level:(level + 1) |
12303 level:(level + 1) |