equal
deleted
inserted
replaced
67 |
67 |
68 "Modified: / 25-02-2011 / 18:59:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
68 "Modified: / 25-02-2011 / 18:59:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
69 ! |
69 ! |
70 |
70 |
71 javaWrapperClass |
71 javaWrapperClass |
72 ^(Java classForName: 'java.lang.Short') |
72 ^(JavaVM classForName: 'java.lang.Short' definedBy: nil) |
73 |
73 |
74 "Created: / 24-02-2012 / 19:42:11 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
74 "Created: / 24-02-2012 / 19:42:11 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
75 "Modified: / 18-05-2013 / 10:58:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
75 ! ! |
76 ! ! |
76 |
77 |
77 !JavaShort class methodsFor:'autoboxing support'! |
78 !JavaShort class methodsFor:'autoboxing support'! |
78 |
79 |
79 javaBox: anObject |
80 javaBox: anObject |
80 | wrapper | |
81 | wrapper | |
81 |
82 |
82 wrapper := (JavaVM classForName: 'java.lang.Short') new. |
83 wrapper := (JavaVM classForName: 'java.lang.Short' definedBy: nil) new. |
83 wrapper perform: #'<init>(S)V' with: anObject. |
84 wrapper perform: #'<init>(S)V' with: anObject. |
84 ^ wrapper |
85 ^ wrapper |
85 |
86 |
86 "Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
87 "Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
88 "Modified: / 18-05-2013 / 10:58:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
87 ! |
89 ! |
88 |
90 |
89 javaUnbox:anObject |
91 javaUnbox:anObject |
90 self assert:anObject class isJavaClass message:'Not a java object'. |
92 self assert:anObject class isJavaClass message:'Not a java object'. |
91 self assert:anObject class binaryName = 'java/lang/Short' |
93 self assert:anObject class binaryName = 'java/lang/Short' |