equal
deleted
inserted
replaced
797 ^ BCDConversionErrorSignal |
797 ^ BCDConversionErrorSignal |
798 |
798 |
799 "Modified: / 15.11.1999 / 20:35:20 / cg" |
799 "Modified: / 15.11.1999 / 20:35:20 / cg" |
800 ! ! |
800 ! ! |
801 |
801 |
|
802 |
|
803 |
802 !Integer class methodsFor:'class initialization'! |
804 !Integer class methodsFor:'class initialization'! |
803 |
805 |
804 initialize |
806 initialize |
805 BCDConversionErrorSignal isNil ifTrue:[ |
807 BCDConversionErrorSignal isNil ifTrue:[ |
806 BCDConversionErrorSignal := ConversionError newSignal. |
808 BCDConversionErrorSignal := ConversionError newSignal. |
3104 |
3106 |
3105 |
3107 |
3106 !Integer methodsFor:'dependents access'! |
3108 !Integer methodsFor:'dependents access'! |
3107 |
3109 |
3108 addDependent:anObject |
3110 addDependent:anObject |
3109 Transcript show:'*** trying to make dependent on an integer: '. |
3111 "It doesn't make sense to add dependents to a shared instance. |
3110 thisContext sender printOn:Transcript. Transcript cr. |
3112 Silently ignore ..." |
|
3113 |
|
3114 "/ Transcript show:'*** trying to make dependent on an integer: '. |
|
3115 "/ thisContext sender printOn:Transcript. Transcript cr. |
3111 |
3116 |
3112 "Created: / 28-07-2010 / 20:29:00 / cg" |
3117 "Created: / 28-07-2010 / 20:29:00 / cg" |
|
3118 "Modified: / 03-12-2018 / 17:48:53 / Stefan Vogel" |
|
3119 ! |
|
3120 |
|
3121 onChangeSend:selector to:someOne |
|
3122 "It doesn't make sense to add dependents to a shared instance. |
|
3123 Silently ignore ..." |
|
3124 |
|
3125 "/ Transcript show:'*** trying to make dependent on an integer: '. |
|
3126 "/ thisContext sender printOn:Transcript. Transcript cr. |
|
3127 |
|
3128 "Created: / 30-11-2018 / 18:02:50 / Stefan Vogel" |
|
3129 "Modified (comment): / 03-12-2018 / 17:49:05 / Stefan Vogel" |
3113 ! ! |
3130 ! ! |
3114 |
3131 |
3115 !Integer methodsFor:'double dispatching'! |
3132 !Integer methodsFor:'double dispatching'! |
3116 |
3133 |
3117 differenceFromFraction:aFraction |
3134 differenceFromFraction:aFraction |