java/extensions/java/lang/String.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Thu, 24 Jan 2013 15:49:03 +0000
branchdevelopment
changeset 1997 8bcca8a0e8a1
parent 1987 596f7d5cb7cd
parent 1989 131b7459fdab
child 2006 c0598cab5f15
permissions -rw-r--r--
Merged branch development refactoring-classpath
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1989
131b7459fdab Value of class.path and sun.misc.boot.path refactored to match values used in Oracle JVM.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1818
diff changeset
     1
"{ Package: 'stx:libjava' }"
131b7459fdab Value of class.path and sun.misc.boot.path refactored to match values used in Oracle JVM.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1818
diff changeset
     2
131b7459fdab Value of class.path and sun.misc.boot.path refactored to match values used in Oracle JVM.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1818
diff changeset
     3
!
1812
7b8fcf7d0562 - JavaMetaclass
vranyj1
parents:
diff changeset
     4
1987
596f7d5cb7cd Cleanup: removed UserPreferences>>javaTestDirectory: (no longer used).
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1818
diff changeset
     5
!java/lang/String class methodsFor:'queries'!
1812
7b8fcf7d0562 - JavaMetaclass
vranyj1
parents:
diff changeset
     6
7b8fcf7d0562 - JavaMetaclass
vranyj1
parents:
diff changeset
     7
javaWrap: object
1815
be54c97a41e4 - stx_libjava
vranyj1
parents: 1812
diff changeset
     8
    | jstring |
be54c97a41e4 - stx_libjava
vranyj1
parents: 1812
diff changeset
     9
1812
7b8fcf7d0562 - JavaMetaclass
vranyj1
parents:
diff changeset
    10
    object isNil ifTrue:[ ^ nil ].
1815
be54c97a41e4 - stx_libjava
vranyj1
parents: 1812
diff changeset
    11
    jstring := self basicNew.
be54c97a41e4 - stx_libjava
vranyj1
parents: 1812
diff changeset
    12
    jstring perform: #'<init>([C)V' with: object.
be54c97a41e4 - stx_libjava
vranyj1
parents: 1812
diff changeset
    13
    ^jstring
1812
7b8fcf7d0562 - JavaMetaclass
vranyj1
parents:
diff changeset
    14
! !
1987
596f7d5cb7cd Cleanup: removed UserPreferences>>javaTestDirectory: (no longer used).
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1818
diff changeset
    15
!java/lang/String class methodsFor:'queries'!
1812
7b8fcf7d0562 - JavaMetaclass
vranyj1
parents:
diff changeset
    16
7b8fcf7d0562 - JavaMetaclass
vranyj1
parents:
diff changeset
    17
javaWrapRequired
7b8fcf7d0562 - JavaMetaclass
vranyj1
parents:
diff changeset
    18
    "Returns true, if a #javaWrap: has to be called
7b8fcf7d0562 - JavaMetaclass
vranyj1
parents:
diff changeset
    19
     prior an instance of Smalltalk object is passed 
7b8fcf7d0562 - JavaMetaclass
vranyj1
parents:
diff changeset
    20
     as an argument to Java method, whoose formal tyoe
7b8fcf7d0562 - JavaMetaclass
vranyj1
parents:
diff changeset
    21
     is the receiver."
7b8fcf7d0562 - JavaMetaclass
vranyj1
parents:
diff changeset
    22
7b8fcf7d0562 - JavaMetaclass
vranyj1
parents:
diff changeset
    23
    ^true
7b8fcf7d0562 - JavaMetaclass
vranyj1
parents:
diff changeset
    24
! !