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.
no history update unless done by user
authorClaus Gittinger <cg@exept.de>
Wed, 05 Jul 2006 17:42:29 +0200
changeset 9427 2b8b41a72283
parent 9426 1f45fcd79d08
child 9428 a46275bc78e7
no history update unless done by user (to avoid historyline change when filing in or when applying changes, or when checking out of the repository)
ClassDescription.st file | annotate | diff | comparison | revisions 
--- a/ClassDescription.st	Wed Jul 05 17:26:16 2006 +0200
+++ b/ClassDescription.st	Wed Jul 05 17:42:29 2006 +0200
@@ -17,10 +17,10 @@
 	classVariableNames:'UpdatingChanges LockChangesFile FileOutErrorSignal
 		CatchMethodRedefinitions CatchClassRedefinitions
 		UpdateChangeFileQuerySignal UpdateChangeListQuerySignal
-		TryLocalSourceFirst ChangeFileAccessLock NameSpaceQuerySignal
-		PackageQuerySignal UsedNameSpaceQuerySignal
-		CreateNameSpaceQuerySignal FileOutNameSpaceQuerySignal
-		ForceNoNameSpaceQuerySignal
+		UpdateHistoryLineQuerySignal TryLocalSourceFirst
+		ChangeFileAccessLock NameSpaceQuerySignal PackageQuerySignal
+		UsedNameSpaceQuerySignal CreateNameSpaceQuerySignal
+		FileOutNameSpaceQuerySignal ForceNoNameSpaceQuerySignal
 		ChangeDefaultApplicationNotificationSignal
 		DefaultApplicationQuerySignal
 		ClassConventionViolationConfirmationQuerySignal MethodHistory
