{VERSION 6 0 "IBM INTEL NT" "6.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 
0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "with(Maplets):" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 24 "with(Maplets[Elements]):" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 878 "Show:=proc()\n if IsBoxLayout then\n  Disp
lay(\n   Maplet(\n    Window[BL](\n     layout=BoxLayout[BoxL](inset=G
Inset,\n      BoxColumn(border=true,inset=0,\n       BoxRow(inset=0,Bo
xCell(Label(S)),BoxCell(Label(S))),\n       BoxRow(inset=0,BoxCell(Lab
el(S)),BoxCell(Label(S))),\n       BoxRow(inset=0,BoxCell(Button(\"Clo
se\",CloseWindow(BL))\n        )\n       )\n      )\n     )\n    )\n  \+
 )\n  )\n else\n  Display(\n   Maplet(\n    Window[GL](\n     layout=G
ridLayout(inset=GInset,\n      GridRow(\n       GridCell(\n        Gri
dLayout(inset=0,border=true,\n         GridRow(\n          GridCell(Bo
xLayout(inset=0,border=true,Label(S))),\n          GridCell(BoxLayout(
inset=0,border=true,Label(S)))\n         ),\n         GridRow(GridCell
(Label(S)),GridCell(Label(S))),\n         GridRow(GridCell(width=2,But
ton(\"Close\",CloseWindow(GL))))\n        )\n       )\n      )\n     )
\n    )\n   )\n  )\n end if:\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 13 "S:=\"Nothing\":" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 18 "IsBoxLayout:=true:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 11 "GInset:=10:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 96 "Inset:=proc()\n global GInset:\n Maplets:-Tools:-Get('TF'):\n GI
nset:=op(sscanf(%,\"%d\")):\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 76 "Select:=proc()\n global IsBoxLayout:\n IsBoxLayout:=n
ot IsBoxLayout:\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
681 "M:=Maplet(onstartup=RunWindow(Control),\n Window[Control](\n  lay
out=BoxLayout(\n   BoxColumn(\n    BoxRow(border=true,inset=0,\n     B
oxCell(\n      RadioButton(\"BoxLayout\",group=RBG,value=true)\n     )
,\n     BoxCell(\n      RadioButton(\"GridLayout\",group=RBG,value=fal
se)\n     )\n    ),\n    BoxRow(inset=0,\n     BoxCell(halign=right,La
bel(\"inset\")),\n     BoxCell(halign=left,TextField[TF](2,value=GInse
t,onchange=Evaluate(function=\"Inset\")))\n    ),\n    BoxRow(inset=0,
\n     BoxCell(\n      Button(\"Show\",onclick=RWs)\n     ),\n     Box
Cell(Button(\"Quit\",Shutdown())\n     )\n    )\n   )\n  )\n ),\n Butt
onGroup[RBG](onchange=Evaluate(function=\"Select\")),\n Action[RWs](Ev
aluate(function=\"Show\"))\n):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 11 "Display(M);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 0 "" }}}}{MARK "9 0 0" 556 }{VIEWOPTS 1 1 1 1 1 1803 1 
1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }