--- a/mercurial/HGSourceCodeManagementSettingsAppl.st	Thu Jan 24 19:35:38 2013 +0000
+++ b/mercurial/HGSourceCodeManagementSettingsAppl.st	Thu Jan 24 14:09:36 2013 -0800
@@ -121,17 +121,17 @@
 
     <resource: #canvas>
 
-    ^ 
+    ^
      #(FullSpec
         name: windowSpec
-        window: 
+        window:
        (WindowSpec
           label: 'SubVersion Settings'
           name: 'SubVersion Settings'
           min: (Point 10 10)
           bounds: (Rectangle 0 0 695 627)
         )
-        component: 
+        component:
        (SpecCollection
           collection: (
            (LabelSpec
@@ -163,7 +163,7 @@
            (ViewSpec
               name: 'Settings'
               layout: (LayoutFrame 0 0 105 0 0 1 0 1)
-              component: 
+              component:
              (SpecCollection
                 collection: (
                  (VerticalPanelViewSpec
@@ -173,12 +173,12 @@
                     verticalLayout: top
                     horizontalSpace: 3
                     verticalSpace: 3
-                    component: 
+                    component:
                    (SpecCollection
                       collection: (
                        (ViewSpec
                           name: 'Panel1'
-                          component: 
+                          component:
                          (SpecCollection
                             collection: (
                              (LabelSpec
@@ -204,7 +204,7 @@
                                 enableChannel: svnEnabled
                               )
                              )
-                           
+
                           )
                           extent: (Point 695 25)
                         )
@@ -218,7 +218,7 @@
                           initiallyInvisible: true
                           labelPosition: topLeft
                           translateLabel: true
-                          component: 
+                          component:
                          (SpecCollection
                             collection: (
                              (LabelSpec
@@ -250,7 +250,7 @@
                                 acceptOnPointerLeave: true
                               )
                              )
-                           
+
                           )
                           extent: (Point 695 95)
                         )
@@ -260,7 +260,7 @@
                           initiallyInvisible: true
                           labelPosition: topLeft
                           translateLabel: true
-                          component: 
+                          component:
                          (SpecCollection
                             collection: (
                              (VerticalPanelViewSpec
@@ -270,7 +270,7 @@
                                 verticalLayout: top
                                 horizontalSpace: 3
                                 verticalSpace: 3
-                                component: 
+                                component:
                                (SpecCollection
                                   collection: (
                                    (CheckBoxSpec
@@ -282,11 +282,11 @@
                                       useDefaultExtent: true
                                     )
                                    )
-                                 
+
                                 )
                               )
                              )
-                           
+
                           )
                           extent: (Point 695 70)
                         )
@@ -298,15 +298,15 @@
                           extent: (Point 695 22)
                         )
                        )
-                     
+
                     )
                   )
                  )
-               
+
               )
             )
            )
-         
+
         )
       )
 ! !
@@ -338,7 +338,7 @@
 
 doTestHGCommand: command
     | version versionString |
-    (OperatingSystem canExecuteCommand: command) ifFalse:[        
+    (OperatingSystem canExecuteCommand: command) ifFalse:[
         Dialog warn: 'Cannot execute hg command.\\Make sure Metcurial is installed and PATH is set up correctly' withCRs.
         ^self.
     ].
@@ -346,7 +346,7 @@
     [
         versionString := OperatingSystem getCommandOutputFrom:('"%1" --version' bindWith:command).
         version := (HGCommandParser on: versionString) parseCommandVersion.
-        
+
         (HGCommand hgVersionIsSupported:version) ifTrue:[
             Dialog information: ('Installed Mercurial version is OK.\\Reported version: ', versionString) withCRs.
         ] ifFalse:[
@@ -455,9 +455,9 @@
     self withWaitCursorDo:[
         | file |
 
-        file := HTMLDocumentView helpFileFor: filename.
+        file := (HTMLDocumentView helpFileFor: filename) asFilename.
         file isNil ifTrue:[
-            file := (Smalltalk getPackageDirectoryForPackage: self class package) / 'docs' / 'html' / 'ch01s02.html'.
+            file := (Smalltalk getPackageDirectoryForPackage: self class package) / 'docs' / 'output' / 'html' / 'settings.html'.
         ].
         file exists ifTrue:[
             HTMLDocumentView openDocumentation: file.
@@ -476,10 +476,10 @@
      in the doc/online/<language>/help directory.
      Or nil, if no help is available."
 
-    ^'HG/ch01s02.html'.
+    ^'HG/settings.html'.
 
     "
-        HGSourceCodeManagementSettingsAppl basicNew help    
+        HGSourceCodeManagementSettingsAppl basicNew help
     "
 
     "Modified (comment): / 22-01-2013 / 20:37:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"