--- 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!