--- a/LabelledEnterField.st	Sat Nov 10 00:27:46 2018 +0100
+++ b/LabelledEnterField.st	Sat Nov 10 00:28:03 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
@@ -11,6 +13,8 @@
 "
 "{ Package: 'stx:libwidg2' }"
 
+"{ NameSpace: Smalltalk }"
+
 View subclass:#LabelledEnterField
 	instanceVariableNames:'labelField textField'
 	classVariableNames:''
@@ -208,32 +212,23 @@
 
 !LabelledEnterField methodsFor:'queries'!
 
-preferredExtent
+computePreferredExtent
     "return the preferredExtent from the components sizes."
 
     |p lx ly ix iy|
 
-    "/ If I have an explicit preferredExtent..
-    explicitExtent notNil ifTrue:[
-        ^ explicitExtent
-    ].
-
-    "/ If I have a cached preferredExtent value..
-    preferredExtent notNil ifTrue:[
-        ^ preferredExtent
-    ].
-
     p := labelField preferredExtent.
     lx := p x. ly := p y.
     p := textField preferredExtent.
     ix := p x. iy := p y.
     ^ (lx + ix) @ (ly max:iy)
 
-    "Modified: 19.7.1996 / 20:44:46 / cg"
+    "Created: / 09-11-2018 / 19:56:04 / Claus Gittinger"
 ! !
 
 !LabelledEnterField class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/LabelledEnterField.st,v 1.23 2008-10-26 20:13:28 stefan Exp $'
+    ^ '$Header$'
 ! !
+