equal
deleted
inserted
replaced
623 itemValue: deleteAllFiles |
623 itemValue: deleteAllFiles |
624 isVisible: false |
624 isVisible: false |
625 ) |
625 ) |
626 (MenuItem |
626 (MenuItem |
627 label: '-' |
627 label: '-' |
|
628 ) |
|
629 (MenuItem |
|
630 enabled: hasSelection |
|
631 label: 'Touch Selected File(s)...' |
|
632 itemValue: touchSelectedFiles |
|
633 ) |
|
634 (MenuItem |
|
635 enabled: hasListEntries |
|
636 label: 'Touch all Files...' |
|
637 itemValue: touchAllFiles |
|
638 isVisible: false |
|
639 ) |
|
640 (MenuItem |
|
641 label: '-' |
628 isVisible: cvsMenusAreShown |
642 isVisible: cvsMenusAreShown |
629 ) |
643 ) |
630 (MenuItem |
644 (MenuItem |
631 enabled: hasSelection |
645 enabled: hasSelection |
632 label: 'Commit Selected File(s) to CVS...' |
646 label: 'Commit Selected File(s) to CVS...' |
989 aBoolean ifTrue:[ |
1003 aBoolean ifTrue:[ |
990 self shownListHolder valueHolder:(self matchedFilesList) |
1004 self shownListHolder valueHolder:(self matchedFilesList) |
991 ] ifFalse:[ |
1005 ] ifFalse:[ |
992 self shownListHolder valueHolder:(self resultList) |
1006 self shownListHolder valueHolder:(self resultList) |
993 ]. |
1007 ]. |
|
1008 ! |
|
1009 |
|
1010 touchAllFiles |
|
1011 |files| |
|
1012 |
|
1013 files := self shownList copy. |
|
1014 self touchFiles:files. |
|
1015 ! |
|
1016 |
|
1017 touchFiles:colOfFiles |
|
1018 "touch current selected files/directories |
|
1019 " |
|
1020 colOfFiles asSet do:[:each | |
|
1021 OperatingSystem executeCommand:('touch %1' bindWith:each asFilename pathName). |
|
1022 ]. |
|
1023 ! |
|
1024 |
|
1025 touchSelectedFiles |
|
1026 |sel files| |
|
1027 |
|
1028 sel := self selectionHolder value. |
|
1029 sel isEmptyOrNil ifTrue:[^ self]. |
|
1030 |
|
1031 files := sel collect:[:idx | self shownList at:idx]. |
|
1032 self touchFiles:files. |
994 ! ! |
1033 ! ! |
995 |
1034 |
996 !FindFileApplication methodsFor:'actions-CVS'! |
1035 !FindFileApplication methodsFor:'actions-CVS'! |
997 |
1036 |
998 commitSelectedFilesToCVS |
1037 commitSelectedFilesToCVS |