--- a/FileApplicationNoteBook.st	Wed Jan 28 14:13:02 2004 +0100
+++ b/FileApplicationNoteBook.st	Thu Jan 29 09:57:59 2004 +0100
@@ -3843,6 +3843,10 @@
 
 !FileApplicationNoteBook::TextEditor class methodsFor:'defaults'!
 
+checkModifiedDelayTime
+    ^ 5
+!
+
 tabStringFor:aApplicationType
 
     aApplicationType == #directoryDescription ifTrue:[
@@ -4647,7 +4651,7 @@
 
 setupCheckModify
 
-    Processor addTimedBlock:checkModifiedBlock afterSeconds:3.
+    Processor addTimedBlock:checkModifiedBlock afterSeconds:(self class checkModifiedDelayTime).
 ! !
 
 !FileApplicationNoteBook::TextEditor methodsFor:'queries'!
@@ -5226,5 +5230,5 @@
 !FileApplicationNoteBook class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.142 2004-01-28 13:11:24 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.143 2004-01-29 08:57:59 penk Exp $'
 ! !