equal
deleted
inserted
replaced
478 "*** (which may not be the one you wanted)" |
478 "*** (which may not be the one you wanted)" |
479 "*** Please change as required and accept it in the browser." |
479 "*** Please change as required and accept it in the browser." |
480 "*** (and replace this comment by something more useful ;-)" |
480 "*** (and replace this comment by something more useful ;-)" |
481 |
481 |
482 remoteHolder isNil ifTrue:[ |
482 remoteHolder isNil ifTrue:[ |
483 remoteHolder := self task package repository remoteDefault asValue |
483 | remote | |
484 |
484 |
|
485 remote := self task isPackageCommit ifTrue:[self task package repository remoteDefault] ifFalse:[nil]. |
|
486 remoteHolder := remote asValue. |
485 ]. |
487 ]. |
486 ^ remoteHolder. |
488 ^ remoteHolder. |
487 |
489 |
488 "Modified: / 10-12-2012 / 01:28:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
490 "Modified: / 12-01-2013 / 12:05:11 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
489 ! |
491 ! |
490 |
492 |
491 remoteListHolder |
493 remoteListHolder |
492 <resource: #uiAspect> |
494 <resource: #uiAspect> |
493 |
495 |
497 "*** (which may not be the one you wanted)" |
499 "*** (which may not be the one you wanted)" |
498 "*** Please change as required and accept it in the browser." |
500 "*** Please change as required and accept it in the browser." |
499 "*** (and replace this comment by something more useful ;-)" |
501 "*** (and replace this comment by something more useful ;-)" |
500 |
502 |
501 remoteListHolder isNil ifTrue:[ |
503 remoteListHolder isNil ifTrue:[ |
502 remoteListHolder := self task package repository remotes asValue |
504 | remoteList | |
503 "/ if your app needs to be notified of changes, uncomment one of the lines below: |
505 |
504 "/ remoteListHolder addDependent:self. |
506 remoteList := self task isPackageCommit ifTrue:[self task package repository remotes] ifFalse:[nil]. |
505 "/ remoteListHolder onChangeSend:#remoteListHolderChanged to:self. |
507 remoteListHolder := remoteList asValue |
506 ]. |
508 ]. |
507 ^ remoteListHolder. |
509 ^ remoteListHolder. |
508 |
510 |
509 "Modified: / 10-12-2012 / 01:28:42 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
511 "Modified: / 12-01-2013 / 12:06:11 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
510 ! |
512 ! |
511 |
513 |
512 remotePushHolder |
514 remotePushHolder |
513 <resource: #uiAspect> |
515 <resource: #uiAspect> |
514 "automatically generated by UIPainter ..." |
516 "automatically generated by UIPainter ..." |
535 | wcroot statuses entries showOnlyModified wcrootPathNameRelative wcrootPathNameRelativeLen | |
537 | wcroot statuses entries showOnlyModified wcrootPathNameRelative wcrootPathNameRelativeLen | |
536 |
538 |
537 showOnlyModified := fileListShowOnlyModifiedHolder value. |
539 showOnlyModified := fileListShowOnlyModifiedHolder value. |
538 "HACK..." |
540 "HACK..." |
539 |
541 |
540 wcroot := self model package temporaryWorkingCopyRoot. |
542 wcroot := self task temporaryWorkingCopyRoot. |
541 wcrootPathNameRelative := wcroot pathNameRelative. |
543 wcrootPathNameRelative := wcroot pathNameRelative. |
542 wcrootPathNameRelativeLen := wcrootPathNameRelative size. |
544 wcrootPathNameRelativeLen := wcrootPathNameRelative size. |
543 |
545 |
544 statuses := HGCommand status |
546 statuses := HGCommand status |
545 workingDirectory: wcroot pathName; |
547 workingDirectory: wcroot pathName; |
561 ]. |
563 ]. |
562 ]. |
564 ]. |
563 self fileListHolder value: entries |
565 self fileListHolder value: entries |
564 |
566 |
565 "Created: / 08-02-2012 / 18:05:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
567 "Created: / 08-02-2012 / 18:05:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
566 "Modified: / 01-12-2012 / 00:48:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
568 "Modified: / 12-01-2013 / 13:58:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
567 ! ! |
569 ! ! |
568 |
570 |
569 !HGCommitDialog methodsFor:'private'! |
571 !HGCommitDialog methodsFor:'private'! |
570 |
572 |
571 doCheckAuthor |
573 doCheckAuthor |