Move allChildren method from inspector extension to core package

Author: HossamSaberr

src/Containers-AVL-Tree-Inspector/CTAVLTree.extension.st

@@ -1,22 +1,5 @@
 Extension { #name : 'CTAVLTree' }
 
-{ #category : '*Containers-AVL-Tree-Inspector' }
-CTAVLTree >> allChildren [
-	| allNodes queue currentNode |
-	allNodes := OrderedCollection new.
-	self root isNilNode ifTrue: [ ^ allNodes ].
-	
-	queue := OrderedCollection with: self root.
-	[ queue isNotEmpty ] whileTrue: [ 
-		currentNode := queue removeFirst.
-		allNodes add: currentNode.
-		currentNode left isNilNode ifFalse: [ queue add: currentNode left ].
-		currentNode right isNilNode ifFalse: [ queue add: currentNode right ] 
-	].
-	
-	^ allNodes
-]
-
 { #category : '*Containers-AVL-Tree-Inspector' }
 CTAVLTree >> inspectorCanvas: aBuilder [
 	<inspectorPresentationOrder: 90 title: 'AVL'>

src/Containers-AVL-Tree/CTAVLTree.class.st

@@ -36,6 +36,23 @@ CTAVLTree >> addAll: aCollection [
 	^ aCollection
 ]
 
+{ #category : 'accessing' }
+CTAVLTree >> allChildren [
+	| allNodes queue currentNode |
+	allNodes := OrderedCollection new.
+	self root isNilNode ifTrue: [ ^ allNodes ].
+	
+	queue := OrderedCollection with: self root.
+	[ queue isNotEmpty ] whileTrue: [ 
+		currentNode := queue removeFirst.
+		allNodes add: currentNode.
+		currentNode left isNilNode ifFalse: [ queue add: currentNode left ].
+		currentNode right isNilNode ifFalse: [ queue add: currentNode right ] 
+	].
+	
+	^ allNodes
+]
+
 { #category : 'enumerating' }
 CTAVLTree >> anySatisfy: aBlock [