equal
deleted
inserted
replaced
1 Object subclass:#SourceCodeManagerUtilities |
1 Object subclass:#SourceCodeManagerUtilities |
2 instanceVariableNames:'' |
2 instanceVariableNames:'' |
3 classVariableNames:'LastSourceLogMessage LastModule LastPackage' |
3 classVariableNames:'LastSourceLogMessage LastModule LastPackage' |
4 poolDictionaries:'' |
4 poolDictionaries:'' |
5 category:'System-SourceCodeManagement' |
5 category:'System-SourceCodeManagement' |
6 ! |
6 ! |
7 |
7 |
8 !SourceCodeManagerUtilities class methodsFor:'documentation'! |
8 !SourceCodeManagerUtilities class methodsFor:'documentation'! |
9 |
9 |
10 documentation |
10 documentation |
23 " |
23 " |
24 ! ! |
24 ! ! |
25 |
25 |
26 !SourceCodeManagerUtilities class methodsFor:'utilities'! |
26 !SourceCodeManagerUtilities class methodsFor:'utilities'! |
27 |
27 |
28 checkinClass:aClass |
28 checkinClass:aClass |
29 "check a class into the source repository" |
29 "check a class into the source repository. |
|
30 Asks interactively for log-message." |
30 |
31 |
31 ^ self checkinClass:aClass withLog:nil |
32 ^ self checkinClass:aClass withLog:nil |
32 ! |
33 ! |
33 |
34 |
34 checkinClass:aClass withLog:aLogMessageOrNil |
35 checkinClass:aClass withLog:aLogMessageOrNil |
35 "check a class into the source repository" |
36 "check a class into the source repository. |
|
37 If the argument, aLogMessageOrNil isNil, ask interactively for log-message." |
36 |
38 |
37 |logMessage info mgr pri resources| |
39 |logMessage info mgr pri resources| |
38 |
40 |
39 aClass isLoaded ifFalse:[ |
41 aClass isLoaded ifFalse:[ |
40 self information:'cannot checkin unloaded classes (' , aClass name , ').'. |
42 self information:'cannot checkin unloaded classes (' , aClass name , ').'. |
104 ]. |
106 ]. |
105 ]. |
107 ]. |
106 ^ true |
108 ^ true |
107 ! |
109 ! |
108 |
110 |
|
111 checkinClasses:aClass |
|
112 "check a collection of classes into the source repository. |
|
113 Asks interactively for log-message." |
|
114 |
|
115 ^ self checkinClasses:aClass withLog:nil |
|
116 ! |
|
117 |
109 checkinClasses:aCollectionOfClasses withLog:aLogMessageOrNil |
118 checkinClasses:aCollectionOfClasses withLog:aLogMessageOrNil |
110 "check a bunch of classes into the source repository" |
119 "check a bunch of classes into the source repository. |
|
120 If the argument, aLogMessageOrNil isNil, ask interactively for log-message." |
111 |
121 |
112 |classes logMessage resources| |
122 |classes logMessage resources| |
113 |
123 |
114 resources := ResourcePack for:self. |
124 resources := ResourcePack for:self. |
115 |
125 |
547 ! ! |
557 ! ! |
548 |
558 |
549 !SourceCodeManagerUtilities class methodsFor:'documentation'! |
559 !SourceCodeManagerUtilities class methodsFor:'documentation'! |
550 |
560 |
551 version |
561 version |
552 ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.5 2000-01-14 17:22:08 cg Exp $' |
562 ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.6 2000-01-21 12:05:39 ps Exp $' |
553 ! ! |
563 ! ! |