--- a/ApplicationModel.st	Tue Oct 07 17:46:21 2003 +0200
+++ b/ApplicationModel.st	Tue Oct 07 21:06:54 2003 +0200
@@ -125,25 +125,13 @@
 new
     "return a new initialized instance"
 
-    |inst|
-
-    inst := self basicNew.
-    inst basicInitialize.
-    inst initialize.
-    ^ inst
-
-    "Modified: 24.4.1996 / 09:42:14 / cg"
+    ^ (self basicNew basicInitialize) initialize.
 !
 
 onDevice:aDevice
-    "return a new initialized instance, which shall open its interface
-     on aDevice."
-
-    ^ (super basicNew basicInitialize
-        setDevice:aDevice) initialize
-
-    "Modified: 24.4.1996 / 09:42:14 / cg"
-    "Created: 5.7.1996 / 12:19:15 / cg"
+    "return a new initialized instance, which shall open its interface on aDevice."
+
+    ^ (super basicNew basicInitialize setDevice:aDevice) initialize
 ! !
 
 !ApplicationModel class methodsFor:'accessing'!
@@ -2722,7 +2710,7 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.190 2003-08-19 17:54:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.191 2003-10-07 19:06:54 cg Exp $'
 ! !
 
 ApplicationModel initialize!