--- a/WGroup.st Thu Dec 14 21:56:38 1995 +0100
+++ b/WGroup.st Thu Dec 14 22:57:14 1995 +0100
@@ -416,6 +416,23 @@
"return the views accociated to this windowGroup"
^ views
+!
+
+device
+ "return the device, we receive our events from.
+ The code below implies, that a single WindowGroup cannot hold
+ views from different display devices (is this a serious limitation ?)."
+
+ (views notNil and:[views notEmpty]) ifTrue:[
+ ^ views first device
+ ].
+ (topViews notNil and:[topViews notEmpty]) ifTrue:[
+ ^ topViews first device
+ ].
+ ^ nil
+
+ "Created: 13.12.1995 / 14:00:45 / stefan"
+ "Modified: 13.12.1995 / 14:18:11 / stefan"
! !
!WindowGroup methodsFor:'activation / deactivation'!
@@ -512,7 +529,7 @@
"
myProcess suspendAction:[
|dev|
- dev := self device. "/ mhmh - how about mySensor device ?
+ dev := self device.
dev notNil ifTrue:[dev flush].
].
@@ -690,7 +707,7 @@
ex return
] do:[
"/ no more events. Flush device output. This may produce more events.
- self device flush. "/ mhmh - how about mySensor device ?
+ self device flush.
"
if modal, break out of the wait after some time
@@ -1033,8 +1050,8 @@
"
oldCursors := IdentityDictionary new.
self allViewsDo:[:aView |
- oldCursors at:aView put:(aView cursor).
- aView cursor:aCursor now:false
+ oldCursors at:aView put:(aView cursor).
+ aView cursor:aCursor now:false
].
dev flush. "/sync.
@@ -1084,6 +1101,6 @@
!WindowGroup class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/Attic/WGroup.st,v 1.45 1995-12-14 20:56:38 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/Attic/WGroup.st,v 1.46 1995-12-14 21:57:14 cg Exp $'
! !
WindowGroup initialize!
--- a/WindowGroup.st Thu Dec 14 21:56:38 1995 +0100
+++ b/WindowGroup.st Thu Dec 14 22:57:14 1995 +0100
@@ -416,6 +416,23 @@
"return the views accociated to this windowGroup"
^ views
+!
+
+device
+ "return the device, we receive our events from.
+ The code below implies, that a single WindowGroup cannot hold
+ views from different display devices (is this a serious limitation ?)."
+
+ (views notNil and:[views notEmpty]) ifTrue:[
+ ^ views first device
+ ].
+ (topViews notNil and:[topViews notEmpty]) ifTrue:[
+ ^ topViews first device
+ ].
+ ^ nil
+
+ "Created: 13.12.1995 / 14:00:45 / stefan"
+ "Modified: 13.12.1995 / 14:18:11 / stefan"
! !
!WindowGroup methodsFor:'activation / deactivation'!
@@ -512,7 +529,7 @@
"
myProcess suspendAction:[
|dev|
- dev := self device. "/ mhmh - how about mySensor device ?
+ dev := self device.
dev notNil ifTrue:[dev flush].
].
@@ -690,7 +707,7 @@
ex return
] do:[
"/ no more events. Flush device output. This may produce more events.
- self device flush. "/ mhmh - how about mySensor device ?
+ self device flush.
"
if modal, break out of the wait after some time
@@ -1033,8 +1050,8 @@
"
oldCursors := IdentityDictionary new.
self allViewsDo:[:aView |
- oldCursors at:aView put:(aView cursor).
- aView cursor:aCursor now:false
+ oldCursors at:aView put:(aView cursor).
+ aView cursor:aCursor now:false
].
dev flush. "/sync.
@@ -1084,6 +1101,6 @@
!WindowGroup class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.45 1995-12-14 20:56:38 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.46 1995-12-14 21:57:14 cg Exp $'
! !
WindowGroup initialize!