| 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 | |
|---|
