# HG changeset patch # User Jan Vrany # Date 1469429801 -3600 # Node ID 974c719caa4fb0eeba66513b530c6ac5a40fe67c # Parent 589cf9d699fe114ce1d0419f5a7144e8e443d1e1 Removed leftover halt in EditFieldWitnCompletion >> doCompletionThenSend: diff -r 589cf9d699fe -r 974c719caa4f EditFieldWithCompletion.st --- a/EditFieldWithCompletion.st Mon Jul 25 20:07:33 2016 +0100 +++ b/EditFieldWithCompletion.st Mon Jul 25 07:56:41 2016 +0100 @@ -1,5 +1,3 @@ -"{ Encoding: utf8 }" - " COPYRIGHT (c) 2006 by eXept Software AG All Rights Reserved @@ -342,15 +340,15 @@ best := completionInfo first. options := completionInfo second. - best isNil ifTrue:[self halt ]. -"/ (options includes:best) ifFalse:[ -"/ best := options -"/ detect:[:e | e asString startsWith:best asString ] -"/ ifNone:[ best ] -"/ ]. -"/ options isSortedCollection ifFalse:[ -"/ options := options asSortedCollection:[:a :b | a displayString < b displayString ] -"/ ]. +"/ best isNil ifTrue:[self halt ]. + (options includes:best) ifFalse:[ + best := options + detect:[:e | e asString startsWith:best asString ] + ifNone:[ best ] + ]. + options isSortedCollection ifFalse:[ + options := options asSortedCollection:[:a :b | a displayString < b displayString ] + ]. self sensor pushUserEvent:selector for:self @@ -360,7 +358,7 @@ "Modified: / 09-08-2009 / 02:51:44 / Jan Vrany " "Modified: / 18-11-2011 / 14:33:56 / cg" "Modified (format): / 20-11-2011 / 09:42:25 / cg" - "Modified: / 20-04-2012 / 18:20:08 / Jan Vrany " + "Modified: / 25-07-2016 / 07:55:26 / Jan Vrany " ! doTabCompletion @@ -452,6 +450,11 @@ ^ '$Header$' ! +version_HG + + ^ '$Changeset: $' +! + version_SVN ^ '$Id$' ! !