equal
deleted
inserted
replaced
17 instanceVariableNames:'descriptionHolder logMessageHolder isStableHolder tagHolder |
17 instanceVariableNames:'descriptionHolder logMessageHolder isStableHolder tagHolder |
18 quickCheckInHolder quickCheckInVisibleHolder allowEmptyLogMessage |
18 quickCheckInHolder quickCheckInVisibleHolder allowEmptyLogMessage |
19 warningMessageHolder logHistory logHistoryHeadLineSelectionHolder |
19 warningMessageHolder logHistory logHistoryHeadLineSelectionHolder |
20 validateConsistencyHolder validateConsistencyVisibleHolder |
20 validateConsistencyHolder validateConsistencyVisibleHolder |
21 checkinReasonHolder validateConsistencyEnabledHolder |
21 checkinReasonHolder validateConsistencyEnabledHolder |
22 quickCheckInEnabledHolder description2Holder' |
22 quickCheckInEnabledHolder repositoryInfoHolder branchInfoHolder' |
23 classVariableNames:'RecentlyUsedTags LastReason' |
23 classVariableNames:'RecentlyUsedTags LastReason' |
24 poolDictionaries:'' |
24 poolDictionaries:'' |
25 category:'System-SourceCodeManagement' |
25 category:'System-SourceCodeManagement' |
26 ! |
26 ! |
27 |
27 |
186 <resource: #canvas> |
186 <resource: #canvas> |
187 |
187 |
188 ^ |
188 ^ |
189 #(FullSpec |
189 #(FullSpec |
190 name: windowSpec |
190 name: windowSpec |
191 uuid: '76e4d760-d9ef-11e7-a8cd-c42c033b4871' |
191 uuid: '2d2af946-da09-11e7-a8cd-c42c033b4871' |
192 window: |
192 window: |
193 (WindowSpec |
193 (WindowSpec |
194 label: 'Enter Log Message' |
194 label: 'Enter Log Message' |
195 name: 'Enter Log Message' |
195 name: 'Enter Log Message' |
196 uuid: '35292892-d93d-11e7-8a1e-c42c033b4871' |
196 uuid: '35292892-d93d-11e7-8a1e-c42c033b4871' |
229 ) |
229 ) |
230 |
230 |
231 ) |
231 ) |
232 ) |
232 ) |
233 (LabelSpec |
233 (LabelSpec |
234 label: 'Enter checkIn log-message for:' |
234 name: 'BranchInfoLabel' |
235 name: 'Label7' |
235 layout: (LayoutFrame 0 0 31 0 200 0 57 0) |
236 layout: (LayoutFrame 0 0 31 0 0 1 57 0) |
236 style: (FontDescription helvetica medium roman 12 #'iso10646-1' nil nil) |
237 style: (FontDescription helvetica medium roman 12 #'iso10646-1') |
|
238 uuid: '35293166-d93d-11e7-8a1e-c42c033b4871' |
237 uuid: '35293166-d93d-11e7-8a1e-c42c033b4871' |
239 translateLabel: true |
238 translateLabel: true |
240 labelChannel: description2Holder |
239 labelChannel: branchInfoHolder |
|
240 resizeForLabel: true |
|
241 adjust: left |
|
242 ) |
|
243 (LabelSpec |
|
244 name: 'RepositoryInfoLabel' |
|
245 layout: (LayoutFrame 200 0 31 0 0 1 57 0) |
|
246 style: (FontDescription helvetica medium roman 12 #'iso10646-1' nil nil) |
|
247 uuid: '35293166-d93d-11e7-8a1e-c42c033b4871' |
|
248 translateLabel: true |
|
249 labelChannel: repositoryInfoHolder |
241 resizeForLabel: true |
250 resizeForLabel: true |
242 adjust: right |
251 adjust: right |
243 ) |
252 ) |
244 (LabelSpec |
253 (LabelSpec |
245 label: 'Previous Log Messages:' |
254 label: 'Previous Log Messages:' |
542 |
551 |
543 |dialog warnMessage| |
552 |dialog warnMessage| |
544 |
553 |
545 warnMessage := nil. |
554 warnMessage := nil. |
546 [ |
555 [ |
547 |lines infoString1| |
556 |lines infoString1 repositoryInfo branchInfo| |
548 |
557 |
549 dialog := self new. |
558 dialog := self new. |
550 |
559 |
551 infoString1 := infoString. |
560 infoString1 := infoString. |
552 lines := infoString asStringCollection. |
561 lines := infoString asStringCollection. |
553 lines size > 1 ifTrue:[ |
562 lines size > 1 ifTrue:[ |
554 dialog description2:lines second string. |
563 repositoryInfo := lines second string. |
|
564 dialog repositoryInfo:repositoryInfo. |
|
565 lines size > 2 ifTrue:[ |
|
566 branchInfo := lines third string. |
|
567 dialog branchInfo:branchInfo. |
|
568 ]. |
555 infoString1 := lines first. |
569 infoString1 := lines first. |
556 ]. |
570 ]. |
557 |
571 |
558 dialog |
572 dialog |
559 description:infoString1; |
573 description:infoString1; |
584 " |
598 " |
585 self getCheckinInfoFor:'hello' initialAnswer:'bla' |
599 self getCheckinInfoFor:'hello' initialAnswer:'bla' |
586 " |
600 " |
587 |
601 |
588 "Created: / 12-03-2012 / 12:36:26 / cg" |
602 "Created: / 12-03-2012 / 12:36:26 / cg" |
589 "Modified: / 04-12-2017 / 23:18:31 / cg" |
603 "Modified: / 05-12-2017 / 23:07:06 / cg" |
590 ! ! |
604 ! ! |
591 |
605 |
592 !CheckinInfoDialog methodsFor:'accessing'! |
606 !CheckinInfoDialog methodsFor:'accessing'! |
593 |
607 |
594 allowEmptyLogMessage |
608 allowEmptyLogMessage |
599 |
613 |
600 allowEmptyLogMessage:aBoolean |
614 allowEmptyLogMessage:aBoolean |
601 allowEmptyLogMessage := aBoolean |
615 allowEmptyLogMessage := aBoolean |
602 |
616 |
603 "Created: / 06-07-2010 / 11:23:31 / cg" |
617 "Created: / 06-07-2010 / 11:23:31 / cg" |
|
618 ! |
|
619 |
|
620 branchInfo:aString |
|
621 self branchInfoHolder value:aString |
|
622 |
|
623 "Created: / 05-12-2017 / 23:08:09 / cg" |
604 ! |
624 ! |
605 |
625 |
606 checkinReason |
626 checkinReason |
607 "returns one of: #(reasonBugfix reasonFeature reasonRefactoring reasonDocumentation reasonOther)" |
627 "returns one of: #(reasonBugfix reasonFeature reasonRefactoring reasonDocumentation reasonOther)" |
608 |
628 |
618 |
638 |
619 description |
639 description |
620 ^ self descriptionHolder value |
640 ^ self descriptionHolder value |
621 ! |
641 ! |
622 |
642 |
623 description2:aString |
|
624 self description2Holder value:aString |
|
625 |
|
626 "Created: / 04-12-2017 / 22:51:29 / cg" |
|
627 ! |
|
628 |
|
629 description:aString |
643 description:aString |
630 self descriptionHolder value:aString allBold |
644 self descriptionHolder value:aString allBold |
631 ! |
645 ! |
632 |
646 |
633 isStable |
647 isStable |
654 ^ self quickCheckInHolder value |
668 ^ self quickCheckInHolder value |
655 ! |
669 ! |
656 |
670 |
657 quickCheckIn:aBoolean |
671 quickCheckIn:aBoolean |
658 self quickCheckInHolder value:aBoolean |
672 self quickCheckInHolder value:aBoolean |
|
673 ! |
|
674 |
|
675 repositoryInfo:aString |
|
676 self repositoryInfoHolder value:aString |
|
677 |
|
678 "Created: / 05-12-2017 / 23:08:05 / cg" |
659 ! |
679 ! |
660 |
680 |
661 tag |
681 tag |
662 ^ (self tagHolder value ? '') withoutSeparators |
682 ^ (self tagHolder value ? '') withoutSeparators |
663 ! |
683 ! |
688 "/ self validateConsistencyVisibleHolder value:aBoolean |
708 "/ self validateConsistencyVisibleHolder value:aBoolean |
689 ! ! |
709 ! ! |
690 |
710 |
691 !CheckinInfoDialog methodsFor:'aspects'! |
711 !CheckinInfoDialog methodsFor:'aspects'! |
692 |
712 |
|
713 branchInfoHolder |
|
714 branchInfoHolder isNil ifTrue:[ |
|
715 branchInfoHolder := ValueHolder new. |
|
716 ]. |
|
717 ^ branchInfoHolder |
|
718 |
|
719 "Created: / 05-12-2017 / 23:07:40 / cg" |
|
720 ! |
|
721 |
693 checkinReasonHolder |
722 checkinReasonHolder |
694 checkinReasonHolder isNil ifTrue:[ |
723 checkinReasonHolder isNil ifTrue:[ |
695 checkinReasonHolder := (LastReason ? self class reasonBugfix) asValue. |
724 checkinReasonHolder := (LastReason ? self class reasonBugfix) asValue. |
696 ]. |
725 ]. |
697 ^ checkinReasonHolder |
726 ^ checkinReasonHolder |
698 ! |
|
699 |
|
700 description2Holder |
|
701 description2Holder isNil ifTrue:[ |
|
702 description2Holder := ValueHolder new. |
|
703 ]. |
|
704 ^ description2Holder |
|
705 |
|
706 "Created: / 04-12-2017 / 22:51:14 / cg" |
|
707 ! |
727 ! |
708 |
728 |
709 descriptionHolder |
729 descriptionHolder |
710 descriptionHolder isNil ifTrue:[ |
730 descriptionHolder isNil ifTrue:[ |
711 descriptionHolder := ValueHolder new. |
731 descriptionHolder := ValueHolder new. |
781 |
801 |
782 recentTagsList |
802 recentTagsList |
783 ^ [ CVSSourceCodeManager recentTags ] |
803 ^ [ CVSSourceCodeManager recentTags ] |
784 ! |
804 ! |
785 |
805 |
|
806 repositoryInfoHolder |
|
807 repositoryInfoHolder isNil ifTrue:[ |
|
808 repositoryInfoHolder := ValueHolder new. |
|
809 ]. |
|
810 ^ repositoryInfoHolder |
|
811 |
|
812 "Created: / 05-12-2017 / 23:07:34 / cg" |
|
813 ! |
|
814 |
786 tagHolder |
815 tagHolder |
787 tagHolder isNil ifTrue:[ |
816 tagHolder isNil ifTrue:[ |
788 tagHolder := ("CVSSourceCodeManager recentTag ?" '') asValue. |
817 tagHolder := ("CVSSourceCodeManager recentTag ?" '') asValue. |
789 ]. |
818 ]. |
790 ^ tagHolder |
819 ^ tagHolder |