3438 ]. |
3444 ]. |
3439 ]. |
3445 ]. |
3440 ^ result. |
3446 ^ result. |
3441 ! |
3447 ! |
3442 |
3448 |
|
3449 eraseFiles:colOfFiles |
|
3450 "delete current selected files/directories |
|
3451 " |
|
3452 ^ self eraseFiles:colOfFiles confirm:true. |
|
3453 ! |
|
3454 |
|
3455 eraseFiles:colOfFiles confirm:confirm |
|
3456 "erase current selected files/directories |
|
3457 " |
|
3458 |delete result| |
|
3459 |
|
3460 self windowGroup withWaitCursorDo:[ |
|
3461 delete := FileOperation eraseFiles:colOfFiles confirm:confirm. |
|
3462 result := delete result. |
|
3463 result notNil ifTrue:[ |
|
3464 result ifFalse:[ |
|
3465 self notify:delete errorString. |
|
3466 ] ifTrue:[ |
|
3467 self updateListAfterDelete:colOfFiles. |
|
3468 ] |
|
3469 ]. |
|
3470 ]. |
|
3471 ^ result. |
|
3472 ! |
|
3473 |
3443 moveFile:aSourceFile to:aDestFile |
3474 moveFile:aSourceFile to:aDestFile |
3444 "defete current selected files/directories |
3475 "defete current selected files/directories |
3445 " |
3476 " |
3446 |
3477 |
3447 |move| |
3478 |move| |
4137 ]. |
4168 ]. |
4138 self executeCommand:stream contents. |
4169 self executeCommand:stream contents. |
4139 stream close. |
4170 stream close. |
4140 ! ! |
4171 ! ! |
4141 |
4172 |
4142 !AbstractFileBrowser methodsFor:'menu actions-edit'! |
4173 !AbstractFileBrowser methodsFor:'menu actions-file'! |
4143 |
4174 |
4144 copyFiles |
4175 copyFiles |
4145 |
4176 self |
4146 | files dirs| |
4177 withSelectedFilesOrDirectoriesDo:[:filesOrDirs | self copyFilesToClipBoard:filesOrDirs] |
4147 |
|
4148 files := self currentSelectedFiles. |
|
4149 files notEmpty ifTrue:[ |
|
4150 self copyFilesToClipBoard:(files). |
|
4151 ] ifFalse:[ |
|
4152 dirs := self currentSelectedDirectories. |
|
4153 dirs notEmpty ifTrue:[ |
|
4154 self copyFilesToClipBoard:(dirs). |
|
4155 ]. |
|
4156 ]. |
|
4157 ! |
4178 ! |
4158 |
4179 |
4159 cutFiles |
4180 cutFiles |
4160 |
4181 self |
4161 | files dirs| |
4182 withSelectedFilesOrDirectoriesDo:[:filesOrDirs | self cutFilesToClipBoard:filesOrDirs] |
4162 |
|
4163 files := self currentSelectedFiles. |
|
4164 files notEmpty ifTrue:[ |
|
4165 self cutFilesToClipBoard:(files). |
|
4166 ] ifFalse:[ |
|
4167 dirs := self currentSelectedDirectories. |
|
4168 dirs notEmpty ifTrue:[ |
|
4169 self cutFilesToClipBoard:(dirs). |
|
4170 ]. |
|
4171 ]. |
|
4172 ! |
4183 ! |
4173 |
4184 |
4174 deleteFiles |
4185 deleteFiles |
4175 |
4186 self |
4176 | files dirs| |
4187 withSelectedFilesOrDirectoriesDo:[:filesOrDirs | self deleteFiles:filesOrDirs] |
4177 |
4188 ! |
4178 files := self currentSelectedFiles. |
4189 |
4179 files notEmpty ifTrue:[ |
4190 eraseFiles |
4180 self deleteFiles:(files). |
4191 self |
4181 ] ifFalse:[ |
4192 withSelectedFilesOrDirectoriesDo:[:filesOrDirs | self eraseFiles:filesOrDirs] |
4182 dirs := self currentSelectedDirectories. |
|
4183 dirs notEmpty ifTrue:[ |
|
4184 self deleteFiles:(dirs). |
|
4185 ]. |
|
4186 ]. |
|
4187 ! |
4193 ! |
4188 |
4194 |
4189 openSettingsDialog |
4195 openSettingsDialog |
4190 |dialog| |
4196 |dialog| |
4191 |
4197 |
4192 dialog := FileBrowserV2SettingsDialog new. |
4198 dialog := FileBrowserV2SettingsDialog new. |
4193 dialog settingsDialog:self. |
4199 dialog settingsDialog:self. |
4194 dialog allButOpen. |
4200 dialog allButOpen. |
4195 dialog doReload. |
4201 dialog doReload. |
4196 dialog openWindow |
4202 dialog openWindow |
|
4203 ! |
|
4204 |
|
4205 withSelectedFilesOrDirectoriesDo:aBlock |
|
4206 |files dirs| |
|
4207 |
|
4208 files := self currentSelectedFiles. |
|
4209 files notEmpty ifTrue:[ |
|
4210 aBlock value:files. |
|
4211 ] ifFalse:[ |
|
4212 dirs := self currentSelectedDirectories. |
|
4213 dirs notEmpty ifTrue:[ |
|
4214 aBlock value:dirs. |
|
4215 ]. |
|
4216 ]. |
4197 ! ! |
4217 ! ! |
4198 |
4218 |
4199 !AbstractFileBrowser methodsFor:'menu actions-help'! |
4219 !AbstractFileBrowser methodsFor:'menu actions-help'! |
4200 |
4220 |
4201 openAboutThisApplication |
4221 openAboutThisApplication |