Class.st
changeset 5863 cd29b95b3c72
parent 5849 4cc89ecfbbda
child 5875 5ccb39187705
equal deleted inserted replaced
5862:c0ca96f505d7 5863:cd29b95b3c72
   257     ^ self == Class class or:[self == Class]
   257     ^ self == Class class or:[self == Class]
   258 
   258 
   259     "Created: 15.4.1996 / 17:17:13 / cg"
   259     "Created: 15.4.1996 / 17:17:13 / cg"
   260     "Modified: 23.4.1996 / 15:56:58 / cg"
   260     "Modified: 23.4.1996 / 15:56:58 / cg"
   261 ! !
   261 ! !
       
   262 
   262 
   263 
   263 !Class methodsFor:'Compatibility - ST80'!
   264 !Class methodsFor:'Compatibility - ST80'!
   264 
   265 
   265 fileOutSourceOn:aStream
   266 fileOutSourceOn:aStream
   266     self fileOutOn:aStream withTimeStamp:false
   267     self fileOutOn:aStream withTimeStamp:false
  3603 !
  3604 !
  3604 
  3605 
  3605 renameTo:newName
  3606 renameTo:newName
  3606     "change the name of the class. This does not write a change record."
  3607     "change the name of the class. This does not write a change record."
  3607 
  3608 
       
  3609     <resource:#obsolete>
       
  3610 
  3608     |oldSym newSym|
  3611     |oldSym newSym|
  3609 
  3612 
  3610     "/ the code below is obsolete - it does not deal with
  3613     "/ the code below is obsolete - it does not deal with
  3611     "/ classVariables, private classes and does not
  3614     "/ classVariables, private classes and does not
  3612     "/ recompile other classes in order to car for namespace
  3615     "/ recompile other classes in order to care for namespace
  3613     "/ changes.
  3616     "/ changes.
  3614     "/ Please use Smalltalk>>renameClass:to:,
  3617     "/ Please use Smalltalk>>renameClass:to:,
  3615     "/ which deals with all of that.
  3618     "/ which deals with all of that.
  3616     self obsoleteMethodWarning:'use Smalltalk>>renameClass:to:'.
  3619     self obsoleteMethodWarning:'use Smalltalk>>renameClass:to:'.
  3617 
  3620 
  4584 ! !
  4587 ! !
  4585 
  4588 
  4586 !Class class methodsFor:'documentation'!
  4589 !Class class methodsFor:'documentation'!
  4587 
  4590 
  4588 version
  4591 version
  4589     ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.395 2001-04-23 21:28:08 cg Exp $'
  4592     ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.396 2001-05-17 14:10:42 stefan Exp $'
  4590 ! !
  4593 ! !