equal
deleted
inserted
replaced
3869 checkInClasses:aCollectionOfClasses |
3869 checkInClasses:aCollectionOfClasses |
3870 |logMessage| |
3870 |logMessage| |
3871 |
3871 |
3872 logMessage := SourceCodeManagerUtilities getLogMessageFor:'classes in project'. |
3872 logMessage := SourceCodeManagerUtilities getLogMessageFor:'classes in project'. |
3873 SourceCodeManagerUtilities checkinClasses:aCollectionOfClasses withLog:logMessage. |
3873 SourceCodeManagerUtilities checkinClasses:aCollectionOfClasses withLog:logMessage. |
3874 self halt. |
|
3875 ! |
3874 ! |
3876 |
3875 |
3877 currentProject |
3876 currentProject |
3878 |node| |
3877 |node| |
3879 |
3878 |
5701 p isNil ifTrue:[ |
5700 p isNil ifTrue:[ |
5702 self information:'No project selected'. |
5701 self information:'No project selected'. |
5703 ^ self |
5702 ^ self |
5704 ]. |
5703 ]. |
5705 |
5704 |
5706 self warn:'CheckIn function not yet implemented.'. |
5705 self warn:'CheckIn of Makefiles not yet implemented.'. |
5707 ^ self. |
5706 ^ self. |
5708 |
5707 |
5709 "/ check it in ... |
5708 "/ check it in ... |
5710 |
5709 |
5711 |
5710 |
5721 p isNil ifTrue:[ |
5720 p isNil ifTrue:[ |
5722 self information:'No project selected'. |
5721 self information:'No project selected'. |
5723 ^ self |
5722 ^ self |
5724 ]. |
5723 ]. |
5725 |
5724 |
5726 self warn:'CheckIn function not yet implemented.'. |
5725 self warn:'CheckIn of extensions not yet implemented.'. |
5727 ^ self. |
5726 ^ self. |
5728 |
5727 |
5729 "/ check methods ... |
5728 "/ check methods ... |
5730 |
5729 |
5731 anyMethodMissing := false. |
5730 anyMethodMissing := false. |
5756 p isNil ifTrue:[ |
5755 p isNil ifTrue:[ |
5757 self information:'No project selected'. |
5756 self information:'No project selected'. |
5758 ^ self |
5757 ^ self |
5759 ]. |
5758 ]. |
5760 |
5759 |
5761 self warn:'CheckIn function not yet implemented.'. |
|
5762 ^ self. |
|
5763 |
|
5764 "/ check in classes ... |
5760 "/ check in classes ... |
5765 self checkInAllClasses. |
5761 self checkInAllClasses. |
5766 |
5762 |
5767 "/ check methods ... |
5763 "/ check methods ... |
5768 self checkInMethods. |
5764 self checkInMethods. |
|
5765 |
|
5766 "/ build & check in makefiles |
|
5767 "/ self buildMakefiles. |
|
5768 self checkInMakefiles. |
5769 |
5769 |
5770 "/ check in the project file itself |
5770 "/ check in the project file itself |
5771 self checkInProjectFile. |
5771 self checkInProjectFile. |
5772 |
5772 |
5773 ! |
5773 ! |
5781 p isNil ifTrue:[ |
5781 p isNil ifTrue:[ |
5782 self information:'No project selected'. |
5782 self information:'No project selected'. |
5783 ^ self |
5783 ^ self |
5784 ]. |
5784 ]. |
5785 |
5785 |
5786 self warn:'CheckIn function not yet implemented.'. |
5786 self warn:'CheckIn of ProjectFile not yet implemented.'. |
5787 ^ self. |
5787 ^ self. |
5788 |
5788 |
5789 "/ check it in ... |
5789 "/ check it in ... |
5790 |
5790 |
5791 |
5791 |