preps for \"showInBrowserMenus\"
authorClaus Gittinger <cg@exept.de>
Tue, 10 Jan 2012 00:23:14 +0100
changeset 11068 dcd5bc8ed585
parent 11067 aa11bad9a498
child 11069 8f99a7115be3
preps for \"showInBrowserMenus\"
AbstractSourceCodeManagementSettingsAppl.st
--- a/AbstractSourceCodeManagementSettingsAppl.st	Tue Jan 10 00:23:10 2012 +0100
+++ b/AbstractSourceCodeManagementSettingsAppl.st	Tue Jan 10 00:23:14 2012 +0100
@@ -12,7 +12,7 @@
 "{ Package: 'stx:libtool' }"
 
 AbstractSettingsApplication subclass:#AbstractSourceCodeManagementSettingsAppl
-	instanceVariableNames:'showInBrowserMenusHolder'
+	instanceVariableNames:'shownInBrowserMenusHolder'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'System-SourceCodeManagement'
@@ -117,23 +117,24 @@
 
 !AbstractSourceCodeManagementSettingsAppl methodsFor:'aspects'!
 
-showInBrowserMenusHolder
-    showInBrowserMenusHolder isNil ifTrue:[
-        showInBrowserMenusHolder := true asValue
+shownInBrowserMenusHolder
+    shownInBrowserMenusHolder isNil ifTrue:[
+        shownInBrowserMenusHolder := true asValue.
+        shownInBrowserMenusHolder onChangeSend:#updateModifiedChannel to:self
     ].
-    ^ showInBrowserMenusHolder.
+    ^ shownInBrowserMenusHolder.
 
-    "Created: / 09-01-2012 / 23:24:29 / cg"
+    "Created: / 10-01-2012 / 00:16:13 / cg"
 ! !
 
 !AbstractSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSourceCodeManagementSettingsAppl.st,v 1.8 2012-01-09 22:58:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSourceCodeManagementSettingsAppl.st,v 1.9 2012-01-09 23:23:14 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSourceCodeManagementSettingsAppl.st,v 1.8 2012-01-09 22:58:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSourceCodeManagementSettingsAppl.st,v 1.9 2012-01-09 23:23:14 cg Exp $'
 !
 
 version_SVN