--- a/AbstractBorder.st	Thu Oct 08 19:26:06 2015 +0200
+++ b/AbstractBorder.st	Thu Oct 08 19:55:47 2015 +0200
@@ -143,6 +143,14 @@
     "Created: 10.2.1997 / 14:53:13 / cg"
 !
 
+bottomMargin
+    "return the bottom inset.
+     That is the number of pixels that an instance of me requires at the bottom,
+     eg. the inset of the view's contents"
+
+    ^ width
+!
+
 displayBoxFor:aRectangle
     "return a rectangle representing the overall display box of a component
      bordered by the receiver, which has bounds of aRectangle.
@@ -175,6 +183,30 @@
     ^ insetRectangle
 
     "Created: 10.2.1997 / 15:42:06 / cg"
+!
+
+leftMargin
+    "return the left inset.
+     That is the number of pixels that an instance of me requires at the left,
+     eg. the inset of the view's contents"
+
+    ^ width
+!
+
+rightMargin
+    "return the right inset.
+     That is the number of pixels that an instance of me requires at the right,
+     eg. the inset of the view's contents"
+
+    ^ width
+!
+
+topMargin
+    "return the top inset.
+     That is the number of pixels that an instance of me requires at the top,
+     eg. the inset of the view's contents"
+
+    ^ width
 ! !
 
 !AbstractBorder class methodsFor:'documentation'!