equal
deleted
inserted
replaced
410 logMessage := aLogInfoNil |
410 logMessage := aLogInfoNil |
411 ] ifFalse:[ |
411 ] ifFalse:[ |
412 checkinInfo := aLogInfoNil. |
412 checkinInfo := aLogInfoNil. |
413 logMessage := checkinInfo logMessage. |
413 logMessage := checkinInfo logMessage. |
414 ]. |
414 ]. |
|
415 ]. |
|
416 logMessage notNil ifTrue:[ |
|
417 logMessage := logMessage asSingleByteStringReplaceInvalidWith:$? |
415 ]. |
418 ]. |
416 |
419 |
417 resources := self classResources. |
420 resources := self classResources. |
418 |
421 |
419 (self classIsNotYetInRepository:aClass withManager:mgr) ifTrue:[ |
422 (self classIsNotYetInRepository:aClass withManager:mgr) ifTrue:[ |
2906 |
2909 |
2907 "Modified: / 22-06-2006 / 12:49:30 / cg" |
2910 "Modified: / 22-06-2006 / 12:49:30 / cg" |
2908 ! |
2911 ! |
2909 |
2912 |
2910 getCheckinInfoFor:aString initialAnswer:initialAnswerOrNil withQuickOption:withQuickOption |
2913 getCheckinInfoFor:aString initialAnswer:initialAnswerOrNil withQuickOption:withQuickOption |
2911 "get a log message for checking in a class. |
2914 "get a log message for checking in a class (plus checkinQuick state info). |
2912 Return the message or nil if aborted." |
2915 Return the info-object (actually: the dialog) or nil if aborted." |
2913 |
2916 |
2914 |logMsg info| |
2917 |logMsg infoDialog| |
2915 |
2918 |
2916 info := Tools::CheckinInfoDialog |
2919 infoDialog := Tools::CheckinInfoDialog |
2917 getCheckinInfoFor:aString |
2920 getCheckinInfoFor:aString |
2918 initialAnswer:(initialAnswerOrNil ? LastSourceLogMessage) |
2921 initialAnswer:(initialAnswerOrNil ? LastSourceLogMessage) |
2919 withQuickOption:withQuickOption. |
2922 withQuickOption:withQuickOption. |
2920 info notNil ifTrue:[ |
2923 infoDialog notNil ifTrue:[ |
2921 logMsg := info logMessage. |
2924 logMsg := infoDialog logMessage. |
2922 logMsg notNil ifTrue:[ |
2925 logMsg notNil ifTrue:[ |
2923 LastSourceLogMessage := logMsg |
2926 LastSourceLogMessage := logMsg |
2924 ]. |
2927 ]. |
2925 ]. |
2928 ]. |
2926 ^ info |
2929 ^ infoDialog |
2927 |
2930 |
2928 " |
2931 " |
2929 SourceCodeManagerUtilities getCheckinInfoFor:'hello' initialAnswer:'bla' |
2932 SourceCodeManagerUtilities getCheckinInfoFor:'hello' initialAnswer:'bla' |
2930 " |
2933 " |
2931 |
2934 |
2982 ! ! |
2985 ! ! |
2983 |
2986 |
2984 !SourceCodeManagerUtilities class methodsFor:'documentation'! |
2987 !SourceCodeManagerUtilities class methodsFor:'documentation'! |
2985 |
2988 |
2986 version |
2989 version |
2987 ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.183 2009-06-30 10:51:05 stefan Exp $' |
2990 ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.184 2009-09-08 16:56:17 cg Exp $' |
2988 ! ! |
2991 ! ! |