equal
deleted
inserted
replaced
828 |
828 |
829 "/ |
829 "/ |
830 "/ class in repository - ask for revision |
830 "/ class in repository - ask for revision |
831 "/ |
831 "/ |
832 "/ newestRev := mgr newestRevisionOf:currentClass. |
832 "/ newestRev := mgr newestRevisionOf:currentClass. |
|
833 containerModule isNil ifTrue:[ |
|
834 containerModule := Dialog request:'Module:'. |
|
835 containerModule isEmptyOrNil ifTrue:[^ self]. |
|
836 ]. |
|
837 containerPackage isNil ifTrue:[ |
|
838 containerPackage := Dialog request:'Package:'. |
|
839 containerPackage isEmptyOrNil ifTrue:[^ self]. |
|
840 ]. |
|
841 |
833 newestRev := mgr newestRevisionInFile:containerFile directory:containerPackage module:containerModule. |
842 newestRev := mgr newestRevisionInFile:containerFile directory:containerPackage module:containerModule. |
834 askForRevision ifFalse:[ |
843 askForRevision ifFalse:[ |
835 rev := newestRev ? '' |
844 rev := newestRev ? '' |
836 ] ifTrue:[ |
845 ] ifTrue:[ |
837 msg := resources string:'CheckOut which revision of ''%1'': (empty for newest)' with:nm allBold. |
846 msg := resources string:'CheckOut which revision of ''%1'': (empty for newest)' with:nm allBold. |
2878 ! ! |
2887 ! ! |
2879 |
2888 |
2880 !SourceCodeManagerUtilities class methodsFor:'documentation'! |
2889 !SourceCodeManagerUtilities class methodsFor:'documentation'! |
2881 |
2890 |
2882 version |
2891 version |
2883 ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.161 2007-10-15 14:27:14 cg Exp $' |
2892 ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.162 2007-12-05 16:21:09 mb Exp $' |
2884 ! ! |
2893 ! ! |