--- a/DialogBox.st	Thu Sep 21 13:54:14 1995 +0200
+++ b/DialogBox.st	Mon Oct 23 21:07:01 1995 +0100
@@ -25,7 +25,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.23 1995-09-18 10:38:12 claus Exp $
+$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.24 1995-10-23 20:06:06 cg Exp $
 "
 !
 
@@ -532,6 +532,68 @@
 	]
 
 
+    adding two panels in a frame:
+
+	|box frame vPanel1 vPanel2 m1 m2 m3 m4 chk ef|
+
+	box := Dialog new.
+	box label:'example'.
+
+	frame := FramedBox label:'frame'.
+
+	vPanel1 := VerticalPanelView origin:0.0@0.0 corner:0.5@1.0 in:frame.
+	vPanel1 horizontalLayout:#leftSpace.
+	vPanel1 verticalLayout:#top.
+
+	vPanel2 := VerticalPanelView origin:0.5@0.0 corner:1.0@1.0 in:frame.
+	vPanel2 horizontalLayout:#leftSpace.
+	vPanel2 verticalLayout:#top.
+
+	m1 := true asValue.
+	m2 := true asValue.
+	m3 := true asValue.
+	m4 := 'hello' asValue.
+
+	vPanel1 add:(Label label:'check1').
+	vPanel1 add:(Label label:'m2').
+	vPanel1 add:(Label label:'m3').
+	vPanel1 add:(Label label:'enter').
+	vPanel1 add:(Label label:'lbl1').
+	vPanel1 add:(Label label:'lbl2').
+
+	vPanel2 add:(chk := CheckToggle on:m1). 
+	box makeTabable:chk.
+
+	vPanel2 add:(chk := CheckToggle on:m2). 
+	box makeTabable:chk.
+
+	vPanel2 add:(chk := CheckToggle on:m3). 
+	box makeTabable:chk.
+
+	vPanel2 add:(chk := CheckToggle on:m3). 
+	box makeTabable:chk.
+
+	vPanel2 add:(chk := CheckToggle on:m3). 
+	box makeTabable:chk.
+
+	vPanel2 add:(ef := EditField on:m4). 
+	ef immediateAccept:true.
+	box makeTabable:ef.
+
+	box addComponent:frame.
+
+	box addAbortButton; addOkButton.
+	box openModal.
+	box accepted ifTrue:[
+	    Transcript showCr:'accepted with:'.
+	    Transcript showCr:'   m1: ' , m1 value printString.
+	    Transcript showCr:'   m2: ' , m2 value printString.
+	    Transcript showCr:'   m3: ' , m3 value printString.
+	    Transcript showCr:'   m4: ' , m4 value printString.
+	]
+
+
+
     a full example:
 
 	|box warnSTX allowUnderscore immutableArrays logDoits