StandardSystemView.st
changeset 3393 a7f33744dd82
parent 3383 111b54361247
child 3408 42384f123133
--- a/StandardSystemView.st	Mon Dec 18 20:30:34 2000 +0100
+++ b/StandardSystemView.st	Thu Dec 21 14:07:47 2000 +0100
@@ -1296,12 +1296,12 @@
     super create.
 
     iconView notNil ifTrue:[
-	iconView create.
-	device setWindowIconWindow:iconView in:drawableId.
-	iconView setRealized:true.
+        iconView create.
+        device setWindowIconWindow:iconView in:drawableId.
+        iconView setRealized:true.
     ].
     iconLabel notNil ifTrue:[
-	device setIconName:iconLabel string in:drawableId
+        device setIconName:iconLabel string in:drawableId
     ]
 
     "Modified: 10.6.1996 / 20:14:50 / cg"
@@ -1337,7 +1337,7 @@
 physicalCreate
     "common code for create & recreate"
 
-    |l icn icnMask org listener ret|
+    |l icn icnMask listener ret|
 
     l := self windowLabelFor:label.
 
@@ -1353,12 +1353,10 @@
     "/ and provide another origin (by payching my origin via setOrigin:).
     WindowSensor preViewCreateNotification:self.
 
-    org := left @ top.
-
     drawableId := device 
                       createWindowFor:self 
                       type:nil
-                      origin:org
+                      origin:(left @ top)
                       extent:(width @ height)
                       minExtent:minExtent
                       maxExtent:maxExtent
@@ -1459,6 +1457,6 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.136 2000-11-22 14:53:04 tm Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.137 2000-12-21 13:07:47 cg Exp $'
 ! !
 StandardSystemView initialize!