--- a/ToolApplicationModel.st	Fri Jul 09 21:47:07 1999 +0200
+++ b/ToolApplicationModel.st	Tue Jul 13 17:35:31 1999 +0200
@@ -50,8 +50,8 @@
 
 documentation
 "
-    Framework class for tool applications.
-    Provides hooks for history management,
+    Framework class for tool applications (UIPainter, MenuEditor etc.).
+    Provides hooks for modifiedChannels, history management,
     showing help texts, about menu, help menu etc.
 
     [author:]
@@ -1162,6 +1162,17 @@
     "Created: / 20.6.1998 / 14:51:29 / cg"
 ! !
 
+!ToolApplicationModel methodsFor:'misc'!
+
+clearModifiedFlag
+    "clear the modifiedChannel.
+     That one is hooked to components in the right noteBook,
+     and will be set, when any value is modified.
+     (to enable OK and cancel buttons)"
+
+    self modifiedChannel value:false
+! !
+
 !ToolApplicationModel methodsFor:'queries'!
 
 allToolInstances
@@ -1223,5 +1234,5 @@
 !ToolApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.89 1999-07-06 09:43:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.90 1999-07-13 15:35:31 cg Exp $'
 ! !