A border in a stylesheet is not applied to a button presenter

[koendehondt]

Pharo 13.

Consider this code:

application := SpApplication new
	addStyleSheetFromString: '.application [
		.coloredWidget [
			Draw { #backgroundColor: #green},
			Container { #borderColor: #red, #borderWidth: 3 } ]
	]';
	yourself.
presenter := SpPresenter newApplication: application.
button := presenter newButton
	label: 'Test';
	addStyle: 'coloredWidget';
	yourself.
text := presenter newText.
layout := SpBoxLayout newTopToBottom
	spacing: 10;
	vAlignCenter;
	hAlignCenter;
	add: text;
	add: button;
	yourself.
presenter layout: layout.
presenter open

The text presenter is added only to ensure that the blue focus border is not applied to the button presenter. The text presenter is not important for the issue described in this ticket.

The code opens this window:

The button should have a red border of 3 pixels wide, but it does not. That is a bug.

[estebanlm]

This is a mess but buttons are a mess (as they are pluggable thing and themed with polymorphic and in a very annoying way). I am tempted to replace completely the backend button (to use just a SimpleButtonMorph) but I am afraid it will cause more problems than solutions... so, in essence: this is much more complex than it seems to solve, and I do not when I will have real time to do it (or if it worth the effort) :(