2964 |
2964 |
2965 classCategoryCheckinEach |
2965 classCategoryCheckinEach |
2966 (self checkSelectionChangeAllowedWithCompare:false) ifFalse:[^ self]. |
2966 (self checkSelectionChangeAllowedWithCompare:false) ifFalse:[^ self]. |
2967 |
2967 |
2968 self withWaitCursorDo:[ |
2968 self withWaitCursorDo:[ |
2969 |logMessage classes allSelected| |
2969 |logInfo classes allSelected| |
2970 |
2970 |
2971 allSelected := (currentClassCategory = '* all *' |
2971 allSelected := (currentClassCategory = '* all *' |
2972 or:[currentClassCategory = '* hierarchy *']). |
2972 or:[currentClassCategory = '* hierarchy *']). |
2973 |
2973 |
2974 logMessage := SourceCodeManagerUtilities |
2974 logInfo := SourceCodeManagerUtilities |
2975 getLogMessageFor:(resources |
2975 getCheckinInfoFor:(resources |
2976 string:(allSelected ifTrue:['all classes'] ifFalse:[' any in classCategory ''%1''']) |
2976 string:(allSelected ifTrue:['all classes'] ifFalse:[' any in classCategory ''%1''']) |
2977 with:currentClassCategory). |
2977 with:currentClassCategory) |
2978 |
2978 initialAnswer:nil |
2979 logMessage notNil ifTrue:[ |
2979 withQuickOption:true. |
|
2980 |
|
2981 logInfo notNil ifTrue:[ |
2980 allSelected ifTrue:[ |
2982 allSelected ifTrue:[ |
2981 classes := self allClasses |
2983 classes := self allClasses |
2982 ] ifFalse:[ |
2984 ] ifFalse:[ |
2983 classes := self allClassesInCategory:currentClassCategory. |
2985 classes := self allClassesInCategory:currentClassCategory. |
2984 ]. |
2986 ]. |
2985 classes := classes select:[:eachClass | eachClass isPrivate not]. |
2987 classes := classes select:[:eachClass | eachClass isPrivate not]. |
2986 SourceCodeManagerUtilities checkinClasses:classes withLog:logMessage. |
2988 logInfo quickCheckIn ifTrue:[ |
|
2989 classes := classes select:[:aClass | ChangeSet current includesChangeForClass:aClass]. |
|
2990 classes isEmpty ifTrue:[^ self ]. |
|
2991 ]. |
|
2992 SourceCodeManagerUtilities checkinClasses:classes withInfo:logInfo. |
2987 ]. |
2993 ]. |
2988 self normalLabel. |
2994 self normalLabel. |
2989 ] |
2995 ] |
2990 |
2996 |
2991 "Created: 23.11.1995 / 11:41:38 / cg" |
2997 "Created: 23.11.1995 / 11:41:38 / cg" |
5208 self doClassMenu:[:currentClass | |
5214 self doClassMenu:[:currentClass | |
5209 currentClass isLoaded ifFalse:[ |
5215 currentClass isLoaded ifFalse:[ |
5210 self warn:'cannot checkin unloaded classes.'. |
5216 self warn:'cannot checkin unloaded classes.'. |
5211 ^ self. |
5217 ^ self. |
5212 ]. |
5218 ]. |
5213 self classCheckin:currentClass withLog:nil |
5219 SourceCodeManagerUtilities checkinClass:currentClass withInfo:nil |
5214 ]. |
5220 ]. |
5215 |
5221 |
5216 "Created: 23.11.1995 / 11:41:38 / cg" |
5222 "Created: 23.11.1995 / 11:41:38 / cg" |
5217 "Modified: 15.4.1996 / 17:07:07 / cg" |
5223 "Modified: 15.4.1996 / 17:07:07 / cg" |
5218 ! |
|
5219 |
|
5220 classCheckin:aClass withLog:aLogMessage |
|
5221 "check a class into the source repository" |
|
5222 |
|
5223 SourceCodeManagerUtilities |
|
5224 checkinClass:aClass withLog:aLogMessage. |
|
5225 self normalLabel. |
|
5226 ! |
5224 ! |
5227 |
5225 |
5228 classCompareWithRepository |
5226 classCompareWithRepository |
5229 "open a diff-textView comparing the current (in-image) version |
5227 "open a diff-textView comparing the current (in-image) version |
5230 with the some version found in the repository." |
5228 with the some version found in the repository." |
11382 with:currentNamespace name). |
11380 with:currentNamespace name). |
11383 ^ self |
11381 ^ self |
11384 ]. |
11382 ]. |
11385 |
11383 |
11386 self withWaitCursorDo:[ |
11384 self withWaitCursorDo:[ |
11387 |logMessage| |
11385 |info| |
11388 |
11386 |
11389 |
11387 |
11390 logMessage := SourceCodeManagerUtilities |
11388 info := SourceCodeManagerUtilities |
11391 getLogMessageFor:(resources |
11389 getCheckinInfoFor:(resources |
11392 string:'(any in nameSpace %1)' |
11390 string:'(any in nameSpace %1)' |
11393 with:currentNamespace name). |
11391 with:currentNamespace name) |
11394 |
11392 initialAnswer:nil |
11395 logMessage notNil ifTrue:[ |
11393 withQuickOption:true. |
|
11394 |
|
11395 info notNil ifTrue:[ |
11396 "/ ignore private classes |
11396 "/ ignore private classes |
11397 classes := classes select:[:aClass | aClass owningClass isNil]. |
11397 classes := classes select:[:aClass | aClass owningClass isNil]. |
|
11398 info quickCheckIn ifTrue:[ |
|
11399 classes := classes select:[:aClass | ChangeSet current includesChangeForClass:aClass]. |
|
11400 classes isEmpty ifTrue:[^ self ]. |
|
11401 ]. |
11398 |
11402 |
11399 classes do:[:aClass | |
11403 classes do:[:aClass | |
11400 self busyLabel:'checking in %1' with:aClass name. |
11404 self busyLabel:'checking in %1' with:aClass name. |
11401 "/ ca does not want boxes to pop up all over ... |
11405 "/ ca does not want boxes to pop up all over ... |
11402 InformationSignal handle:[:ex | |
11406 InformationSignal handle:[:ex | |
11403 Transcript showCR:ex description |
11407 Transcript showCR:ex description |
11404 ] do:[ |
11408 ] do:[ |
11405 self classCheckin:aClass withLog:logMessage |
11409 SourceCodeManagerUtilities |
|
11410 checkinClass:aClass withInfo:info. |
11406 ]. |
11411 ]. |
11407 self normalLabel. |
11412 self normalLabel. |
11408 ] |
11413 ] |
11409 ]. |
11414 ]. |
11410 self normalLabel. |
11415 self normalLabel. |