Mercurial Mercurial > hg > stx-libcomp / 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.
fixes for packageQuery
authorClaus Gittinger <cg@exept.de>
Tue, 05 Nov 1996 20:39:30 +0100
changeset 415 16ff7a17c08b
parent 414 9fbab8aec86a
child 416 123973b721e6
fixes for packageQuery
BCompiler.st file | annotate | diff | comparison | revisions
ByteCodeCompiler.st file | annotate | diff | comparison | revisions 
--- a/BCompiler.st	Tue Nov 05 20:33:52 1996 +0100
+++ b/BCompiler.st	Tue Nov 05 20:39:30 1996 +0100
@@ -373,9 +373,10 @@
             newMethod sourceFilename:sourceFile position:pos.
         ].
         newMethod category:cat.
-        Project notNil ifTrue:[
-            newMethod package:(Project currentPackageName)
-        ].
+        newMethod package:(Class packageQuerySignal raise).
+"/        Project notNil ifTrue:[
+"/            newMethod package:(Project currentPackageName)
+"/        ].
 
         aClass addSelector:sel withLazyMethod:newMethod.
         ^ newMethod
@@ -432,9 +433,10 @@
         newMethod source:aString.
     ].
     newMethod category:cat.
-    Project notNil ifTrue:[
-        newMethod package:(Project currentPackageName)
-    ].
+    newMethod package:(Class packageQuerySignal raise).
+"/    Project notNil ifTrue:[
+"/        newMethod package:(Project currentPackageName)
+"/    ].
 
     install ifTrue:[
         aClass addSelector:sel withMethod:newMethod
@@ -448,7 +450,7 @@
 
     "Created: 29.10.1995 / 19:59:36 / cg"
     "Modified: 24.6.1996 / 12:41:13 / stefan"
-    "Modified: 8.10.1996 / 20:03:29 / cg"
+    "Modified: 5.11.1996 / 20:19:08 / cg"
 !
 
 compile:methodText forClass:classToCompileFor notifying:requestor
@@ -2328,9 +2330,10 @@
             ].
 
             newMethod source:aString.
-            Project notNil ifTrue:[
-                newMethod package:(Project currentPackageName)
-            ].
+            newMethod package:(Class packageQuerySignal raise).
+"/            Project notNil ifTrue:[
+"/                newMethod package:(Project currentPackageName)
+"/            ].
 
     "/        aClass updateRevisionString.
             aClass addChangeRecordForMethod:newMethod.
@@ -2401,7 +2404,7 @@
 
     "Modified: 14.9.1995 / 22:33:04 / claus"
     "Modified: 28.12.1995 / 15:52:48 / stefan"
-    "Modified: 5.11.1996 / 18:05:59 / cg"
+    "Modified: 5.11.1996 / 20:15:59 / cg"
 !
 
 createLoadableObjectFor:baseFileName
@@ -2463,18 +2466,19 @@
     newMethod numberOfMethodArgs:(self numberOfMethodArgs).
     newMethod source:aString.
     newMethod category:cat.
-    Project notNil ifTrue:[
-        newMethod package:(Project currentPackageName)
-    ].
+    newMethod package:(Class packageQuerySignal raise).
+"/    Project notNil ifTrue:[
+"/        newMethod package:(Project currentPackageName)
+"/    ].
     ^ newMethod
 
-    "Modified: 18.5.1996 / 16:39:12 / cg"
     "Modified: 24.6.1996 / 12:28:24 / stefan"
+    "Modified: 5.11.1996 / 20:16:16 / cg"
 ! !
 
 !ByteCodeCompiler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.100 1996-11-05 18:28:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.101 1996-11-05 19:39:30 cg Exp $'
 ! !
 ByteCodeCompiler initialize!
--- a/ByteCodeCompiler.st	Tue Nov 05 20:33:52 1996 +0100
+++ b/ByteCodeCompiler.st	Tue Nov 05 20:39:30 1996 +0100
@@ -373,9 +373,10 @@
             newMethod sourceFilename:sourceFile position:pos.
         ].
         newMethod category:cat.
-        Project notNil ifTrue:[
-            newMethod package:(Project currentPackageName)
-        ].
+        newMethod package:(Class packageQuerySignal raise).
+"/        Project notNil ifTrue:[
+"/            newMethod package:(Project currentPackageName)
+"/        ].
 
         aClass addSelector:sel withLazyMethod:newMethod.
         ^ newMethod
@@ -432,9 +433,10 @@
         newMethod source:aString.
     ].
     newMethod category:cat.
-    Project notNil ifTrue:[
-        newMethod package:(Project currentPackageName)
-    ].
+    newMethod package:(Class packageQuerySignal raise).
+"/    Project notNil ifTrue:[
+"/        newMethod package:(Project currentPackageName)
+"/    ].
 
     install ifTrue:[
         aClass addSelector:sel withMethod:newMethod
@@ -448,7 +450,7 @@
 
     "Created: 29.10.1995 / 19:59:36 / cg"
     "Modified: 24.6.1996 / 12:41:13 / stefan"
-    "Modified: 8.10.1996 / 20:03:29 / cg"
+    "Modified: 5.11.1996 / 20:19:08 / cg"
 !
 
 compile:methodText forClass:classToCompileFor notifying:requestor
@@ -2328,9 +2330,10 @@
             ].
 
             newMethod source:aString.
-            Project notNil ifTrue:[
-                newMethod package:(Project currentPackageName)
-            ].
+            newMethod package:(Class packageQuerySignal raise).
+"/            Project notNil ifTrue:[
+"/                newMethod package:(Project currentPackageName)
+"/            ].
 
     "/        aClass updateRevisionString.
             aClass addChangeRecordForMethod:newMethod.
@@ -2401,7 +2404,7 @@
 
     "Modified: 14.9.1995 / 22:33:04 / claus"
     "Modified: 28.12.1995 / 15:52:48 / stefan"
-    "Modified: 5.11.1996 / 18:05:59 / cg"
+    "Modified: 5.11.1996 / 20:15:59 / cg"
 !
 
 createLoadableObjectFor:baseFileName
@@ -2463,18 +2466,19 @@
     newMethod numberOfMethodArgs:(self numberOfMethodArgs).
     newMethod source:aString.
     newMethod category:cat.
-    Project notNil ifTrue:[
-        newMethod package:(Project currentPackageName)
-    ].
+    newMethod package:(Class packageQuerySignal raise).
+"/    Project notNil ifTrue:[
+"/        newMethod package:(Project currentPackageName)
+"/    ].
     ^ newMethod
 
-    "Modified: 18.5.1996 / 16:39:12 / cg"
     "Modified: 24.6.1996 / 12:28:24 / stefan"
+    "Modified: 5.11.1996 / 20:16:16 / cg"
 ! !
 
 !ByteCodeCompiler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.100 1996-11-05 18:28:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.101 1996-11-05 19:39:30 cg Exp $'
 ! !
 ByteCodeCompiler initialize!
hg/stx-libcomp