--- a/ApplicationModel.st	Sun Jun 30 14:21:59 1996 +0200
+++ b/ApplicationModel.st	Fri Jul 05 12:06:00 1996 +0200
@@ -11,7 +11,7 @@
 "
 
 Model subclass:#ApplicationModel
-	instanceVariableNames:'builder resources'
+	instanceVariableNames:'builder resources device'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Framework'
@@ -596,6 +596,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.26 1996-06-15 13:13:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.27 1996-07-05 10:06:00 cg Exp $'
 ! !
 ApplicationModel initialize!