# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1181120285 -7200
# Node ID 6bfbf469a1bec4938139e5c10633bd6011ab6ee0
# Parent  0658b3c147dbe13a5ebc3b67eaa781edc1f31b56
*** empty log message ***

diff -r 0658b3c147db -r 6bfbf469a1be Magnitude.st
--- a/Magnitude.st	Tue Jun 05 18:20:22 2007 +0200
+++ b/Magnitude.st	Wed Jun 06 10:58:05 2007 +0200
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libbasic' }"
 
 Object subclass:#Magnitude
@@ -51,6 +50,16 @@
     ^ self == Magnitude
 ! !
 
+!Magnitude methodsFor:'Compatibility-Squeak'!
+
+min:aMin max:aMax 
+    "similar to clampBetween:and:"
+
+    ^ (self min: aMin) max: aMax
+
+    "Created: / 06-06-2007 / 11:00:22 / cg"
+! !
+
 !Magnitude methodsFor:'comparing'!
 
 < aMagnitude
@@ -361,5 +370,5 @@
 !Magnitude class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Magnitude.st,v 1.21 2005-06-27 10:20:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Magnitude.st,v 1.22 2007-06-06 08:58:05 cg Exp $'
 ! !