--- a/EditField.st Sun Apr 13 22:24:04 2014 +0200
+++ b/EditField.st Sun Apr 13 23:00:32 2014 +0200
@@ -1345,7 +1345,7 @@
|l oldWidth|
l := someText.
- l size > 1 ifTrue:[
+ l notEmptyOrNil ifTrue:[
l := OrderedCollection with:(l at:1)
].
oldWidth := self widthOfContents.
@@ -1620,7 +1620,7 @@
#DeleteLine #GotoLine #EndOfLine #EndOfText
#CursorDown #CursorUp)>
- |leave oldContents newContents doAccept keyAction didAccept numArgs|
+ |leave oldContents newContents doAccept keyAction numArgs|
enabled ifFalse:[
^ self
@@ -1680,7 +1680,6 @@
doAccept == true ifTrue:[
self accept.
- didAccept := true.
].
keyAction notNil ifTrue:[
@@ -1886,15 +1885,10 @@
"return true, if I want the focus when
the mouse pointer enters"
- (UserPreferences current focusFollowsMouse ~~ false
- and:[(styleSheet at:#'editField.requestFocusOnPointerEnter' default:true)
- and:[self enabled
- and:[self isReadOnly not]]]
- ) ifTrue:[
- ^ true
- ].
-
- ^ false
+ ^ UserPreferences current focusFollowsMouse ~~ false
+ and:[(styleSheet at:#'editField.requestFocusOnPointerEnter' default:true)
+ and:[self enabled
+ and:[self isReadOnly not]]]
! !
!EditField methodsFor:'initialization & release'!
@@ -2008,7 +2002,7 @@
].
].
- isReadOnly not ifTrue:[
+ isReadOnly ifFalse:[
items := items ,
#(
('-' )
@@ -2189,8 +2183,7 @@
hasSelectionForCopy
"return true, if there is a selection which can be copied."
- passwordCharacter notNil ifTrue:[ ^ false ].
- ^ self hasSelection
+ ^ passwordCharacter isNil and:[self hasSelection]
!
isInputField
@@ -2335,7 +2328,7 @@
] ifFalse:[
len := (self listAt:1) size.
len ~~ 0 ifTrue:[
- super selectFromLine:1 col:1 toLine:1 col:len.
+ self selectFromLine:1 col:1 toLine:1 col:len.
].
typeOfSelection := nil
]
@@ -2372,10 +2365,10 @@
!EditField class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.234 2014-04-13 20:24:04 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.235 2014-04-13 21:00:32 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.234 2014-04-13 20:24:04 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.235 2014-04-13 21:00:32 stefan Exp $'
! !