Ticket #79: HGSourceCodeManagementSettingsAppl-doSelectHGCommand.st

"{ Encoding: utf8 }" !
!HGSourceCodeManagementSettingsAppl methodsFor:'actions'!

doSelectHGCommand
    | guess executable |

    guess := self hgCommand value asNilIfEmpty.
    guess isNil ifTrue:[ guess := HGCommand hgCommand ].
    guess notNil ifTrue:[ guess := guess asFilename ].
    [ guess notNil and:[ guess exists not ] ] whileTrue:[ 
        | p |

        p := guess directory.
        (p notNil and:[ p pathName = guess pathName ]) ifTrue:[ 
            p := nil.
        ].
        guess := p.
    ].
    guess isNil ifTrue:[ 
        guess := HGCommand hgCommand.
    ].
    executable := Dialog requestFileName:(resources string:'Select hg command') default: guess ifFail:[ ^ self ].
    self infoPanel hide. 
    (executable includes: Character space) ifTrue:[ 
        executable := '"' , executable , '"'.
    ].
    self hgCommand value: executable

    "Created: / 21-02-2014 / 10:13:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    "Modified: / 17-07-2014 / 19:39:31 / jv"
    "Modified: / 23-05-2016 / 23:52:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !