equal
deleted
inserted
replaced
3705 requestText:msg |
3705 requestText:msg |
3706 lines:10 |
3706 lines:10 |
3707 columns:70 |
3707 columns:70 |
3708 initialAnswer:nil. |
3708 initialAnswer:nil. |
3709 |
3709 |
3710 log notNil ifTrue:[ |
3710 log isNil ifTrue:[^ self]. |
3711 sel := self currentFileNameHolder value. |
3711 sel := self currentFileNameHolder value. |
3712 sel isEmpty ifTrue:[ ^ self ]. |
3712 sel isEmpty ifTrue:[ ^ self ]. |
3713 executionBlock := [ : stream | |
3713 executionBlock := [ : stream | |
3714 log notNil ifTrue:[ |
3714 log notNil ifTrue:[ |
3715 sel size > 0 ifTrue:[ |
3715 sel size > 0 ifTrue:[ |
3716 sel do:[:fn | |
3716 sel do:[:fn | |
3717 | dir block | |
3717 | dir block | |
3718 dir := fn directory. |
3718 dir := fn directory. |
3719 cmd := ('cvs commit -m ''' , log , ''' ' , fn baseName). |
3719 cmd := ('cvs commit -m ''' , log , ''' ' , fn baseName). |
3720 block := self getExecutionBlockForCommand:cmd inDirectory:dir. |
3720 block := self getExecutionBlockForCommand:cmd inDirectory:dir. |
3721 block value:stream. |
3721 block value:stream. |
3722 ] |
3722 ] |
3723 ] |
3723 ] |
3724 ] |
3724 ] |
3725 ]. |
|
3726 ]. |
3725 ]. |
3727 nameString := 'Command> cvs commit'. |
3726 nameString := 'Command> cvs commit'. |
3728 self makeExecutionResultProcessFor:executionBlock withName:nameString. |
3727 self makeExecutionResultProcessFor:executionBlock withName:nameString. |
3729 ! |
3728 ! |
3730 |
3729 |
5870 ! ! |
5869 ! ! |
5871 |
5870 |
5872 !AbstractFileBrowser class methodsFor:'documentation'! |
5871 !AbstractFileBrowser class methodsFor:'documentation'! |
5873 |
5872 |
5874 version |
5873 version |
5875 ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.107 2003-03-09 16:54:33 cg Exp $' |
5874 ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.108 2003-03-14 14:29:50 penk Exp $' |
5876 ! ! |
5875 ! ! |