--- a/PullDownMenu.st	Fri Mar 05 13:43:37 2004 +0100
+++ b/PullDownMenu.st	Fri Mar 05 13:44:44 2004 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -712,8 +714,8 @@
     selectors removeIndex:idx.
 
     shown ifTrue:[
-	self clear.
-	self redraw
+        self clearView.
+        self redraw
     ]
 
     "
@@ -728,8 +730,8 @@
      Delay waitForSeconds:3.
      m add:'help' selector:#help after:#file.
      m at:#help putMenu:(MenuView labels:#('foo' 'bar')
-			       selectors:#(foo bar)
-				receiver:nil).
+                               selectors:#(foo bar)
+                                receiver:nil).
 
      Delay waitForSeconds:3.
      m remove:'help'
@@ -1803,5 +1805,5 @@
 !PullDownMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.98 2004-02-26 12:19:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.99 2004-03-05 12:44:44 cg Exp $'
 ! !