@@ -173,9 +173,9 @@
     TryLocalSourceFirst := false.
 
     FileOutErrorSignal isNil ifTrue:[
-	FileOutErrorSignal := Error newSignalMayProceed:true.
-	FileOutErrorSignal nameClass:self message:#fileOutErrorSignal.
-	FileOutErrorSignal notifierString:'error during fileOut'.
+        FileOutErrorSignal := Error newSignalMayProceed:true.
+        FileOutErrorSignal nameClass:self message:#fileOutErrorSignal.
+        FileOutErrorSignal notifierString:'error during fileOut'.
 
 "/        MethodRedefinitionSignal := QuerySignal new.
 "/        MethodRedefinitionSignal nameClass:self message:#methodRedefinitionSignal.
@@ -187,74 +187,79 @@
 "/        ClassRedefinitionSignal notifierString:'attempt to redefine class from different package'.
 "/        ClassRedefinitionSignal defaultAnswer:#keep.
 
-	UpdateChangeFileQuerySignal := QuerySignal new.
-	UpdateChangeFileQuerySignal nameClass:self message:#updateChangeFileQuerySignal.
-	UpdateChangeFileQuerySignal notifierString:'asking if changeFile update is wanted'.
-	UpdateChangeFileQuerySignal handlerBlock:[:ex | ex proceedWith:UpdatingChanges].
-
-	UpdateChangeListQuerySignal := QuerySignal new.
-	UpdateChangeListQuerySignal nameClass:self message:#updateChangeListQuerySignal.
-	UpdateChangeListQuerySignal notifierString:'asking if changeList update is wanted'.
-	UpdateChangeListQuerySignal handlerBlock:[:ex | ex proceedWith:UpdatingChanges].
-
-	NameSpaceQuerySignal isNil ifTrue:[
-	    NameSpaceQuerySignal := QuerySignal new.
-	    NameSpaceQuerySignal nameClass:self message:#nameSpaceQuerySignal.
-	    NameSpaceQuerySignal notifierString:'asking for nameSpace'.
-	    NameSpaceQuerySignal handlerBlock:[:ex | ex proceedWith:Smalltalk defaultNameSpace].
-	].
-	UsedNameSpaceQuerySignal isNil ifTrue:[
-	    UsedNameSpaceQuerySignal := QuerySignal new.
-	    UsedNameSpaceQuerySignal nameClass:self message:#usedNameSpaceQuerySignal.
-	    UsedNameSpaceQuerySignal notifierString:'asking for used nameSpaced'.
-	].
-
-	CreateNameSpaceQuerySignal := QuerySignal new.
-	CreateNameSpaceQuerySignal nameClass:self message:#createNameSpaceQuerySignal.
-	CreateNameSpaceQuerySignal notifierString:'asking for nameSpace creation'.
-	CreateNameSpaceQuerySignal defaultAnswer:false.
-
-	ClassConventionViolationConfirmationQuerySignal := QuerySignal new.
-	ClassConventionViolationConfirmationQuerySignal nameClass:self message:#classConventionViolationConfirmationQuerySignal.
-	ClassConventionViolationConfirmationQuerySignal notifierString:'asking for class convention'.
-
-	PackageQuerySignal := QuerySignal new.
-	PackageQuerySignal nameClass:self message:#packageQuerySignal.
-	PackageQuerySignal notifierString:'asking for package'.
-	PackageQuerySignal handlerBlock:[:ex | ex proceedWith:(Project isNil
-								    ifTrue:[
-									nil
-								    ] ifFalse:[
-									Project currentPackageName
-								    ])].
-
-	FileOutNameSpaceQuerySignal := QuerySignal new.
-	FileOutNameSpaceQuerySignal defaultAnswer:false.
-
-	ForceNoNameSpaceQuerySignal := QuerySignal new.
-	ForceNoNameSpaceQuerySignal defaultAnswer:false.
-
-	ChangeFileAccessLock := RecursionLock new.
-	ChangeFileAccessLock name:'ChangeFileAccessLock'.
+        UpdateHistoryLineQuerySignal := QuerySignal new.
+        UpdateHistoryLineQuerySignal nameClass:self message:#updateHistoryLineQuerySignal.
+        UpdateHistoryLineQuerySignal notifierString:'asking if history line update in method is wanted'.
+        UpdateHistoryLineQuerySignal handlerBlock:[:ex | ex proceedWith:false].
+
+        UpdateChangeFileQuerySignal := QuerySignal new.
+        UpdateChangeFileQuerySignal nameClass:self message:#updateChangeFileQuerySignal.
+        UpdateChangeFileQuerySignal notifierString:'asking if changeFile update is wanted'.
+        UpdateChangeFileQuerySignal handlerBlock:[:ex | ex proceedWith:UpdatingChanges].
+
+        UpdateChangeListQuerySignal := QuerySignal new.
+        UpdateChangeListQuerySignal nameClass:self message:#updateChangeListQuerySignal.
+        UpdateChangeListQuerySignal notifierString:'asking if changeList update is wanted'.
+        UpdateChangeListQuerySignal handlerBlock:[:ex | ex proceedWith:UpdatingChanges].
+
+        NameSpaceQuerySignal isNil ifTrue:[
+            NameSpaceQuerySignal := QuerySignal new.
+            NameSpaceQuerySignal nameClass:self message:#nameSpaceQuerySignal.
+            NameSpaceQuerySignal notifierString:'asking for nameSpace'.
+            NameSpaceQuerySignal handlerBlock:[:ex | ex proceedWith:Smalltalk defaultNameSpace].
+        ].
+        UsedNameSpaceQuerySignal isNil ifTrue:[
+            UsedNameSpaceQuerySignal := QuerySignal new.
+            UsedNameSpaceQuerySignal nameClass:self message:#usedNameSpaceQuerySignal.
+            UsedNameSpaceQuerySignal notifierString:'asking for used nameSpaced'.
+        ].
+
+        CreateNameSpaceQuerySignal := QuerySignal new.
+        CreateNameSpaceQuerySignal nameClass:self message:#createNameSpaceQuerySignal.
+        CreateNameSpaceQuerySignal notifierString:'asking for nameSpace creation'.
+        CreateNameSpaceQuerySignal defaultAnswer:false.
+
+        ClassConventionViolationConfirmationQuerySignal := QuerySignal new.
+        ClassConventionViolationConfirmationQuerySignal nameClass:self message:#classConventionViolationConfirmationQuerySignal.
+        ClassConventionViolationConfirmationQuerySignal notifierString:'asking for class convention'.
+
+        PackageQuerySignal := QuerySignal new.
+        PackageQuerySignal nameClass:self message:#packageQuerySignal.
+        PackageQuerySignal notifierString:'asking for package'.
+        PackageQuerySignal handlerBlock:[:ex | ex proceedWith:(Project isNil
+                                                                    ifTrue:[
+                                                                        nil
+                                                                    ] ifFalse:[
+                                                                        Project currentPackageName
+                                                                    ])].
+
+        FileOutNameSpaceQuerySignal := QuerySignal new.
+        FileOutNameSpaceQuerySignal defaultAnswer:false.
+
+        ForceNoNameSpaceQuerySignal := QuerySignal new.
+        ForceNoNameSpaceQuerySignal defaultAnswer:false.
+
+        ChangeFileAccessLock := RecursionLock new.
+        ChangeFileAccessLock name:'ChangeFileAccessLock'.
     ].
 
     DefaultApplicationQuerySignal isNil ifTrue:[
-	DefaultApplicationQuerySignal := QuerySignal new defaultAnswer:nil.
-	DefaultApplicationQuerySignal nameClass:self message:#defaultApplicationQuerySignal.
-	DefaultApplicationQuerySignal notifierString:'query for default application'.
-
-	ChangeDefaultApplicationNotificationSignal := QuerySignal new defaultAnswer:nil.
-	ChangeDefaultApplicationNotificationSignal nameClass:self message:#changeDefaultApplicationNotificationSignal.
-	ChangeDefaultApplicationNotificationSignal notifierString:'change default application'.
+        DefaultApplicationQuerySignal := QuerySignal new defaultAnswer:nil.
+        DefaultApplicationQuerySignal nameClass:self message:#defaultApplicationQuerySignal.
+        DefaultApplicationQuerySignal notifierString:'query for default application'.
+
+        ChangeDefaultApplicationNotificationSignal := QuerySignal new defaultAnswer:nil.
+        ChangeDefaultApplicationNotificationSignal nameClass:self message:#changeDefaultApplicationNotificationSignal.
+        ChangeDefaultApplicationNotificationSignal notifierString:'change default application'.
     ].
 
     "
      ClassDescription initialize
     "
 
