equal
deleted
inserted
replaced
966 "Answer the square of receiver's norm." |
966 "Answer the square of receiver's norm." |
967 |
967 |
968 ^real * real + (imaginary * imaginary) |
968 ^real * real + (imaginary * imaginary) |
969 ! ! |
969 ! ! |
970 |
970 |
971 !Complex methodsFor:'printing'! |
971 !Complex methodsFor:'printing & storing'! |
972 |
972 |
973 displayOn: aGCOrStream |
973 displayOn: aGCOrStream |
974 "/ what a kludge - Dolphin and Squeak mean: printOn: a stream; |
974 "/ what a kludge - Dolphin and Squeak mean: printOn: a stream; |
975 "/ old ST80 means: draw-yourself on a GC. |
975 "/ old ST80 means: draw-yourself on a GC. |
976 (aGCOrStream isStream) ifFalse:[ |
976 (aGCOrStream isStream) ifFalse:[ |