| 1 | "{ Encoding: utf8 }" !
|
|---|
| 2 | !HGSourceCodeManagementSettingsAppl methodsFor:'actions'!
|
|---|
| 3 |
|
|---|
| 4 | doCheckSettings
|
|---|
| 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 |
|
|---|
