--- a/AlignmentOrigin.st	Tue Sep 17 12:25:57 2019 +0200
+++ b/AlignmentOrigin.st	Tue Sep 17 12:26:04 2019 +0200
@@ -171,14 +171,14 @@
     ^ leftAlignmentFraction
 !
 
-leftAlignmentFraction:something
-    "set leftAlignmentFraction"
+leftAlignmentFraction:aFraction
+    "set leftAlignmentFraction (0..1)"
 
-    leftAlignmentFraction := something.
+    leftAlignmentFraction := aFraction.
 !
 
 leftAlignmentFraction:lF topAlignmentFraction:tF
-    "set both leftAlignmentFraction and topAlignmentFraction"
+    "set both leftAlignmentFraction (0..1) and topAlignmentFraction (0..1)"
 
     leftAlignmentFraction := lF.
     topAlignmentFraction := tF
@@ -192,10 +192,10 @@
     ^ topAlignmentFraction
 !
 
-topAlignmentFraction:something
-    "set topAlignmentFraction"
+topAlignmentFraction:aFraction
+    "set topAlignmentFraction (0..1)"
 
-    topAlignmentFraction := something.
+    topAlignmentFraction := aFraction.
 ! !
 
 !AlignmentOrigin methodsFor:'comparing'!