--- a/CheckLabel.st	Tue Apr 23 16:31:06 2019 +0200
+++ b/CheckLabel.st	Tue Apr 23 19:19:21 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1998 by eXept Software AG
               All Rights Reserved
@@ -11,6 +13,8 @@
 "
 "{ Package: 'stx:libwidg' }"
 
+"{ NameSpace: Smalltalk }"
+
 Label subclass:#CheckLabel
 	instanceVariableNames:'hasFocus'
 	classVariableNames:''
@@ -46,12 +50,13 @@
 
 !CheckLabel methodsFor:'accessing'!
 
-hasFocus:something
+hasFocus:aBoolean
     "set the value of the instance variable 'hasFocus' (automatically generated)"
 
-    hasFocus := something.
+    hasFocus := aBoolean.
 
-    "Created: / 17.9.1998 / 14:17:51 / cg"
+    "Created: / 17-09-1998 / 14:17:51 / cg"
+    "Modified (format): / 23-04-2019 / 19:19:10 / Claus Gittinger"
 ! !
 
 !CheckLabel methodsFor:'queries'!
@@ -59,9 +64,10 @@
 hasFocus
     "return the value of the instance variable 'hasFocus' (automatically generated)"
 
-    ^ hasFocus
+    ^ hasFocus ? false
 
-    "Created: / 17.9.1998 / 14:17:51 / cg"
+    "Created: / 17-09-1998 / 14:17:51 / cg"
+    "Modified: / 23-04-2019 / 19:12:20 / Claus Gittinger"
 ! !
 
 !CheckLabel methodsFor:'redrawing'!
@@ -77,6 +83,6 @@
 !CheckLabel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/CheckLabel.st,v 1.5 2014-12-02 18:19:38 cg Exp $'
+    ^ '$Header$'
 ! !