The Trunk: GetText-dtl.43.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: GetText-dtl.43.mcz

commits-2
David T. Lewis uploaded a new version of GetText to project The Trunk:
http://source.squeak.org/trunk/GetText-dtl.43.mcz

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

Name: GetText-dtl.43
Author: dtl
Time: 14 November 2017, 10:50:26.259467 pm
UUID: 3de4bc20-be7d-4303-8a28-46be0055b23a
Ancestors: GetText-ul.42

Remove unnecessary references to global World.

=============== Diff against GetText-ul.42 ===============

Item was changed:
  ----- Method: LanguageEditor class>>ensureVisibilityOfWindow: (in category 'private') -----
  ensureVisibilityOfWindow: aWindow
  "private - activate the window"
+ | world |
+ world := Project current world.
- | |
  aWindow expand.
  aWindow comeToFront.
  ""
  aWindow
+ right: (aWindow right min: world right).
- right: (aWindow right min: World right).
  aWindow
+ bottom: (aWindow bottom min: world bottom).
- bottom: (aWindow bottom min: World bottom).
  aWindow
+ left: (aWindow left max: world left).
- left: (aWindow left max: World left).
  aWindow
+ top: (aWindow top max: world top).
- top: (aWindow top max: World top).
  ""
  aWindow flash; flash!

Item was changed:
  ----- Method: LanguageEditor class>>openOn: (in category 'instance creation') -----
  openOn: aLanguage
  "open an instance on aLanguage"
  | editor |
+ Project current world submorphs
- World submorphs
  do: [:each | ""
  ((each isKindOf: LanguageEditor)
  and: [each translator == aLanguage])
  ifTrue: [""
  self ensureVisibilityOfWindow: each.
  ^ self]].
  ""
  editor := self on: aLanguage.
  editor ifNotNil:[^editor openInWorld]!