TranslatingWrapper.st
changeset 406 16d990bcde6e
parent 365 47e0d48fd769
child 1220 39e5e28042da
--- a/TranslatingWrapper.st	Mon Feb 10 14:49:00 1997 +0100
+++ b/TranslatingWrapper.st	Mon Feb 10 19:29:26 1997 +0100
@@ -216,22 +216,15 @@
 !TranslatingWrapper methodsFor:'displaying'!
 
 displayOn:aGC
-    |oldTranslation oldPaint oldBgPaint|
+    |oldTranslation|
 
     oldTranslation := aGC translation.
-    oldPaint := aGC paint.
-    oldBgPaint := aGC backgroundPaint.
-
-    aGC translation:(origin + aGC translation).
-    aGC paint:fgColor on:bgColor.
-
+    aGC translateBy:origin.
     component displayOn:aGC.
-
     aGC translation:oldTranslation.
-    aGC paint:oldPaint on:oldBgPaint.
 
     "Created: 26.5.1996 / 15:27:54 / cg"
-    "Modified: 26.5.1996 / 16:13:44 / cg"
+    "Modified: 10.2.1997 / 19:29:21 / cg"
 ! !
 
 !TranslatingWrapper methodsFor:'initialization'!
@@ -260,5 +253,5 @@
 !TranslatingWrapper class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/TranslatingWrapper.st,v 1.4 1997-01-14 17:00:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/TranslatingWrapper.st,v 1.5 1997-02-10 18:29:26 cg Exp $'
 ! !