--- a/AbstractFileBrowser.st	Wed Feb 19 11:37:56 2014 +0100
+++ b/AbstractFileBrowser.st	Wed Feb 19 13:50:25 2014 +0100
@@ -6010,6 +6010,7 @@
     "Created: / 15-01-2012 / 19:43:08 / cg"
 ! !
 
+
 !AbstractFileBrowser methodsFor:'menu actions-tools'!
 
 allFilesInSelectedDirectoriesForWhich:aBlock
@@ -8028,6 +8029,17 @@
                 ] ifFalse:[
                     Parcel loadParcelFrom: fileName pathName
                 ]
+            ] ifFalse:[ (fileName hasSuffix:'jar') ifTrue:[
+                JavaVM isNil ifTrue:[ 
+                    Dialog warn: (resources string: 'Java support is not loaded.').
+                    ^ self.
+                ] ifFalse:[
+                    JavaVM booted ifFalse:[ 
+                        (Dialog confirm: (resources string: 'Java is not initialized. Initialize now?')) ifFalse:[ ^ self. ].
+                        JavaVM boot.
+                    ].
+                    JavaVM loadClassesIn: fileName.  
+                ]
             ] ifFalse:[
                 "/ ask programming languages...
                 lang := ProgrammingLanguage allDetect:[:l | l canReadSourceFile:fileName] ifNone:nil.
@@ -8051,7 +8063,7 @@
                         ]
                     ]
                 ]
-            ]]]
+            ]]]]
         ]]
     ] on:Error, HaltInterrupt, Class packageRedefinitionNotification do:[:ex| 
         |sig msg label labels values action proceedValue isRedef redefKind|
@@ -8155,6 +8167,7 @@
     ]
 
     "Modified: / 22-11-2011 / 13:52:17 / cg"
+    "Modified: / 19-02-2014 / 12:49:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 splitFile:infile intoPiecesOfSize:kiloBytes
@@ -8462,6 +8475,7 @@
 
 
 
+
 !AbstractFileBrowser methodsFor:'presentation'!
 
 getModeString:modeBits
@@ -9396,10 +9410,10 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.545 2014-02-06 12:58:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.546 2014-02-19 12:50:25 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.545 2014-02-06 12:58:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.546 2014-02-19 12:50:25 vrany Exp $'
 ! !