--- a/src/extensions.st	Sat May 07 16:18:07 2011 +0000
+++ b/src/extensions.st	Sat May 07 18:23:38 2011 +0000
@@ -75,6 +75,34 @@
     "Created: / 07-02-2011 / 11:18:03 / Marcel Hlopko <hlopik@gmail.com>"
     "Modified: / 08-02-2011 / 01:08:15 / Marcel Hlopko <hlopik@gmail.com>"
 ! !
+!UserPreferences methodsFor:'accessing-java-devel'!
+
+javaTestsDirectory
+
+    ^self at:#javaTestsDirectory ifAbsent:[
+        | nm |
+        nm := OperatingSystem getLoginName.
+        nm = 'jv' ifTrue:['/home/jv/Projects/libjava/sources/libjava/branches/jk_new_structure/tests'] ifFalse:[
+        nm = 'jk' ifTrue:['path for Jan'] ifFalse:[
+        nm = 'mh' ifTrue:['path for Marcel'] ifFalse:[
+            self error:'No tests path specified'
+        ]]]
+    ]
+
+    "
+        UserPreferences current javaTestsDirectory 
+    "
+
+    "Created: / 07-05-2011 / 17:43:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+!UserPreferences methodsFor:'accessing-java-devel'!
+
+javaTestsDirectory: aStringOrFilename
+
+    self at:#javaTestsDirectory put: aStringOrFilename asString.
+
+    "Created: / 07-05-2011 / 17:45:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
 !ZipArchive methodsFor:'reading - java support'!
 
 nextBytes: bytesToRead of: zmember startingAt: pos into: b startingAt: off
@@ -634,5 +662,3 @@
 
     ^'['.
 ! !
-
-