--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/ApplicationSubView.st	Wed Dec 08 20:53:04 1999 +0100
@@ -0,0 +1,44 @@
+View subclass:#ApplicationSubView
+	instanceVariableNames:'application'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Views-Basic'
+!
+
+!ApplicationSubView class methodsFor:'documentation'!
+
+documentation
+"
+    needed sometimes, when a full application is embeded into an ExtendedComboBox
+    or subcanvas AND you want to avoid, that this application accesses the outer
+    applications aspects (by returning a private application instance).
+    WARNING: you have to manually set this views application to be the embedded app
+             (i.e. via #application:)
+
+    see self-embedding example in CodingExamples_GUI::GUIDemoExtendedComboBox
+"
+!
+
+examples
+"
+    see self-embedding example in CodingExamples_GUI::GUIDemoExtendedComboBox
+"
+! !
+
+!ApplicationSubView methodsFor:'accessing'!
+
+application
+    "return the value of the instance variable 'application' (automatically generated)"
+
+    ^ application!
+
+application:something
+    "set the value of the instance variable 'application' (automatically generated)"
+
+    application := something.! !
+
+!ApplicationSubView class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationSubView.st,v 1.1 1999-12-08 19:53:04 ca Exp $'
+! !