From 66e14af4b208a7b1ea244d0572073c2a5f5f837c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andrei=20Chi=C8=99?= Date: Wed, 27 Mar 2024 15:50:25 +0100 Subject: [PATCH] Add explicit labels for abort and commit actions --- src/GToolkit-GemStone-Pharo/GtGemStoneSession.class.st | 2 ++ src/GToolkit-GemStone-Pharo/GtpoGsNMethod.class.st | 4 ++++ 2 files changed, 6 insertions(+) diff --git a/src/GToolkit-GemStone-Pharo/GtGemStoneSession.class.st b/src/GToolkit-GemStone-Pharo/GtGemStoneSession.class.st index ccc7bd00..a9be2b80 100644 --- 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 index 8f65d5bf..61c0083f 100644 --- 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' ]