[feenkcom/gtoolkit#4120] start with slots view in coder navigation

feenkcom · Oct 25, 2024 · 81bec82 · 81bec82
1 parent 91b7dda
commit 81bec82
Show file tree

Hide file tree

Showing 4 changed files with 28 additions and 1 deletion.
diff --git a/src/GT-PackageWithSubclasses/GtCoderDummySubclass.class.st b/src/GT-PackageWithSubclasses/GtCoderDummySubclass.class.st
@@ -1,5 +1,8 @@
 Class {
 	#name : #GtCoderDummySubclass,
 	#superclass : #GtCoderDummySuperclass,
+	#instVars : [
+		'varB'
+	],
 	#category : #'GT-PackageWithSubclasses-Classes'
 }
diff --git a/src/GT-PackageWithSuperclasses/GtCoderDummySuperclass.class.st b/src/GT-PackageWithSuperclasses/GtCoderDummySuperclass.class.st
@@ -1,6 +1,9 @@
 Class {
 	#name : #GtCoderDummySuperclass,
 	#superclass : #Object,
+	#instVars : [
+		'varA'
+	],
 	#category : #'GT-PackageWithSuperclasses-Classes'
 }
 

diff --git a/src/GToolkit-Pharo-Coder-Examples/GtCoderNavigationPackagesTagsClassesModelExamples.class.st b/src/GToolkit-Pharo-Coder-Examples/GtCoderNavigationPackagesTagsClassesModelExamples.class.st
@@ -178,7 +178,7 @@ GtCoderNavigationPackagesTagsClassesModelExamples >> navigateToClass_02_selectTa
 { #category : #'examples - navigate to class' }
 GtCoderNavigationPackagesTagsClassesModelExamples >> navigateToClass_03_selectClass [
 	<gtExample>
-	| aModel classesToShow protocolsToShow aClassToSelect methodsToShow |
+	| aModel classesToShow protocolsToShow aClassToSelect methodsToShow slotsToShow |
 
 	aClassToSelect := self dummySuperclass.
 
@@ -200,11 +200,15 @@ GtCoderNavigationPackagesTagsClassesModelExamples >> navigateToClass_03_selectCl
 	self assert: aModel hasSelectedProtocol.
 	self assert: aModel selectedProtocol name equals: 'All'.
 
+	self assert: aModel hasSelectedSlot not.
+
 	methodsToShow := aModel methodsToShow.
 
 	self assert: (methodsToShow includes: aClassToSelect >> #unclassifiedMethod).
 	self assert: (methodsToShow includes: aClassToSelect >> #methodInApiProtocol).
 	self assert: (methodsToShow includes: aClassToSelect class >> #instanceCreationMethod).
+
+	slotsToShow := aModel slotsToShow.
 
 	^ aModel
 ]

diff --git a/src/GToolkit-Pharo-Coder/GtCoderNavigationPackagesTagsClassesModel.class.st b/src/GToolkit-Pharo-Coder/GtCoderNavigationPackagesTagsClassesModel.class.st
@@ -979,6 +979,23 @@ GtCoderNavigationPackagesTagsClassesModel >> showPackage: anRPackage [
 	^ true
 ]
 
+{ #category : #'api - accessing' }
+GtCoderNavigationPackagesTagsClassesModel >> slotsToShow [
+	<return: #Collection of: #GtPharoProtocol>
+	| currentClass instanceSlots classInstanceSlots classSlots |
+
+	self hasSelectedClass
+		ifFalse: [ ^ #() ].
+
+	currentClass := self selectedClass.
+
+	instanceSlots := currentClass instanceSide instanceVariables.
+	classInstanceSlots := currentClass classSide instanceVariables.
+	classSlots := currentClass classVariables.
+
+	^ instanceSlots, classInstanceSlots, classSlots
+]
+
 { #category : #'api - subscriptions' }
 GtCoderNavigationPackagesTagsClassesModel >> subscribeToSystem [
 	SystemAnnouncer uniqueInstance weak