{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 "" 0 1 0 0 0 0 
0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{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 81 "GetMapletNumber:=proc()\n global MapletNumb
er:\n MapletNumber:=thismaplet\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 112 "GetFromM2:=proc()\n global MapletNumber:\n Maplets
:-Tools:-Set(TF=Maplets:-Tools:-Get(MapletNumber,TF)):\nend proc:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 207 "m1:=Maplet(\n Window[W](yco
ord=500,\n  [\n   [TextField[TF](\"M1\",10)],\n   [\n    Button(\"GetF
romM2\",\n     Action(\n       Evaluate(function=\"GetFromM2\")\n     \+
)\n    ),\n    Button(\"Close\",Shutdown())\n   ]\n  ]\n )\n):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 344 "m2:=Maplet(\n onstartup=Act
ion(RunWindow(W2),Evaluate(function=GetMapletNumber)),\n Window[W2](\n
  layout=BoxLayout(\n   BoxColumn(\n    BoxRow(\n     BoxCell(TextFiel
d[TF](\"M2\",10))\n    ),\n    BoxRow(\n     BoxCell(\n      Button(\"
Run\",Evaluate(function=\"Display(m1)\"))\n     ),\n     BoxCell(\n   \+
   Button(\"Exit\",Shutdown())\n     )\n    )\n   )\n  )\n )\n):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "Display(m2);" }}}{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 "8 0 0" 0 }{VIEWOPTS 1 1 1 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 
33 1 1 }