--- a/VariablePanel.st	Tue Nov 28 19:26:40 2017 +0100
+++ b/VariablePanel.st	Tue Nov 28 19:27:28 2017 +0100
@@ -2680,14 +2680,6 @@
     mode := something.
 !
 
-selectedBgColor
-    ^ selectedBgColor
-!
-
-selectedBgColor:something
-    selectedBgColor := something.
-!
-
 selectedLevel
     ^ selectedLevel
 !
@@ -2704,6 +2696,16 @@
     width := something.
 ! !
 
+!VariablePanel::SnapAdornment methodsFor:'accessing-color & font'!
+
+selectedBgColor
+    ^ selectedBgColor
+!
+
+selectedBgColor:something
+    selectedBgColor := something.
+! !
+
 !VariablePanel::SnapAdornment methodsFor:'backward compatibility'!
 
 at:key