Now allow to align labels of barplots on the right.

Deprecated #alignLabelEdge to be replaced by #alignLabelLeftEdge.

Author: juliendelplanque

repository/MatplotLibBridge.package/MLBAbstractBarPlot.class/instance/alignLabelCenter.st

@@ -1,3 +1,4 @@
 alignment
 alignLabelCenter
+	alignLabelRightEdge := false.
 	self align: 'center'

repository/MatplotLibBridge.package/MLBAbstractBarPlot.class/instance/alignLabelEdge.st

@@ -1,3 +1,6 @@
 alignment
 alignLabelEdge
-	self align: 'edge'
+	self
+		deprecated: 'Please use #alignLabelLeftEdge instead.'
+		transformWith: '`@receiver alignLabelEdge' -> '`@receiver alignLabelLeftEdge'.
+	self alignLabelLeftEdge

repository/MatplotLibBridge.package/MLBAbstractBarPlot.class/instance/alignLabelLeftEdge.st

@@ -0,0 +1,4 @@
+alignment
+alignLabelLeftEdge
+	alignLabelRightEdge := false.
+	self align: 'edge'

repository/MatplotLibBridge.package/MLBAbstractBarPlot.class/instance/alignLabelRightEdge.st

@@ -0,0 +1,4 @@
+alignment
+alignLabelRightEdge
+	alignLabelRightEdge := true.
+	self align: 'edge'

repository/MatplotLibBridge.package/MLBAbstractBarPlot.class/instance/initialize.st

@@ -1,6 +1,7 @@
 initialization
 initialize
 	super initialize.
+	alignLabelRightEdge := false.
 	self
 		alignLabelCenter;
 		barWidth: 0.35;

repository/MatplotLibBridge.package/MLBAbstractBarPlot.class/properties.json

@@ -9,7 +9,8 @@
 		"align",
 		"barWidth",
 		"logAxis",
-		"labels"
+		"labels",
+		"alignLabelRightEdge"
 	],
 	"name" : "MLBAbstractBarPlot",
 	"type" : "normal"

repository/MatplotLibBridge.package/MLBBarPlot.class/instance/inBuild.st

@@ -9,7 +9,8 @@ inBuild
 				color: self color;
 				yerr: self errorBars;
 				ecolor: self errorBarsColor;
-				width: self barWidth;
+				"Next line is due to some kind of hack in matplotlib to align labels on right edge."
+				width: (alignLabelRightEdge ifTrue: [ self barWidth negated ] ifFalse: [ self barWidth ]);
 				align: self align;
 				log: self logAxis;
 				yourself)

repository/MatplotLibBridge.package/MLBStackedBarPlot.class/instance/buildAllButFirst.st

@@ -16,6 +16,7 @@ buildAllButFirst
 					ecolor:
 						(self errorBarsColorList
 							ifNotNil: [ (self errorBarsColorList asOrderedCollection at: i) asHexString ]);
-					width: self barWidth;
+					"Next line is due to some kind of hack in matplotlib to align labels on right edge."
+					width: (alignLabelRightEdge ifTrue: [ self barWidth negated ] ifFalse: [ self barWidth ]);
 					align: self align;
 					yourself) ]

repository/MatplotLibBridge.package/MLBStackedBarPlot.class/instance/buildFirst.st

@@ -13,7 +13,8 @@ buildFirst
 				ecolor:
 					(self errorBarsColorList
 						ifNotNil: [ self errorBarsColorList asOrderedCollection first ]);
-				width: self barWidth;
+				"Next line is due to some kind of hack in matplotlib to align labels on right edge."
+				width: (alignLabelRightEdge ifTrue: [ self barWidth negated ] ifFalse: [ self barWidth ]);
 				align: self align;
 				log: self logAxis;
 				yourself)