# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1280745260 -7200
# Node ID 6899c32d29a985806567d598d3d2d63ba3247fae
# Parent  fbf5437b15fb94c7ef2b718c4ee1260981b01d92
added: #addDependent:

diff -r fbf5437b15fb -r 6899c32d29a9 Integer.st
--- a/Integer.st	Mon Aug 02 12:33:35 2010 +0200
+++ b/Integer.st	Mon Aug 02 12:34:20 2010 +0200
@@ -1139,7 +1139,6 @@
     ^ self == Integer
 ! !
 
-
 !Integer methodsFor:'Compatibility-Dolphin'!
 
 & aNumber
@@ -2403,6 +2402,15 @@
     "Modified: / 24.2.1998 / 10:07:29 / stefan"
 ! !
 
+!Integer methodsFor:'dependents access'!
+
+addDependent:anObject
+    Transcript show:'*** trying to make dependent on an integer: '.
+    thisContext sender printOn:Transcript. Transcript cr.
+
+    "Created: / 28-07-2010 / 20:29:00 / cg"
+! !
+
 !Integer methodsFor:'double dispatching'!
 
 differenceFromFraction:aFraction
@@ -3921,7 +3929,6 @@
     "Modified: 15.10.1997 / 18:43:49 / cg"
 ! !
 
-
 !Integer methodsFor:'special access'!
 
 exponent
@@ -4700,11 +4707,11 @@
 !Integer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.247 2010-08-02 10:24:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.248 2010-08-02 10:34:20 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.247 2010-08-02 10:24:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.248 2010-08-02 10:34:20 cg Exp $'
 ! !
 
 Integer initialize!