experiments/PersonSample.st
branchdevelopment
changeset 2711 a00302fe5083
parent 2429 ebece4dcaab9
child 2731 13f5be2bf83b
equal deleted inserted replaced
2710:78c4f4a03914 2711:a00302fe5083
    63  OTHER DEALINGS IN THE SOFTWARE.
    63  OTHER DEALINGS IN THE SOFTWARE.
    64 
    64 
    65 "
    65 "
    66 ! !
    66 ! !
    67 
    67 
    68 
       
    69 !PersonSample methodsFor:'* uncommented (%1) *'!
    68 !PersonSample methodsFor:'* uncommented (%1) *'!
    70 
    69 
    71 doesNotUnderstand:aMessage
    70 doesNotUnderstand:aMessage
    72 
    71 
    73     | method  selector class args|
    72     | method  selector class args|
    97 
    96 
    98     "Created: / 06-09-2011 / 22:16:26 / Jan Kurs <kursjan@fit.cvut.cz>"
    97     "Created: / 06-09-2011 / 22:16:26 / Jan Kurs <kursjan@fit.cvut.cz>"
    99     "Modified: / 15-12-2011 / 23:42:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    98     "Modified: / 15-12-2011 / 23:42:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   100 ! !
    99 ! !
   101 
   100 
   102 
       
   103 !PersonSample methodsFor:'Java protocol'!
   101 !PersonSample methodsFor:'Java protocol'!
   104 
   102 
   105 getAge
   103 getAge
   106 
   104 
   107     <javaselector: #'getAge()Ljava/lang/Integer;'>
   105     <javaselector: #'getAge()Ljava/lang/Integer;'>
   115 getName
   113 getName
   116     ^ self name
   114     ^ self name
   117 
   115 
   118     "Created: / 06-09-2011 / 22:22:16 / Jan Kurs <kursjan@fit.cvut.cz>"
   116     "Created: / 06-09-2011 / 22:22:16 / Jan Kurs <kursjan@fit.cvut.cz>"
   119 ! !
   117 ! !
   120 
       
   121 
   118 
   122 !PersonSample methodsFor:'accessing'!
   119 !PersonSample methodsFor:'accessing'!
   123 
   120 
   124 age
   121 age
   125     ^ age
   122     ^ age
   135 
   132 
   136 name:something
   133 name:something
   137     name := something.
   134     name := something.
   138 ! !
   135 ! !
   139 
   136 
   140 
       
   141 !PersonSample class methodsFor:'documentation'!
   137 !PersonSample class methodsFor:'documentation'!
   142 
   138 
   143 version_CVS
   139 version_CVS
   144     ^ '$Header: /cvs/stx/stx/libjava/experiments/PersonSample.st,v 1.2 2013-02-25 11:15:34 vrany Exp $'
   140     ^ '$Header$'
   145 !
   141 !
   146 
   142 
   147 version_HG
   143 version_HG
   148 
   144 
   149     ^ '$Changeset: <not expanded> $'
   145     ^ '$Changeset: <not expanded> $'