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