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]!