The Trunk: System-dtl.925.mcz

David T. Lewis uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-dtl.925.mcz

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

Name: System-dtl.925
Author: dtl
Time: 4 February 2017, 3:43:13.95565 am
UUID: f158dfc8-00f5-42ed-99bb-7d209fbb4de6
Ancestors: System-tfel.924, System-monty.908

Merge from inbox:

Name: System-monty.908
Author: monty
Time: 3 February 2017, 10:04:01.051573 pm
UUID: af50ee9b-0be1-4b86-b41f-9b89302aea23
Ancestors: System-mt.906

changed sends of the XML-Parser extension #applyLanguageInfomation: to #applyLanguageInformation: (with an 'r') directly defined in String and ByteString

=============== Diff against System-tfel.924 ===============

Item was changed:
  ----- Method: MOFile>>loadStrings:pointers:encoding:languageEnvironment: (in category 'private') -----
  loadStrings: strm pointers: tupple encoding: encodingName languageEnvironment: env
  | strings rawStr str offsetTable lenTable |
  offsetTable :=  tupple first.
  lenTable := tupple second.
  strings := Array new: nStrings.
  1 to: nStrings do: [:index |
  rawStr := self loadString: strm
  pointer:  (offsetTable at: index)
  length: (lenTable at: index).
  str := encodingName isNil ifTrue: [rawStr]
  ifFalse: [ encodingName = 'utf8'
+ ifTrue: [rawStr utf8ToSqueak applyLanguageInformation: env]
- ifTrue: [rawStr utf8ToSqueak applyLanguageInfomation: env]
  ifFalse: [self error: 'this encoding isn''t supported']
  ].
  strings at: index put: str.
  ].
  ^strings.!

Item was changed:
  ----- Method: MOFile>>translatedString: (in category 'private') -----
  translatedString: index
  "KNOWN PROBLEM: conversion is executed everytimes this method called"
  | str |
  str := translatedStrings at: index.
 
+ ^str utf8ToSqueak applyLanguageInformation: (Locale localeID: localeID) languageEnvironment.
- ^str utf8ToSqueak applyLanguageInfomation: (Locale localeID: localeID) languageEnvironment.
  !

Item was changed:
  ----- Method: Preferences class>>debugLogTimestamp (in category 'standard queries') -----
  debugLogTimestamp
  ^ self
  valueOfFlag: #debugLogTimestamp
  ifAbsent: [false]!