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!