{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 39 "with(Maplets):\nwith(Maplets[Elemen
ts]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 311 "CreateGridLayout:
=proc(n,m)\n GridLayout[GL](inset=1,border=true,\n  seq(\n   GridRow(
\n    seq(\n     GridCell(\n      #Button(cat(convert(i,string),\" \",
convert(j,string)),onclick=Evaluate())\n       Button(cat(\"\",i,\" \"
,j),onclick=Evaluate(),Font(\"helvetica\",bold,12))\n     ),\n    j=1.
.m)\n   ),\n  i=1..n)\n )\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 32 "GrLt_5_8:=CreateGridLayout(5,8):" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 70 "btn:=Button(\"Exit\",onclick=Shutdown(),font
=Font(\"helvetica\",bold,16)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 39 "btn:=Maplets:-Tools:-AddAttribute(btn):" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 54 "btn:=Maplets:-Tools:-AddAttribute(btn,foregrou
nd=red):" }}}{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 70 "GrLt_5_
8:=Maplets:-Tools:-AddAttribute(GrLt_5_8,caption=\"MegaLayout\"):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 73 "GrLt_5_8:=Maplets:-Tools:-Ad
dContent(GrLt_5_8,\n GridRow(GridCell(btn))\n):" }}}{EXCHG }{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 84 "M:=Maplet[M_GridLayout](\n Window(
\n  layout=GrLt_5_8\n ),\n Action[A_SD](Shutdown())\n):" }}}{EXCHG }
{EXCHG }{EXCHG }{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "Disp
lay(M);" }}}{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }
{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }
{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }
{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }
{EXCHG }}{MARK "49" 0 }{VIEWOPTS 1 1 1 1 1 1803 1 1 1 1 }{PAGENUMBERS 
0 1 2 33 1 1 }