--- a/TextView.st	Wed Mar 28 19:45:17 2001 +0200
+++ b/TextView.st	Wed Apr 04 10:06:27 2001 +0200
@@ -1439,21 +1439,21 @@
     |items m|
 
     items := #(
-			('copy'        copySelection  Copy)
-			('-'           nil            )
-			('font ...'    changeFont     )
-			('-'           nil            )
-			('search ...'  search         Find)
-			('goto ...'    gotoLine       GotoLine)
-			('-'           nil            )
-			('save as ...' save           SaveAs)
-			('print'       doPrint        Print)
-		).
+                        ('copy'        copySelection  Copy)
+                        ('-'           nil            )
+                        ('font ...'    changeFont     )
+                        ('-'           nil            )
+                        ('search ...'  search         Find)
+                        ('goto ...'    gotoLine       GotoLine)
+                        ('-'           nil            )
+                        ('save as ...' save           SaveAs)
+                        ('print'       doPrint        Print)
+                ).
 
     m := PopUpMenu itemList:items resources:resources.
 
-    self hasSelection ifFalse:[
-	m disable:#copySelection.
+    self hasSelectionForCopy ifFalse:[
+        m disable:#copySelection.
     ].
     ^ m
 
@@ -2914,6 +2914,13 @@
     ^ selectionStartLine notNil
 !
 
+hasSelectionForCopy
+    "return true, if there is a selection which can be copyied
+     (the same as #hasSelection, except for editfields in password-mode)"
+
+    ^ self hasSelection
+!
+
 makeSelectionVisible
     "scroll to make the selection visible"
 
@@ -3184,5 +3191,5 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.161 2001-01-09 16:05:07 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.162 2001-04-04 08:06:27 cg Exp $'
 ! !