diff --git a/src/bootsupport/modules/punk/args-0.2.1.tm b/src/bootsupport/modules/punk/args-0.2.1.tm index 0eab6f02..87b27290 100644 --- a/src/bootsupport/modules/punk/args-0.2.1.tm +++ b/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 { diff --git a/src/modules/punk/args-999999.0a1.0.tm b/src/modules/punk/args-999999.0a1.0.tm index 2a79e5af..17da1346 100644 --- a/src/modules/punk/args-999999.0a1.0.tm +++ b/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 { diff --git a/src/modules/punk/args/moduledoc/tkcore-999999.0a1.0.tm b/src/modules/punk/args/moduledoc/tkcore-999999.0a1.0.tm index 43702d59..2f39eb79 100644 --- a/src/modules/punk/args/moduledoc/tkcore-999999.0a1.0.tm +++ b/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 diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/args-0.2.1.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/args-0.2.1.tm index 0eab6f02..87b27290 100644 --- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/args-0.2.1.tm +++ b/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 { diff --git a/src/project_layouts/custom/_project/punk.shell-0.1/src/bootsupport/modules/punk/args-0.2.1.tm b/src/project_layouts/custom/_project/punk.shell-0.1/src/bootsupport/modules/punk/args-0.2.1.tm index 0eab6f02..87b27290 100644 --- a/src/project_layouts/custom/_project/punk.shell-0.1/src/bootsupport/modules/punk/args-0.2.1.tm +++ b/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 {