--- a/DisplayRootView.st Tue Oct 04 19:10:54 1994 +0100
+++ b/DisplayRootView.st Mon Oct 10 03:30:48 1994 +0100
@@ -1,6 +1,6 @@
"
COPYRIGHT (c) 1988 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -19,9 +19,9 @@
DisplayRootView comment:'
COPYRIGHT (c) 1988 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
-$Header: /cvs/stx/stx/libview/DisplayRootView.st,v 1.7 1994-08-05 01:13:51 claus Exp $
+$Header: /cvs/stx/stx/libview/DisplayRootView.st,v 1.8 1994-10-10 02:29:37 claus Exp $
'!
Smalltalk at:#RootView put:nil!
@@ -31,7 +31,7 @@
copyright
"
COPYRIGHT (c) 1988 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -44,7 +44,7 @@
version
"
-$Header: /cvs/stx/stx/libview/DisplayRootView.st,v 1.7 1994-08-05 01:13:51 claus Exp $
+$Header: /cvs/stx/stx/libview/DisplayRootView.st,v 1.8 1994-10-10 02:29:37 claus Exp $
"
!
@@ -59,7 +59,7 @@
initialize
Display isNil ifTrue:[
- Workstation initialize
+ Workstation initialize
].
super initialize
! !
@@ -69,7 +69,7 @@
new
"since there is only one RootView - catch new"
RootView isNil ifTrue:[
- RootView := super new
+ RootView := super new
].
^ RootView
! !
@@ -107,6 +107,15 @@
^ nil
! !
+!DisplayRootView methodsFor:'destroying'!
+
+destroy
+ "catch destroy - some windowmanagers get confused if
+ we destroy the rootWindow if its a virtual root window"
+
+ ^ self
+! !
+
!DisplayRootView methodsFor:'queries'!
canDrop:anObjectOrCollection
@@ -126,11 +135,11 @@
errorOccured := false.
device class deviceErrorSignal handle:[:ex |
- errorOccured := true.
- ex return
+ errorOccured := true.
+ ex return
] do:[
- self enableButtonEvents.
- device synchronizeOutput.
+ self enableButtonEvents.
+ device synchronizeOutput.
].
^ errorOccured