equal
deleted
inserted
replaced
536 HGCommand hgCommandValidate: command |
536 HGCommand hgCommandValidate: command |
537 ] on: HGInvalidVersionError do:[:ex | |
537 ] on: HGInvalidVersionError do:[:ex | |
538 self infoPanel |
538 self infoPanel |
539 reset; |
539 reset; |
540 beWarning; |
540 beWarning; |
541 message: (resources string:'Unssuported Mercurial version %1' with: (ex parameter asStringWith: $.)); |
541 message: (resources string:'Unsupported Mercurial version %1' with: (ex parameter asStringWith: $.)); |
542 addButtonWithLabel: (self resources string:'Browse') action: [self infoPanel hide. self doSelectHGCommand ]; |
542 addButtonWithLabel: (self resources string:'Browse') action: [self infoPanel hide. self doSelectHGCommand ]; |
543 show. |
543 show. |
544 ^ false |
544 ^ false |
545 ] on: HGCommandError do:[:ex | |
545 ] on: HGCommandError do:[:ex | |
546 self infoPanel |
546 self infoPanel |
552 ^ false |
552 ^ false |
553 ]. |
553 ]. |
554 ^ true. |
554 ^ true. |
555 |
555 |
556 "Created: / 21-02-2014 / 09:58:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
556 "Created: / 21-02-2014 / 09:58:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
557 "Modified: / 08-06-2019 / 13:51:56 / Claus Gittinger" |
557 ! |
558 ! |
558 |
559 |
559 doCheckMenuLayout |
560 doCheckMenuLayout |
560 "Check if browser SCM menu layouyt is not #old. Return true, if yes, |
561 "Check if browser SCM menu layouyt is not #old. Return true, if yes, |
561 false otherwise. As a sideffect, show message in info panel" |
562 false otherwise. As a sideffect, show message in info panel" |