--- a/SmalltalkAppletContext.st Sat Feb 02 01:23:18 2013 +0100
+++ b/SmalltalkAppletContext.st Sat Feb 16 19:08:45 2013 +0100
@@ -1,6 +1,10 @@
"
- COPYRIGHT (c) 1997 by eXept Software AG
- All Rights Reserved
+ COPYRIGHT (c) 1996-2011 by Claus Gittinger
+
+ New code and modifications done at SWING Research Group [1]:
+
+ COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko
+ SWING Research Group, Czech Technical University in Prague
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -8,6 +12,11 @@
be provided or otherwise made available to, or used by, any
other person. No title to or ownership of the software is
hereby transferred.
+
+ [1] Code written at SWING Research Group contains a signature
+ of one of the above copright owners. For exact set of such code,
+ see the differences between this version and version stx:libjava
+ as of 1.9.2010
"
"{ Package: 'stx:libjava' }"
@@ -22,8 +31,12 @@
copyright
"
- COPYRIGHT (c) 1997 by eXept Software AG
- All Rights Reserved
+ COPYRIGHT (c) 1996-2011 by Claus Gittinger
+
+ New code and modifications done at SWING Research Group [1]:
+
+ COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko
+ SWING Research Group, Czech Technical University in Prague
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -31,55 +44,42 @@
be provided or otherwise made available to, or used by, any
other person. No title to or ownership of the software is
hereby transferred.
-"
-
-
-
-!
-documentation
+ [1] Code written at SWING Research Group contains a signature
+ of one of the above copright owners. For exact set of such code,
+ see the differences between this version and version stx:libjava
+ as of 1.9.2010
+
"
- [Author:]
- Claus Gittinger
-"
-
-
! !
!SmalltalkAppletContext methodsFor:'accessing'!
-getImage:url
- |imgSource toolKit|
+getImage: url
+ | imgSource toolKit |
"return
Toolkit.getDefaultToolkit().createImage(new sun.awt.image.URLImageSource(arg1)))"
-
- imgSource := (Java classForName:'sun.awt.image.URLImageSource') newCleared.
- imgSource perform:#'<init>(Ljava/net/URL;)V' with:url.
-
- toolKit := (Java classForName:'java.awt.Toolkit') perform:#getDefaultToolkit.
- ^ toolKit perform:#createImage with:imgSource.
+ imgSource := (JavaVM classForName: 'sun.awt.image.URLImageSource')
+ newCleared.
+ imgSource perform: #'<init>(Ljava/net/URL;)V' with: url.
+ toolKit := (Java classForName: 'java.awt.Toolkit')
+ perform: #getDefaultToolkit.
+ ^ toolKit perform: #createImage with: imgSource.
"Modified: / 4.11.1998 / 21:07:48 / cg"
!
-showStatus:arg
- |msg|
+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
+ arg isJavaObject ifTrue: [
+ (arg isMemberOf: (JavaVM 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
@@ -108,9 +108,19 @@
!SmalltalkAppletContext class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libjava/SmalltalkAppletContext.st,v 1.11 2011-11-24 11:51:42 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libjava/SmalltalkAppletContext.st,v 1.12 2013-02-16 18:08:32 vrany Exp $'
+!
+
+version_CVS
+ ^ '$Header: /cvs/stx/stx/libjava/SmalltalkAppletContext.st,v 1.12 2013-02-16 18:08:32 vrany Exp $'
+!
+
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
!
version_SVN
- ^ '§Id: SmalltalkAppletContext.st,v 1.10 2011/08/18 18:42:48 vrany Exp §'
+ ^ '§Id§'
! !
+