From 66212e78797e1f5f516dbea254277824f77e0042 Mon Sep 17 00:00:00 2001
From: Martin Dias <tinchodias@gmail.com>
Date: Wed, 17 Jul 2024 19:35:51 -0400
Subject: [PATCH] Apply context menu trait to button, label and list

---
 src/Spec-Toplo/SpToploButtonAdapter.class.st | 19 ++++---------------
 src/Spec-Toplo/SpToploLabelAdapter.class.st  |  6 +++++-
 src/Spec-Toplo/SpToploListAdapter.class.st   |  5 ++++-
 3 files changed, 13 insertions(+), 17 deletions(-)

diff --git a/src/Spec-Toplo/SpToploButtonAdapter.class.st b/src/Spec-Toplo/SpToploButtonAdapter.class.st
index 9c74dd7..7445003 100644
--- a/src/Spec-Toplo/SpToploButtonAdapter.class.st
+++ b/src/Spec-Toplo/SpToploButtonAdapter.class.st
@@ -4,6 +4,8 @@ I'm a Spec adapter for widgets, in general in the hierarchy of `SpAbstractWidget
 Class {
 	#name : #SpToploButtonAdapter,
 	#superclass : #SpToploWidgetAdapter,
+	#traits : 'SpToploTWithContextMenu',
+	#classTraits : 'SpToploTWithContextMenu classTrait',
 	#category : #'Spec-Toplo-Adapters'
 }
 
@@ -11,9 +13,6 @@ Class {
 SpToploButtonAdapter >> buildWidget [
 
 	^ ToButton new
-		contextMenu: [ :win :request |
-			self inform: win asString ];
-		yourself
 ]
 
 { #category : #accessing }
@@ -28,12 +27,6 @@ SpToploButtonAdapter >> label [
 	^ widget labelText
 ]
 
-{ #category : #factory }
-SpToploButtonAdapter >> newContextMenu [
-
-	^ model contextMenu ifNotNil: #build
-]
-
 { #category : #initialization }
 SpToploButtonAdapter >> subscribeToPresenter [
 
@@ -66,7 +59,8 @@ SpToploButtonAdapter >> updateAll [
 	self
 		updateLabel;
 		updateIcon;
-		updateAction
+		updateAction;
+		updateMenu
 ]
 
 { #category : #'updating widget' }
@@ -81,8 +75,3 @@ SpToploButtonAdapter >> updateLabel [
 
 	widget labelText: model label
 ]
-
-{ #category : #'updating widget' }
-SpToploButtonAdapter >> updateMenu [
-	"No need to act; if the menu is opened, it will use the current one."
-]
diff --git a/src/Spec-Toplo/SpToploLabelAdapter.class.st b/src/Spec-Toplo/SpToploLabelAdapter.class.st
index 7814c41..94c1fa8 100644
--- a/src/Spec-Toplo/SpToploLabelAdapter.class.st
+++ b/src/Spec-Toplo/SpToploLabelAdapter.class.st
@@ -4,6 +4,8 @@ I'm a Spec adapter for `SpLabelPresenter`.
 Class {
 	#name : #SpToploLabelAdapter,
 	#superclass : #SpToploWidgetAdapter,
+	#traits : 'SpToploTWithContextMenu',
+	#classTraits : 'SpToploTWithContextMenu classTrait',
 	#category : #'Spec-Toplo-Adapters'
 }
 
@@ -38,7 +40,9 @@ SpToploLabelAdapter >> updateAll [
 
 	super updateAll.
 
-	self updateLabel
+	self
+		updateLabel;
+		updateMenu
 ]
 
 { #category : #'updating widget' }
diff --git a/src/Spec-Toplo/SpToploListAdapter.class.st b/src/Spec-Toplo/SpToploListAdapter.class.st
index 42560c2..bf4ba6d 100644
--- a/src/Spec-Toplo/SpToploListAdapter.class.st
+++ b/src/Spec-Toplo/SpToploListAdapter.class.st
@@ -4,6 +4,8 @@ I'm a Spec adapter for `SpListPresenter`.
 Class {
 	#name : #SpToploListAdapter,
 	#superclass : #SpToploWidgetAdapter,
+	#traits : 'SpToploTWithContextMenu',
+	#classTraits : 'SpToploTWithContextMenu classTrait',
 	#category : #'Spec-Toplo-Adapters'
 }
 
@@ -107,7 +109,8 @@ SpToploListAdapter >> updateAll [
 
 	self
 		updateItems;
-		updateSelection
+		updateSelection;
+		updateMenu
 ]
 
 { #category : #'updating widget' }