--- a/MercurialSourceCodeManagementSettingsAppl.st	Thu Aug 01 03:25:31 2013 +0000
+++ b/MercurialSourceCodeManagementSettingsAppl.st	Thu Aug 01 09:41:46 2013 +0200
@@ -539,7 +539,7 @@
                              )
                             (HorizontalPanelViewSpec
                                name: 'HorizontalPanel2'
-                               layout: (LayoutFrame 64 0.25 323 0 -1 1 348 0)
+                               layout: (LayoutFrame 0 0.0 323 0 0 1.0 348 0)
                                horizontalLayout: right
                                verticalLayout: center
                                horizontalSpace: 3
@@ -783,8 +783,6 @@
         
        )
      )
-
-    "Modified: / 31-07-2013 / 19:35:43 / cg"
 ! !
 
 !MercurialSourceCodeManagementSettingsAppl class methodsFor:'queries'!
@@ -951,6 +949,13 @@
 !
 
 initializePerModuleRepository
+    |directory|
+
+    directory := perModuleRepository value.
+    directory asFilename exists ifFalse:[
+        directory asFilename recursiveMakeDirectory.
+    ].
+    OperatingSystem executeCommand:'hg init' inDirectory:directory onError:[self halt].
     self halt:'unimplemented feature'
 
     "Created: / 31-07-2013 / 19:12:08 / cg"
@@ -1235,10 +1240,10 @@
 !MercurialSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.23 2013-07-31 17:39:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.24 2013-08-01 07:41:46 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.23 2013-07-31 17:39:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.24 2013-08-01 07:41:46 cg Exp $'
 ! !