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>
Wed, 03 Jan 1996 18:27:56 +0100
changeset 347 da278b0e623b
parent 346 b592bd9d8f76
child 348 6d40664c2bef
*** empty log message ***
DevWorkst.st file | annotate | diff | comparison | revisions
DeviceWorkstation.st file | annotate | diff | comparison | revisions 
--- a/DevWorkst.st	Wed Jan 03 15:48:37 1996 +0100
+++ b/DevWorkst.st	Wed Jan 03 18:27:56 1996 +0100
@@ -401,6 +401,9 @@
 
     |wg tops v dev|
 
+    AllScreens isNil ifTrue:[
+    	^ Display
+    ].
     AllScreens size == 1 ifTrue:[
 	^ AllScreens anElement
     ].
@@ -3716,6 +3719,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.62 1996-01-02 14:09:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.63 1996-01-03 17:27:56 cg Exp $'
 ! !
 DeviceWorkstation initialize!
--- a/DeviceWorkstation.st	Wed Jan 03 15:48:37 1996 +0100
+++ b/DeviceWorkstation.st	Wed Jan 03 18:27:56 1996 +0100
@@ -401,6 +401,9 @@
 
     |wg tops v dev|
 
+    AllScreens isNil ifTrue:[
+    	^ Display
+    ].
     AllScreens size == 1 ifTrue:[
 	^ AllScreens anElement
     ].
@@ -3716,6 +3719,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.62 1996-01-02 14:09:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.63 1996-01-03 17:27:56 cg Exp $'
 ! !
 DeviceWorkstation initialize!
hg/stx-libview