Add explicit labels for abort and commit actions

feenkcom · Mar 27, 2024 · 66e14af · 66e14af
1 parent a200b3b
commit 66e14af
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/src/GToolkit-GemStone-Pharo/GtGemStoneSession.class.st b/src/GToolkit-GemStone-Pharo/GtGemStoneSession.class.st
@@ -846,6 +846,7 @@ GtGemStoneSession >> gtAbortActionFor: anAction [
 	^(anAction button)
 		priority: 7;
 		tooltip: 'GemStone Abort Transaction';
+		label: 'Abort';
 		icon: BrGlamorousVectorIcons cancel;
 		action: 
 				[:button |
@@ -892,6 +893,7 @@ GtGemStoneSession >> gtCommitActionFor: anAction [
 	^(anAction button)
 		priority: 6;
 		tooltip: 'GemStone Commit Transaction';
+		label: 'Commit';
 		icon: BrGlamorousVectorIcons accept;
 		action: 
 				[:button |

diff --git a/src/GToolkit-GemStone-Pharo/GtpoGsNMethod.class.st b/src/GToolkit-GemStone-Pharo/GtpoGsNMethod.class.st
@@ -50,7 +50,9 @@ GtpoGsNMethod >> gtAbortActionFor: anAction [
 	(gtSession isNil or: [ gtSession isRunning not ]) ifTrue: [ ^ anAction noAction ].
 	^ anAction button 
 		tooltip: 'GemStone Abort Transaction';
+		label: 'Abort';
 		icon: BrGlamorousVectorIcons cancel;
+		priority: 25;
 		action: [ :button | 
 			gtSession abortTransaction.
 			button phlow spawnObject: 'Aborted transaction' ]
@@ -81,7 +83,9 @@ GtpoGsNMethod >> gtCommitActionFor: anAction [
 	(gtSession isNil or: [ gtSession isRunning not ]) ifTrue: [ ^ anAction noAction ].
 	^ anAction button 
 		tooltip: 'GemStone Commit Transaction';
+		label: 'Commit';
 		icon: BrGlamorousVectorIcons accept;
+		priority: 20;
 		action: [ :button | 
 			gtSession commitTransaction.
 			button phlow spawnObject: 'Successfully committed transaction' ]