--- a/AbstractSettingsApplication.st	Sat Sep 22 16:14:52 2018 +0200
+++ b/AbstractSettingsApplication.st	Sun Sep 23 01:09:21 2018 +0200
@@ -3065,12 +3065,15 @@
 !
 
 allowQualifiedNames
+    "true, if '#{..}' and 'namespace.varName' qualified names are allowed"
 
     allowQualifiedNames isNil ifTrue:[
         allowQualifiedNames := ParserFlags allowQualifiedNames asValue.
         allowQualifiedNames onChangeSend:#updateModifiedChannel to:self.
     ].
     ^ allowQualifiedNames.
+
+    "Modified (comment): / 23-09-2018 / 01:08:42 / Claus Gittinger"
 !
 
 allowReservedWordsAsSelectors
@@ -4863,9 +4866,11 @@
 monitorList
 
     monitorList isNil ifTrue:[
-        monitorList := (resources array:(sizeInfos collect:[:entry | entry at:1])) asList.
+        monitorList := (resources array:(sizeInfos collectColumn:1)) asList.
     ].
     ^ monitorList.
+
+    "Modified: / 22-09-2018 / 11:20:11 / Claus Gittinger"
 !
 
 monitorSelection
@@ -4993,7 +4998,7 @@
 sizeXorYChanged
     | sizes idx|
 
-    sizes := sizeInfos collect:[:entry | entry at:2].
+    sizes := sizeInfos collectColumn:2.
     idx := sizes findFirst:[:entry |
                                 ((entry at:1) = sizeX value)
                                 and:[((entry at:2) = sizeY value)]
@@ -5001,6 +5006,8 @@
     idx ~~ 0 ifTrue:[
         self monitorSelection value:idx
     ].
+
+    "Modified: / 22-09-2018 / 11:20:19 / Claus Gittinger"
 !
 
 update:something with:aParameter from:changedObject