--- a/AbstractSettingsApplication.st Fri Mar 25 17:05:16 2016 +0100
+++ b/AbstractSettingsApplication.st Fri Mar 25 17:06:23 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 2002 by eXept Software AG
All Rights Reserved
@@ -1171,18 +1169,8 @@
selectedSettingHolder
<resource: #uiAspect>
- "automatically generated by UIPainter ..."
-
- "*** the code below creates a default model when invoked."
- "*** (which may not be the one you wanted)"
- "*** Please change as required and accept it in the browser."
- "*** (and replace this comment by something more useful ;-)"
-
selectedSettingHolder isNil ifTrue:[
selectedSettingHolder := ValueHolder new.
-"/ if your app needs to be notified of changes, uncomment one of the lines below:
-"/ selectedSettingHolder addDependent:self.
-"/ selectedSettingHolder onChangeSend:#selectedSettingHolderChanged to:self.
].
^ selectedSettingHolder.
!
@@ -1190,13 +1178,6 @@
settingsList
<resource: #uiAspect>
- "automatically generated by UIPainter ..."
-
- "*** the code below creates a default model when invoked."
- "*** (which may not be the one you wanted)"
- "*** Please change as required and accept it in the browser."
- "*** (and replace this comment by something more useful ;-)"
-
settingsList isNil ifTrue:[
settingsList := self fetchSettingsList.
@@ -12565,20 +12546,10 @@
scriptingServerPortOrPath
<resource: #uiAspect>
- "automatically generated by UIPainter ..."
-
- "*** the code below creates a default model when invoked."
- "*** (which may not be the one you wanted)"
- "*** Please change as required and accept it in the browser."
- "*** (and replace this comment by something more useful ;-)"
-
scriptingServerPortOrPath isNil ifTrue:[
STXScriptingServer notNil ifTrue:[
scriptingServerPortOrPath := STXScriptingServer defaultPortNumber asValue.
].
-"/ if your app needs to be notified of changes, uncomment one of the lines below:
-"/ scriptingServerPortOrPath addDependent:self.
-"/ scriptingServerPortOrPath onChangeSend:#scriptingServerPortOrPathChanged to:self.
].
^ scriptingServerPortOrPath.
! !
@@ -18181,17 +18152,8 @@
smallLintRulesetDefault
<resource: #uiAspect>
- "automatically generated by UIPainter ..."
-
- "*** the code below creates a default model when invoked."
- "*** (which may not be the one you wanted)"
- "*** Please change as required and accept it in the browser."
- "*** (and replace this comment by something more useful ;-)"
-
smallLintRulesetDefault isNil ifTrue:[
smallLintRulesetDefault := ValueHolder new.
-"/ if your app needs to be notified of changes, uncomment one of the lines below:
-"/ smallLintRulesetNameDefault addDependent:self.
smallLintRulesetDefault onChangeSend:#updateModifiedChannel to:self.
].
^ smallLintRulesetDefault.
@@ -19125,17 +19087,8 @@
changesBrowserClassName
<resource: #uiAspect>
- "automatically generated by UIPainter ..."
-
- "*** the code below creates a default model when invoked."
- "*** (which may not be the one you wanted)"
- "*** Please change as required and accept it in the browser."
- "*** (and replace this comment by something more useful ;-)"
-
changesBrowserClassName isNil ifTrue:[
changesBrowserClassName := ValueHolder new.
-"/ if your app needs to be notified of changes, uncomment one of the lines below:
-"/ changesBrowserClassName addDependent:self.
changesBrowserClassName onChangeSend:#updateModifiedChannel to:self.
].
^ changesBrowserClassName.
@@ -19329,18 +19282,8 @@
optionCustomValueBackgroundHolder
<resource: #uiAspect>
- "automatically generated by UIPainter ..."
-
- "*** the code below creates a default model when invoked."
- "*** (which may not be the one you wanted)"
- "*** Please change as required and accept it in the browser."
- "*** (and replace this comment by something more useful ;-)"
-
optionCustomValueBackgroundHolder isNil ifTrue:[
optionCustomValueBackgroundHolder := ValueHolder new.
-"/ if your app needs to be notified of changes, uncomment one of the lines below:
-"/ optionCustomValueBackgroundHolder addDependent:self.
-"/ optionCustomValueBackgroundHolder onChangeSend:#optionCustomValueBackgroundHolderChanged to:self.
].
^ optionCustomValueBackgroundHolder.
!
@@ -19354,18 +19297,9 @@
optionCustomValueHolder
<resource: #uiAspect>
- "automatically generated by UIPainter ..."
-
- "*** the code below creates a default model when invoked."
- "*** (which may not be the one you wanted)"
- "*** Please change as required and accept it in the browser."
- "*** (and replace this comment by something more useful ;-)"
-
optionCustomValueHolder isNil ifTrue:[
optionCustomValueHolder := ValueHolder new.
-"/ if your app needs to be notified of changes, uncomment one of the lines below:
- optionCustomValueHolder addDependent:self.
-"/ optionCustomValueHolder onChangeSend:#optionCustomValueHolderChanged to:self.
+ optionCustomValueHolder addDependent:self.
].
^ optionCustomValueHolder.
@@ -19375,18 +19309,9 @@
optionCustomValueVisibleHolder
<resource: #uiAspect>
- "automatically generated by UIPainter ..."
-
- "*** the code below creates a default model when invoked."
- "*** (which may not be the one you wanted)"
- "*** Please change as required and accept it in the browser."
- "*** (and replace this comment by something more useful ;-)"
-
optionCustomValueVisibleHolder isNil ifTrue:[
optionCustomValueVisibleHolder := false asValue.
-"/ if your app needs to be notified of changes, uncomment one of the lines below:
- optionCustomValueVisibleHolder addDependent:self.
-"/ optionCustomValueVisibleHolder onChangeSend:#optionCustomValueVisibleHolderChanged to:self.
+ optionCustomValueVisibleHolder addDependent:self.
].
^ optionCustomValueVisibleHolder.
@@ -19396,18 +19321,8 @@
optionLabelHolder
<resource: #uiAspect>
- "automatically generated by UIPainter ..."
-
- "*** the code below creates a default model when invoked."
- "*** (which may not be the one you wanted)"
- "*** Please change as required and accept it in the browser."
- "*** (and replace this comment by something more useful ;-)"
-
optionLabelHolder isNil ifTrue:[
optionLabelHolder := ValueHolder new.
-"/ if your app needs to be notified of changes, uncomment one of the lines below:
-"/ optionLabelHolder addDependent:self.
-"/ optionLabelHolder onChangeSend:#optionLabelHolderChanged to:self.
].
^ optionLabelHolder.
!
@@ -19415,18 +19330,8 @@
optionLabelList
<resource: #uiAspect>
- "automatically generated by UIPainter ..."
-
- "*** the code below creates a default model when invoked."
- "*** (which may not be the one you wanted)"
- "*** Please change as required and accept it in the browser."
- "*** (and replace this comment by something more useful ;-)"
-
optionLabelList isNil ifTrue:[
optionLabelList := ValueHolder new.
-"/ if your app needs to be notified of changes, uncomment one of the lines below:
-"/ optionLabelList addDependent:self.
-"/ optionLabelList onChangeSend:#optionLabelListChanged to:self.
].
^ optionLabelList.
!
@@ -19440,18 +19345,9 @@
optionSelectionHolder
<resource: #uiAspect>
- "automatically generated by UIPainter ..."
-
- "*** the code below creates a default model when invoked."
- "*** (which may not be the one you wanted)"
- "*** Please change as required and accept it in the browser."
- "*** (and replace this comment by something more useful ;-)"
-
optionSelectionHolder isNil ifTrue:[
optionSelectionHolder := ValueHolder new.
-"/ if your app needs to be notified of changes, uncomment one of the lines below:
- optionSelectionHolder addDependent:self.
-"/ optionSelectionHolder onChangeSend:#optionSelectionHolderChanged to:self.
+ optionSelectionHolder addDependent:self.
].
^ optionSelectionHolder.