--- a/SettingsDialog.st	Tue May 06 16:42:46 2014 +0200
+++ b/SettingsDialog.st	Tue May 06 16:48:12 2014 +0200
@@ -1317,11 +1317,11 @@
 !SettingsDialog methodsFor:'change & update'!
 
 modifiedChanged
-    |changedObject|
+    |modified|
 
-    changedObject := self subCanvasApplicationHolder value modifiedChannel.
-    self enableOK value:(changedObject value).
-    self enableReload value:(changedObject value).
+    modified := self subCanvasApplication modifiedChannel value.
+    self enableOK value:modified.
+    self enableReload value:modified.
 !
 
 selectItemWithClass:aClass
@@ -1353,7 +1353,7 @@
 
     self selectedItem value == lastSelection  ifTrue:[ ^ self].
 
-    oldAppl := self subCanvasApplicationHolder value.
+    oldAppl := self subCanvasApplication.
     oldAppl notNil ifTrue:[
         oldAppl saveRequest ifFalse:[
             lastSelection notNil ifTrue:[
@@ -1434,6 +1434,10 @@
     "Modified: / 17-02-2012 / 10:24:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+subCanvasApplication
+    ^ self subCanvasApplicationHolder value
+!
+
 update:something with:aParameter from:changedObject
     |subCanvasApplication|
 
@@ -1442,7 +1446,7 @@
         self selectionChanged.
         ^ self.
     ].
-    subCanvasApplication := self subCanvasApplicationHolder value.
+    subCanvasApplication := self subCanvasApplication.
     (subCanvasApplication notNil 
     and:[changedObject == subCanvasApplication modifiedChannel]) ifTrue:[
         self modifiedChanged.
@@ -1861,11 +1865,11 @@
 !SettingsDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.113 2014-04-14 12:29:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.114 2014-05-06 14:48:12 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.113 2014-04-14 12:29:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.114 2014-05-06 14:48:12 cg Exp $'
 ! !