equal
deleted
inserted
replaced
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
|
13 "{ Package: 'stx:libbasic' }" |
12 "{ Package: 'stx:libbasic' }" |
14 |
13 |
15 Object subclass:#Magnitude |
14 Object subclass:#Magnitude |
16 instanceVariableNames:'' |
15 instanceVariableNames:'' |
17 classVariableNames:'' |
16 classVariableNames:'' |
47 |
46 |
48 !Magnitude class methodsFor:'queries'! |
47 !Magnitude class methodsFor:'queries'! |
49 |
48 |
50 isAbstract |
49 isAbstract |
51 ^ self == Magnitude |
50 ^ self == Magnitude |
|
51 ! ! |
|
52 |
|
53 !Magnitude methodsFor:'Compatibility-Squeak'! |
|
54 |
|
55 min:aMin max:aMax |
|
56 "similar to clampBetween:and:" |
|
57 |
|
58 ^ (self min: aMin) max: aMax |
|
59 |
|
60 "Created: / 06-06-2007 / 11:00:22 / cg" |
52 ! ! |
61 ! ! |
53 |
62 |
54 !Magnitude methodsFor:'comparing'! |
63 !Magnitude methodsFor:'comparing'! |
55 |
64 |
56 < aMagnitude |
65 < aMagnitude |
359 ! ! |
368 ! ! |
360 |
369 |
361 !Magnitude class methodsFor:'documentation'! |
370 !Magnitude class methodsFor:'documentation'! |
362 |
371 |
363 version |
372 version |
364 ^ '$Header: /cvs/stx/stx/libbasic/Magnitude.st,v 1.21 2005-06-27 10:20:44 cg Exp $' |
373 ^ '$Header: /cvs/stx/stx/libbasic/Magnitude.st,v 1.22 2007-06-06 08:58:05 cg Exp $' |
365 ! ! |
374 ! ! |