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.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Tue, 21 Jan 1997 11:02:05 +0100
changeset 1258 69fb89a53ff3
parent 1257 4d702924bfb5
child 1259 60af09384d13
*** empty log message ***
DevWorkst.st file | annotate | diff | comparison | revisions
DeviceWorkstation.st file | annotate | diff | comparison | revisions 
--- a/DevWorkst.st	Mon Jan 20 12:48:04 1997 +0100
+++ b/DevWorkst.st	Tue Jan 21 11:02:05 1997 +0100
@@ -646,7 +646,7 @@
      It is not guaranteed, that a particular display device supports this."
 
     rootView isNil ifTrue:[
-	rootView := DisplayRootView on:self
+	rootView := DisplayRootView onDevice:self
     ].
     ^ rootView
 
@@ -2361,6 +2361,7 @@
     "evaluate the argument, aBlock for all of my known views"
 
     |nViews "{Class: SmallInteger }"|
+
 "/    idToViewMapping notNil ifTrue:[
 "/        idToViewMapping keysAndValuesDo:[:id :aView |
 "/            aView notNil ifTrue:[
@@ -2368,21 +2369,20 @@
 "/            ]
 "/      ]
         
-                
     knownViews notNil ifTrue:[
-      nViews := knownViews size.
-      1 to:nViews do:[:index |
-          |aView|
-
-          aView := knownViews at:index.
-          aView notNil ifTrue:[
-              aView == 0 ifTrue:[
-                  knownViews at:index put:nil
-              ] ifFalse:[
-                  aBlock value:aView
-              ]
-          ]
-      ]
+        nViews := knownViews size.
+        1 to:nViews do:[:index |
+            |aView|
+
+            aView := knownViews at:index.
+            aView notNil ifTrue:[
+                aView == 0 ifTrue:[
+                    knownViews at:index put:nil
+                ] ifFalse:[
+                    aBlock value:aView
+                ]
+            ]
+        ]
     ]
 
     "
@@ -4972,6 +4972,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.164 1997-01-18 15:59:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.165 1997-01-21 10:02:05 cg Exp $'
 ! !
 DeviceWorkstation initialize!
--- a/DeviceWorkstation.st	Mon Jan 20 12:48:04 1997 +0100
+++ b/DeviceWorkstation.st	Tue Jan 21 11:02:05 1997 +0100
@@ -646,7 +646,7 @@
      It is not guaranteed, that a particular display device supports this."
 
     rootView isNil ifTrue:[
-	rootView := DisplayRootView on:self
+	rootView := DisplayRootView onDevice:self
     ].
     ^ rootView
 
@@ -2361,6 +2361,7 @@
     "evaluate the argument, aBlock for all of my known views"
 
     |nViews "{Class: SmallInteger }"|
+
 "/    idToViewMapping notNil ifTrue:[
 "/        idToViewMapping keysAndValuesDo:[:id :aView |
 "/            aView notNil ifTrue:[
@@ -2368,21 +2369,20 @@
 "/            ]
 "/      ]
         
-                
     knownViews notNil ifTrue:[
-      nViews := knownViews size.
-      1 to:nViews do:[:index |
-          |aView|
-
-          aView := knownViews at:index.
-          aView notNil ifTrue:[
-              aView == 0 ifTrue:[
-                  knownViews at:index put:nil
-              ] ifFalse:[
-                  aBlock value:aView
-              ]
-          ]
-      ]
+        nViews := knownViews size.
+        1 to:nViews do:[:index |
+            |aView|
+
+            aView := knownViews at:index.
+            aView notNil ifTrue:[
+                aView == 0 ifTrue:[
+                    knownViews at:index put:nil
+                ] ifFalse:[
+                    aBlock value:aView
+                ]
+            ]
+        ]
     ]
 
     "
@@ -4972,6 +4972,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.164 1997-01-18 15:59:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.165 1997-01-21 10:02:05 cg Exp $'
 ! !
 DeviceWorkstation initialize!
hg/stx-libview