--- a/mercurial/HGWorkingCopyBrowser.st	Fri Dec 14 17:53:21 2012 +0100
+++ b/mercurial/HGWorkingCopyBrowser.st	Fri Dec 14 20:19:43 2012 +0100
@@ -18,6 +18,13 @@
 	category:'SCM-Mercurial-StX-Interface'
 !
 
+Smalltalk::DirectoryContentsBrowser subclass:#DirectoryContentsBrowser
+	instanceVariableNames:'toolbarHgVisibleHolder'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:HGWorkingCopyBrowser
+!
+
 !HGWorkingCopyBrowser class methodsFor:'documentation'!
 
 copyright
@@ -301,7 +308,7 @@
                           name: 'DirectoryContentsBrowser'
                           hasHorizontalScrollBar: false
                           hasVerticalScrollBar: false
-                          majorKey: DirectoryContentsBrowser
+                          majorKey: 'HGWorkingCopyBrowser::DirectoryContentsBrowser'
                           createNewApplication: true
                           createNewBuilder: true
                         )
@@ -463,6 +470,8 @@
          
         )
       )
+
+    "Modified: / 14-12-2012 / 19:59:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !HGWorkingCopyBrowser class methodsFor:'menu specs'!
@@ -733,6 +742,12 @@
 
 !HGWorkingCopyBrowser methodsFor:'aspects'!
 
+directoryContentsBrowser
+    ^ self applications at:#'HGWorkingCopyBrowser::DirectoryContentsBrowser' ifAbsent:nil.
+
+    "Created: / 14-12-2012 / 20:01:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 toolbarHgVisibleHolder
     "return/create the 'bookmarkBarVisibleHolder' value holder (automatically generated)"