[feenkcom/gtoolkit#4123] update names of different variable names in …

…class and behavior creation form
feenkcom · Oct 25, 2024 · 91b7dda · 91b7dda
1 parent 25959b3
commit 91b7dda
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 7 deletions.
diff --git a/src/GToolkit-Pharo-Coder-UI/GtBehaviorCreationForm.class.st b/src/GToolkit-Pharo-Coder-UI/GtBehaviorCreationForm.class.st
@@ -34,11 +34,11 @@ GtBehaviorCreationForm >> classSlots: anObject [
 GtBehaviorCreationForm >> classSlotsDescription [
 	<magritteDescription>
 	^ MAToManyRelationDescription new
-		label: 'Class Slots';
+		label: 'Static vars';
 		priority: 10;
 		accessor: #classSlots;
 		classes: {String};
-		labelAptitude: [ BrGlamorousLabelAptitude new glamorousFormLabelStyle ];
+		labelAptitude: [ (BrGlamorousLabelAptitude new glamorousFormLabelStyle) + (BrGlamorousWithLabelTooltipAptitude new text: 'Variables whose values (memory) is shared across all instances of a class and its subclasses.') ];
 		blocListStencil: (self taggerStencilWithCompletion: nil andContextMenuBlock: nil);
 		addCondition: [ :aValue | aValue asSet size = aValue size ]
 			labelled: 'All slot names must be unique'
@@ -133,10 +133,10 @@ GtBehaviorCreationForm >> slots: anObject [
 GtBehaviorCreationForm >> slotsDescription [
 	<magritteDescription>
 	^ MAToManyRelationDescription new
-		label: 'Slots';
+		label: 'Instance-side vars';
 		priority: 5;
 		accessor: #slots;
-		labelAptitude: [ BrGlamorousLabelAptitude new glamorousFormLabelStyle ];
+		labelAptitude: [ BrGlamorousLabelAptitude new glamorousFormLabelStyle +  (BrGlamorousWithLabelTooltipAptitude new text: 'Variables whose value is scoped to an instance of a class.')];
 		classes: {String};
 		blocListStencil: (self taggerStencilWithCompletion: nil andContextMenuBlock: nil);
 		addCondition: [ :aValue | aValue asSet size = aValue size ]

diff --git a/src/GToolkit-Pharo-Coder-UI/GtClassCreationForm.class.st b/src/GToolkit-Pharo-Coder-UI/GtClassCreationForm.class.st
@@ -50,10 +50,10 @@ GtClassCreationForm >> classVars: anObject [
 GtClassCreationForm >> classVarsDescription [
 	<magritteDescription>
 	^ MAToManyRelationDescription new
-		label: 'Class vars';
+		label: 'Class-side vars';
 		priority: 7;
 		accessor: #classVars;
-		labelAptitude: [ BrGlamorousLabelAptitude new glamorousFormLabelStyle ];
+		labelAptitude: [ (BrGlamorousLabelAptitude new glamorousFormLabelStyle) + (BrGlamorousWithLabelTooltipAptitude new text: 'Variables whose values are shared across all instances of a class and that class itself. Subclasses allocate their own memory for the class-side vars of the superclasses and don''t inherit their values.') ];
 		classes: {String};
 		blocListStencil: (self taggerStencilWithCompletion: nil andContextMenuBlock: nil)
 ]
@@ -110,7 +110,7 @@ GtClassCreationForm >> pools: anObject [
 GtClassCreationForm >> poolsDescription [
 	<magritteDescription>
 	^ MAToManyRelationDescription new
-		label: 'Pools';
+		label: 'Shared var. pools';
 		priority: 7;
 		accessor: #pools;
 		labelAptitude: [ BrGlamorousLabelAptitude new glamorousFormLabelStyle ];