+ $mlbl label: "_Connection type" mwidget: cntype tx: 0 ty: 2
+ $text name: cntype var: y expandx: y fillx: y tx: 1 ty: 2
+ $mlbl label: "_E-mail address" mwidget: mail tx: 0 ty: 3
+ $text name: mail var: y expandx: y fillx: y tx: 1 ty: 3
+ end
+ :vbox nblabel: "S_hared directories"
+ :sw expand: TRUE fill: TRUE
+ :treeview name: sharelist var: y
+ $tvcol title: Path text: 1 sortcol: 1
+ end
+ end
+ :hbox
+ $sbtn name: shareadd stock: ADD sig: clicked
+ $sbtn name: sharerem stock: REMOVE sig: clicked
+ end