--- a/ClassChange.st Thu May 09 13:20:58 2013 +0100
+++ b/ClassChange.st Thu May 09 13:50:49 2013 +0100
@@ -12,10 +12,10 @@
"{ Package: 'stx:libbasic3' }"
Change subclass:#ClassChange
- instanceVariableNames: 'className classIsJava package nameSpaceOverride'
- classVariableNames: ''
- poolDictionaries: ''
- category: 'System-Changes'
+ instanceVariableNames:'className classIsJava package nameSpaceOverride'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'System-Changes'
!
!ClassChange class methodsFor:'documentation'!
@@ -44,7 +44,6 @@
"
! !
-
!ClassChange class methodsFor:'instance creation'!
class:aClass
@@ -71,7 +70,6 @@
"Created: / 12-11-2006 / 20:11:26 / cg"
! !
-
!ClassChange methodsFor:'accessing'!
changeClass
@@ -276,6 +274,9 @@
className isNil ifTrue:[^ nil].
+ ns := self nameSpaceOverride.
+ ns notNil ifTrue:[ ^ ns ].
+
(idx := className indexOf:$:) ~~ 0 ifTrue:[
"/ in a namespace
^ className copyTo:(idx - 1).
@@ -290,6 +291,7 @@
^ nil
"Modified: / 03-08-2006 / 02:04:03 / cg"
+ "Modified: / 09-05-2013 / 13:33:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
nameSpaceOverride
@@ -338,7 +340,6 @@
package := something.
! !
-
!ClassChange methodsFor:'applying'!
apply
@@ -368,7 +369,6 @@
"Modified: / 29-01-2011 / 12:28:03 / cg"
! !
-
!ClassChange methodsFor:'printing & storing'!
printOn:aStream
@@ -382,7 +382,6 @@
aStream nextPutAll:(self class name , ' - ' , source string firstLine , '...').
! !
-
!ClassChange methodsFor:'queries'!
cutMyNameSpaceOf:aString
@@ -440,15 +439,14 @@
self shouldImplement
! !
-
!ClassChange class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.73 2013-04-25 13:10:54 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.74 2013-05-09 13:49:14 +0100 vrany Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.73 2013-04-25 13:10:54 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.74 2013-05-09 13:49:14 +0100 vrany Exp $'
!
version_HG