5436 HTMLDocumentView openFullOnDocumentationFile:relativeDocPath |
5436 HTMLDocumentView openFullOnDocumentationFile:relativeDocPath |
5437 ! ! |
5437 ! ! |
5438 |
5438 |
5439 !AbstractFileBrowser methodsFor:'menu actions-scm-cvs'! |
5439 !AbstractFileBrowser methodsFor:'menu actions-scm-cvs'! |
5440 |
5440 |
|
5441 commitFilesToCVS:files |
|
5442 |numFiles| |
|
5443 |
|
5444 (numFiles := files size) > 0 ifTrue:[ |
|
5445 self withActivityIndicationDo:[ |
|
5446 self cvsCommitFiles:files |
|
5447 ] |
|
5448 ] |
|
5449 ! |
|
5450 |
5441 cvsAddAndCommit |
5451 cvsAddAndCommit |
5442 self cvsAddAndCommitAsBinary:false |
5452 self cvsAddAndCommitAsBinary:false |
5443 ! |
5453 ! |
5444 |
5454 |
5445 cvsAddAndCommitAsBinary:asBinary |
5455 cvsAddAndCommitAsBinary:asBinary |
5501 cvsAddBinaryAndCommit |
5511 cvsAddBinaryAndCommit |
5502 self cvsAddAndCommitAsBinary:true |
5512 self cvsAddAndCommitAsBinary:true |
5503 ! |
5513 ! |
5504 |
5514 |
5505 cvsCommit |
5515 cvsCommit |
5506 |nSel log logArg msg cmd selectedFiles sel executionBlock nameString| |
5516 |selectedFiles| |
5507 |
5517 |
5508 selectedFiles:= self currentSelectedFiles. |
5518 selectedFiles:= self currentSelectedFiles. |
5509 nSel := selectedFiles size. |
5519 self cvsCommitFiles:selectedFiles |
5510 |
5520 ! |
5511 nSel == 1 ifTrue:[ |
5521 |
5512 msg := resources string:'Enter log message for checkIn of "%1"' with:(selectedFiles first baseName) |
5522 cvsCommitFiles:files |
|
5523 |nFiles log logTmp s logArg msg executionBlock nameString | |
|
5524 |
|
5525 nFiles := files size. |
|
5526 nFiles == 0 ifTrue:[^ self]. |
|
5527 |
|
5528 nFiles == 1 ifTrue:[ |
|
5529 msg := resources string:'Enter log message for checkIn of "%1"' with:(files first baseName) |
5513 ] ifFalse:[ |
5530 ] ifFalse:[ |
5514 nSel > 1 ifTrue:[ |
5531 nFiles > 1 ifTrue:[ |
5515 msg := resources string:'Enter log message for %1 files to checkIn' with:nSel printString |
5532 msg := resources string:'Enter log message for %1 files to checkIn' with:nFiles printString |
5516 ] ifFalse:[ |
5533 ] ifFalse:[ |
5517 msg := resources string:'Enter log message for checkIn' |
5534 msg := resources string:'Enter log message for checkIn' |
5518 ] |
5535 ] |
5519 ]. |
5536 ]. |
5520 |
5537 |
5523 lines:10 |
5540 lines:10 |
5524 columns:70 |
5541 columns:70 |
5525 initialAnswer:nil. |
5542 initialAnswer:nil. |
5526 |
5543 |
5527 log isNil ifTrue:[^ self]. |
5544 log isNil ifTrue:[^ self]. |
|
5545 log := log replChar:$" withString:'\"'. |
5528 |
5546 |
5529 OperatingSystem isMSWINDOWSlike ifTrue:[ |
5547 OperatingSystem isMSWINDOWSlike ifTrue:[ |
5530 logArg := '-m "' , log , '"'. |
5548 "/ save the log message into another tempFile ... |
|
5549 logTmp := Filename newTemporary. |
|
5550 s := logTmp writeStream. |
|
5551 s nextPutAll:log. |
|
5552 s close. |
|
5553 |
|
5554 logArg := '-F "', logTmp pathName, '"'. |
5531 ] ifFalse:[ |
5555 ] ifFalse:[ |
5532 logArg := '-m ''' , log , ''''. |
5556 logArg := '-m ''' , log , ''''. |
5533 ]. |
5557 ]. |
5534 |
5558 |
5535 sel := self currentSelectedObjects. |
|
5536 sel isEmpty ifTrue:[ ^ self ]. |
|
5537 |
|
5538 executionBlock := [:stream | |
5559 executionBlock := [:stream | |
5539 log notNil ifTrue:[ |
5560 [ |
5540 sel size > 0 ifTrue:[ |
5561 files do:[:fn | |
5541 sel do:[:fn | |
5562 | dir nameArg cmd | |
5542 | dir nameArg | |
5563 |
5543 |
5564 nameArg := '"',fn baseName,'"'. |
5544 nameArg := '"',fn baseName,'"'. |
5565 dir := fn directory. |
5545 dir := fn directory. |
5566 cmd := 'cvs commit ',logArg,' ' , nameArg. |
5546 cmd := 'cvs commit ',logArg,' ' , nameArg. |
5567 stream showCR:fn pathName. |
5547 (self getExecutionBlockForCommand:cmd inDirectory:dir) value:stream. |
5568 (self getExecutionBlockForCommand:cmd inDirectory:dir) value:stream. |
5548 ] |
|
5549 ] |
5569 ] |
5550 ] |
5570 ] ensure:[ |
|
5571 logTmp notNil ifTrue:[ logTmp remove ]. |
|
5572 ]. |
5551 ]. |
5573 ]. |
5552 nameString := 'Command> cvs commit'. |
5574 nameString := 'Command> cvs commit'. |
5553 self makeExecutionResultProcessFor:executionBlock withName:nameString. |
5575 self makeExecutionResultProcessFor:executionBlock withName:nameString. |
5554 |
|
5555 "Modified: / 04-12-2006 / 13:16:39 / cg" |
|
5556 ! |
5576 ! |
5557 |
5577 |
5558 cvsCompareWithNewest |
5578 cvsCompareWithNewest |
5559 |selectedFiles| |
5579 |selectedFiles| |
5560 |
5580 |