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.
oops - win32 does not like nil min/max extents
authorClaus Gittinger <cg@exept.de>
Fri, 09 Jul 1999 17:07:11 +0200
changeset 2785 7262b3b54f7b
parent 2784 cd0a37151aba
child 2786 a6a053ee4c76
oops - win32 does not like nil min/max extents
StandardSystemView.st file | annotate | diff | comparison | revisions
StdSysV.st file | annotate | diff | comparison | revisions 
--- a/StandardSystemView.st	Thu Jul 08 11:36:08 1999 +0200
+++ b/StandardSystemView.st	Fri Jul 09 17:07:11 1999 +0200
@@ -639,6 +639,12 @@
 
     maxExtent ~= max ifTrue:[
         maxExtent := max.
+        maxExtent x isNil ifTrue:[
+            maxExtent := 9999 @ maxExtent y.
+        ].
+        maxExtent y isNil ifTrue:[
+            maxExtent := maxExtent x @ 9999.
+        ].
 
         drawableId notNil ifTrue:[
             device setWindowMinExtent:nil maxExtent:max in:drawableId
@@ -1474,6 +1480,6 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.120 1999-05-27 11:40:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.121 1999-07-09 15:07:11 cg Exp $'
 ! !
 StandardSystemView initialize!
--- a/StdSysV.st	Thu Jul 08 11:36:08 1999 +0200
+++ b/StdSysV.st	Fri Jul 09 17:07:11 1999 +0200
@@ -639,6 +639,12 @@
 
     maxExtent ~= max ifTrue:[
         maxExtent := max.
+        maxExtent x isNil ifTrue:[
+            maxExtent := 9999 @ maxExtent y.
+        ].
+        maxExtent y isNil ifTrue:[
+            maxExtent := maxExtent x @ 9999.
+        ].
 
         drawableId notNil ifTrue:[
             device setWindowMinExtent:nil maxExtent:max in:drawableId
@@ -1474,6 +1480,6 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/StdSysV.st,v 1.120 1999-05-27 11:40:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/StdSysV.st,v 1.121 1999-07-09 15:07:11 cg Exp $'
 ! !
 StandardSystemView initialize!
hg/stx-libview