|
|
|
@ -310,7 +310,7 @@ tcl::namespace::eval ::punk::args::helpers { |
|
|
|
|
|
|
|
|
|
|
|
This was generated with code like the following in the punk::args::define script: |
|
|
|
This was generated with code like the following in the punk::args::define script: |
|
|
|
|
|
|
|
|
|
|
|
${[punk::args::helpers::example -syntax none -tstr 1 { |
|
|
|
${[punk::args::helpers::example -syntax none -tstr 0 { |
|
|
|
|
|
|
|
|
|
|
|
${[example -title "[a+ term-yellow Term-blue] Example 1 [a]" { |
|
|
|
${[example -title "[a+ term-yellow Term-blue] Example 1 [a]" { |
|
|
|
#A sample of an example block of text with a garish title and some basic tcl syntax highlighting. |
|
|
|
#A sample of an example block of text with a garish title and some basic tcl syntax highlighting. |
|
|
|
@ -383,10 +383,9 @@ tcl::namespace::eval ::punk::args::helpers { |
|
|
|
] |
|
|
|
] |
|
|
|
dict for {o v} $optlist { |
|
|
|
dict for {o v} $optlist { |
|
|
|
switch -- $o { |
|
|
|
switch -- $o { |
|
|
|
-padright - -syntax - -title - -titlealign - -notstr {} |
|
|
|
-padright - -syntax - -title - -titlealign - -tstr {} |
|
|
|
default { |
|
|
|
default { |
|
|
|
punk::args::parse $args withid ::punk::args::helpers::example |
|
|
|
return "parse error:\n[punk::args::parse $args withid ::punk::args::helpers::example]" |
|
|
|
return |
|
|
|
|
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
|