Mercurial Mercurial > hg > stx-libview / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
eliminated references to RootView
authorClaus Gittinger <cg@exept.de>
Tue, 28 May 1996 18:29:33 +0200
changeset 729 d2fdca1c2895
parent 728 04d0a262b82e
child 730 43d9c5848424
eliminated references to RootView
DevWorkst.st file | annotate | diff | comparison | revisions
DeviceWorkstation.st file | annotate | diff | comparison | revisions
ShadowV.st file | annotate | diff | comparison | revisions
ShadowView.st file | annotate | diff | comparison | revisions
SimpleView.st file | annotate | diff | comparison | revisions
Workstat.st file | annotate | diff | comparison | revisions
Workstation.st file | annotate | diff | comparison | revisions
XWorkstat.st file | annotate | diff | comparison | revisions
XWorkstation.st file | annotate | diff | comparison | revisions 
--- a/DevWorkst.st	Tue May 28 18:25:50 1996 +0200
+++ b/DevWorkst.st	Tue May 28 18:29:33 1996 +0200
@@ -578,6 +578,24 @@
     multiClickTimeDelta := milliseconds
 !
 
+rootView
+    "return the rootView (i.e. the background window) on the receiver screen.
+     It is not guaranteed, that a particular display device supports this."
+
+    rootView isNil ifTrue:[
+        rootView := DisplayRootView on:self
+    ].
+    ^ rootView
+
+    "
+     |v|
+     v := Display rootView.
+     v paint:Color red.
+     v noClipByChildren.
+     v fillRectangleX:10 y:10 width:100 height:100.  
+    "
+!
+
 translatePoint:aPoint from:windowId1 to:windowId2
     "given a point in window1 (defined by its id), return the coordinate of
      aPoint in window2 (defined by its id).
@@ -4113,6 +4131,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.91 1996-05-20 08:47:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.92 1996-05-28 16:27:48 cg Exp $'
 ! !
 DeviceWorkstation initialize!
--- a/DeviceWorkstation.st	Tue May 28 18:25:50 1996 +0200
+++ b/DeviceWorkstation.st	Tue May 28 18:29:33 1996 +0200
@@ -578,6 +578,24 @@
     multiClickTimeDelta := milliseconds
 !
 
+rootView
+    "return the rootView (i.e. the background window) on the receiver screen.
+     It is not guaranteed, that a particular display device supports this."
+
+    rootView isNil ifTrue:[
+        rootView := DisplayRootView on:self
+    ].
+    ^ rootView
+
+    "
+     |v|
+     v := Display rootView.
+     v paint:Color red.
+     v noClipByChildren.
+     v fillRectangleX:10 y:10 width:100 height:100.  
+    "
+!
+
 translatePoint:aPoint from:windowId1 to:windowId2
     "given a point in window1 (defined by its id), return the coordinate of
      aPoint in window2 (defined by its id).
@@ -4113,6 +4131,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.91 1996-05-20 08:47:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.92 1996-05-28 16:27:48 cg Exp $'
 ! !
 DeviceWorkstation initialize!
--- a/ShadowV.st	Tue May 28 18:25:50 1996 +0200
+++ b/ShadowV.st	Tue May 28 18:29:33 1996 +0200
@@ -150,7 +150,7 @@
 	    right := width - shW.
 	    bot := height - shH.
 
-	    root := DisplayRootView new.
+	    root := device rootView.
 
 	    clr0 := Color colorId:0.
 	    clr1 := Color colorId:1.
@@ -225,5 +225,5 @@
 !ShadowView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/ShadowV.st,v 1.18 1996-05-12 20:02:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/ShadowV.st,v 1.19 1996-05-28 16:28:09 cg Exp $'
 ! !
--- a/ShadowView.st	Tue May 28 18:25:50 1996 +0200
+++ b/ShadowView.st	Tue May 28 18:29:33 1996 +0200
@@ -150,7 +150,7 @@
 	    right := width - shW.
 	    bot := height - shH.
 
-	    root := DisplayRootView new.
+	    root := device rootView.
 
 	    clr0 := Color colorId:0.
 	    clr1 := Color colorId:1.
