WindowGroup.st
changeset 7089 5ba462b944e8
parent 6861 7b39bcb72f6e
child 7131 42d5af0d9bd3
--- a/WindowGroup.st	Tue Dec 22 04:41:58 2015 +0000
+++ b/WindowGroup.st	Wed Dec 30 00:22:06 2015 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -2781,7 +2779,7 @@
     |oldCursors dev deviceCursor retVal|
 
     dev := self graphicsDevice.   
-    (dev isNil or:[aCursor isNil] or:[inWithCursorDoBlock == true]) ifTrue:[
+    (dev isNil or:[aCursor isNil or:[inWithCursorDoBlock == true]]) ifTrue:[
         ^ aBlock value
     ].
 
@@ -2867,11 +2865,11 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.343 2015-05-11 15:27:27 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.343 2015-05-11 15:27:27 cg Exp $'
+    ^ '$Header$'
 ! !