--- a/ApplicationModel.st	Mon Jan 13 21:23:00 1997 +0100
+++ b/ApplicationModel.st	Mon Jan 13 21:24:36 1997 +0100
@@ -566,6 +566,16 @@
     "Modified: 24.4.1996 / 09:37:11 / cg"
 !
 
+openOnDevice:aDevice
+    "open a standard interface on some other device"
+
+    self setDevice:aDevice.
+    ^ self open
+
+    "Created: 13.1.1997 / 21:24:11 / cg"
+    "Modified: 13.1.1997 / 21:24:30 / cg"
+!
+
 opened
     "the topView has been opened.
      This is sent by my topView when its finally open"
@@ -638,6 +648,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.31 1997-01-13 20:23:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.32 1997-01-13 20:24:36 cg Exp $'
 ! !
 ApplicationModel initialize!