Object subclass:#SmalltalkAppletContext
instanceVariableNames:'statusHolder'
classVariableNames:''
poolDictionaries:''
category:'Java-Views-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 methodsFor:'java accessing'!
doesNotUnderstand:aMessage
|selector img|
(selector := aMessage selector) == #'showStatus(Ljava/lang/String;)V' ifTrue:[
self showStatus:(Java as_ST_String:(aMessage arguments at:1)).
^ self
].
selector == #'getImage(Ljava/net/URL;)Ljava/awt/Image;' ifTrue:[
^ self getImage:(aMessage arguments at:1).
].
^ super doesNotUnderstand:aMessage
"Created: / 12.1.1998 / 23:48:10 / cg"
"Modified: / 12.1.1998 / 23:53:31 / cg"
! !
!SmalltalkAppletContext class methodsFor:'documentation'!
version
^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/SmalltalkAppletContext.st,v 1.5 1998/01/12 22:57:36 cg Exp $'
! !