# HG changeset patch # User Claus Gittinger # Date 1152114149 -7200 # Node ID 2b8b41a722836f5e0bc2ae60d2d3a8c5cf453190 # Parent 1f45fcd79d08b33f6e925f2316f3d3ba2349667a 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) diff -r 1f45fcd79d08 -r 2b8b41a72283 ClassDescription.st --- 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!