--- a/SimpleView.st	Sat Jul 23 21:50:46 2016 +0200
+++ b/SimpleView.st	Sat Jul 23 21:50:59 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
@@ -16,25 +14,25 @@
 "{ NameSpace: Smalltalk }"
 
 DisplaySurface subclass:#SimpleView
-        instanceVariableNames:'superView subViews components styleSheet resources border unused
-                viewShape top left flagBits relativeOrigin relativeExtent
-                relativeCorner originRule extentRule cornerRule insets layout
-                shown hiddenOnRealize name level margin innerClipRect shadowColor
-                lightColor bitGravity viewGravity controller windowGroup
-                preferredExtent explicitExtent dependents layoutManager
-                visibilityChannel helpKey dropTarget'
-        classVariableNames:'CentPoint DefaultBorderColor DefaultBorderWidth
-                DefaultFocusBorderWidth DefaultFocusColor DefaultLightColor
-                DefaultShadowColor DefaultStyle DefaultViewBackgroundColor
-                FlagBeingDestroyed FlagCanTab FlagCornerChanged
-                FlagDoNotRequestFocusOnPointerEnter FlagExtentChanged
-                FlagExtentChangedBeforeCreated FlagHasExplicitExtent
-                FlagHiddenOnRealize FlagIsMDIChild FlagIsUnmappedModalBox
-                FlagNativeWidget FlagOriginChanged FlagRequestFocusOnPointerEnter
-                FlagTakeFocusWhenMapped Grey ReturnFocusWhenClosingModalBoxes
-                StyleSheet ViewSpacing'
-        poolDictionaries:''
-        category:'Views-Basic'
+	instanceVariableNames:'superView subViews components styleSheet resources border unused
+		viewShape top left flagBits relativeOrigin relativeExtent
+		relativeCorner originRule extentRule cornerRule insets layout
+		shown hiddenOnRealize name level margin innerClipRect shadowColor
+		lightColor bitGravity viewGravity controller windowGroup
+		preferredExtent explicitExtent dependents layoutManager
+		visibilityChannel helpKey dropTarget'
+	classVariableNames:'CentPoint DefaultBorderColor DefaultBorderWidth
+		DefaultFocusBorderWidth DefaultFocusColor DefaultLightColor
+		DefaultShadowColor DefaultStyle DefaultViewBackgroundColor
+		FlagBeingDestroyed FlagCanTab FlagCornerChanged
+		FlagDoNotRequestFocusOnPointerEnter FlagExtentChanged
+		FlagExtentChangedBeforeCreated FlagHasExplicitExtent
+		FlagHiddenOnRealize FlagIsMDIChild FlagIsUnmappedModalBox
+		FlagNativeWidget FlagOriginChanged FlagRequestFocusOnPointerEnter
+		FlagTakeFocusWhenMapped Grey ReturnFocusWhenClosingModalBoxes
+		StyleSheet ViewSpacing'
+	poolDictionaries:''
+	category:'Views-Basic'
 !
 
 SimpleView class instanceVariableNames:'ClassResources DefaultFont'
@@ -45,38 +43,38 @@
 !
 
 ProceedingNotification subclass:#AboutToOpenBoxNotificationSignal
-        instanceVariableNames:''
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:SimpleView
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:SimpleView
 !
 
 Object subclass:#ViewShape
-        instanceVariableNames:''
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:SimpleView
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:SimpleView
 !
 
 ProceedingNotification subclass:#BoxClosedNotificationSignal
-        instanceVariableNames:''
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:SimpleView
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:SimpleView
 !
 
 SimpleView::ViewShape subclass:#RoundViewShape
-        instanceVariableNames:''
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:SimpleView
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:SimpleView
 !
 
 SimpleView::ViewShape subclass:#ArbitraryViewShape
-        instanceVariableNames:'viewShapeForm borderShapeForm'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:SimpleView
+	instanceVariableNames:'viewShapeForm borderShapeForm'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:SimpleView
 !
 
 !SimpleView class methodsFor:'documentation'!
@@ -10552,7 +10550,7 @@
 
     area := Rectangle left:x top:y width:w height:h.
     oldClip := gc clippingBoundsOrNil.
-    self clippingRectangle:area.
+    self clippingBounds:area.
 
     self clearExposedAreaInRedraw ifTrue:[
         "/ win95 workaround: non-existing bg-pixmap support (obsolete)
@@ -10567,7 +10565,7 @@
 
     "/ draw them afterwards - they can be used to replace heavy-weight views.
     self redrawComponentsIn:area.
-    self clippingRectangle:oldClip.
+    self clippingBounds:oldClip.
 
     "Modified: 19.4.1997 / 11:55:08 / cg"
 !