The Trunk: GetText-mt.48.mcz

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

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

Name: GetText-mt.48
Author: mt
Time: 6 May 2018, 3:15:57.943836 pm
UUID: 80850592-5b4d-044f-8245-3f060b7766fc
Ancestors: GetText-topa.47

Supplement to refactoring in Morphic-mt.1427.

=============== Diff against GetText-topa.47 ===============

Item was changed:
  ----- Method: LanguageEditor>>createButtonLabel:action:help: (in category 'initialization - toolbar') -----
  createButtonLabel: aString action: actionSelector help: helpString
  "create a toolbar for the receiver"
  | button |
  button := SimpleButtonMorph new target: self;
  label: aString translated "font: Preferences standardButtonFont";
  actionSelector: actionSelector;
  setBalloonText: helpString translated;
  color: translator defaultBackgroundColor twiceDarker;
+ borderStyle: (BorderStyle raised width: 2).
- borderWidth: 2;
- borderColor: #raised.
  ""
  ^ button!

Item was changed:
  ----- Method: LanguageEditor>>createUpdatingButtonWording:action:help: (in category 'initialization - toolbar') -----
  createUpdatingButtonWording: wordingSelector action: actionSelector help: helpString
  "create a toolbar for the receiver"
  | button |
  button := (UpdatingSimpleButtonMorph newWithLabel: '-') target: self;
  wordingSelector: wordingSelector;
  actionSelector: actionSelector;
  setBalloonText: helpString translated;
  color: translator defaultBackgroundColor twiceDarker;
+ borderStyle: (BorderStyle raised width: 1);
+ cornerStyle: #square.
- borderWidth: 1;
- borderColor: #raised; cornerStyle: #square.
  ""
  ^ button!