Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
oops - dont add primitive-change-records if not updating changes
authorClaus Gittinger <cg@exept.de>
Sun, 03 Dec 1995 19:30:00 +0100
changeset 669 62784300daa6
parent 668 73165201a9da
child 670 4d6d0c031711
oops - dont add primitive-change-records if not updating changes
Class.st file | annotate | diff | comparison | revisions 
--- a/Class.st	Sun Dec 03 19:04:22 1995 +0100
+++ b/Class.st	Sun Dec 03 19:30:00 1995 +0100
@@ -1331,7 +1331,7 @@
 addChangeRecordForMethod:aMethod
     "add a method-change-record to the changes file"
 
-    (UpdateChangeFileQuerySignal raise) "UpdatingChanges" ifTrue:[
+    (UpdateChangeFileQuerySignal raise) ifTrue:[
 	self writingChangePerform:#addChangeRecordForMethod:to: with:aMethod.
 	"this test allows a smalltalk without Projects/ChangeSets"
 	Project notNil ifTrue:[
@@ -1349,7 +1349,7 @@
 addChangeRecordForMethodCategory:aMethod category:aString
     "add a methodCategory-change-record to the changes file"
 
-    (UpdateChangeFileQuerySignal raise) "UpdatingChanges" ifTrue:[
+    (UpdateChangeFileQuerySignal raise) ifTrue:[
 	self writingChangeDo:[:aStream |
 	    self addChangeRecordForMethodCategory:aMethod category:aString to:aStream.
 	].
@@ -1379,7 +1379,7 @@
 addChangeRecordForMethodPrivacy:aMethod
     "add a method-privacy-change-record to the changes file"
 
-    (UpdateChangeFileQuerySignal raise) "UpdatingChanges" ifTrue:[
+    (UpdateChangeFileQuerySignal raise) ifTrue:[
 	self writingChangePerform:#addChangeRecordForMethodPrivacy:to: with:aMethod.
 	"this test allows a smalltalk without Projects/ChangeSets"
 	Project notNil ifTrue:[
@@ -1410,9 +1410,11 @@
 addChangeRecordForPrimitiveDefinitions:aClass
     "add a primitiveDefinitions-record to the changes file"
 
-    self writingChangePerform:#addChangeRecordForPrimitiveDefinitions:to: with:aClass.
-    Project notNil ifTrue:[
-	Project addPrimitiveDefinitionsChangeFor:aClass
+    (UpdateChangeFileQuerySignal raise) ifTrue:[
+	self writingChangePerform:#addChangeRecordForPrimitiveDefinitions:to: with:aClass.
+	Project notNil ifTrue:[
+	    Project addPrimitiveDefinitionsChangeFor:aClass
+	]
     ]
 !
 
@@ -1427,9 +1429,11 @@
 addChangeRecordForPrimitiveFunctions:aClass
     "add a primitiveFunctions-record to the changes file"
 
-    self writingChangePerform:#addChangeRecordForPrimitiveFunctions:to: with:aClass.
-    Project notNil ifTrue:[
-	Project addPrimitiveFunctionsChangeFor:aClass
+    (UpdateChangeFileQuerySignal raise) ifTrue:[
+	self writingChangePerform:#addChangeRecordForPrimitiveFunctions:to: with:aClass.
+	Project notNil ifTrue:[
+	    Project addPrimitiveFunctionsChangeFor:aClass
+	]
     ]
 !
 
@@ -1444,9 +1448,11 @@
 addChangeRecordForPrimitiveVariables:aClass
     "add a primitiveVariables-record to the changes file"
 
-    self writingChangePerform:#addChangeRecordForPrimitiveVariables:to: with:aClass.
-    Project notNil ifTrue:[
-	Project addPrimitiveVariablesChangeFor:aClass
+    (UpdateChangeFileQuerySignal raise) ifTrue:[
+	self writingChangePerform:#addChangeRecordForPrimitiveVariables:to: with:aClass.
+	Project notNil ifTrue:[
+	    Project addPrimitiveVariablesChangeFor:aClass
+	]
     ]
 !
 
@@ -3354,5 +3360,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.92 1995-12-03 18:02:39 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.93 1995-12-03 18:30:00 cg Exp $'! !
 Class initialize!
hg/stx-libbasic