--- 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$'
! !