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 {Balloon Help, Generalised} ======\nif\ 0\ \{\n======\n\nFrom\ \[Example\ Scripts\ Everybody\ Should\ Have\]\ I've\ taken\ the\ balloon\ help\ and\nimproved\ such\ that\ it\n\n\ \ \ *\ looks\ like\ the\ tooltips\ of\ Win\ (yellow\ background,\ 1\ px\ black\ outline),\n\ \ \ *\ balloon\ msg\ appears\ at\ mouse\ pointer,\ not\ at\ center\ of\ window,\n\ \ \ *\ tooltip\ position\ does\ not\ extend\ physical\ screen,\n\ \ \ *\ sets\ balloon\ msgs\ not\ only\ to\ widgets\ but\ also\ on\ text\ tags\ and\ canvas\ ids,\ (see\ example\ at\ end)\n\ \ \ *\ removes\ bindings\ from\ canvas\ ids\ by\ leaving\ the\ msg\ blank,\n\ \ \ *\ if\ msg\ contains\ \[\[\ and\ \]\],\ then\ its\ contents\ are\ evaluated,\ so\ that\ e.g.\ on\ Text\ widgets,\ the\ msg\ can\ be\ created\ dynamically\ depending\ on\ the\ current\ content\n\nBenefits:\n\n\ \ \ 1.\ Covers\ '''widgets'''\ as\ well\ as\ '''text\ tags'''\ as\ well\ as\ '''canvas\ ids'''\n\ \ \ 2.\ Not\ more\ than\ '''two\ procedures'''\ spoiling\ the\ namespace.\n\ \ \ 3.\ More\ flexible\ because\ a\ subst\ call\ is\ done\ on\ the\ msg\ text.\n\nCaveats:\n\n\ \ \ 1.\ Widget\ name\ .balloonHelp\ used,\ so\ this\ name\ cannot\ be\ used\ elsewhere\;\n\ \ \ 2.\ if\ events\ <Enter>\ and\ <Leave>\ are\ in\ use\ otherwise,\ no\ balloon\ help.\n\nHave\ fun!\n======\n\}\n\n#!/usr/local/bin/wish\n\npackage\ require\ Tk\n\nproc\ setBalloonHelp\ \{w\ msg\ args\}\ \{\n\ \ array\ set\ opt\ \[concat\ \{\n\ \ \ \ \ \ -tag\ \"\"\n\ \ \ \ \}\ \$args\]\n\ \ if\ \{\$msg\ ne\ \"\"\}\ then\ \{\n\ \ \ \ set\ toolTipScript\\\n\ \ \ \ \ \ \[list\ showBalloonHelp\ %W\ \[string\ map\ \{%\ %%\}\ \$msg\]\]\n\ \ \ \ set\ enterScript\ \[list\ after\ 1000\ \$toolTipScript\]\n\ \ \ \ set\ leaveScript\ \[list\ after\ cancel\ \$toolTipScript\]\n\ \ \ \ append\ leaveScript\ \\n\ \[list\ after\ 200\ \[list\ destroy\ .balloonHelp\]\]\n\ \ \}\ else\ \{\n\ \ \ \ set\ enterScript\ \{\}\n\ \ \ \ set\ leaveScript\ \{\}\n\ \ \}\n\ \ if\ \{\$opt(-tag)\ ne\ \"\"\}\ then\ \{\n\ \ \ \ switch\ --\ \[winfo\ class\ \$w\]\ \{\n\ \ \ \ \ \ Text\ \{\n\ \ \ \ \ \ \ \ \$w\ tag\ bind\ \$opt(-tag)\ <Enter>\ \$enterScript\n\ \ \ \ \ \ \ \ \$w\ tag\ bind\ \$opt(-tag)\ <Leave>\ \$leaveScript\n\ \ \ \ \ \ \}\n\ \ \ \ \ \ Canvas\ \{\n\ \ \ \ \ \ \ \ \$w\ bind\ \$opt(-tag)\ <Enter>\ \$enterScript\n\ \ \ \ \ \ \ \ \$w\ bind\ \$opt(-tag)\ <Leave>\ \$leaveScript\n\ \ \ \ \ \ \}\n\ \ \ \ \ \ default\ \{\n\ \ \ \ \ \ \ \ bind\ \$w\ <Enter>\ \$enterScript\n\ \ \ \ \ \ \ \ bind\ \$w\ <Leave>\ \$leaveScript\n\ \ \ \ \ \ \}\n\ \ \ \ \}\n\ \ \}\ else\ \{\n\ \ \ \ bind\ \$w\ <Enter>\ \$enterScript\n\ \ \ \ bind\ \$w\ <Leave>\ \$leaveScript\n\ \ \}\n\}\n\nproc\ showBalloonHelp\ \{w\ msg\}\ \{\n\ \ set\ t\ .balloonHelp\n\ \ catch\ \{destroy\ \$t\}\n\ \ toplevel\ \$t\ -bg\ black\n\ \ wm\ overrideredirect\ \$t\ yes\n\ \ if\ \{\$::tcl_platform(platform)\ ==\ \"macintosh\"\}\ \{\n\ \ \ \ unsupported1\ style\ \$t\ floating\ sideTitlebar\n\ \ \}\n\ \ pack\ \[label\ \$t.l\ -text\ \[subst\ \$msg\]\ -bg\ yellow\ -font\ \{Helvetica\ 9\}\]\\\n\ \ \ \ -padx\ 1\\\n\ \ \ \ -pady\ 1\n\ \ set\ width\ \[expr\ \{\[winfo\ reqwidth\ \$t.l\]\ +\ 2\}\]\n\ \ set\ height\ \[expr\ \{\[winfo\ reqheight\ \$t.l\]\ +\ 2\}\]\n\ \ set\ xMax\ \[expr\ \{\[winfo\ screenwidth\ \$w\]\ -\ \$width\}\]\n\ \ set\ yMax\ \[expr\ \{\[winfo\ screenheight\ \$w\]\ -\ \$height\}\]\n\ \ set\ x\ \[winfo\ pointerx\ \$w\]\n\ \ set\ y\ \[expr\ \{\[winfo\ pointery\ \$w\]\ +\ 20\}\]\n\ \ if\ \{\$x\ >\ \$xMax\}\ then\ \{\n\ \ \ \ set\ x\ \$xMax\n\ \ \}\n\ \ if\ \{\$y\ >\ \$yMax\}\ then\ \{\n\ \ \ \ set\ y\ \$yMax\n\ \ \}\n\ \ wm\ geometry\ \$t\ +\$x+\$y\n\ \ set\ destroyScript\ \[list\ destroy\ .balloonHelp\]\n\ \ bind\ \$t\ <Enter>\ \[list\ after\ cancel\ \$destroyScript\]\n\ \ bind\ \$t\ <Leave>\ \$destroyScript\n\}\n\n#\ demo\nif\ true\ \{\n\ \ pack\ \[button\ .b\ -text\ tryme\ -command\ \{puts\ \"you\ did\ it!\"\}\]\n\ \ setBalloonHelp\ .b\ \"Text\ that\ describes\\nwhat\ the\ button\ does\"\n\ \ #\n\ \ pack\ \[text\ .t\ -width\ 30\ -height\ 5\]\ -expand\ yes\ -fill\ both\n\ \ .t\ insert\ end\ abcDEFghi\n\ \ .t\ tag\ configure\ yellow\ -background\ yellow\n\ \ .t\ tag\ add\ yellow\ 1.1\ 1.6\n\ \ setBalloonHelp\ .t\ \"Colorised\ Text\"\ -tag\ yellow\n\ \ #\n\ \ pack\ \[canvas\ .c\]\ -expand\ yes\ -fill\ both\n\ \ set\ id\ \[.c\ create\ rectangle\ 10\ 10\ 100\ 100\ -fill\ white\]\n\ \ setBalloonHelp\ .c\ \{Geometry:\ \[.c\ coords\ \$::id\]\}\ -tag\ \$id\n\}\n\n----\n!!!!!!\n%|\ \[Category\ GUI\]\ |\ \[Category\ Dev.\ Tools\]\ |%\n!!!!!! regexp2} CALL {my render {Balloon Help, Generalised} ======\nif\ 0\ \{\n======\n\nFrom\ \[Example\ Scripts\ Everybody\ Should\ Have\]\ I've\ taken\ the\ balloon\ help\ and\nimproved\ such\ that\ it\n\n\ \ \ *\ looks\ like\ the\ tooltips\ of\ Win\ (yellow\ background,\ 1\ px\ black\ outline),\n\ \ \ *\ balloon\ msg\ appears\ at\ mouse\ pointer,\ not\ at\ center\ of\ window,\n\ \ \ *\ tooltip\ position\ does\ not\ extend\ physical\ screen,\n\ \ \ *\ sets\ balloon\ msgs\ not\ only\ to\ widgets\ but\ also\ on\ text\ tags\ and\ canvas\ ids,\ (see\ example\ at\ end)\n\ \ \ *\ removes\ bindings\ from\ canvas\ ids\ by\ leaving\ the\ msg\ blank,\n\ \ \ *\ if\ msg\ contains\ \[\[\ and\ \]\],\ then\ its\ contents\ are\ evaluated,\ so\ that\ e.g.\ on\ Text\ widgets,\ the\ msg\ can\ be\ created\ dynamically\ depending\ on\ the\ current\ content\n\nBenefits:\n\n\ \ \ 1.\ Covers\ '''widgets'''\ as\ well\ as\ '''text\ tags'''\ as\ well\ as\ '''canvas\ ids'''\n\ \ \ 2.\ Not\ more\ than\ '''two\ procedures'''\ spoiling\ the\ namespace.\n\ \ \ 3.\ More\ flexible\ because\ a\ subst\ call\ is\ done\ on\ the\ msg\ text.\n\nCaveats:\n\n\ \ \ 1.\ Widget\ name\ .balloonHelp\ used,\ so\ this\ name\ cannot\ be\ used\ elsewhere\;\n\ \ \ 2.\ if\ events\ <Enter>\ and\ <Leave>\ are\ in\ use\ otherwise,\ no\ balloon\ help.\n\nHave\ fun!\n======\n\}\n\n#!/usr/local/bin/wish\n\npackage\ require\ Tk\n\nproc\ setBalloonHelp\ \{w\ msg\ args\}\ \{\n\ \ array\ set\ opt\ \[concat\ \{\n\ \ \ \ \ \ -tag\ \"\"\n\ \ \ \ \}\ \$args\]\n\ \ if\ \{\$msg\ ne\ \"\"\}\ then\ \{\n\ \ \ \ set\ toolTipScript\\\n\ \ \ \ \ \ \[list\ showBalloonHelp\ %W\ \[string\ map\ \{%\ %%\}\ \$msg\]\]\n\ \ \ \ set\ enterScript\ \[list\ after\ 1000\ \$toolTipScript\]\n\ \ \ \ set\ leaveScript\ \[list\ after\ cancel\ \$toolTipScript\]\n\ \ \ \ append\ leaveScript\ \\n\ \[list\ after\ 200\ \[list\ destroy\ .balloonHelp\]\]\n\ \ \}\ else\ \{\n\ \ \ \ set\ enterScript\ \{\}\n\ \ \ \ set\ leaveScript\ \{\}\n\ \ \}\n\ \ if\ \{\$opt(-tag)\ ne\ \"\"\}\ then\ \{\n\ \ \ \ switch\ --\ \[winfo\ class\ \$w\]\ \{\n\ \ \ \ \ \ Text\ \{\n\ \ \ \ \ \ \ \ \$w\ tag\ bind\ \$opt(-tag)\ <Enter>\ \$enterScript\n\ \ \ \ \ \ \ \ \$w\ tag\ bind\ \$opt(-tag)\ <Leave>\ \$leaveScript\n\ \ \ \ \ \ \}\n\ \ \ \ \ \ Canvas\ \{\n\ \ \ \ \ \ \ \ \$w\ bind\ \$opt(-tag)\ <Enter>\ \$enterScript\n\ \ \ \ \ \ \ \ \$w\ bind\ \$opt(-tag)\ <Leave>\ \$leaveScript\n\ \ \ \ \ \ \}\n\ \ \ \ \ \ default\ \{\n\ \ \ \ \ \ \ \ bind\ \$w\ <Enter>\ \$enterScript\n\ \ \ \ \ \ \ \ bind\ \$w\ <Leave>\ \$leaveScript\n\ \ \ \ \ \ \}\n\ \ \ \ \}\n\ \ \}\ else\ \{\n\ \ \ \ bind\ \$w\ <Enter>\ \$enterScript\n\ \ \ \ bind\ \$w\ <Leave>\ \$leaveScript\n\ \ \}\n\}\n\nproc\ showBalloonHelp\ \{w\ msg\}\ \{\n\ \ set\ t\ .balloonHelp\n\ \ catch\ \{destroy\ \$t\}\n\ \ toplevel\ \$t\ -bg\ black\n\ \ wm\ overrideredirect\ \$t\ yes\n\ \ if\ \{\$::tcl_platform(platform)\ ==\ \"macintosh\"\}\ \{\n\ \ \ \ unsupported1\ style\ \$t\ floating\ sideTitlebar\n\ \ \}\n\ \ pack\ \[label\ \$t.l\ -text\ \[subst\ \$msg\]\ -bg\ yellow\ -font\ \{Helvetica\ 9\}\]\\\n\ \ \ \ -padx\ 1\\\n\ \ \ \ -pady\ 1\n\ \ set\ width\ \[expr\ \{\[winfo\ reqwidth\ \$t.l\]\ +\ 2\}\]\n\ \ set\ height\ \[expr\ \{\[winfo\ reqheight\ \$t.l\]\ +\ 2\}\]\n\ \ set\ xMax\ \[expr\ \{\[winfo\ screenwidth\ \$w\]\ -\ \$width\}\]\n\ \ set\ yMax\ \[expr\ \{\[winfo\ screenheight\ \$w\]\ -\ \$height\}\]\n\ \ set\ x\ \[winfo\ pointerx\ \$w\]\n\ \ set\ y\ \[expr\ \{\[winfo\ pointery\ \$w\]\ +\ 20\}\]\n\ \ if\ \{\$x\ >\ \$xMax\}\ then\ \{\n\ \ \ \ set\ x\ \$xMax\n\ \ \}\n\ \ if\ \{\$y\ >\ \$yMax\}\ then\ \{\n\ \ \ \ set\ y\ \$yMax\n\ \ \}\n\ \ wm\ geometry\ \$t\ +\$x+\$y\n\ \ set\ destroyScript\ \[list\ destroy\ .balloonHelp\]\n\ \ bind\ \$t\ <Enter>\ \[list\ after\ cancel\ \$destroyScript\]\n\ \ bind\ \$t\ <Leave>\ \$destroyScript\n\}\n\n#\ demo\nif\ true\ \{\n\ \ pack\ \[button\ .b\ -text\ tryme\ -command\ \{puts\ \"you\ did\ it!\"\}\]\n\ \ setBalloonHelp\ .b\ \"Text\ that\ describes\\nwhat\ the\ button\ does\"\n\ \ #\n\ \ pack\ \[text\ .t\ -width\ 30\ -height\ 5\]\ -expand\ yes\ -fill\ both\n\ \ .t\ insert\ end\ abcDEFghi\n\ \ .t\ tag\ configure\ yellow\ -background\ yellow\n\ \ .t\ tag\ add\ yellow\ 1.1\ 1.6\n\ \ setBalloonHelp\ .t\ \"Colorised\ Text\"\ -tag\ yellow\n\ \ #\n\ \ pack\ \[canvas\ .c\]\ -expand\ yes\ -fill\ both\n\ \ set\ id\ \[.c\ create\ rectangle\ 10\ 10\ 100\ 100\ -fill\ white\]\n\ \ setBalloonHelp\ .c\ \{Geometry:\ \[.c\ coords\ \$::id\]\}\ -tag\ \$id\n\}\n\n----\n!!!!!!\n%|\ \[Category\ GUI\]\ |\ \[Category\ Dev.\ Tools\]\ |%\n!!!!!!} CALL {my revision {Balloon Help, Generalised}} CALL {::oo::Obj2982478 process revision/Balloon+Help%2C+Generalised} CALL {::oo::Obj2982476 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