The Trunk: 60Deprecated-mt.79.mcz

Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk:
http://source.squeak.org/trunk/60Deprecated-mt.79.mcz

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

Name: 60Deprecated-mt.79
Author: mt
Time: 13 July 2020, 11:49:44.479623 am
UUID: 2481d272-5ff4-1f45-a526-3cfcf05bf11e
Ancestors: 60Deprecated-mt.78

Complements ST80-mt.256

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

Item was changed:
  ----- Method: StandardFileMenu>>makeFileMenuFor: (in category 'menu building') -----
  makeFileMenuFor: aDirectory
  "Initialize an instance of me to operate on aDirectory"
 
  | theMenu |
  pattern ifNil: [pattern := {'*'}].
  Cursor wait showWhile:
  [self
  labels: (self menuLabelsString: aDirectory)
+ font: Preferences standardMenuFont
- font: (MenuStyle fontAt: 1)
  lines: (self menuLinesArray: aDirectory).
  theMenu := self selections: (self menuSelectionsArray: aDirectory)].
  ^theMenu!