equal
deleted
inserted
replaced
128 "Modified: / 25-02-2011 / 18:59:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
128 "Modified: / 25-02-2011 / 18:59:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
129 ! ! |
129 ! ! |
130 |
130 |
131 !Short class methodsFor:'autoboxing support'! |
131 !Short class methodsFor:'autoboxing support'! |
132 |
132 |
133 javaBox:anObject |
133 javaBox: anObject |
134 |
|
135 | wrapper | |
134 | wrapper | |
136 |
135 |
137 wrapper := (Java classForName: 'java.lang.Short') new. |
136 wrapper := (JavaVM classForName: 'java.lang.Short') new. |
138 wrapper perform: #'<init>(S)V' with: anObject. |
137 wrapper perform: #'<init>(S)V' with: anObject. |
139 ^wrapper |
138 ^ wrapper |
140 |
139 |
141 "Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
140 "Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
142 ! |
141 ! |
143 |
142 |
144 javaUnbox:anObject |
143 javaUnbox:anObject |