178
|
1 |
Object subclass:#SmalltalkAppletContext
|
193
|
2 |
instanceVariableNames:'statusHolder'
|
178
|
3 |
classVariableNames:''
|
|
4 |
poolDictionaries:''
|
234
|
5 |
category:'Java-Views-Support'
|
178
|
6 |
!
|
|
7 |
|
|
8 |
|
|
9 |
!SmalltalkAppletContext methodsFor:'accessing'!
|
|
10 |
|
193
|
11 |
getImage:url
|
|
12 |
|imgSource toolKit|
|
|
13 |
|
|
14 |
"return
|
|
15 |
Toolkit.getDefaultToolkit().createImage(new sun.awt.image.URLImageSource(arg1)))"
|
|
16 |
|
|
17 |
imgSource := (Java classForName:'sun.awt.image.URLImageSource') new.
|
|
18 |
imgSource invoke:#'<init>(Ljava/net/URL;)V' with:url.
|
|
19 |
|
|
20 |
toolKit := (Java classForName:'java.awt.Toolkit') invoke:#getDefaultToolkit.
|
|
21 |
^ toolKit invoke:#createImage with:imgSource.
|
|
22 |
|
|
23 |
"Modified: 1.8.1997 / 17:57:59 / cg"
|
|
24 |
!
|
|
25 |
|
|
26 |
showStatus:arg
|
|
27 |
|msg|
|
|
28 |
|
|
29 |
arg isJavaObject ifTrue:[
|
|
30 |
(arg isMemberOf:(Java classForName:'java.lang.String')) ifTrue:[
|
205
|
31 |
msg := Java as_ST_String:arg
|
193
|
32 |
] ifFalse:[
|
|
33 |
msg := arg printString
|
|
34 |
]
|
|
35 |
] ifFalse:[
|
|
36 |
msg := arg
|
|
37 |
].
|
|
38 |
|
|
39 |
statusHolder notNil ifTrue:[
|
|
40 |
statusHolder value:msg
|
|
41 |
] ifFalse:[
|
|
42 |
Transcript showCR:msg
|
|
43 |
].
|
178
|
44 |
^ nil
|
|
45 |
|
193
|
46 |
"Created: 1.8.1997 / 15:48:53 / cg"
|
205
|
47 |
"Modified: 8.8.1997 / 12:07:43 / cg"
|
178
|
48 |
! !
|
|
49 |
|
|
50 |
!SmalltalkAppletContext class methodsFor:'documentation'!
|
|
51 |
|
|
52 |
version
|
234
|
53 |
^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/SmalltalkAppletContext.st,v 1.4 1997/08/18 15:48:39 cg Exp $'
|
178
|
54 |
! !
|