Object subclass:#SmalltalkAppletContext
instanceVariableNames:'statusHolder'
classVariableNames:''
poolDictionaries:''
category:'Java-Support'
!
!SmalltalkAppletContext methodsFor:'accessing'!
getImage:url
|imgSource toolKit|
"return
Toolkit.getDefaultToolkit().createImage(new sun.awt.image.URLImageSource(arg1)))"
imgSource := (Java classForName:'sun.awt.image.URLImageSource') new.
imgSource invoke:#'<init>(Ljava/net/URL;)V' with:url.
toolKit := (Java classForName:'java.awt.Toolkit') invoke:#getDefaultToolkit.
^ toolKit invoke:#createImage with:imgSource.
"Modified: 1.8.1997 / 17:57:59 / cg"
!
showStatus:arg
|msg|
arg isJavaObject ifTrue:[
(arg isMemberOf:(Java classForName:'java.lang.String')) ifTrue:[
msg := Java as_ST_String:arg
] ifFalse:[
msg := arg printString
]
] ifFalse:[
msg := arg
].
statusHolder notNil ifTrue:[
statusHolder value:msg
] ifFalse:[
Transcript showCR:msg
].
^ nil
"Created: 1.8.1997 / 15:48:53 / cg"
"Modified: 8.8.1997 / 12:07:43 / cg"
! !
!SmalltalkAppletContext class methodsFor:'documentation'!
version
^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/SmalltalkAppletContext.st,v 1.3 1997/08/08 10:22:58 cg Exp $'
! !