--- a/SVN__WorkingCopyBrowser.st	Sat Feb 04 19:08:34 2012 +0100
+++ b/SVN__WorkingCopyBrowser.st	Sun Feb 05 02:51:09 2012 +0100
@@ -97,7 +97,7 @@
           label: 'Working Copy Status'
           name: 'Working Copy Status'
           min: (Point 10 10)
-          bounds: (Rectangle 0 0 300 300)
+          bounds: (Rectangle 0 0 586 403)
         )
         component: 
        (SpecCollection
@@ -116,10 +116,19 @@
            (CheckBoxSpec
               label: 'Show only changed etries'
               name: 'ShowOnlyChanged'
-              layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
+              layout: (LayoutFrame 0 0 -30 1 -170 1 0 1)
               model: showOnlyChanged
               translateLabel: true
             )
+           (LinkButtonSpec
+              label: 'Browse working copy'
+              name: 'BrowseWC'
+              layout: (LayoutFrame -170 1 -30 1 0 1 0 1)
+              translateLabel: true
+              labelChannel: browseWorkingCopyLabel
+              adjust: right
+              model: browseWorkingCopy
+            )
            )
          
         )
@@ -275,6 +284,26 @@
     "Modified: / 12-04-2008 / 21:02:34 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !
 
+!WorkingCopyBrowser methodsFor:'actions'!
+
+browseWorkingCopy
+
+    ^UserPreferences current fileBrowserClass 
+        openOnDirectory: self workingCopy path
+
+    "Created: / 05-02-2012 / 01:23:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+browseWorkingCopyLabel
+
+    ^'Browse working copy...' asText
+        colorizeAllWith: Color blue;
+        actionForAll:[ self browseWorkingCopy ];
+        yourself
+
+    "Created: / 05-02-2012 / 01:28:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !WorkingCopyBrowser methodsFor:'aspects'!
 
 showOnlyChanged