--- a/ObjectView.st Wed Mar 03 17:52:13 2004 +0100
+++ b/ObjectView.st Fri Mar 05 13:43:37 2004 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -1107,8 +1109,8 @@
"redraw complete View"
shown ifTrue:[
- self clear.
- self redrawObjects
+ self clearView.
+ self redrawObjects
]
!
@@ -1753,7 +1755,7 @@
gridPixmap := nil.
shown ifTrue:[
self viewBackground:White.
- self clear.
+ self clearView.
].
gridShown ifTrue:[
@@ -3323,5 +3325,5 @@
!ObjectView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.100 2004-02-26 12:19:06 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.101 2004-03-05 12:43:37 cg Exp $'
! !