Error processing request

Parameters

Body

Error

Unknow state transition: LINE -> END

-code

1

-level

0

-errorstack

INNER {returnImm {Unknow state transition: LINE -> END} {}} CALL {my render_wikit {grid forward compatibility} ======\n\ \ package\ require\ Tk\n\ \ if\ \{\[package\ vcompare\ \[package\ provide\ Tk\]\ 4.2\]\ <\ 0\}\ \{\n\n\ \ \ \ #\ Changes\ to\ \[grid\]\ in\ Tk\ 4.2:\n\ \ \ \ #\ \ \ *\ \[grid\ columnconfigure\]\ and\ \[grid\ rowconfigure\]\ added\ a\n\ \ \ \ #\ \ \ \ \ -pad\ option\ and\ a\ zero\ argument\ form\n\ \ \ \ #\ \ \ *\ \[grid\ bbox\]\ now\ takes\ 0\ to\ 2\ ?column\ row?\ pairs\;\n\ \ \ \ #\ \ \ \ \ used\ to\ take\ exactly\ 1.\ \ Compatibility\ not\ implemented,\n\ \ \ \ #\ \ \ \ \ but\ more\ instructive\ error\ message\ provided.\n\ \ \ \ #\ \ \ *\ \[grid\ remove\]\ is\ a\ new\ subcommand\ that\ removes\ a\ widget\n\ \ \ \ #\ \ \ \ \ from\ \[grid\]\ management,\ but\ remembers\ its\ configuration\n\ \ \ \ #\ \ \ \ \ in\ case\ \[grid\]\ gets\ control\ of\ it\ again\ later.\ \ Implemented\n\ \ \ \ #\ \ \ \ \ in\ terms\ of\ \[grid\ forget\]\ and\ with\ use\ of\ a\ global\ array\ to\n\ \ \ \ #\ \ \ \ \ remember\ configurations.\n\ \ \ \ #\ \ \ *\ \[grid\ \$slave\ ...\]\ started\ recognizing\ x\ and\ ^\ as\ the\ first\n\ \ \ \ #\ \ \ \ \ \$slave\ in\ Tk\ 4.2.\ \ Strangely,\ \[grid\ configure\]\ still\ does\ not\n\ \ \ \ #\ \ \ \ \ allow\ this\ (See\ Bug\ 418644)\ so\ the\ (partial)\ compatibility\n\ \ \ \ #\ \ \ \ \ workaround\ for\ this\ is\ rather\ complicated.\n\n\ \ \ \ \ \ \ \ array\ set\ Tk4.1_grid\ \[list\ \"\"\ \"\"\]\n\ \ \ \ \ \ \ \ unset\ Tk4.1_grid()\n\ \ \ \ \ \ \ \ rename\ grid\ Tk4.1_grid\n\ \ \ \ \ \ \ \ #\ Parse\ the\ arguments\ to\ \[grid\ configure\]\ to\ determine\ where\n\ \ \ \ \ \ \ \ #\ \$slave\ arguments\ end\ and\ \$option\ arguments\ begin\n\ \ \ \ \ \ \ \ proc\ Tk4.1_gridParseSlaves\ \{args\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ set\ firstOption\ 0\n\ \ \ \ \ \ \ \ \ \ \ \ foreach\ arg\ \$args\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ switch\ -glob\ --\ \$arg\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ -\ \ -\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ ^\ \ -\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ x\ \ -\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ .*\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ incr\ firstOption\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ default\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ break\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ set\ slaves\ \[lrange\ \$args\ 0\ \$firstOption\]\n\ \ \ \ \ \ \ \ \ \ \ \ set\ slaves\ \[lreplace\ \$slaves\ end\ end\]\n\ \ \ \ \ \ \ \ \ \ \ \ set\ options\ \[lrange\ \$args\ \$firstOption\ end\]\n\ \ \ \ \ \ \ \ \ \ \ \ return\ \[list\ \$slaves\ \$options\]\n\ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ proc\ grid\ \{option\ args\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ global\ Tk4.1_grid\n\ \ \ \ \ \ \ \ \ \ \ \ set\ myName\ \[lindex\ \[info\ level\ 0\]\ 0\]\n\ \ \ \ \ \ \ \ \ \ \ \ if\ \{\[string\ match\ .*\ \$option\]\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ #\ Supply\ optional\ subcommand\ 'configure'\ and\ re-call\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ return\ \[uplevel\ \[list\ \$myName\ configure\ \$option\]\ \$args\]\n\ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ if\ \{\[llength\ \$args\]\ ==\ 0\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ return\ -code\ error\ \"wrong\ #\ args:\\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ should\ be\ \\\"\$myName\ option\ arg\ ?arg\ ...?\\\"\"\n\ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ if\ \{\[string\ match\ \{\[x^\]\}\ \$option\]\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ foreach\ \{slvs\ opts\}\ \[eval\ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \[list\ Tk4.1_gridParseSlaves\ \$option\]\ \$args\]\ \{break\}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ if\ \{\[llength\ \$opts\]\ %\ 2\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ return\ -code\ error\ \"extra\ option\ \\\"\[lindex\ \$opts\ end\]\\\"\\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ (option\ with\ no\ value?)\"\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ array\ set\ optArr\ \$opts\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ set\ numSlaves\ \[llength\ \$slvs\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ set\ defCol\ 0\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ for\ \{set\ i\ 0\}\ \{\$i\ <\ \$numSlaves\}\ \{incr\ i\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ set\ slv\ \[lindex\ \$slvs\ \$i\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ if\ \{\[string\ match\ \{\[x^\]\}\ \$slv\]\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ incr\ defCol\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ if\ \{\[string\ match\ ^\ \$slv\]\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ #\ Fill\ in\ code\ here\ to\ expand\ the\ slave\ in\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ #\ the\ row\ above,\ if\ it\ ever\ turns\ out\ we\ need\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ #\ that\ feature.\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ error\ \"Sorry,\ '^'\ not\ implemented\"\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\ elseif\ \{\[string\ match\ .*\ \$slv\]\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ #\ Found\ a\ real\ window\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ if\ \{\[info\ exists\ optArr(-column)\]\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ #\ Column\ explicitly\ given\;\ relative\ placement\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ #\ stuff\ has\ no\ effect.\ \ Call\ grid\ configure\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ #\ with\ first\ real\ window\ moved\ up\ to\ front\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ return\ \[uplevel\ Tk4.1_grid\ configure\ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \[lrange\ \$slvs\ \$i\ end\]\ \$opts\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ #\ No\ column\ explicitly\ given\;\ honor\ ^\ and\ x\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ #\ First\ collect\ all\ trailing\ -\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ set\ rs\ \[list\ \$slv\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ incr\ i\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ while\ \{\[string\ match\ -\ \[lindex\ \$slvs\ \$i\]\]\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ lappend\ rs\ -\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ incr\ i\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ incr\ i\ -1\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ #\ grid\ the\ real\ window\ and\ its\ trailing\ -\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ uplevel\ Tk4.1_grid\ configure\ \$rs\ \[array\ get\ optArr\]\ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ -column\ \$defCol\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ if\ \{!\[info\ exists\ optArr(-row)\]\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ #\ Capture\ the\ row\ to\ apply\ to\ other\ slaves\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ array\ set\ foo\ \[Tk4.1_grid\ info\ \$slv\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ set\ optArr(-row)\ \$foo(-row)\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ incr\ defCol\ \[llength\ \$rs\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\ else\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ return\ -code\ error\ \"Must\ specify\ window\\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ before\ shortcut\ '-'.\"\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ return\n\ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ switch\ -glob\ --\ \$option\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ b*\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ if\ \{\[string\ first\ \$option\ bbox\]\ !=\ 0\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ return\ \[uplevel\ \[list\ Tk4.1_grid\ \$option\]\ \$args\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ switch\ -exact\ --\ \[llength\ \$args\]\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 1\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ return\ -code\ error\ \"\\\[\$myName\ bbox\\\]\ syntax\ not\\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ supported\;\ Upgrade\ to\ Tk\ 4.2\ or\ higher\"\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 5\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ return\ -code\ error\ \"\\\[\$myName\ bbox\ \\\$column\ \\\$row\\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \\\$column\ \\\$row\\\]\ syntax\ not\ supported\;\\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ Upgrade\ to\ Tk\ 4.2\ or\ higher\"\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ default\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ uplevel\ \[list\ Tk4.1_grid\ bbox\]\ \$args\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ con*\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ if\ \{\[string\ first\ \$option\ configure\]\ !=\ 0\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ return\ \[uplevel\ \[list\ Tk4.1_grid\ \$option\]\ \$args\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ foreach\ \{slaves\ opts\}\ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \[eval\ Tk4.1_gridParseSlaves\ \$args\]\ \{break\}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ #\ First\ restore\ saved\ options\ from\ prior\ 'remove'\ if\ any\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ foreach\ slave\ \$slaves\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ if\ \{\[info\ exists\ Tk4.1_grid(\$slave)\]\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ uplevel\ \[list\ Tk4.1_grid\ configure\ \$slave\]\ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \[set\ Tk4.1_grid(\$slave)\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ unset\ Tk4.1_grid(\$slave)\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ uplevel\ Tk4.1_grid\ configure\ \$slaves\ \$opts\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ f*\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ if\ \{\[string\ first\ \$option\ forget\]\ !=\ 0\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ return\ \[uplevel\ \[list\ Tk4.1_grid\ \$option\]\ \$args\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ foreach\ slave\ \$args\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ catch\ \{unset\ Tk4.1_grid(\$slave)\}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ uplevel\ Tk4.1_grid\ forget\ \$args\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ re*\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ if\ \{\[string\ first\ \$option\ remove\]\ !=\ 0\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ return\ \[uplevel\ \[list\ Tk4.1_grid\ \$option\]\ \$args\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ foreach\ slave\ \$args\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ set\ slaveConf\ \[Tk4.1_grid\ info\ \$slave\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ if\ \{\[llength\ \$slaveConf\]\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ array\ set\ Tk4.1_grid\ \[list\ \$slave\ \$slaveConf\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ uplevel\ \[list\ Tk4.1_grid\ forget\ \$slave\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ ro*\ \ -\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ col*\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ if\ \{((\[string\ first\ \$option\ rowconfigure\]\ !=\ 0)\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ &&\ (\[string\ first\ \$option\ columnconfigure\]\ !=\ 0))\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ ||\ (\[llength\ \$arg\]\ <\ 2)\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ return\ \[uplevel\ \[list\ Tk4.1_grid\ \$option\]\ \$args\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ set\ master\ \[lindex\ \$args\ 0\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ set\ index\ \[lindex\ \$args\ 1\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ set\ options\ \[lrange\ \$args\ 2\ end\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ if\ \{\[llength\ \$options\]\ ==\ 0\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ set\ retList\ \[list\ -minsize\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ lappend\ retList\ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \[Tk4.1_grid\ \$option\ \$master\ \$index\ -minsize\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ lappend\ retList\ -pad\ 0\ -weight\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ lappend\ retList\ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \[Tk4.1_grid\ \$option\ \$master\ \$index\ -weight\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ return\ \$retList\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ if\ \{\[llength\ \$options\]\ ==\ 1\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ if\ \{\[string\ match\ -pad\ \[lindex\ \$options\ 0\]\]\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ return\ 0\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\ else\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ uplevel\ \[list\ Tk4.1_grid\ \$option\]\ \$args\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\ elseif\ \{\[llength\ \$options\]\ %\ 2\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ uplevel\ \[list\ Tk4.1_grid\ \$option\]\ \$args\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\ else\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ #\ Don't\ use\ an\ array\ to\ process\ options\;\ that\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ #\ will\ not\ preserve\ their\ order.\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ set\ passOpts\ \{\}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ foreach\ \{opt\ val\}\ \$options\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ if\ \{\[string\ compare\ -pad\ \$opt\]\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ lappend\ passOpts\ \$opt\ \$val\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ if\ \{\[llength\ \$passOpts\]\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ uplevel\ \[list\ Tk4.1_grid\ \$option\ \$master\ \$index\]\ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \$passOpts\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ default\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ uplevel\ \[list\ Tk4.1_grid\ \$option\]\ \$args\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \}\n\n\ \ \}\n\n\ \ if\ \{\[package\ vcompare\ \[package\ provide\ Tk\]\ 8\]\ <\ 0\}\ \{\n\ \ \ \n\ \ \ \ #\ Starting\ in\ Tk\ 8.0,\ the\ grid\ subcommands\ rowconfigure\ and\n\ \ \ \ #\ columnconfigure\ allowed\ configuration\ of\n\ \ \ \ #\ a\ list\ of\ rows\ or\ columns,\ not\ just\ one.\n\n\ \ \ \ rename\ grid\ Tk4.2_grid\n\ \ \ \ proc\ grid\ \{option\ args\}\ \{\n\ \ \ \ \ \ \ \ switch\ -exact\ --\ \$option\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ ro*\ \ -\n\ \ \ \ \ \ \ \ \ \ \ \ col*\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ if\ \{(\[string\ first\ \$option\ rowconfigure\]\ !=\ 0)\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ &&\ (\[string\ first\ \$option\ columnconfigure\]\ !=\ 0)\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ return\ \[uplevel\ \[list\ Tk4.2_grid\ \$option\]\ \$args\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ if\ \{(\[llength\ \$args\]\ <\ 4)\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ ||\ (\[llength\ \[lindex\ \$args\ 1\]\]\ <=\ 1)\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ uplevel\ \[list\ Tk4.2_grid\ \$option\]\ \$args\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\ else\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ set\ master\ \[lindex\ \$args\ 0\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ set\ indices\ \[lindex\ \$args\ 1\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ set\ options\ \[lrange\ \$args\ 2\ end\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ foreach\ index\ \$indices\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ uplevel\ \[list\ Tk4.2_grid\ \$option\ \$master\ \$index\]\ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \$options\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ default\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ uplevel\ \[list\ Tk4.2_grid\ \$option\]\ \$args\n\ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \}\n\ \ \ \ \}\n\ \ \}\n\n----\n!!!!!!\n%|\ \[Category\ Command\]\ \[Category\ Tk\]\ |%\n!!!!!! regexp2} CALL {my render {grid forward compatibility} ======\n\ \ package\ require\ Tk\n\ \ if\ \{\[package\ vcompare\ \[package\ provide\ Tk\]\ 4.2\]\ <\ 0\}\ \{\n\n\ \ \ \ #\ Changes\ to\ \[grid\]\ in\ Tk\ 4.2:\n\ \ \ \ #\ \ \ *\ \[grid\ columnconfigure\]\ and\ \[grid\ rowconfigure\]\ added\ a\n\ \ \ \ #\ \ \ \ \ -pad\ option\ and\ a\ zero\ argument\ form\n\ \ \ \ #\ \ \ *\ \[grid\ bbox\]\ now\ takes\ 0\ to\ 2\ ?column\ row?\ pairs\;\n\ \ \ \ #\ \ \ \ \ used\ to\ take\ exactly\ 1.\ \ Compatibility\ not\ implemented,\n\ \ \ \ #\ \ \ \ \ but\ more\ instructive\ error\ message\ provided.\n\ \ \ \ #\ \ \ *\ \[grid\ remove\]\ is\ a\ new\ subcommand\ that\ removes\ a\ widget\n\ \ \ \ #\ \ \ \ \ from\ \[grid\]\ management,\ but\ remembers\ its\ configuration\n\ \ \ \ #\ \ \ \ \ in\ case\ \[grid\]\ gets\ control\ of\ it\ again\ later.\ \ Implemented\n\ \ \ \ #\ \ \ \ \ in\ terms\ of\ \[grid\ forget\]\ and\ with\ use\ of\ a\ global\ array\ to\n\ \ \ \ #\ \ \ \ \ remember\ configurations.\n\ \ \ \ #\ \ \ *\ \[grid\ \$slave\ ...\]\ started\ recognizing\ x\ and\ ^\ as\ the\ first\n\ \ \ \ #\ \ \ \ \ \$slave\ in\ Tk\ 4.2.\ \ Strangely,\ \[grid\ configure\]\ still\ does\ not\n\ \ \ \ #\ \ \ \ \ allow\ this\ (See\ Bug\ 418644)\ so\ the\ (partial)\ compatibility\n\ \ \ \ #\ \ \ \ \ workaround\ for\ this\ is\ rather\ complicated.\n\n\ \ \ \ \ \ \ \ array\ set\ Tk4.1_grid\ \[list\ \"\"\ \"\"\]\n\ \ \ \ \ \ \ \ unset\ Tk4.1_grid()\n\ \ \ \ \ \ \ \ rename\ grid\ Tk4.1_grid\n\ \ \ \ \ \ \ \ #\ Parse\ the\ arguments\ to\ \[grid\ configure\]\ to\ determine\ where\n\ \ \ \ \ \ \ \ #\ \$slave\ arguments\ end\ and\ \$option\ arguments\ begin\n\ \ \ \ \ \ \ \ proc\ Tk4.1_gridParseSlaves\ \{args\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ set\ firstOption\ 0\n\ \ \ \ \ \ \ \ \ \ \ \ foreach\ arg\ \$args\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ switch\ -glob\ --\ \$arg\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ -\ \ -\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ ^\ \ -\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ x\ \ -\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ .*\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ incr\ firstOption\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ default\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ break\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ set\ slaves\ \[lrange\ \$args\ 0\ \$firstOption\]\n\ \ \ \ \ \ \ \ \ \ \ \ set\ slaves\ \[lreplace\ \$slaves\ end\ end\]\n\ \ \ \ \ \ \ \ \ \ \ \ set\ options\ \[lrange\ \$args\ \$firstOption\ end\]\n\ \ \ \ \ \ \ \ \ \ \ \ return\ \[list\ \$slaves\ \$options\]\n\ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ proc\ grid\ \{option\ args\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ global\ Tk4.1_grid\n\ \ \ \ \ \ \ \ \ \ \ \ set\ myName\ \[lindex\ \[info\ level\ 0\]\ 0\]\n\ \ \ \ \ \ \ \ \ \ \ \ if\ \{\[string\ match\ .*\ \$option\]\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ #\ Supply\ optional\ subcommand\ 'configure'\ and\ re-call\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ return\ \[uplevel\ \[list\ \$myName\ configure\ \$option\]\ \$args\]\n\ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ if\ \{\[llength\ \$args\]\ ==\ 0\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ return\ -code\ error\ \"wrong\ #\ args:\\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ should\ be\ \\\"\$myName\ option\ arg\ ?arg\ ...?\\\"\"\n\ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ if\ \{\[string\ match\ \{\[x^\]\}\ \$option\]\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ foreach\ \{slvs\ opts\}\ \[eval\ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \[list\ Tk4.1_gridParseSlaves\ \$option\]\ \$args\]\ \{break\}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ if\ \{\[llength\ \$opts\]\ %\ 2\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ return\ -code\ error\ \"extra\ option\ \\\"\[lindex\ \$opts\ end\]\\\"\\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ (option\ with\ no\ value?)\"\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ array\ set\ optArr\ \$opts\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ set\ numSlaves\ \[llength\ \$slvs\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ set\ defCol\ 0\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ for\ \{set\ i\ 0\}\ \{\$i\ <\ \$numSlaves\}\ \{incr\ i\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ set\ slv\ \[lindex\ \$slvs\ \$i\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ if\ \{\[string\ match\ \{\[x^\]\}\ \$slv\]\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ incr\ defCol\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ if\ \{\[string\ match\ ^\ \$slv\]\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ #\ Fill\ in\ code\ here\ to\ expand\ the\ slave\ in\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ #\ the\ row\ above,\ if\ it\ ever\ turns\ out\ we\ need\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ #\ that\ feature.\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ error\ \"Sorry,\ '^'\ not\ implemented\"\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\ elseif\ \{\[string\ match\ .*\ \$slv\]\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ #\ Found\ a\ real\ window\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ if\ \{\[info\ exists\ optArr(-column)\]\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ #\ Column\ explicitly\ given\;\ relative\ placement\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ #\ stuff\ has\ no\ effect.\ \ Call\ grid\ configure\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ #\ with\ first\ real\ window\ moved\ up\ to\ front\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ return\ \[uplevel\ Tk4.1_grid\ configure\ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \[lrange\ \$slvs\ \$i\ end\]\ \$opts\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ #\ No\ column\ explicitly\ given\;\ honor\ ^\ and\ x\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ #\ First\ collect\ all\ trailing\ -\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ set\ rs\ \[list\ \$slv\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ incr\ i\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ while\ \{\[string\ match\ -\ \[lindex\ \$slvs\ \$i\]\]\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ lappend\ rs\ -\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ incr\ i\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ incr\ i\ -1\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ #\ grid\ the\ real\ window\ and\ its\ trailing\ -\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ uplevel\ Tk4.1_grid\ configure\ \$rs\ \[array\ get\ optArr\]\ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ -column\ \$defCol\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ if\ \{!\[info\ exists\ optArr(-row)\]\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ #\ Capture\ the\ row\ to\ apply\ to\ other\ slaves\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ array\ set\ foo\ \[Tk4.1_grid\ info\ \$slv\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ set\ optArr(-row)\ \$foo(-row)\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ incr\ defCol\ \[llength\ \$rs\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\ else\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ return\ -code\ error\ \"Must\ specify\ window\\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ before\ shortcut\ '-'.\"\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ return\n\ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ switch\ -glob\ --\ \$option\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ b*\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ if\ \{\[string\ first\ \$option\ bbox\]\ !=\ 0\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ return\ \[uplevel\ \[list\ Tk4.1_grid\ \$option\]\ \$args\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ switch\ -exact\ --\ \[llength\ \$args\]\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 1\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ return\ -code\ error\ \"\\\[\$myName\ bbox\\\]\ syntax\ not\\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ supported\;\ Upgrade\ to\ Tk\ 4.2\ or\ higher\"\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 5\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ return\ -code\ error\ \"\\\[\$myName\ bbox\ \\\$column\ \\\$row\\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \\\$column\ \\\$row\\\]\ syntax\ not\ supported\;\\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ Upgrade\ to\ Tk\ 4.2\ or\ higher\"\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ default\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ uplevel\ \[list\ Tk4.1_grid\ bbox\]\ \$args\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ con*\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ if\ \{\[string\ first\ \$option\ configure\]\ !=\ 0\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ return\ \[uplevel\ \[list\ Tk4.1_grid\ \$option\]\ \$args\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ foreach\ \{slaves\ opts\}\ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \[eval\ Tk4.1_gridParseSlaves\ \$args\]\ \{break\}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ #\ First\ restore\ saved\ options\ from\ prior\ 'remove'\ if\ any\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ foreach\ slave\ \$slaves\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ if\ \{\[info\ exists\ Tk4.1_grid(\$slave)\]\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ uplevel\ \[list\ Tk4.1_grid\ configure\ \$slave\]\ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \[set\ Tk4.1_grid(\$slave)\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ unset\ Tk4.1_grid(\$slave)\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ uplevel\ Tk4.1_grid\ configure\ \$slaves\ \$opts\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ f*\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ if\ \{\[string\ first\ \$option\ forget\]\ !=\ 0\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ return\ \[uplevel\ \[list\ Tk4.1_grid\ \$option\]\ \$args\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ foreach\ slave\ \$args\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ catch\ \{unset\ Tk4.1_grid(\$slave)\}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ uplevel\ Tk4.1_grid\ forget\ \$args\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ re*\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ if\ \{\[string\ first\ \$option\ remove\]\ !=\ 0\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ return\ \[uplevel\ \[list\ Tk4.1_grid\ \$option\]\ \$args\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ foreach\ slave\ \$args\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ set\ slaveConf\ \[Tk4.1_grid\ info\ \$slave\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ if\ \{\[llength\ \$slaveConf\]\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ array\ set\ Tk4.1_grid\ \[list\ \$slave\ \$slaveConf\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ uplevel\ \[list\ Tk4.1_grid\ forget\ \$slave\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ ro*\ \ -\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ col*\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ if\ \{((\[string\ first\ \$option\ rowconfigure\]\ !=\ 0)\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ &&\ (\[string\ first\ \$option\ columnconfigure\]\ !=\ 0))\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ ||\ (\[llength\ \$arg\]\ <\ 2)\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ return\ \[uplevel\ \[list\ Tk4.1_grid\ \$option\]\ \$args\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ set\ master\ \[lindex\ \$args\ 0\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ set\ index\ \[lindex\ \$args\ 1\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ set\ options\ \[lrange\ \$args\ 2\ end\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ if\ \{\[llength\ \$options\]\ ==\ 0\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ set\ retList\ \[list\ -minsize\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ lappend\ retList\ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \[Tk4.1_grid\ \$option\ \$master\ \$index\ -minsize\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ lappend\ retList\ -pad\ 0\ -weight\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ lappend\ retList\ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \[Tk4.1_grid\ \$option\ \$master\ \$index\ -weight\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ return\ \$retList\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ if\ \{\[llength\ \$options\]\ ==\ 1\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ if\ \{\[string\ match\ -pad\ \[lindex\ \$options\ 0\]\]\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ return\ 0\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\ else\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ uplevel\ \[list\ Tk4.1_grid\ \$option\]\ \$args\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\ elseif\ \{\[llength\ \$options\]\ %\ 2\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ uplevel\ \[list\ Tk4.1_grid\ \$option\]\ \$args\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\ else\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ #\ Don't\ use\ an\ array\ to\ process\ options\;\ that\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ #\ will\ not\ preserve\ their\ order.\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ set\ passOpts\ \{\}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ foreach\ \{opt\ val\}\ \$options\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ if\ \{\[string\ compare\ -pad\ \$opt\]\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ lappend\ passOpts\ \$opt\ \$val\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ if\ \{\[llength\ \$passOpts\]\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ uplevel\ \[list\ Tk4.1_grid\ \$option\ \$master\ \$index\]\ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \$passOpts\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ default\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ uplevel\ \[list\ Tk4.1_grid\ \$option\]\ \$args\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \}\n\n\ \ \}\n\n\ \ if\ \{\[package\ vcompare\ \[package\ provide\ Tk\]\ 8\]\ <\ 0\}\ \{\n\ \ \ \n\ \ \ \ #\ Starting\ in\ Tk\ 8.0,\ the\ grid\ subcommands\ rowconfigure\ and\n\ \ \ \ #\ columnconfigure\ allowed\ configuration\ of\n\ \ \ \ #\ a\ list\ of\ rows\ or\ columns,\ not\ just\ one.\n\n\ \ \ \ rename\ grid\ Tk4.2_grid\n\ \ \ \ proc\ grid\ \{option\ args\}\ \{\n\ \ \ \ \ \ \ \ switch\ -exact\ --\ \$option\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ ro*\ \ -\n\ \ \ \ \ \ \ \ \ \ \ \ col*\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ if\ \{(\[string\ first\ \$option\ rowconfigure\]\ !=\ 0)\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ &&\ (\[string\ first\ \$option\ columnconfigure\]\ !=\ 0)\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ return\ \[uplevel\ \[list\ Tk4.2_grid\ \$option\]\ \$args\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ if\ \{(\[llength\ \$args\]\ <\ 4)\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ ||\ (\[llength\ \[lindex\ \$args\ 1\]\]\ <=\ 1)\}\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ uplevel\ \[list\ Tk4.2_grid\ \$option\]\ \$args\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\ else\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ set\ master\ \[lindex\ \$args\ 0\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ set\ indices\ \[lindex\ \$args\ 1\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ set\ options\ \[lrange\ \$args\ 2\ end\]\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ foreach\ index\ \$indices\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ uplevel\ \[list\ Tk4.2_grid\ \$option\ \$master\ \$index\]\ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \$options\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \ \ \ \ default\ \{\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ uplevel\ \[list\ Tk4.2_grid\ \$option\]\ \$args\n\ \ \ \ \ \ \ \ \ \ \ \ \}\n\ \ \ \ \ \ \ \ \}\n\ \ \ \ \}\n\ \ \}\n\n----\n!!!!!!\n%|\ \[Category\ Command\]\ \[Category\ Tk\]\ |%\n!!!!!!} CALL {my revision {grid forward compatibility}} CALL {::oo::Obj1060054 process revision/grid+forward+compatibility} CALL {::oo::Obj1060052 process}

-errorcode

NONE

-errorinfo

Unknow state transition: LINE -> END
    while executing
"error $msg"
    (class "::Wiki" method "render_wikit" line 6)
    invoked from within
"my render_$default_markup $N $C $mkup_rendering_engine"
    (class "::Wiki" method "render" line 8)
    invoked from within
"my render $name $C"
    (class "::Wiki" method "revision" line 31)
    invoked from within
"my revision $page"
    (class "::Wiki" method "process" line 56)
    invoked from within
"$server process [string trim $uri /]"

-errorline

4