Faculty of Information Technology
Software Engineering Group

Ticket #79: HGSourceCodeManagementSettingsAppl-doCheckSettings.st

File HGSourceCodeManagementSettingsAppl-doCheckSettings.st, 725 bytes (added by Jan Vrany, 3 years ago)

Fix for issue with DNU when setting the HG command (attempt 1)

Line 
1"{ Encoding: utf8 }" !
2!HGSourceCodeManagementSettingsAppl methodsFor:'actions'!
3
4doCheckSettings
5    "Perform some sanity check on current configuration"
6    | savedHgCommand |
7    self doCheckCommand ifFalse:[ ^ self ].
8    savedHgCommand := UserPreferences current hgCommand.
9    [
10        UserPreferences current hgCommand: hgCommand value asNilIfEmpty.
11        self doCheckUsername ifFalse:[ ^ self ].
12        self doCheckMenuLayout ifFalse:[ ^ self ].   
13    ] ensure:[
14        UserPreferences current hgCommand: savedHgCommand.
15    ].
16    self infoPanel hide.
17
18    "Created: / 18-02-2014 / 10:04:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
19    "Modified: / 25-04-2016 / 10:22:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
20! !
21