@@ -225,5 +225,5 @@
 !ShadowView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ShadowView.st,v 1.18 1996-05-12 20:02:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ShadowView.st,v 1.19 1996-05-28 16:28:09 cg Exp $'
 ! !
--- a/SimpleView.st	Tue May 28 18:25:50 1996 +0200
+++ b/SimpleView.st	Tue May 28 18:29:33 1996 +0200
@@ -2007,7 +2007,7 @@
 	sumY := sumY + org y.
 	currentView := currentView superView
     ].
-    (aView isNil or:[aView == RootView]) ifTrue:[
+    (aView isNil or:[aView == device rootView]) ifTrue:[
 	"return relative to screen ..."
 	^ (sumX @ sumY)
     ].
@@ -6100,6 +6100,6 @@
 !SimpleView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.98 1996-05-28 15:57:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.99 1996-05-28 16:28:33 cg Exp $'
 ! !
 SimpleView initialize!
--- a/Workstat.st	Tue May 28 18:25:50 1996 +0200
+++ b/Workstat.st	Tue May 28 18:29:33 1996 +0200
@@ -122,11 +122,7 @@
         ].
 
         "
-         if we found any display, make it the default, and
-         initialize the global RootView.
-         RootView is a historic leftover and does not really make
-         sense in multi-display operation. Try not to use it, it may
-         vanish over time (use aDevice rootView)
+         if we found any display, make it the default.
         "
         Display notNil ifTrue:[
             DeviceWorkstation default:Display.
@@ -154,6 +150,6 @@
 !Workstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/Workstat.st,v 1.18 1996-04-25 16:41:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/Workstat.st,v 1.19 1996-05-28 16:28:57 cg Exp $'
 ! !
 Workstation initialize!
--- a/Workstation.st	Tue May 28 18:25:50 1996 +0200
+++ b/Workstation.st	Tue May 28 18:29:33 1996 +0200
@@ -122,11 +122,7 @@
         ].
 
         "
-         if we found any display, make it the default, and
-         initialize the global RootView.
-         RootView is a historic leftover and does not really make
-         sense in multi-display operation. Try not to use it, it may
-         vanish over time (use aDevice rootView)
+         if we found any display, make it the default.
         "
         Display notNil ifTrue:[
             DeviceWorkstation default:Display.
@@ -154,6 +150,6 @@
 !Workstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/Workstation.st,v 1.18 1996-04-25 16:41:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/Workstation.st,v 1.19 1996-05-28 16:28:57 cg Exp $'
 ! !
 Workstation initialize!
--- a/XWorkstat.st	Tue May 28 18:25:50 1996 +0200
+++ b/XWorkstat.st	Tue May 28 18:29:33 1996 +0200
@@ -535,21 +535,6 @@
     "
 !
 
-rootView
-    rootView isNil ifTrue:[
-	rootView := DisplayRootView on:self
-    ].
-    ^ rootView
-
-    "
-     |v|
-     v := Display rootView.
-     v paint:Color red.
-     v noClipByChildren.
-     v fillRectangleX:10 y:10 width:100 height:100.  
-    "
-!
-
 serverVendor
     "return the X-server vendor string - this should normally not be of
      any interest, but can be for special cases
@@ -7955,6 +7940,6 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/XWorkstat.st,v 1.131 1996-05-26 13:33:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/XWorkstat.st,v 1.132 1996-05-28 16:29:33 cg Exp $'
 ! !
 XWorkstation initialize!
--- a/XWorkstation.st	Tue May 28 18:25:50 1996 +0200
+++ b/XWorkstation.st	Tue May 28 18:29:33 1996 +0200
@@ -535,21 +535,6 @@
     "
 !
 
-rootView
-    rootView isNil ifTrue:[
-	rootView := DisplayRootView on:self
-    ].
-    ^ rootView
-
-    "
-     |v|
-     v := Display rootView.
-     v paint:Color red.
-     v noClipByChildren.
-     v fillRectangleX:10 y:10 width:100 height:100.  
-    "
-!
-
 serverVendor
     "return the X-server vendor string - this should normally not be of
      any interest, but can be for special cases
@@ -7955,6 +7940,6 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.131 1996-05-26 13:33:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.132 1996-05-28 16:29:33 cg Exp $'
 ! !
 XWorkstation initialize!
hg/stx-libview