Behavior.st
changeset 19822 1af258da56af
parent 19718 c5c09bdf4f7b
child 19833 2c27676f3588
child 19861 95c7068e30ba
equal deleted inserted replaced
19821:1d873302be8b 19822:1af258da56af
  1332      SmallInteger selectorsWithArgs:4
  1332      SmallInteger selectorsWithArgs:4
  1333     "
  1333     "
  1334 !
  1334 !
  1335 
  1335 
  1336 theNonMetaClass
  1336 theNonMetaClass
  1337     "alias for theNonMetaclass - return the class"
  1337     "alias for theNonMetaclass (Squeak) - return the class.
       
  1338      sigh; in ST/X, it is called theNonMetaclass; please use that."
  1338 
  1339 
  1339     ^ self theNonMetaclass
  1340     ^ self theNonMetaclass
  1340 
  1341 
  1341     "Created: / 26-08-2009 / 11:39:08 / Jaroslav Havlin <havlij6@fel.cvut.cz>"
  1342     "Created: / 26-08-2009 / 11:39:08 / Jaroslav Havlin <havlij6@fel.cvut.cz>"
  1342     "Modified (comment): / 20-08-2011 / 16:35:07 / cg"
  1343     "Modified (comment): / 20-08-2011 / 16:35:07 / cg"
  1420 !
  1421 !
  1421 
  1422 
  1422 shortName
  1423 shortName
  1423     ^ self nameWithoutPrefix
  1424     ^ self nameWithoutPrefix
  1424 ! !
  1425 ! !
       
  1426 
  1425 
  1427 
  1426 !Behavior methodsFor:'RefactoringBrowser'!
  1428 !Behavior methodsFor:'RefactoringBrowser'!
  1427 
  1429 
  1428 realClass
  1430 realClass
  1429     "for compatibility with RBAbstractClass"
  1431     "for compatibility with RBAbstractClass"