Add basic event support for setting events

src/NewTools-SettingsBrowser/SettingDeclaration.extension.st

@@ -5,7 +5,10 @@ SettingDeclaration >> asSettingPresenter [
 	"Answer an appropriate <SpPresenter> container for the receiver's value"
 
 	^ self precondition value 
-		ifTrue: [ self default asSettingPresenter: self ]
+		ifTrue: [ 
+			self hasValue
+				ifTrue: [ self realValue asSettingPresenter: self ]
+				ifFalse: [ self default asSettingPresenter: self ] ]
 		ifFalse: [ SpNullPresenter new ]
 ]
 

src/NewTools-SettingsBrowser/StSettingBooleanPresenterItem.class.st

@@ -12,9 +12,17 @@ Class {
 { #category : 'initialization' }
 StSettingBooleanPresenterItem >> initializePresenters [ 
 
-	setterPresenter := self newCheckBox
+	setterPresenter := self newCheckBox.
+	setterPresenter 
+		state: self model realValue;
 		whenActivatedDo: [ self updateSetting: self model value: true ];
-		whenDeactivatedDo: [ self updateSetting: self model value: false ].
+		whenDeactivatedDo: [ self updateSetting: self model value: false ];
+		 whenChangedDo: [ : newValue : oldValue | 
+			newValue = oldValue ifFalse: [ 
+				self announcer announce: (SettingUpdated 
+					declaration: self model 
+					oldValue: oldValue
+					newValue: newValue) ]	 ].
 	super initializePresenters.
 
 ]
@@ -43,5 +51,6 @@ StSettingBooleanPresenterItem >> updateSetting: aSettingDeclaration value: aBool
 { #category : 'accessing' }
 StSettingBooleanPresenterItem >> value: aBoolean [
 
-	self setterPresenter state: aBoolean
+	self setterPresenter state: aBoolean.
+
 ]

src/NewTools-SettingsBrowser/StSettingPresenterItem.class.st

@@ -18,6 +18,14 @@ Class {
 	#tag : 'Widgets'
 }
 
+{ #category : 'accessing' }
+StSettingPresenterItem >> announcer [
+	"Answer a <SystemAnnouncer> to notify receiver changes"
+
+	^ self environment codeSupportAnnouncer
+
+]
+
 { #category : 'layout' }
 StSettingPresenterItem >> defaultLayout [
 
@@ -26,6 +34,12 @@ StSettingPresenterItem >> defaultLayout [
 		yourself
 ]
 
+{ #category : 'initialization' }
+StSettingPresenterItem >> environment [
+
+	^ SystemEnvironment new
+]
+
 { #category : 'initialization' }
 StSettingPresenterItem >> initializePresenters [
 	"Set a label and description presenters as baseline for every setting"