Sending #addStyle: to an image presenter reduces the display to the presenter's border

[koendehondt]

Related to #1649.

Issue 1

Try this in a Playground:

application := SpApplication new
	addStyleSheetFromString: '.application [
		.yellowBorder [
			Draw { #backgroundColor: #green},
			Container { #borderColor: #yellow, #borderWidth: 3 } ],
		.redBorder [
			Container { #borderColor: #red} ]
	]';
	yourself.
presenter := SpPresenter newApplication: application.
image := presenter newImage
	image: (self iconNamed: #grayCircle);
	addStyle: 'yellowBorder';
	yourself.
layout := SpBoxLayout newTopToBottom
	vAlignCenter;
	hAlignCenter;
	add: image;
	yourself.
presenter layout: layout.
presenter open

The snippet opens this window:

In the Playground, evaulate:

image addStyle: 'redBorder'

That yields this result:

As you can see, the image with the 3-pixel border is reduced to a square of 6 by 6 pixels. The square is the border. The image of the image presenter is not displayed anymore.

Issue 2

Step 1: Start from this window:

Step 2: Make the window inactive by bringing another window to the front.

Step 3: Make the window active again.

When the window becomes active, the border colour changes from red to B5B5B5. This could be related to the border colour issue reported in #1649.