--- a/PullDownMenu.st	Wed May 29 16:16:35 1996 +0200
+++ b/PullDownMenu.st	Wed May 29 16:38:27 1996 +0200
@@ -570,19 +570,20 @@
     titles := Array new:numberOfLabels.
 
     titleArray keysAndValuesDo:[:index :entry |
-	|e|
+        |e|
 
-	entry isImage ifTrue:[
-	    e := entry on:device
-	] ifFalse:[
-	    e := entry printString
-	].
-	titles at:index put:e
+        entry isImage ifTrue:[
+            e := entry on:device
+        ] ifFalse:[
+            e := entry printString
+        ].
+        titles at:index put:e
     ].
     shown ifTrue:[
-	self clear.
-	self redraw
+        self invalidate "/ clear; redraw
     ]
+
+    "Modified: 29.5.1996 / 16:21:00 / cg"
 !
 
 labels:titleArray selectors:selectorArray
@@ -701,9 +702,11 @@
 
     showSeparatingLines := aBoolean.
     shown ifTrue:[
-	self setMenuOrigins.
-	self redraw
+        self setMenuOrigins.
+        self invalidate
     ]
+
+    "Modified: 29.5.1996 / 16:21:06 / cg"
 ! !
 
 !PullDownMenu methodsFor:'drawing '!
@@ -1529,5 +1532,5 @@
 !PullDownMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.57 1996-05-29 10:22:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.58 1996-05-29 14:37:45 cg Exp $'
 ! !