The Trunk: 60Deprecated-topa.68.mcz

Tobias Pape uploaded a new version of 60Deprecated to project The Trunk:
http://source.squeak.org/trunk/60Deprecated-topa.68.mcz

==================== Summary ====================

Name: 60Deprecated-topa.68
Author: topa
Time: 10 February 2020, 9:57:56.226352 pm
UUID: 1fe5d8ec-5259-40f2-adfb-72c2feb911f6
Ancestors: 60Deprecated-mt.67

Fix use of deprecated StandardFileMenuResult by cascading.

=============== Diff against 60Deprecated-mt.67 ===============

Item was added:
+ ----- Method: PluggableFileList class>>newFileMenu: (in category '*60Deprecated-Tools-Menus-StandardFileMenu') -----
+ newFileMenu: aDirectory
+
+ "For compatibility with StandardFileMenu for now, answer a StandardFileMenuResult"
+ ^(self getFilePathNameDialogWithExistenceCheck)
+ resultBlock: self sfmResultBlock;
+ directory: aDirectory;
+ yourself!

Item was added:
+ ----- Method: PluggableFileList class>>oldFileMenu: (in category '*60Deprecated-Tools-Menus-StandardFileMenu') -----
+ oldFileMenu: aDirectory
+
+ "For compatibility with StandardFileMenu for now, answer a StandardFileMenuResult"
+ ^(self getFilePathNameDialog)
+ resultBlock: self sfmResultBlock;
+ directory: aDirectory;
+ yourself!

Item was added:
+ ----- Method: PluggableFileList class>>sfmResultBlock (in category '*60Deprecated-Tools-Menus-resultBlocks') -----
+ sfmResultBlock
+
+ ^[:theDirectory :theFileName |
+ StandardFileMenuResult directory: theDirectory name: theFileName]!