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.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Mon, 30 Dec 1996 18:10:53 +0100
changeset 2020 a561439fa03c
parent 2019 8f44b270809b
child 2021 0c7bf2934d3e
checkin from browser
Class.st file | annotate | diff | comparison | revisions 
--- a/Class.st	Mon Dec 30 17:25:54 1996 +0100
+++ b/Class.st	Mon Dec 30 18:10:53 1996 +0100
@@ -154,27 +154,27 @@
         MethodRedefinitionSignal nameClass:self message:#methodRedefinitionSignal.
         MethodRedefinitionSignal notifierString:'attempt to redefine method from different package'.
 
-        UpdateChangeFileQuerySignal := QuerySignal new mayProceed:true.
+        UpdateChangeFileQuerySignal := QuerySignal new.
         UpdateChangeFileQuerySignal nameClass:self message:#updateChangeFileQuerySignal.
         UpdateChangeFileQuerySignal notifierString:'asking if changeFile update is wanted'.
         UpdateChangeFileQuerySignal handlerBlock:[:ex | ex proceedWith:UpdatingChanges].
 
-        NameSpaceQuerySignal := QuerySignal new mayProceed:true.
+        NameSpaceQuerySignal := QuerySignal new.
         NameSpaceQuerySignal nameClass:self message:#nameSpaceQuerySignal.
         NameSpaceQuerySignal notifierString:'asking for nameSpace'.
         NameSpaceQuerySignal handlerBlock:[:ex | ex proceedWith:Smalltalk defaultNameSpace].
 
-        UsedNameSpaceQuerySignal := QuerySignal new mayProceed:true.
+        UsedNameSpaceQuerySignal := QuerySignal new.
         UsedNameSpaceQuerySignal nameClass:self message:#usedNameSpaceQuerySignal.
         UsedNameSpaceQuerySignal notifierString:'asking for used nameSpaced'.
         UsedNameSpaceQuerySignal handlerBlock:[:ex | ex proceedWith:nil].
 
-        CreateNameSpaceQuerySignal := QuerySignal new mayProceed:true.
+        CreateNameSpaceQuerySignal := QuerySignal new.
         CreateNameSpaceQuerySignal nameClass:self message:#createNameSpaceQuerySignal.
         CreateNameSpaceQuerySignal notifierString:'asking for nameSpace creation'.
         CreateNameSpaceQuerySignal handlerBlock:[:ex | ex proceedWith:false].
 
-        PackageQuerySignal := QuerySignal new mayProceed:true.
+        PackageQuerySignal := QuerySignal new.
         PackageQuerySignal nameClass:self message:#packageQuerySignal.
         PackageQuerySignal notifierString:'asking for package'.
         PackageQuerySignal handlerBlock:[:ex | ex proceedWith:(Project isNil 
@@ -187,7 +187,7 @@
         ChangeFileAccessLock := Semaphore forMutualExclusion.
     ]
 
-    "Modified: 19.12.1996 / 23:49:57 / cg"
+    "Modified: 30.12.1996 / 18:09:19 / cg"
 ! !
 
 !Class class methodsFor:'Signal constants'!
@@ -4501,6 +4501,6 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.226 1996-12-23 14:59:31 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.227 1996-12-30 17:10:53 cg Exp $'
 ! !
 Class initialize!
hg/stx-libbasic