Browse Source

fix minor but in punk::args doc processing

master
Julian Noble 4 months ago
parent
commit
fb09f527f9
  1. 2
      src/bootsupport/modules/punk/args-0.2.1.tm
  2. 2
      src/modules/punk/args-999999.0a1.0.tm
  3. 7
      src/modules/punk/args/moduledoc/tkcore-999999.0a1.0.tm
  4. 2
      src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/args-0.2.1.tm
  5. 2
      src/project_layouts/custom/_project/punk.shell-0.1/src/bootsupport/modules/punk/args-0.2.1.tm

2
src/bootsupport/modules/punk/args-0.2.1.tm

@ -965,7 +965,7 @@ tcl::namespace::eval punk::args {
set optionspecs [list]
foreach block $normargs {
if {[string first \$\{ $block] > 0} {
if {[string first \$\{ $block] >= 0} {
if {$defspace ne ""} {
set block [namespace eval $defspace [list punk::args::lib::tstr -return string -eval 1 -allowcommands -undent 1 $block]]
} else {

2
src/modules/punk/args-999999.0a1.0.tm

@ -965,7 +965,7 @@ tcl::namespace::eval punk::args {
set optionspecs [list]
foreach block $normargs {
if {[string first \$\{ $block] > 0} {
if {[string first \$\{ $block] >= 0} {
if {$defspace ne ""} {
set block [namespace eval $defspace [list punk::args::lib::tstr -return string -eval 1 -allowcommands -undent 1 $block]]
} else {

7
src/modules/punk/args/moduledoc/tkcore-999999.0a1.0.tm

@ -364,6 +364,7 @@ tcl::namespace::eval punk::args::moduledoc::tkcore {
# -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
lappend PUNKARGS_aliases {::button ::tk::button}
punk::args::define {
@dynamic
@id -id ::tk::button
@cmd -name "Tk Builtin: tk::button"\
-summary\
@ -388,7 +389,8 @@ tcl::namespace::eval punk::args::moduledoc::tkcore {
@opts -type string -parsekey "" -group "STANDARD OPTIONS" -grouphelp\
""
}\
{${[punk::args::resolved_def -types opts (default)::punk::args::moduledoc::tkcore::tk_standardoptions\
{
${[punk::args::resolved_def -types opts (default)::punk::args::moduledoc::tkcore::tk_standardoptions\
-activebackground\
-activeforeground\
-anchor\
@ -454,7 +456,8 @@ tcl::namespace::eval punk::args::moduledoc::tkcore {
} "@doc -name Manpage: -url [manpage button]"\
{@examples -help {
{
@examples -help {
This is the classic Tk “Hello, World!” demonstration:
${[punk::args::moduledoc::tclcore::argdoc::example {
button .b -text "Hello, World!" -command exit

2
src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/args-0.2.1.tm

@ -965,7 +965,7 @@ tcl::namespace::eval punk::args {
set optionspecs [list]
foreach block $normargs {
if {[string first \$\{ $block] > 0} {
if {[string first \$\{ $block] >= 0} {
if {$defspace ne ""} {
set block [namespace eval $defspace [list punk::args::lib::tstr -return string -eval 1 -allowcommands -undent 1 $block]]
} else {

2
src/project_layouts/custom/_project/punk.shell-0.1/src/bootsupport/modules/punk/args-0.2.1.tm

@ -965,7 +965,7 @@ tcl::namespace::eval punk::args {
set optionspecs [list]
foreach block $normargs {
if {[string first \$\{ $block] > 0} {
if {[string first \$\{ $block] >= 0} {
if {$defspace ne ""} {
set block [namespace eval $defspace [list punk::args::lib::tstr -return string -eval 1 -allowcommands -undent 1 $block]]
} else {

Loading…
Cancel
Save