a small but important fix

pharo-project · May 8, 2020 · 9d31d18 · 9d31d18
1 parent 55974d0
commit 9d31d18
Show file tree

Hide file tree

Showing 3 changed files with 19 additions and 4 deletions.
diff --git a/src/Spec2-Adapters-Morphic/SpToolBarButtonMorph.class.st b/src/Spec2-Adapters-Morphic/SpToolBarButtonMorph.class.st
@@ -103,6 +103,13 @@ SpToolBarButtonMorph >> hasBadge [
 	^ self badge notNil
 ]
 
+{ #category : #style }
+SpToolBarButtonMorph >> mouseOverBorderStyle [
+	^ BorderStyle simple
+		width: 0;
+		baseColor: Color transparent
+]
+
 { #category : #accessing }
 SpToolBarButtonMorph >> newBadgeFont [
 	| baseBadgeFont |
@@ -113,14 +120,14 @@ SpToolBarButtonMorph >> newBadgeFont [
 			weightValue: 700
 ]
 
-{ #category : #accessing }
+{ #category : #style }
 SpToolBarButtonMorph >> normalBorderStyle [
 	^ BorderStyle simple
 		width: 0;
 		baseColor: Color transparent
 ]
 
-{ #category : #accessing }
+{ #category : #style }
 SpToolBarButtonMorph >> normalFillStyle [
 	^ Color transparent
 ]
diff --git a/src/Spec2-Adapters-Morphic/SpToolBarToggleButtonMorph.class.st b/src/Spec2-Adapters-Morphic/SpToolBarToggleButtonMorph.class.st
@@ -106,6 +106,13 @@ SpToolBarToggleButtonMorph >> hasBadge [
 	^ self badge notNil
 ]
 
+{ #category : #style }
+SpToolBarToggleButtonMorph >> mouseOverBorderStyle [
+	^ BorderStyle simple
+		width: 0;
+		baseColor: Color transparent
+]
+
 { #category : #accessing }
 SpToolBarToggleButtonMorph >> newBadgeFont [
 	| baseBadgeFont |
@@ -116,14 +123,14 @@ SpToolBarToggleButtonMorph >> newBadgeFont [
 			weightValue: 700
 ]
 
-{ #category : #accessing }
+{ #category : #style }
 SpToolBarToggleButtonMorph >> normalBorderStyle [
 	^ BorderStyle simple
 		width: 0;
 		baseColor: Color transparent
 ]
 
-{ #category : #accessing }
+{ #category : #style }
 SpToolBarToggleButtonMorph >> normalFillStyle [
 	^ Color transparent
 ]
diff --git a/src/Spec2-Commander2-ContactBook/SpContactBookPresenter.class.st b/src/Spec2-Commander2-ContactBook/SpContactBookPresenter.class.st
@@ -34,6 +34,7 @@ SpContactBookPresenter class >> buildCommandsGroupWith: presenterInstance forRoo
 
 { #category : #commands }
 SpContactBookPresenter class >> buildContextualMenuGroupWith: presenterInstance [
+
 	^ (CmCommandGroup named: 'Context Menu') asSpecGroup
 		register: (self buildEditionGroupWith: presenterInstance);
 		register: (self buildAddingGroupWith: presenterInstance);