equal
deleted
inserted
replaced
1535 ]. |
1535 ]. |
1536 revision := cls revision. |
1536 revision := cls revision. |
1537 revision isNil ifTrue:[ |
1537 revision isNil ifTrue:[ |
1538 force ifFalse:[ |
1538 force ifFalse:[ |
1539 ('CVSSourceCodeManager [warning]: class ' , className, ' has no revision string') errorPrintCR. |
1539 ('CVSSourceCodeManager [warning]: class ' , className, ' has no revision string') errorPrintCR. |
1540 (cls theMetaclass implements:#version) ifTrue:[ |
1540 (cls theMetaclass includesSelector:#version) ifTrue:[ |
1541 answer := Dialog |
1541 answer := Dialog |
1542 confirm:('Class %1 has no (usable) revision string.\\Check in as newest ?' bindWith:className) withCRs |
1542 confirm:('Class %1 has no (usable) revision string.\\Check in as newest ?' bindWith:className) withCRs |
1543 noLabel:'Cancel'. |
1543 noLabel:'Cancel'. |
1544 ] ifFalse:[ |
1544 ] ifFalse:[ |
1545 answer := OptionBox |
1545 answer := OptionBox |
4261 ! ! |
4261 ! ! |
4262 |
4262 |
4263 !CVSSourceCodeManager class methodsFor:'documentation'! |
4263 !CVSSourceCodeManager class methodsFor:'documentation'! |
4264 |
4264 |
4265 version |
4265 version |
4266 ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.248 2002-02-08 14:49:14 cg Exp $' |
4266 ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.249 2002-02-25 19:58:35 cg Exp $' |
4267 ! ! |
4267 ! ! |
4268 CVSSourceCodeManager initialize! |
4268 CVSSourceCodeManager initialize! |