ClassDescription.st
changeset 22034 be2bd1d9593a
parent 22028 b3ec28d8cab9
child 22366 3178ec13e6bf
equal deleted inserted replaced
22033:2b0868c15407 22034:be2bd1d9593a
   927 	    ].
   927 	    ].
   928 	].
   928 	].
   929     ].
   929     ].
   930 
   930 
   931     ^ mthd.
   931     ^ mthd.
   932 !
       
   933 
       
   934 defineSharedVariable:name private:private constant:constant category:category initializer:initializer 
       
   935     self addClassVarName:name.
       
   936     initializer notNil ifTrue:[
       
   937         self shouldImplement
       
   938     ].
       
   939 !
       
   940 
       
   941 defineStatic:name private:private constant:constant category:category initializer:initializer attributes:annotations
       
   942     self addClassVarName:name.
       
   943     initializer notNil ifTrue:[
       
   944 	self shouldImplement
       
   945     ].
       
   946 !
   932 !
   947 
   933 
   948 instVarIndexFor:aVariableName ifAbsent:exceptionValue
   934 instVarIndexFor:aVariableName ifAbsent:exceptionValue
   949     "alias for #instVarOffsetOf: for VW compatibility."
   935     "alias for #instVarOffsetOf: for VW compatibility."
   950 
   936