[squeak-dev] The Trunk: 60Deprecated-topa.68.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Feb 10 20:57:57 UTC 2020


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



More information about the Squeak-dev mailing list