From eeb2f32e7b3e553b45e17524ee4185f32e0cd639 Mon Sep 17 00:00:00 2001 From: Pierre Laborde <49183340+labordep@users.noreply.github.com> Date: Wed, 1 Nov 2023 13:24:55 +0100 Subject: [PATCH] Initialize edit on running plugin --- .../PyramidPluginEditOnRunningTest.class.st | 42 +++++++++++++++++++ .../PyramidPluginEditOnRunning.class.st | 40 ++++++++++++++++++ 2 files changed, 82 insertions(+) create mode 100644 src/Pyramid-Tests/PyramidPluginEditOnRunningTest.class.st create mode 100644 src/Pyramid/PyramidPluginEditOnRunning.class.st diff --git a/src/Pyramid-Tests/PyramidPluginEditOnRunningTest.class.st b/src/Pyramid-Tests/PyramidPluginEditOnRunningTest.class.st new file mode 100644 index 00000000..d1c40af3 --- /dev/null +++ b/src/Pyramid-Tests/PyramidPluginEditOnRunningTest.class.st @@ -0,0 +1,42 @@ +" +A PyramidPluginEditOnRunningTest is a test class for testing the behavior of PyramidPluginEditOnRunning +" +Class { + #name : #PyramidPluginEditOnRunningTest, + #superclass : #TestCase, + #instVars : [ + 'editOnRunning' + ], + #category : #'Pyramid-Tests-cases-plugin-edit-on-running' +} + +{ #category : #tests } +PyramidPluginEditOnRunningTest >> setUp [ + + super setUp. + editOnRunning := PyramidPluginEditOnRunning editOnRunning. +] + +{ #category : #tests } +PyramidPluginEditOnRunningTest >> tearDown [ + + super tearDown. + PyramidPluginEditOnRunning editOnRunning: editOnRunning. +] + +{ #category : #tests } +PyramidPluginEditOnRunningTest >> testEditOnRunning [ + + PyramidPluginEditOnRunning editOnRunning: true. + self assert: PyramidPluginEditOnRunning editOnRunning. + + PyramidPluginEditOnRunning editOnRunning: false. + self deny: PyramidPluginEditOnRunning editOnRunning. +] + +{ #category : #tests } +PyramidPluginEditOnRunningTest >> testPlugin [ + + | plugin | + plugin := PyramidPluginEditOnRunning new. +] diff --git a/src/Pyramid/PyramidPluginEditOnRunning.class.st b/src/Pyramid/PyramidPluginEditOnRunning.class.st new file mode 100644 index 00000000..bfae5d04 --- /dev/null +++ b/src/Pyramid/PyramidPluginEditOnRunning.class.st @@ -0,0 +1,40 @@ +Class { + #name : #PyramidPluginEditOnRunning, + #superclass : #Object, + #traits : 'TPyramidPlugin', + #classTraits : 'TPyramidPlugin classTrait', + #classInstVars : [ + 'editOnRunning' + ], + #category : #'Pyramid-plugin-edit-on-running' +} + +{ #category : #accessing } +PyramidPluginEditOnRunning class >> editOnRunning [ + + ^ editOnRunning ifNil: [ editOnRunning := true ] +] + +{ #category : #accessing } +PyramidPluginEditOnRunning class >> editOnRunning: aBoolean [ + + editOnRunning := aBoolean +] + +{ #category : #adding } +PyramidPluginEditOnRunning >> addPanelsOn: aPyramidSimpleWindow [ + + "do nothing" +] + +{ #category : #actions } +PyramidPluginEditOnRunning >> configureBuilder: aPyramidEditorBuilder [ + + "do nothing" +] + +{ #category : #'as yet unclassified' } +PyramidPluginEditOnRunning >> connectOn: aPyramidEditor [ + + "do nothing" +]