fixes #3873

pharo-project · Jul 11, 2019 · f1907c3 · f1907c3
1 parent b83d1b7
commit f1907c3
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/src/Slot-Core/Slot.class.st b/src/Slot-Core/Slot.class.st
@@ -59,6 +59,18 @@ Slot class >> checkValidName: aSymbol [
 
 ]
 
+{ #category : #ui }
+Slot class >> gtInspectorSlotUsersIn: composite [
+	<gtInspectorPresentationOrder: 30>
+	| users |
+	users := self slotUsers.
+	composite list 
+		title: 'Slot Users';
+		display: [ users  ];
+		when: [ users notEmpty ];
+		showOnly: 30
+]
+
 { #category : #'class initialization' }
 Slot class >> initialize [
 	Properties := Properties