--- a/ApplicationSubView.st	Wed Oct 05 17:45:46 2005 +0200
+++ b/ApplicationSubView.st	Fri Oct 14 01:14:47 2005 +0200
@@ -53,7 +53,7 @@
 examples
 "
     see self-embedding example in CodingExamples_GUI::GUIDemoExtendedComboBox.
-
+                                                                [exBegin]
     |top sub app|
 
     top := StandardSystemView new.
@@ -65,8 +65,24 @@
     sub client:app.
 
     top addSubView:sub.
-    sub origin:(0.2@0.2) corner:(0.8@0.8).
+    sub origin:(0.1@0.1) corner:(0.9@0.9).
     top open.
+                                                                [exEnd]
+                                                                [exBegin]
+    |top sub app|
+
+    top := StandardSystemView new.
+    sub := ApplicationSubView new.
+
+    app := Tools::NewSystemBrowser new.
+    app createBuilder.
+    app window:sub.
+    sub client:app.
+
+    top addSubView:sub.
+    sub origin:(0.1@0.1) corner:(0.9@0.9).
+    top open.
+                                                                [exEnd]
 "
 ! !
 
@@ -117,5 +133,5 @@
 !ApplicationSubView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationSubView.st,v 1.6 2003-03-17 16:37:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationSubView.st,v 1.7 2005-10-13 23:14:47 cg Exp $'
 ! !