--- a/ApplicationSubView.st	Wed Mar 12 12:33:45 2003 +0100
+++ b/ApplicationSubView.st	Mon Mar 17 17:37:17 2003 +0100
@@ -52,7 +52,21 @@
 
 examples
 "
-    see self-embedding example in CodingExamples_GUI::GUIDemoExtendedComboBox
+    see self-embedding example in CodingExamples_GUI::GUIDemoExtendedComboBox.
+
+    |top sub app|
+
+    top := StandardSystemView new.
+    sub := ApplicationSubView new.
+
+    app := FileBrowserV2 new.
+    app createBuilder.
+    app window:sub.
+    sub client:app.
+
+    top addSubView:sub.
+    sub origin:(0.2@0.2) corner:(0.8@0.8).
+    top open.
 "
 ! !
 
@@ -103,5 +117,5 @@
 !ApplicationSubView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationSubView.st,v 1.5 2001-02-13 19:17:58 frank Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationSubView.st,v 1.6 2003-03-17 16:37:17 cg Exp $'
 ! !