-    "Created: / 2.4.1997 / 17:27:40 / stefan"
-    "Modified: / 3.2.1999 / 11:23:08 / cg"
-    "Modified: / 17.3.1999 / 16:52:41 / stefan"
+    "Created: / 02-04-1997 / 17:27:40 / stefan"
+    "Modified: / 17-03-1999 / 16:52:41 / stefan"
+    "Modified: / 05-07-2006 / 17:36:43 / cg"
 ! !
 
 !ClassDescription class methodsFor:'Signal constants'!
@@ -443,6 +448,20 @@
     "
 !
 
+updateHistoryLineQuerySignal
+    "return the signal used as an upQuery if the historyline of a method should be updated.
+     If unhandled, the history managers setting is returned by the signals
+     static handler."
+
+    ^ UpdateHistoryLineQuerySignal
+
+    "
+     Class updateHistoryLineQuerySignal raise
+    "
+
+    "Created: / 05-07-2006 / 17:30:52 / cg"
+!
+
 usedNameSpaceQuerySignal
     "return the signal used as an upQuery for the used nameSpace.
      Will be used when filing in code"
@@ -3990,7 +4009,7 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.185 2006-04-05 10:32:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.186 2006-07-05 15:42:29 cg Exp $'
 ! !
 
 ClassDescription initialize!
hg/stx-libbasic