--- 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 $'
! !