HistoryManager.st
changeset 1504 cfeab1ed934d
parent 1495 37d6cbe61da8
child 1505 44c303e3558a
--- a/HistoryManager.st	Tue Jul 04 18:25:03 2006 +0200
+++ b/HistoryManager.st	Wed Jul 05 17:42:07 2006 +0200
@@ -102,8 +102,8 @@
 
     ObjectMemory addDependent: self.
 
-    "Modified: 14.8.1995 / 09:09:06 / robert"
-    "Modified: 20.4.1996 / 20:34:09 / cg"
+    "Modified: / 14-08-1995 / 09:09:06 / robert"
+    "Modified: / 05-07-2006 / 17:36:47 / cg"
 ! !
 
 !HistoryManager class methodsFor:'instance creation'!
@@ -375,7 +375,7 @@
     "arrive here, whenever any class changed somehow.
      (something contains aSymbol describing what happened)"
 
-    |sourceCode newMethod fileInOrRecompiling selector oldMethod what
+    |sourceCode newMethod selector oldMethod what
      changedClass whatChange oldSource|
 
     "/
@@ -389,8 +389,11 @@
     "/ no action, if changeFile update is locked
     "/ (since then, this may be a recompile or fileIn)
     "/
-    fileInOrRecompiling := Class updateChangeFileQuerySignal query.
-    fileInOrRecompiling ifFalse:[ 
+    (Class updateChangeFileQuerySignal query) ifFalse:[ 
+"/        Transcript showCR: '* noChange in history'. 
+        ^ self 
+    ].
+    Class updateHistoryLineQuerySignal query ifFalse:[ 
 "/        Transcript showCR: '* noChange in history'. 
         ^ self 
     ].
@@ -565,9 +568,9 @@
 
     ^self
 
-    "Modified: / 27.8.1995 / 02:14:43 / claus"
-    "Modified: / 24.10.1997 / 01:41:19 / cg"
-    "Modified: / 18.3.1999 / 18:21:47 / stefan"
+    "Modified: / 27-08-1995 / 02:14:43 / claus"
+    "Modified: / 18-03-1999 / 18:21:47 / stefan"
+    "Modified: / 05-07-2006 / 17:36:32 / cg"
 ! !
 
 !HistoryManager methodsFor:'initialization'!
@@ -873,7 +876,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.60 2006-06-20 11:27:51 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.61 2006-07-05 15:42:07 cg Exp $'
 ! !
 
 !HistoryManager::HistoryLine class methodsFor:'filtering'!
@@ -1499,7 +1502,7 @@
 !HistoryManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.60 2006-06-20 11:27:51 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.61 2006-07-05 15:42:07 cg Exp $'
 ! !
 
 HistoryManager initialize!