PopUpView.st
changeset 8274 84c74b21c9a7
parent 8229 c097b46a0b6b
child 8658 c7254c6b2add
--- a/PopUpView.st	Fri Jan 26 07:39:03 2018 +0100
+++ b/PopUpView.st	Fri Jan 26 10:45:40 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -129,9 +131,8 @@
 !
 
 haveControl:aBoolean
-    "set the flag which decides whether the pointers can be grab
-     during mapped.
-    "
+    "set the flag which tells me that I have control (focus)"
+
     haveControl := aBoolean.
 
     "Modified (comment): / 29-11-2017 / 17:34:20 / cg"