--- a/mercurial/HGSourceCodeManagementSettingsAppl.st Wed Jul 09 10:06:32 2014 +0100
+++ b/mercurial/HGSourceCodeManagementSettingsAppl.st Thu Jul 17 15:38:42 2014 +0100
@@ -466,12 +466,12 @@
"Check `hg` command. Return true if `hg` command exists
and of supported version, false otherwise."
- | executable |
+ | command |
- executable := self hgCommand value.
- executable isEmptyOrNil ifTrue:[
- executable := OperatingSystem pathOfCommand:'hg'.
- executable isNil ifTrue:[
+ command := self hgCommand value.
+ command isEmptyOrNil ifTrue:[
+ command := OperatingSystem pathOfCommand:'hg'.
+ command isNil ifTrue:[
self infoPanel
reset;
beWarning;
@@ -482,7 +482,7 @@
].
].
[
- HGCommand hgCommandValidate: executable
+ HGCommand hgCommandValidate: command
] on: HGInvalidVersionError do:[:ex |
self infoPanel
reset;