63 changed files with 30434 additions and 3073 deletions
@ -1,51 +1,53 @@
|
||||
package provide app-punk 1.0 |
||||
#punk linerepl launcher |
||||
|
||||
#By the time we get here, we don't expect other packages to have been loaded - but the lib/module paths have already been scanned to populate 'package names' |
||||
|
||||
|
||||
#puts stdout "$::auto_path" |
||||
#puts stderr "-----------" |
||||
#puts stderr "tcl::tm::list" |
||||
#puts stderr "-----------" |
||||
#puts stderr "[join [tcl::tm::list] \n]" |
||||
#puts stderr "-----------" |
||||
#puts stderr "auto_path" |
||||
#puts stderr "-----------" |
||||
#puts stderr "[join $::auto_path \n]" |
||||
#puts stderr "-----------" |
||||
#puts stderr "thread? [package provide Thread]" |
||||
set thread_version [package require Thread] |
||||
#puts stderr "repl.tcl thread version:$thread_version" |
||||
#puts stderr "info loaded:" |
||||
#puts stderr [join [info loaded] \n] |
||||
|
||||
#set tpath [lindex [info loaded] 0 0] |
||||
#puts stdout "--$tpath--" |
||||
#puts stdout "--[file exists $tpath]--" |
||||
#set tid [thread::create -preserved] |
||||
#thread::send $tid {puts thread1} |
||||
#puts stdout "mythread: [thread::id]" |
||||
|
||||
#review |
||||
#catch {package require tcllibc} |
||||
|
||||
#punk & shellrun should be in codethreads - but not required in the parent repl threads |
||||
package require shellfilter |
||||
|
||||
package require punk::repl |
||||
#puts stderr "package names" |
||||
#set packages_present [list] |
||||
#foreach p [package names] { |
||||
# if {[package provide $p] ne ""} { |
||||
# lappend packages_present $p |
||||
# } |
||||
#} |
||||
#puts stderr [join $packages_present \n] |
||||
repl::init -safe 0 |
||||
#puts stderr "Launching repl::start stdin -title app-punk" |
||||
#flush stderr |
||||
repl::start stdin -title app-punk |
||||
#puts "- repl app done -" |
||||
#flush stdout |
||||
|
||||
package provide app-punk 1.0 |
||||
#punk linerepl launcher |
||||
|
||||
#By the time we get here, we don't expect other packages to have been loaded - but the lib/module paths have already been scanned to populate 'package names' |
||||
|
||||
|
||||
#puts stdout "$::auto_path" |
||||
#puts stderr "-----------" |
||||
#puts stderr "tcl::tm::list" |
||||
#puts stderr "-----------" |
||||
#puts stderr "[join [tcl::tm::list] \n]" |
||||
#puts stderr "-----------" |
||||
#puts stderr "auto_path" |
||||
#puts stderr "-----------" |
||||
#puts stderr "[join $::auto_path \n]" |
||||
#puts stderr "-----------" |
||||
#puts stderr "thread? [package provide Thread]" |
||||
set thread_version [package require Thread] |
||||
#puts stderr "repl.tcl thread version:$thread_version" |
||||
#puts stderr "info loaded:" |
||||
#puts stderr [join [info loaded] \n] |
||||
|
||||
#set tpath [lindex [info loaded] 0 0] |
||||
#puts stdout "--$tpath--" |
||||
#puts stdout "--[file exists $tpath]--" |
||||
#set tid [thread::create -preserved] |
||||
#thread::send $tid {puts thread1} |
||||
#puts stdout "mythread: [thread::id]" |
||||
|
||||
#review |
||||
#catch {package require tcllibc} |
||||
|
||||
#punk & shellrun should be in codethreads - but not required in the parent repl threads |
||||
package require shellfilter |
||||
|
||||
package require punk::repl |
||||
#set v [package provide punk::repl] |
||||
#puts stderr "punk::repl version:$v script: [package ifneeded punk::repl $v]" |
||||
#puts stderr "package names" |
||||
#set packages_present [list] |
||||
#foreach p [package names] { |
||||
# if {[package provide $p] ne ""} { |
||||
# lappend packages_present $p |
||||
# } |
||||
#} |
||||
#puts stderr [join $packages_present \n] |
||||
repl::init -safe 0 |
||||
#puts stderr "Launching repl::start stdin -title app-punk" |
||||
#flush stderr |
||||
repl::start stdin -title app-punk |
||||
#puts "- repl app done -" |
||||
#flush stdout |
||||
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -0,0 +1,969 @@
|
||||
# -*- tcl -*- |
||||
# Maintenance Instruction: leave the 999999.xxx.x as is and use punkshell 'dev make' or bin/punkmake to update from <pkg>-buildversion.txt |
||||
# module template: shellspy/src/decktemplates/vendor/punk/modules/template_module-0.0.3.tm |
||||
# |
||||
# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem. |
||||
# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository. |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
# (C) 2025 |
||||
# |
||||
# @@ Meta Begin |
||||
# Application ::punk::ansi::colourmap 999999.0a1.0 |
||||
# Meta platform tcl |
||||
# Meta license MIT |
||||
# @@ Meta End |
||||
|
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
# doctools header |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
#*** !doctools |
||||
#[manpage_begin shellspy_module_::punk::ansi::colourmap 0 999999.0a1.0] |
||||
#[copyright "2025"] |
||||
#[titledesc {Module API}] [comment {-- Name section and table of contents description --}] |
||||
#[moddesc {-}] [comment {-- Description at end of page heading --}] |
||||
#[require ::punk::ansi::colourmap] |
||||
#[keywords module] |
||||
#[description] |
||||
#[para] - |
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
|
||||
#*** !doctools |
||||
#[section Overview] |
||||
#[para] overview of ::punk::ansi::colourmap |
||||
#[subsection Concepts] |
||||
#[para] - |
||||
|
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
## Requirements |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
|
||||
#*** !doctools |
||||
#[subsection dependencies] |
||||
#[para] packages used by ::punk::ansi::colourmap |
||||
#[list_begin itemized] |
||||
|
||||
package require Tcl 8.6- |
||||
#*** !doctools |
||||
#[item] [package {Tcl 8.6}] |
||||
|
||||
# #package require frobz |
||||
# #*** !doctools |
||||
# #[item] [package {frobz}] |
||||
|
||||
#*** !doctools |
||||
#[list_end] |
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
|
||||
#*** !doctools |
||||
#[section API] |
||||
|
||||
|
||||
tcl::namespace::eval ::punk::ansi::colourmap { |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
# Base namespace |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
#*** !doctools |
||||
#[subsection {Namespace ::punk::ansi::colourmap}] |
||||
#[para] Core API functions for ::punk::ansi::colourmap |
||||
#[list_begin definitions] |
||||
|
||||
variable PUNKARGS |
||||
|
||||
#---------------------------------------------- |
||||
#todo - document vars as part of package API |
||||
#- or provide a function to return varnames? |
||||
#- or wrap each in a function and see if any performance/memory impact? (readonly - so should just be a reference without any copying?) |
||||
#TK_colour_map |
||||
#TK_colour_map_lookup |
||||
#TK_colour_map_merge |
||||
#TK_colour_map_reverse |
||||
#---------------------------------------------- |
||||
|
||||
|
||||
|
||||
#significantly slower than tables - but here as a check/test |
||||
lappend PUNKARGS [list { |
||||
@id -id ::punk::ansi::colourmap::get_rgb_using_tk |
||||
@cmd -name punk::ansi::colourmap::get_rgb_using_tk -help\ |
||||
"This function requires Tk to function, and will call |
||||
'package require tk' to load it. |
||||
The name argument accepts Tk colour names or hex values |
||||
in either #XXX or #XXXXXX format. |
||||
Tk colour names can be displayed using the command: |
||||
punk::ansi::a? tk ?glob..? |
||||
|
||||
get_rgb_using_tk returns a decimal rgb string delimited with dashes. |
||||
e.g |
||||
get_rgb_using_tk #FFF |
||||
255-255-255 |
||||
get_rgb_using_tk SlateBlue |
||||
106-90-205" |
||||
@leaders |
||||
name -type string|stringstartswith(#) |
||||
}] |
||||
proc get_rgb_using_tk {name} { |
||||
package require tk |
||||
#assuming 'winfo depth .' is always 32 ? |
||||
set RGB [winfo rgb . $name] |
||||
set rgb [lmap n $RGB {expr {$n / 256}}] |
||||
return [join $rgb -] |
||||
} |
||||
|
||||
variable TK_colour_map |
||||
tcl::dict::set TK_colour_map "alice blue" 240-248-255 |
||||
tcl::dict::set TK_colour_map AliceBlue 240-248-255 |
||||
tcl::dict::set TK_colour_map "antique white" 250-235-215 |
||||
tcl::dict::set TK_colour_map AntiqueWhite 250-235-215 |
||||
tcl::dict::set TK_colour_map AntiqueWhite1 255-239-219 |
||||
tcl::dict::set TK_colour_map AntiqueWhite2 238-223-204 |
||||
tcl::dict::set TK_colour_map AntiqueWhite3 205-192-176 |
||||
tcl::dict::set TK_colour_map AntiqueWhite4 139-131-120 |
||||
tcl::dict::set TK_colour_map aqua 0-255-255 |
||||
tcl::dict::set TK_colour_map aquamarine 127-255-212 |
||||
tcl::dict::set TK_colour_map aquamarine1 127-255-212 |
||||
tcl::dict::set TK_colour_map aquamarine2 118-238-198 |
||||
tcl::dict::set TK_colour_map aquamarine3 102-205-170 |
||||
tcl::dict::set TK_colour_map aquamarine4 69-139-16 |
||||
tcl::dict::set TK_colour_map azure 240-255-255 |
||||
tcl::dict::set TK_colour_map azure1 240-255-255 |
||||
tcl::dict::set TK_colour_map azure2 224-238-238 |
||||
tcl::dict::set TK_colour_map azure3 193-205-205 |
||||
tcl::dict::set TK_colour_map azure4 131-139-139 |
||||
tcl::dict::set TK_colour_map beige 245-245-220 |
||||
tcl::dict::set TK_colour_map bisque 255-228-196 |
||||
tcl::dict::set TK_colour_map bisque1 255-228-196 |
||||
tcl::dict::set TK_colour_map bisque2 238-213-183 |
||||
tcl::dict::set TK_colour_map bisque3 205-183-158 |
||||
tcl::dict::set TK_colour_map bisque4 139-125-107 |
||||
tcl::dict::set TK_colour_map black 0-0-0 |
||||
tcl::dict::set TK_colour_map "blanched almond" 255-235-205 |
||||
tcl::dict::set TK_colour_map BlanchedAlmond 255-235-205 |
||||
tcl::dict::set TK_colour_map blue 0-0-255 |
||||
tcl::dict::set TK_colour_map "blue violet" 138-43-226 |
||||
tcl::dict::set TK_colour_map blue1 0-0-255 |
||||
tcl::dict::set TK_colour_map blue2 0-0-238 |
||||
tcl::dict::set TK_colour_map blue3 0-0-205 |
||||
tcl::dict::set TK_colour_map blue4 0-0-139 |
||||
tcl::dict::set TK_colour_map BlueViolet 138-43-226 |
||||
tcl::dict::set TK_colour_map brown 165-42-42 |
||||
tcl::dict::set TK_colour_map brown1 255-64-64 |
||||
tcl::dict::set TK_colour_map brown2 238-59-59 |
||||
tcl::dict::set TK_colour_map brown3 205-51-51 |
||||
tcl::dict::set TK_colour_map brown4 139-35-35 |
||||
tcl::dict::set TK_colour_map burlywood 222-184-135 |
||||
tcl::dict::set TK_colour_map burlywood1 255-211-155 |
||||
tcl::dict::set TK_colour_map burlywood2 238-197-145 |
||||
tcl::dict::set TK_colour_map burlywood3 205-170-125 |
||||
tcl::dict::set TK_colour_map burlywood4 139-115-85 |
||||
tcl::dict::set TK_colour_map "cadet blue" 95-158-160 |
||||
tcl::dict::set TK_colour_map CadetBlue 95-158-160 |
||||
tcl::dict::set TK_colour_map CadetBlue1 152-245-255 |
||||
tcl::dict::set TK_colour_map CadetBlue2 142-229-238 |
||||
tcl::dict::set TK_colour_map CadetBlue3 122-197-205 |
||||
tcl::dict::set TK_colour_map CadetBlue4 83-134-139 |
||||
tcl::dict::set TK_colour_map chartreuse 127-255-0 |
||||
tcl::dict::set TK_colour_map chartreuse1 127-255-0 |
||||
tcl::dict::set TK_colour_map chartreuse2 118-238-0 |
||||
tcl::dict::set TK_colour_map chartreuse3 102-205-0 |
||||
tcl::dict::set TK_colour_map chartreuse4 69-139-0 |
||||
tcl::dict::set TK_colour_map chocolate 210-105-30 |
||||
tcl::dict::set TK_colour_map chocolate1 255-127-36 |
||||
tcl::dict::set TK_colour_map chocolate2 238-118-33 |
||||
tcl::dict::set TK_colour_map chocolate3 205-102-29 |
||||
tcl::dict::set TK_colour_map chocolate4 139-69-19 |
||||
tcl::dict::set TK_colour_map coral 255-127-80 |
||||
tcl::dict::set TK_colour_map coral1 255-114-86 |
||||
tcl::dict::set TK_colour_map coral2 238-106-80 |
||||
tcl::dict::set TK_colour_map coral3 205-91-69 |
||||
tcl::dict::set TK_colour_map coral4 139-62-47 |
||||
tcl::dict::set TK_colour_map "cornflower blue" 100-149-237 |
||||
tcl::dict::set TK_colour_map CornflowerBlue 100-149-237 |
||||
tcl::dict::set TK_colour_map cornsilk 255-248-220 |
||||
tcl::dict::set TK_colour_map cornsilk1 255-248-220 |
||||
tcl::dict::set TK_colour_map cornsilk2 238-232-205 |
||||
tcl::dict::set TK_colour_map cornsilk3 205-200-177 |
||||
tcl::dict::set TK_colour_map cornsilk4 139-136-120 |
||||
tcl::dict::set TK_colour_map crimson 220-20-60 |
||||
tcl::dict::set TK_colour_map cyan 0-255-255 |
||||
tcl::dict::set TK_colour_map cyan1 0-255-255 |
||||
tcl::dict::set TK_colour_map cyan2 0-238-238 |
||||
tcl::dict::set TK_colour_map cyan3 0-205-205 |
||||
tcl::dict::set TK_colour_map cyan4 0-139-139 |
||||
tcl::dict::set TK_colour_map "dark blue" 0-0-139 |
||||
tcl::dict::set TK_colour_map "dark cyan" 0-139-139 |
||||
tcl::dict::set TK_colour_map "dark goldenrod" 184-134-11 |
||||
tcl::dict::set TK_colour_map "dark gray" 169-169-169 |
||||
tcl::dict::set TK_colour_map "dark green" 0-100-0 |
||||
tcl::dict::set TK_colour_map "dark grey" 169-169-169 |
||||
tcl::dict::set TK_colour_map "dark khaki" 189-183-107 |
||||
tcl::dict::set TK_colour_map "dark magenta" 139-0-139 |
||||
tcl::dict::set TK_colour_map "dark olive green" 85-107-47 |
||||
tcl::dict::set TK_colour_map "dark orange" 255-140-0 |
||||
tcl::dict::set TK_colour_map "dark orchid" 153-50-204 |
||||
tcl::dict::set TK_colour_map "dark red" 139-0-0 |
||||
tcl::dict::set TK_colour_map "dark salmon" 233-150-122 |
||||
tcl::dict::set TK_colour_map "dark sea green" 143-188-143 |
||||
tcl::dict::set TK_colour_map "dark slate blue" 72-61-139 |
||||
tcl::dict::set TK_colour_map "dark slate gray" 47-79-79 |
||||
tcl::dict::set TK_colour_map "dark slate grey" 47-79-79 |
||||
tcl::dict::set TK_colour_map "dark turquoise" 0-206-209 |
||||
tcl::dict::set TK_colour_map "dark violet" 148-0-211 |
||||
tcl::dict::set TK_colour_map DarkBlue 0-0-139 |
||||
tcl::dict::set TK_colour_map DarkCyan 0-139-139 |
||||
tcl::dict::set TK_colour_map DarkGoldenrod 184-134-11 |
||||
tcl::dict::set TK_colour_map DarkGoldenrod1 255-185-15 |
||||
tcl::dict::set TK_colour_map DarkGoldenrod2 238-173-14 |
||||
tcl::dict::set TK_colour_map DarkGoldenrod3 205-149-12 |
||||
tcl::dict::set TK_colour_map DarkGoldenrod4 139-101-8 |
||||
tcl::dict::set TK_colour_map DarkGray 169-169-169 |
||||
tcl::dict::set TK_colour_map DarkGreen 0-100-0 |
||||
tcl::dict::set TK_colour_map DarkGrey 169-169-169 |
||||
tcl::dict::set TK_colour_map DarkKhaki 189-183-107 |
||||
tcl::dict::set TK_colour_map DarkMagenta 139-0-139 |
||||
tcl::dict::set TK_colour_map DarkOliveGreen 85-107-47 |
||||
tcl::dict::set TK_colour_map DarkOliveGreen1 202-255-112 |
||||
tcl::dict::set TK_colour_map DarkOliveGreen2 188-238-104 |
||||
tcl::dict::set TK_colour_map DarkOliveGreen3 162-205-90 |
||||
tcl::dict::set TK_colour_map DarkOliveGreen4 110-139-61 |
||||
tcl::dict::set TK_colour_map DarkOrange 255-140-0 |
||||
tcl::dict::set TK_colour_map DarkOrange1 255-127-0 |
||||
tcl::dict::set TK_colour_map DarkOrange2 238-118-0 |
||||
tcl::dict::set TK_colour_map DarkOrange3 205-102-0 |
||||
tcl::dict::set TK_colour_map DarkOrange4 139-69-0 |
||||
tcl::dict::set TK_colour_map DarkOrchid 153-50-204 |
||||
tcl::dict::set TK_colour_map DarkOrchid1 191-62-255 |
||||
tcl::dict::set TK_colour_map DarkOrchid2 178-58-238 |
||||
tcl::dict::set TK_colour_map DarkOrchid3 154-50-205 |
||||
tcl::dict::set TK_colour_map DarkOrchid4 104-34-139 |
||||
tcl::dict::set TK_colour_map DarkRed 139-0-0 |
||||
tcl::dict::set TK_colour_map DarkSalmon 233-150-122 |
||||
tcl::dict::set TK_colour_map DarkSeaGreen 43-188-143 |
||||
tcl::dict::set TK_colour_map DarkSeaGreen1 193-255-193 |
||||
tcl::dict::set TK_colour_map DarkSeaGreen2 180-238-180 |
||||
tcl::dict::set TK_colour_map DarkSeaGreen3 155-205-155 |
||||
tcl::dict::set TK_colour_map DarkSeaGreen4 105-139-105 |
||||
tcl::dict::set TK_colour_map DarkSlateBlue 72-61-139 |
||||
tcl::dict::set TK_colour_map DarkSlateGray 47-79-79 |
||||
tcl::dict::set TK_colour_map DarkSlateGray1 151-255-255 |
||||
tcl::dict::set TK_colour_map DarkSlateGray2 141-238-238 |
||||
tcl::dict::set TK_colour_map DarkSlateGray3 121-205-205 |
||||
tcl::dict::set TK_colour_map DarkSlateGray4 82-139-139 |
||||
tcl::dict::set TK_colour_map DarkSlateGrey 47-79-79 |
||||
tcl::dict::set TK_colour_map DarkTurquoise 0-206-209 |
||||
tcl::dict::set TK_colour_map DarkViolet 148-0-211 |
||||
tcl::dict::set TK_colour_map "deep pink" 255-20-147 |
||||
tcl::dict::set TK_colour_map "deep sky blue" 0-191-255 |
||||
tcl::dict::set TK_colour_map DeepPink 255-20-147 |
||||
tcl::dict::set TK_colour_map DeepPink1 255-20-147 |
||||
tcl::dict::set TK_colour_map DeepPink2 238-18-137 |
||||
tcl::dict::set TK_colour_map DeepPink3 205-16-118 |
||||
tcl::dict::set TK_colour_map DeepPink4 139-10-80 |
||||
tcl::dict::set TK_colour_map DeepSkyBlue 0-191-255 |
||||
tcl::dict::set TK_colour_map DeepSkyBlue1 0-191-255 |
||||
tcl::dict::set TK_colour_map DeepSkyBlue2 0-178-238 |
||||
tcl::dict::set TK_colour_map DeepSkyBlue3 0-154-205 |
||||
tcl::dict::set TK_colour_map DeepSkyBlue4 0-104-139 |
||||
tcl::dict::set TK_colour_map "dim gray" 105-105-105 |
||||
tcl::dict::set TK_colour_map "dim grey" 105-105-105 |
||||
tcl::dict::set TK_colour_map DimGray 105-105-105 |
||||
tcl::dict::set TK_colour_map DimGrey 105-105-105 |
||||
tcl::dict::set TK_colour_map "dodger blue" 30-144-255 |
||||
tcl::dict::set TK_colour_map DodgerBlue 30-144-255 |
||||
tcl::dict::set TK_colour_map DodgerBlue1 30-144-255 |
||||
tcl::dict::set TK_colour_map DodgerBlue2 28-134-238 |
||||
tcl::dict::set TK_colour_map DodgerBlue3 24-116-205 |
||||
tcl::dict::set TK_colour_map DodgerBlue4 16-78-139 |
||||
tcl::dict::set TK_colour_map firebrick 178-34-34 |
||||
tcl::dict::set TK_colour_map firebrick1 255-48-48 |
||||
tcl::dict::set TK_colour_map firebrick2 238-44-44 |
||||
tcl::dict::set TK_colour_map firebrick3 205-38-38 |
||||
tcl::dict::set TK_colour_map firebrick4 139-26-26 |
||||
tcl::dict::set TK_colour_map "floral white" 255-250-240 |
||||
tcl::dict::set TK_colour_map FloralWhite 255-250-240 |
||||
tcl::dict::set TK_colour_map "forest green" 34-139-34 |
||||
tcl::dict::set TK_colour_map ForestGreen 34-139-34 |
||||
tcl::dict::set TK_colour_map fuchsia 255-0-255 |
||||
tcl::dict::set TK_colour_map gainsboro 220-220-220 |
||||
tcl::dict::set TK_colour_map "ghost white" 248-248-255 |
||||
tcl::dict::set TK_colour_map GhostWhite 248-248-255 |
||||
tcl::dict::set TK_colour_map gold 255-215-0 |
||||
tcl::dict::set TK_colour_map gold1 255-215-0 |
||||
tcl::dict::set TK_colour_map gold2 238-201-0 |
||||
tcl::dict::set TK_colour_map gold3 205-173-0 |
||||
tcl::dict::set TK_colour_map gold4 139-117-0 |
||||
tcl::dict::set TK_colour_map goldenrod 218-165-32 |
||||
tcl::dict::set TK_colour_map goldenrod1 255-193-37 |
||||
tcl::dict::set TK_colour_map goldenrod2 238-180-34 |
||||
tcl::dict::set TK_colour_map goldenrod3 205-155-29 |
||||
tcl::dict::set TK_colour_map goldenrod4 139-105-20 |
||||
tcl::dict::set TK_colour_map gray 128-128-128 |
||||
tcl::dict::set TK_colour_map gray0 0-0-0 |
||||
tcl::dict::set TK_colour_map gray1 3-3-3 |
||||
tcl::dict::set TK_colour_map gray2 5-5-5 |
||||
tcl::dict::set TK_colour_map gray3 8-8-8 |
||||
tcl::dict::set TK_colour_map gray4 10-10-10 |
||||
tcl::dict::set TK_colour_map gray5 13-13-13 |
||||
tcl::dict::set TK_colour_map gray6 15-15-15 |
||||
tcl::dict::set TK_colour_map gray7 18-18-18 |
||||
tcl::dict::set TK_colour_map gray8 20-20-20 |
||||
tcl::dict::set TK_colour_map gray9 23-23-23 |
||||
tcl::dict::set TK_colour_map gray10 26-26-26 |
||||
tcl::dict::set TK_colour_map gray11 28-28-28 |
||||
tcl::dict::set TK_colour_map gray12 31-31-31 |
||||
tcl::dict::set TK_colour_map gray13 33-33-33 |
||||
tcl::dict::set TK_colour_map gray14 36-36-36 |
||||
tcl::dict::set TK_colour_map gray15 38-38-38 |
||||
tcl::dict::set TK_colour_map gray16 41-41-41 |
||||
tcl::dict::set TK_colour_map gray17 43-43-43 |
||||
tcl::dict::set TK_colour_map gray18 46-46-46 |
||||
tcl::dict::set TK_colour_map gray19 48-48-48 |
||||
tcl::dict::set TK_colour_map gray20 51-51-51 |
||||
tcl::dict::set TK_colour_map gray21 54-54-54 |
||||
tcl::dict::set TK_colour_map gray22 56-56-56 |
||||
tcl::dict::set TK_colour_map gray23 59-59-59 |
||||
tcl::dict::set TK_colour_map gray24 61-61-61 |
||||
tcl::dict::set TK_colour_map gray25 64-64-64 |
||||
tcl::dict::set TK_colour_map gray26 66-66-66 |
||||
tcl::dict::set TK_colour_map gray27 69-69-69 |
||||
tcl::dict::set TK_colour_map gray28 71-71-71 |
||||
tcl::dict::set TK_colour_map gray29 74-74-74 |
||||
tcl::dict::set TK_colour_map gray30 77-77-77 |
||||
tcl::dict::set TK_colour_map gray31 79-79-79 |
||||
tcl::dict::set TK_colour_map gray32 82-82-82 |
||||
tcl::dict::set TK_colour_map gray33 84-84-84 |
||||
tcl::dict::set TK_colour_map gray34 87-87-87 |
||||
tcl::dict::set TK_colour_map gray35 89-89-89 |
||||
tcl::dict::set TK_colour_map gray36 92-92-92 |
||||
tcl::dict::set TK_colour_map gray37 94-94-94 |
||||
tcl::dict::set TK_colour_map gray38 97-97-97 |
||||
tcl::dict::set TK_colour_map gray39 99-99-99 |
||||
tcl::dict::set TK_colour_map gray40 102-102-102 |
||||
tcl::dict::set TK_colour_map gray41 105-105-105 |
||||
tcl::dict::set TK_colour_map gray42 107-107-107 |
||||
tcl::dict::set TK_colour_map gray43 110-110-110 |
||||
tcl::dict::set TK_colour_map gray44 112-112-112 |
||||
tcl::dict::set TK_colour_map gray45 115-115-115 |
||||
tcl::dict::set TK_colour_map gray46 117-117-117 |
||||
tcl::dict::set TK_colour_map gray47 120-120-120 |
||||
tcl::dict::set TK_colour_map gray48 122-122-122 |
||||
tcl::dict::set TK_colour_map gray49 125-125-125 |
||||
tcl::dict::set TK_colour_map gray50 127-127-127 |
||||
tcl::dict::set TK_colour_map gray51 130-130-130 |
||||
tcl::dict::set TK_colour_map gray52 133-133-133 |
||||
tcl::dict::set TK_colour_map gray53 135-135-135 |
||||
tcl::dict::set TK_colour_map gray54 138-138-138 |
||||
tcl::dict::set TK_colour_map gray55 140-140-140 |
||||
tcl::dict::set TK_colour_map gray56 143-143-143 |
||||
tcl::dict::set TK_colour_map gray57 145-145-145 |
||||
tcl::dict::set TK_colour_map gray58 148-148-148 |
||||
tcl::dict::set TK_colour_map gray59 150-150-150 |
||||
tcl::dict::set TK_colour_map gray60 153-153-153 |
||||
tcl::dict::set TK_colour_map gray61 156-156-156 |
||||
tcl::dict::set TK_colour_map gray62 158-158-158 |
||||
tcl::dict::set TK_colour_map gray63 161-161-161 |
||||
tcl::dict::set TK_colour_map gray64 163-163-163 |
||||
tcl::dict::set TK_colour_map gray65 166-166-166 |
||||
tcl::dict::set TK_colour_map gray66 168-168-168 |
||||
tcl::dict::set TK_colour_map gray67 171-171-171 |
||||
tcl::dict::set TK_colour_map gray68 173-173-173 |
||||
tcl::dict::set TK_colour_map gray69 176-176-176 |
||||
tcl::dict::set TK_colour_map gray70 179-179-179 |
||||
tcl::dict::set TK_colour_map gray71 181-181-181 |
||||
tcl::dict::set TK_colour_map gray72 184-184-184 |
||||
tcl::dict::set TK_colour_map gray73 186-186-186 |
||||
tcl::dict::set TK_colour_map gray74 189-189-189 |
||||
tcl::dict::set TK_colour_map gray75 191-191-191 |
||||
tcl::dict::set TK_colour_map gray76 194-194-194 |
||||
tcl::dict::set TK_colour_map gray77 196-196-196 |
||||
tcl::dict::set TK_colour_map gray78 199-199-199 |
||||
tcl::dict::set TK_colour_map gray79 201-201-201 |
||||
tcl::dict::set TK_colour_map gray80 204-204-204 |
||||
tcl::dict::set TK_colour_map gray81 207-207-207 |
||||
tcl::dict::set TK_colour_map gray82 209-209-209 |
||||
tcl::dict::set TK_colour_map gray83 212-212-212 |
||||
tcl::dict::set TK_colour_map gray84 214-214-214 |
||||
tcl::dict::set TK_colour_map gray85 217-217-217 |
||||
tcl::dict::set TK_colour_map gray86 219-219-219 |
||||
tcl::dict::set TK_colour_map gray87 222-222-222 |
||||
tcl::dict::set TK_colour_map gray88 224-224-224 |
||||
tcl::dict::set TK_colour_map gray89 227-227-227 |
||||
tcl::dict::set TK_colour_map gray90 229-229-229 |
||||
tcl::dict::set TK_colour_map gray91 232-232-232 |
||||
tcl::dict::set TK_colour_map gray92 235-235-235 |
||||
tcl::dict::set TK_colour_map gray93 237-237-237 |
||||
tcl::dict::set TK_colour_map gray94 240-240-240 |
||||
tcl::dict::set TK_colour_map gray95 242-242-242 |
||||
tcl::dict::set TK_colour_map gray96 245-245-245 |
||||
tcl::dict::set TK_colour_map gray97 247-247-247 |
||||
tcl::dict::set TK_colour_map gray98 250-250-250 |
||||
tcl::dict::set TK_colour_map gray99 252-252-252 |
||||
tcl::dict::set TK_colour_map gray100 255-255-255 |
||||
tcl::dict::set TK_colour_map green 0-128-0 |
||||
tcl::dict::set TK_colour_map "green yellow" 173-255-47 |
||||
tcl::dict::set TK_colour_map green1 0-255-0 |
||||
tcl::dict::set TK_colour_map green2 0-238-0 |
||||
tcl::dict::set TK_colour_map green3 0-205-0 |
||||
tcl::dict::set TK_colour_map green4 0-139-0 |
||||
tcl::dict::set TK_colour_map GreenYellow 173-255-47 |
||||
tcl::dict::set TK_colour_map grey 128-128-128 |
||||
tcl::dict::set TK_colour_map grey0 0-0-0 |
||||
tcl::dict::set TK_colour_map grey1 3-3-3 |
||||
tcl::dict::set TK_colour_map grey2 5-5-5 |
||||
tcl::dict::set TK_colour_map grey3 8-8-8 |
||||
tcl::dict::set TK_colour_map grey4 10-10-10 |
||||
tcl::dict::set TK_colour_map grey5 13-13-13 |
||||
tcl::dict::set TK_colour_map grey6 15-15-15 |
||||
tcl::dict::set TK_colour_map grey7 18-18-18 |
||||
tcl::dict::set TK_colour_map grey8 20-20-20 |
||||
tcl::dict::set TK_colour_map grey9 23-23-23 |
||||
tcl::dict::set TK_colour_map grey10 26-26-26 |
||||
tcl::dict::set TK_colour_map grey11 28-28-28 |
||||
tcl::dict::set TK_colour_map grey12 31-31-31 |
||||
tcl::dict::set TK_colour_map grey13 33-33-33 |
||||
tcl::dict::set TK_colour_map grey14 36-36-36 |
||||
tcl::dict::set TK_colour_map grey15 38-38-38 |
||||
tcl::dict::set TK_colour_map grey16 41-41-41 |
||||
tcl::dict::set TK_colour_map grey17 43-43-43 |
||||
tcl::dict::set TK_colour_map grey18 46-46-46 |
||||
tcl::dict::set TK_colour_map grey19 48-48-48 |
||||
tcl::dict::set TK_colour_map grey20 51-51-51 |
||||
tcl::dict::set TK_colour_map grey21 54-54-54 |
||||
tcl::dict::set TK_colour_map grey22 56-56-56 |
||||
tcl::dict::set TK_colour_map grey23 59-59-59 |
||||
tcl::dict::set TK_colour_map grey24 61-61-61 |
||||
tcl::dict::set TK_colour_map grey25 64-64-64 |
||||
tcl::dict::set TK_colour_map grey26 66-66-66 |
||||
tcl::dict::set TK_colour_map grey27 69-69-69 |
||||
tcl::dict::set TK_colour_map grey28 71-71-71 |
||||
tcl::dict::set TK_colour_map grey29 74-74-74 |
||||
tcl::dict::set TK_colour_map grey30 77-77-77 |
||||
tcl::dict::set TK_colour_map grey31 79-79-79 |
||||
tcl::dict::set TK_colour_map grey32 82-82-82 |
||||
tcl::dict::set TK_colour_map grey33 84-84-84 |
||||
tcl::dict::set TK_colour_map grey34 87-87-87 |
||||
tcl::dict::set TK_colour_map grey35 89-89-89 |
||||
tcl::dict::set TK_colour_map grey36 92-92-92 |
||||
tcl::dict::set TK_colour_map grey37 94-94-94 |
||||
tcl::dict::set TK_colour_map grey38 97-97-97 |
||||
tcl::dict::set TK_colour_map grey39 99-99-99 |
||||
tcl::dict::set TK_colour_map grey40 102-102-102 |
||||
tcl::dict::set TK_colour_map grey41 105-105-105 |
||||
tcl::dict::set TK_colour_map grey42 107-107-107 |
||||
tcl::dict::set TK_colour_map grey43 110-110-110 |
||||
tcl::dict::set TK_colour_map grey44 112-112-112 |
||||
tcl::dict::set TK_colour_map grey45 115-115-115 |
||||
tcl::dict::set TK_colour_map grey46 117-117-117 |
||||
tcl::dict::set TK_colour_map grey47 120-120-120 |
||||
tcl::dict::set TK_colour_map grey48 122-122-122 |
||||
tcl::dict::set TK_colour_map grey49 125-125-125 |
||||
tcl::dict::set TK_colour_map grey50 127-127-127 |
||||
tcl::dict::set TK_colour_map grey51 130-130-130 |
||||
tcl::dict::set TK_colour_map grey52 133-133-133 |
||||
tcl::dict::set TK_colour_map grey53 135-135-135 |
||||
tcl::dict::set TK_colour_map grey54 138-138-138 |
||||
tcl::dict::set TK_colour_map grey55 140-140-140 |
||||
tcl::dict::set TK_colour_map grey56 143-143-143 |
||||
tcl::dict::set TK_colour_map grey57 145-145-145 |
||||
tcl::dict::set TK_colour_map grey58 148-148-148 |
||||
tcl::dict::set TK_colour_map grey59 150-150-150 |
||||
tcl::dict::set TK_colour_map grey60 153-153-153 |
||||
tcl::dict::set TK_colour_map grey61 156-156-156 |
||||
tcl::dict::set TK_colour_map grey62 158-158-158 |
||||
tcl::dict::set TK_colour_map grey63 161-161-161 |
||||
tcl::dict::set TK_colour_map grey64 163-163-163 |
||||
tcl::dict::set TK_colour_map grey65 166-166-166 |
||||
tcl::dict::set TK_colour_map grey66 168-168-168 |
||||
tcl::dict::set TK_colour_map grey67 171-171-171 |
||||
tcl::dict::set TK_colour_map grey68 173-173-173 |
||||
tcl::dict::set TK_colour_map grey69 176-176-176 |
||||
tcl::dict::set TK_colour_map grey70 179-179-179 |
||||
tcl::dict::set TK_colour_map grey71 181-181-181 |
||||
tcl::dict::set TK_colour_map grey72 184-184-184 |
||||
tcl::dict::set TK_colour_map grey73 186-186-186 |
||||
tcl::dict::set TK_colour_map grey74 189-189-189 |
||||
tcl::dict::set TK_colour_map grey75 191-191-191 |
||||
tcl::dict::set TK_colour_map grey76 194-194-194 |
||||
tcl::dict::set TK_colour_map grey77 196-196-196 |
||||
tcl::dict::set TK_colour_map grey78 199-199-199 |
||||
tcl::dict::set TK_colour_map grey79 201-201-201 |
||||
tcl::dict::set TK_colour_map grey80 204-204-204 |
||||
tcl::dict::set TK_colour_map grey81 207-207-207 |
||||
tcl::dict::set TK_colour_map grey82 209-209-209 |
||||
tcl::dict::set TK_colour_map grey83 212-212-212 |
||||
tcl::dict::set TK_colour_map grey84 214-214-214 |
||||
tcl::dict::set TK_colour_map grey85 217-217-217 |
||||
tcl::dict::set TK_colour_map grey86 219-219-219 |
||||
tcl::dict::set TK_colour_map grey87 222-222-222 |
||||
tcl::dict::set TK_colour_map grey88 224-224-224 |
||||
tcl::dict::set TK_colour_map grey89 227-227-227 |
||||
tcl::dict::set TK_colour_map grey90 229-229-229 |
||||
tcl::dict::set TK_colour_map grey91 232-232-232 |
||||
tcl::dict::set TK_colour_map grey92 235-235-235 |
||||
tcl::dict::set TK_colour_map grey93 237-237-237 |
||||
tcl::dict::set TK_colour_map grey94 240-240-240 |
||||
tcl::dict::set TK_colour_map grey95 242-242-242 |
||||
tcl::dict::set TK_colour_map grey96 245-245-245 |
||||
tcl::dict::set TK_colour_map grey97 247-247-247 |
||||
tcl::dict::set TK_colour_map grey98 250-250-250 |
||||
tcl::dict::set TK_colour_map grey99 252-252-252 |
||||
tcl::dict::set TK_colour_map grey100 255-255-255 |
||||
tcl::dict::set TK_colour_map honeydew 240-255-240 |
||||
tcl::dict::set TK_colour_map honeydew1 240-255-240 |
||||
tcl::dict::set TK_colour_map honeydew2 224-238-224 |
||||
tcl::dict::set TK_colour_map honeydew3 193-205-193 |
||||
tcl::dict::set TK_colour_map honeydew4 131-139-131 |
||||
tcl::dict::set TK_colour_map "hot pink" 255-105-180 |
||||
tcl::dict::set TK_colour_map HotPink 255-105-180 |
||||
tcl::dict::set TK_colour_map HotPink1 255-110-180 |
||||
tcl::dict::set TK_colour_map HotPink2 238-106-167 |
||||
tcl::dict::set TK_colour_map HotPink3 205-96-144 |
||||
tcl::dict::set TK_colour_map HotPink4 139-58-98 |
||||
tcl::dict::set TK_colour_map "indian red" 205-92-92 |
||||
tcl::dict::set TK_colour_map IndianRed 205-92-92 |
||||
tcl::dict::set TK_colour_map IndianRed1 255-106-106 |
||||
tcl::dict::set TK_colour_map IndianRed2 238-99-99 |
||||
tcl::dict::set TK_colour_map IndianRed3 205-85-85 |
||||
tcl::dict::set TK_colour_map IndianRed4 139-58-58 |
||||
tcl::dict::set TK_colour_map indigo 75-0-130 |
||||
tcl::dict::set TK_colour_map ivory 255-255-240 |
||||
tcl::dict::set TK_colour_map ivory1 255-255-240 |
||||
tcl::dict::set TK_colour_map ivory2 238-238-224 |
||||
tcl::dict::set TK_colour_map ivory3 205-205-193 |
||||
tcl::dict::set TK_colour_map ivory4 139-139-131 |
||||
tcl::dict::set TK_colour_map khaki 240-230-140 |
||||
tcl::dict::set TK_colour_map khaki1 255-246-143 |
||||
tcl::dict::set TK_colour_map khaki2 238-230-133 |
||||
tcl::dict::set TK_colour_map khaki3 205-198-115 |
||||
tcl::dict::set TK_colour_map khaki4 139-134-78 |
||||
tcl::dict::set TK_colour_map lavender 230-230-250 |
||||
tcl::dict::set TK_colour_map "lavender blush" 255-240-245 |
||||
tcl::dict::set TK_colour_map LavenderBlush 255-240-245 |
||||
tcl::dict::set TK_colour_map LavenderBlush1 255-240-245 |
||||
tcl::dict::set TK_colour_map LavenderBlush2 238-224-229 |
||||
tcl::dict::set TK_colour_map LavenderBlush3 205-193-197 |
||||
tcl::dict::set TK_colour_map LavenderBlush4 139-131-134 |
||||
tcl::dict::set TK_colour_map "lawn green" 124-252-0 |
||||
tcl::dict::set TK_colour_map LawnGreen 124-252-0 |
||||
tcl::dict::set TK_colour_map "lemon chiffon" 255-250-205 |
||||
tcl::dict::set TK_colour_map LemonChiffon 255-250-205 |
||||
tcl::dict::set TK_colour_map LemonChiffon1 255-250-205 |
||||
tcl::dict::set TK_colour_map LemonChiffon2 238-233-191 |
||||
tcl::dict::set TK_colour_map LemonChiffon3 205-201-165 |
||||
tcl::dict::set TK_colour_map LemonChiffon4 139-137-112 |
||||
tcl::dict::set TK_colour_map "light blue" 173-216-230 |
||||
tcl::dict::set TK_colour_map "light coral" 240-128-128 |
||||
tcl::dict::set TK_colour_map "light cyan" 224-255-255 |
||||
tcl::dict::set TK_colour_map "light goldenrod" 238-221-130 |
||||
tcl::dict::set TK_colour_map "light goldenrod yellow" 250-250-210 |
||||
tcl::dict::set TK_colour_map "light gray" 211-211-211 |
||||
tcl::dict::set TK_colour_map "light green" 144-238-144 |
||||
tcl::dict::set TK_colour_map "light grey" 211-211-211 |
||||
tcl::dict::set TK_colour_map "light pink" 255-182-193 |
||||
tcl::dict::set TK_colour_map "light salmon" 255-160-122 |
||||
tcl::dict::set TK_colour_map "light sea green" 32-178-170 |
||||
tcl::dict::set TK_colour_map "light sky blue" 135-206-250 |
||||
tcl::dict::set TK_colour_map "light slate blue" 132-112-255 |
||||
tcl::dict::set TK_colour_map "light slate gray" 119-136-153 |
||||
tcl::dict::set TK_colour_map "light slate grey" 119-136-153 |
||||
tcl::dict::set TK_colour_map "light steel blue" 176-196-222 |
||||
tcl::dict::set TK_colour_map "light yellow" 255-255-224 |
||||
tcl::dict::set TK_colour_map LightBlue 173-216-230 |
||||
tcl::dict::set TK_colour_map LightBlue1 191-239-255 |
||||
tcl::dict::set TK_colour_map LightBlue2 178-223-238 |
||||
tcl::dict::set TK_colour_map LightBlue3 154-192-205 |
||||
tcl::dict::set TK_colour_map LightBlue4 104-131-139 |
||||
tcl::dict::set TK_colour_map LightCoral 240-128-128 |
||||
tcl::dict::set TK_colour_map LightCyan 224-255-255 |
||||
tcl::dict::set TK_colour_map LightCyan1 224-255-255 |
||||
tcl::dict::set TK_colour_map LightCyan2 209-238-238 |
||||
tcl::dict::set TK_colour_map LightCyan3 180-205-205 |
||||
tcl::dict::set TK_colour_map LightCyan4 122-139-139 |
||||
tcl::dict::set TK_colour_map LightGoldenrod 238-221-130 |
||||
tcl::dict::set TK_colour_map LightGoldenrod1 255-236-139 |
||||
tcl::dict::set TK_colour_map LightGoldenrod2 238-220-130 |
||||
tcl::dict::set TK_colour_map LightGoldenrod3 205-190-112 |
||||
tcl::dict::set TK_colour_map LightGoldenrod4 139-129-76 |
||||
tcl::dict::set TK_colour_map LightGoldenrodYellow 250-250-210 |
||||
tcl::dict::set TK_colour_map LightGray 211-211-211 |
||||
tcl::dict::set TK_colour_map LightGreen 144-238-144 |
||||
tcl::dict::set TK_colour_map LightGrey 211-211-211 |
||||
tcl::dict::set TK_colour_map LightPink 255-182-193 |
||||
tcl::dict::set TK_colour_map LightPink1 255-174-185 |
||||
tcl::dict::set TK_colour_map LightPink2 238-162-173 |
||||
tcl::dict::set TK_colour_map LightPink3 205-140-149 |
||||
tcl::dict::set TK_colour_map LightPink4 139-95-101 |
||||
tcl::dict::set TK_colour_map LightSalmon 255-160-122 |
||||
tcl::dict::set TK_colour_map LightSalmon1 255-160-122 |
||||
tcl::dict::set TK_colour_map LightSalmon2 238-149-114 |
||||
tcl::dict::set TK_colour_map LightSalmon3 205-129-98 |
||||
tcl::dict::set TK_colour_map LightSalmon4 139-87-66 |
||||
tcl::dict::set TK_colour_map LightSeaGreen 32-178-170 |
||||
tcl::dict::set TK_colour_map LightSkyBlue 135-206-250 |
||||
tcl::dict::set TK_colour_map LightSkyBlue1 176-226-255 |
||||
tcl::dict::set TK_colour_map LightSkyBlue2 164-211-238 |
||||
tcl::dict::set TK_colour_map LightSkyBlue3 141-182-205 |
||||
tcl::dict::set TK_colour_map LightSkyBlue4 96-123-139 |
||||
tcl::dict::set TK_colour_map LightSlateBlue 132-112-255 |
||||
tcl::dict::set TK_colour_map LightSlateGray 119-136-153 |
||||
tcl::dict::set TK_colour_map LightSlateGrey 119-136-153 |
||||
tcl::dict::set TK_colour_map LightSteelBlue 176-196-222 |
||||
tcl::dict::set TK_colour_map LightSteelBlue1 202-225-255 |
||||
tcl::dict::set TK_colour_map LightSteelBlue2 188-210-238 |
||||
tcl::dict::set TK_colour_map LightSteelBlue3 162-181-205 |
||||
tcl::dict::set TK_colour_map LightSteelBlue4 110-123-139 |
||||
tcl::dict::set TK_colour_map LightYellow 255-255-224 |
||||
tcl::dict::set TK_colour_map LightYellow1 255-255-224 |
||||
tcl::dict::set TK_colour_map LightYellow2 238-238-209 |
||||
tcl::dict::set TK_colour_map LightYellow3 205-205-180 |
||||
tcl::dict::set TK_colour_map LightYellow4 139-139-122 |
||||
tcl::dict::set TK_colour_map lime 0-255-0 |
||||
tcl::dict::set TK_colour_map "lime green" 50-205-50 |
||||
tcl::dict::set TK_colour_map LimeGreen 50-205-50 |
||||
tcl::dict::set TK_colour_map linen 250-240-230 |
||||
tcl::dict::set TK_colour_map magenta 255-0-255 |
||||
tcl::dict::set TK_colour_map magenta1 255-0-255 |
||||
tcl::dict::set TK_colour_map magenta2 238-0-238 |
||||
tcl::dict::set TK_colour_map magenta3 205-0-205 |
||||
tcl::dict::set TK_colour_map magenta4 139-0-139 |
||||
tcl::dict::set TK_colour_map maroon 128-0-0 |
||||
tcl::dict::set TK_colour_map maroon1 255-52-179 |
||||
tcl::dict::set TK_colour_map maroon2 238-48-167 |
||||
tcl::dict::set TK_colour_map maroon3 205-41-144 |
||||
tcl::dict::set TK_colour_map maroon4 139-28-98 |
||||
tcl::dict::set TK_colour_map "medium aquamarine" 102-205-170 |
||||
tcl::dict::set TK_colour_map "medium blue" 0-0-205 |
||||
tcl::dict::set TK_colour_map "medium orchid" 186-85-211 |
||||
tcl::dict::set TK_colour_map "medium purple" 147-112-219 |
||||
tcl::dict::set TK_colour_map "medium sea green" 60-179-113 |
||||
tcl::dict::set TK_colour_map "medium slate blue" 123-104-238 |
||||
tcl::dict::set TK_colour_map "medium spring green" 0-250-154 |
||||
tcl::dict::set TK_colour_map "medium turquoise" 72-209-204 |
||||
tcl::dict::set TK_colour_map "medium violet red" 199-21-133 |
||||
tcl::dict::set TK_colour_map MediumAquamarine 102-205-170 |
||||
tcl::dict::set TK_colour_map MediumBlue 0-0-205 |
||||
tcl::dict::set TK_colour_map MediumOrchid 186-85-211 |
||||
tcl::dict::set TK_colour_map MediumOrchid1 224-102-255 |
||||
tcl::dict::set TK_colour_map MediumOrchid2 209-95-238 |
||||
tcl::dict::set TK_colour_map MediumOrchid3 180-82-205 |
||||
tcl::dict::set TK_colour_map MediumOrchid4 122-55-139 |
||||
tcl::dict::set TK_colour_map MediumPurple 147-112-219 |
||||
tcl::dict::set TK_colour_map MediumPurple1 171-130-255 |
||||
tcl::dict::set TK_colour_map MediumPurple2 159-121-238 |
||||
tcl::dict::set TK_colour_map MediumPurple3 137-104-205 |
||||
tcl::dict::set TK_colour_map MediumPurple4 93-71-139 |
||||
tcl::dict::set TK_colour_map MediumSeaGreen 60-179-113 |
||||
tcl::dict::set TK_colour_map MediumSlateBlue 123-104-238 |
||||
tcl::dict::set TK_colour_map MediumSpringGreen 0-250-154 |
||||
tcl::dict::set TK_colour_map MediumTurquoise 72-209-204 |
||||
tcl::dict::set TK_colour_map MediumVioletRed 199-21-133 |
||||
tcl::dict::set TK_colour_map "midnight blue" 25-25-112 |
||||
tcl::dict::set TK_colour_map MidnightBlue 25-25-112 |
||||
tcl::dict::set TK_colour_map "mint cream" 245-255-250 |
||||
tcl::dict::set TK_colour_map MintCream 245-255-250 |
||||
tcl::dict::set TK_colour_map "misty rose" 255-228-225 |
||||
tcl::dict::set TK_colour_map MistyRose 255-228-225 |
||||
tcl::dict::set TK_colour_map MistyRose1 255-228-225 |
||||
tcl::dict::set TK_colour_map MistyRose2 238-213-210 |
||||
tcl::dict::set TK_colour_map MistyRose3 205-183-181 |
||||
tcl::dict::set TK_colour_map MistyRose4 139-125-123 |
||||
tcl::dict::set TK_colour_map moccasin 255-228-181 |
||||
tcl::dict::set TK_colour_map "navajo white" 255-222-173 |
||||
tcl::dict::set TK_colour_map NavajoWhite 255-222-173 |
||||
tcl::dict::set TK_colour_map NavajoWhite1 255-222-173 |
||||
tcl::dict::set TK_colour_map NavajoWhite2 238-207-161 |
||||
tcl::dict::set TK_colour_map NavajoWhite3 205-179-139 |
||||
tcl::dict::set TK_colour_map NavajoWhite4 139-121-94 |
||||
tcl::dict::set TK_colour_map navy 0-0-128 |
||||
tcl::dict::set TK_colour_map "navy blue" 0-0-128 |
||||
tcl::dict::set TK_colour_map NavyBlue 0-0-128 |
||||
tcl::dict::set TK_colour_map "old lace" 253-245-230 |
||||
tcl::dict::set TK_colour_map OldLace 253-245-230 |
||||
tcl::dict::set TK_colour_map olive 128-128-0 |
||||
tcl::dict::set TK_colour_map "olive drab" 107-142-35 |
||||
tcl::dict::set TK_colour_map OliveDrab 107-142-35 |
||||
tcl::dict::set TK_colour_map OliveDrab1 192-255-62 |
||||
tcl::dict::set TK_colour_map OliveDrab2 179-238-58 |
||||
tcl::dict::set TK_colour_map OliveDrab3 154-205-50 |
||||
tcl::dict::set TK_colour_map OliveDrab4 105-139-34 |
||||
tcl::dict::set TK_colour_map orange 255-165-0 |
||||
tcl::dict::set TK_colour_map "orange red" 255-69-0 |
||||
tcl::dict::set TK_colour_map orange1 255-165-0 |
||||
tcl::dict::set TK_colour_map orange2 238-154-0 |
||||
tcl::dict::set TK_colour_map orange3 205-133-0 |
||||
tcl::dict::set TK_colour_map orange4 139-90-0 |
||||
tcl::dict::set TK_colour_map OrangeRed 255-69-0 |
||||
tcl::dict::set TK_colour_map OrangeRed1 255-69-0 |
||||
tcl::dict::set TK_colour_map OrangeRed2 238-64-0 |
||||
tcl::dict::set TK_colour_map OrangeRed3 205-55-0 |
||||
tcl::dict::set TK_colour_map OrangeRed4 139-37-0 |
||||
tcl::dict::set TK_colour_map orchid 218-112-214 |
||||
tcl::dict::set TK_colour_map orchid1 255-131-250 |
||||
tcl::dict::set TK_colour_map orchid2 238-122-233 |
||||
tcl::dict::set TK_colour_map orchid3 205-105-201 |
||||
tcl::dict::set TK_colour_map orchid4 139-71-137 |
||||
tcl::dict::set TK_colour_map "pale goldenrod" 238-232-170 |
||||
tcl::dict::set TK_colour_map "pale green" 152-251-152 |
||||
tcl::dict::set TK_colour_map "pale turquoise" 175-238-238 |
||||
tcl::dict::set TK_colour_map "pale violet red" 219-112-147 |
||||
tcl::dict::set TK_colour_map PaleGoldenrod 238-232-170 |
||||
tcl::dict::set TK_colour_map PaleGreen 152-251-152 |
||||
tcl::dict::set TK_colour_map PaleGreen1 154-255-154 |
||||
tcl::dict::set TK_colour_map PaleGreen2 144-238-144 |
||||
tcl::dict::set TK_colour_map PaleGreen3 124-205-124 |
||||
tcl::dict::set TK_colour_map PaleGreen4 84-139-84 |
||||
tcl::dict::set TK_colour_map PaleTurquoise 175-238-238 |
||||
tcl::dict::set TK_colour_map PaleTurquoise1 187-255-255 |
||||
tcl::dict::set TK_colour_map PaleTurquoise2 174-238-238 |
||||
tcl::dict::set TK_colour_map PaleTurquoise3 150-205-205 |
||||
tcl::dict::set TK_colour_map PaleTurquoise4 102-139-139 |
||||
tcl::dict::set TK_colour_map PaleVioletRed 219-112-147 |
||||
tcl::dict::set TK_colour_map PaleVioletRed1 255-130-171 |
||||
tcl::dict::set TK_colour_map PaleVioletRed2 238-121-159 |
||||
tcl::dict::set TK_colour_map PaleVioletRed3 205-104-127 |
||||
tcl::dict::set TK_colour_map PaleVioletRed4 139-71-93 |
||||
tcl::dict::set TK_colour_map "papaya whip" 255-239-213 |
||||
tcl::dict::set TK_colour_map PapayaWhip 255-239-213 |
||||
tcl::dict::set TK_colour_map "peach puff" 255-218-185 |
||||
tcl::dict::set TK_colour_map PeachPuff 255-218-185 |
||||
tcl::dict::set TK_colour_map PeachPuff1 255-218-185 |
||||
tcl::dict::set TK_colour_map PeachPuff2 238-203-173 |
||||
tcl::dict::set TK_colour_map PeachPuff3 205-175-149 |
||||
tcl::dict::set TK_colour_map PeachPuff4 139-119-101 |
||||
tcl::dict::set TK_colour_map peru 205-133-63 |
||||
tcl::dict::set TK_colour_map pink 255-192-203 |
||||
tcl::dict::set TK_colour_map pink1 255-181-197 |
||||
tcl::dict::set TK_colour_map pink2 238-169-184 |
||||
tcl::dict::set TK_colour_map pink3 205-145-158 |
||||
tcl::dict::set TK_colour_map pink4 139-99-108 |
||||
tcl::dict::set TK_colour_map plum 221-160-221 |
||||
tcl::dict::set TK_colour_map plum1 255-187-255 |
||||
tcl::dict::set TK_colour_map plum2 238-174-238 |
||||
tcl::dict::set TK_colour_map plum3 205-150-205 |
||||
tcl::dict::set TK_colour_map plum4 139-102-139 |
||||
tcl::dict::set TK_colour_map "powder blue" 176-224-230 |
||||
tcl::dict::set TK_colour_map PowderBlue 176-224-230 |
||||
tcl::dict::set TK_colour_map purple 128-0-128 |
||||
tcl::dict::set TK_colour_map purple1 155-48-255 |
||||
tcl::dict::set TK_colour_map purple2 145-44-238 |
||||
tcl::dict::set TK_colour_map purple3 125-38-205 |
||||
tcl::dict::set TK_colour_map purple4 85-26-139 |
||||
tcl::dict::set TK_colour_map red 255-0-0 |
||||
tcl::dict::set TK_colour_map red1 255-0-0 |
||||
tcl::dict::set TK_colour_map red2 238-0-0 |
||||
tcl::dict::set TK_colour_map red3 205-0-0 |
||||
tcl::dict::set TK_colour_map red4 139-0-0 |
||||
tcl::dict::set TK_colour_map "rosy brown" 188-143-143 |
||||
tcl::dict::set TK_colour_map RosyBrown 188-143-143 |
||||
tcl::dict::set TK_colour_map RosyBrown1 255-193-193 |
||||
tcl::dict::set TK_colour_map RosyBrown2 238-180-180 |
||||
tcl::dict::set TK_colour_map RosyBrown3 205-155-155 |
||||
tcl::dict::set TK_colour_map RosyBrown4 139-105-105 |
||||
tcl::dict::set TK_colour_map "royal blue" 65-105-225 |
||||
tcl::dict::set TK_colour_map RoyalBlue 65-105-225 |
||||
tcl::dict::set TK_colour_map RoyalBlue1 72-118-255 |
||||
tcl::dict::set TK_colour_map RoyalBlue2 67-110-238 |
||||
tcl::dict::set TK_colour_map RoyalBlue3 58-95-205 |
||||
tcl::dict::set TK_colour_map RoyalBlue4 39-64-139 |
||||
tcl::dict::set TK_colour_map "saddle brown" 139-69-19 |
||||
tcl::dict::set TK_colour_map SaddleBrown 139-69-19 |
||||
tcl::dict::set TK_colour_map salmon 250-128-114 |
||||
tcl::dict::set TK_colour_map salmon1 255-140-105 |
||||
tcl::dict::set TK_colour_map salmon2 238-130-98 |
||||
tcl::dict::set TK_colour_map salmon3 205-112-84 |
||||
tcl::dict::set TK_colour_map salmon4 139-76-57 |
||||
tcl::dict::set TK_colour_map "sandy brown" 244-164-96 |
||||
tcl::dict::set TK_colour_map SandyBrown 244-164-96 |
||||
tcl::dict::set TK_colour_map "sea green" 46-139-87 |
||||
tcl::dict::set TK_colour_map SeaGreen 46-139-87 |
||||
tcl::dict::set TK_colour_map SeaGreen1 84-255-159 |
||||
tcl::dict::set TK_colour_map SeaGreen2 78-238-148 |
||||
tcl::dict::set TK_colour_map SeaGreen3 67-205-128 |
||||
tcl::dict::set TK_colour_map SeaGreen4 46-139-87 |
||||
tcl::dict::set TK_colour_map seashell 255-245-238 |
||||
tcl::dict::set TK_colour_map seashell1 255-245-238 |
||||
tcl::dict::set TK_colour_map seashell2 238-229-222 |
||||
tcl::dict::set TK_colour_map seashell3 205-197-191 |
||||
tcl::dict::set TK_colour_map seashell4 139-134-130 |
||||
tcl::dict::set TK_colour_map sienna 160-82-45 |
||||
tcl::dict::set TK_colour_map sienna1 255-130-71 |
||||
tcl::dict::set TK_colour_map sienna2 238-121-66 |
||||
tcl::dict::set TK_colour_map sienna3 205-104-57 |
||||
tcl::dict::set TK_colour_map sienna4 139-71-38 |
||||
tcl::dict::set TK_colour_map silver 192-192-192 |
||||
tcl::dict::set TK_colour_map "sky blue" 135-206-235 |
||||
tcl::dict::set TK_colour_map SkyBlue 135-206-235 |
||||
tcl::dict::set TK_colour_map SkyBlue1 135-206-255 |
||||
tcl::dict::set TK_colour_map SkyBlue2 126-192-238 |
||||
tcl::dict::set TK_colour_map SkyBlue3 108-166-205 |
||||
tcl::dict::set TK_colour_map SkyBlue4 74-112-139 |
||||
tcl::dict::set TK_colour_map "slate blue" 106-90-205 |
||||
tcl::dict::set TK_colour_map "slate gray" 112-128-144 |
||||
tcl::dict::set TK_colour_map "slate grey" 112-128-144 |
||||
tcl::dict::set TK_colour_map SlateBlue 106-90-205 |
||||
tcl::dict::set TK_colour_map SlateBlue1 131-111-255 |
||||
tcl::dict::set TK_colour_map SlateBlue2 122-103-238 |
||||
tcl::dict::set TK_colour_map SlateBlue3 105-89-205 |
||||
tcl::dict::set TK_colour_map SlateBlue4 71-60-139 |
||||
tcl::dict::set TK_colour_map SlateGray 112-128-144 |
||||
tcl::dict::set TK_colour_map SlateGray1 198-226-255 |
||||
tcl::dict::set TK_colour_map SlateGray2 185-211-238 |
||||
tcl::dict::set TK_colour_map SlateGray3 159-182-205 |
||||
tcl::dict::set TK_colour_map SlateGray4 108-123-139 |
||||
tcl::dict::set TK_colour_map SlateGrey 112-128-144 |
||||
tcl::dict::set TK_colour_map snow 255-250-250 |
||||
tcl::dict::set TK_colour_map snow1 255-250-250 |
||||
tcl::dict::set TK_colour_map snow2 238-233-233 |
||||
tcl::dict::set TK_colour_map snow3 205-201-201 |
||||
tcl::dict::set TK_colour_map snow4 139-137-137 |
||||
tcl::dict::set TK_colour_map "spring green" 0-255-127 |
||||
tcl::dict::set TK_colour_map SpringGreen 0-255-127 |
||||
tcl::dict::set TK_colour_map SpringGreen1 0-255-127 |
||||
tcl::dict::set TK_colour_map SpringGreen2 0-238-118 |
||||
tcl::dict::set TK_colour_map SpringGreen3 0-205-102 |
||||
tcl::dict::set TK_colour_map SpringGreen4 0-139-69 |
||||
tcl::dict::set TK_colour_map "steel blue" 70-130-180 |
||||
tcl::dict::set TK_colour_map SteelBlue 70-130-180 |
||||
tcl::dict::set TK_colour_map SteelBlue1 99-184-255 |
||||
tcl::dict::set TK_colour_map SteelBlue2 92-172-238 |
||||
tcl::dict::set TK_colour_map SteelBlue3 79-148-205 |
||||
tcl::dict::set TK_colour_map SteelBlue4 54-100-139 |
||||
tcl::dict::set TK_colour_map tan 210-180-140 |
||||
tcl::dict::set TK_colour_map tan1 255-165-79 |
||||
tcl::dict::set TK_colour_map tan2 238-154-73 |
||||
tcl::dict::set TK_colour_map tan3 205-133-63 |
||||
tcl::dict::set TK_colour_map tan4 139-90-43 |
||||
tcl::dict::set TK_colour_map teal 0-128-128 |
||||
tcl::dict::set TK_colour_map thistle 216-191-216 |
||||
tcl::dict::set TK_colour_map thistle1 255-225-255 |
||||
tcl::dict::set TK_colour_map thistle2 238-210-238 |
||||
tcl::dict::set TK_colour_map thistle3 205-181-205 |
||||
tcl::dict::set TK_colour_map thistle4 139-123-139 |
||||
tcl::dict::set TK_colour_map tomato 255-99-71 |
||||
tcl::dict::set TK_colour_map tomato1 255-99-71 |
||||
tcl::dict::set TK_colour_map tomato2 238-92-66 |
||||
tcl::dict::set TK_colour_map tomato3 205-79-57 |
||||
tcl::dict::set TK_colour_map tomato4 139-54-38 |
||||
tcl::dict::set TK_colour_map turquoise 64-224-208 |
||||
tcl::dict::set TK_colour_map turquoise1 0-245-255 |
||||
tcl::dict::set TK_colour_map turquoise2 0-229-238 |
||||
tcl::dict::set TK_colour_map turquoise3 0-197-205 |
||||
tcl::dict::set TK_colour_map turquoise4 0-134-139 |
||||
tcl::dict::set TK_colour_map violet 238-130-238 |
||||
tcl::dict::set TK_colour_map "violet red" 208-32-144 |
||||
tcl::dict::set TK_colour_map VioletRed 208-32-144 |
||||
tcl::dict::set TK_colour_map VioletRed1 255-62-150 |
||||
tcl::dict::set TK_colour_map VioletRed2 238-58-140 |
||||
tcl::dict::set TK_colour_map VioletRed3 205-50-120 |
||||
tcl::dict::set TK_colour_map VioletRed4 139-34-82 |
||||
tcl::dict::set TK_colour_map wheat 245-222-179 |
||||
tcl::dict::set TK_colour_map wheat1 255-231-186 |
||||
tcl::dict::set TK_colour_map wheat2 238-216-174 |
||||
tcl::dict::set TK_colour_map wheat3 205-186-150 |
||||
tcl::dict::set TK_colour_map wheat4 139-126-102 |
||||
tcl::dict::set TK_colour_map white 255-255-255 |
||||
tcl::dict::set TK_colour_map "white smoke" 245-245-245 |
||||
tcl::dict::set TK_colour_map WhiteSmoke 245-245-245 |
||||
tcl::dict::set TK_colour_map yellow 255-255-0 |
||||
tcl::dict::set TK_colour_map "yellow green" 154-205-50 |
||||
tcl::dict::set TK_colour_map yellow1 255-255-0 |
||||
tcl::dict::set TK_colour_map yellow2 238-238-0 |
||||
tcl::dict::set TK_colour_map yellow3 205-205-0 |
||||
tcl::dict::set TK_colour_map yellow4 139-139-0 |
||||
tcl::dict::set TK_colour_map YellowGreen 154-205-50 |
||||
|
||||
variable TK_colour_map_lookup ;#same dict but with lower-case versions added |
||||
set TK_colour_map_lookup $TK_colour_map |
||||
dict for {key val} $TK_colour_map { |
||||
dict set TK_colour_map_lookup [tcl::string::tolower $key] $val ;#no need to test if already present - just set. |
||||
} |
||||
|
||||
variable TK_colour_map_reverse [dict create] |
||||
dict for {key val} $TK_colour_map { |
||||
dict lappend TK_colour_map_reverse $val $key |
||||
} |
||||
|
||||
#using same order as inital colour map |
||||
variable TK_colour_map_merge [dict create] |
||||
set seen_names [dict create] |
||||
dict for {key val} $TK_colour_map { |
||||
if {[dict exists $seen_names $key]} { |
||||
continue |
||||
} |
||||
set allnames [dict get $TK_colour_map_reverse $val] |
||||
set names [list] |
||||
foreach n $allnames { |
||||
if {$n ne $key} { |
||||
lappend names $n |
||||
} |
||||
} |
||||
dict set TK_colour_map_merge $key [dict create colour $val names $names] |
||||
foreach n $names { |
||||
dict set seen_names $n 1 |
||||
} |
||||
} |
||||
unset seen_names |
||||
|
||||
|
||||
|
||||
|
||||
#*** !doctools |
||||
#[list_end] [comment {--- end definitions namespace ::punk::ansi::colourmap ---}] |
||||
} |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
|
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
# Secondary API namespace |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
tcl::namespace::eval ::punk::ansi::colourmap::lib { |
||||
tcl::namespace::export {[a-z]*} ;# Convention: export all lowercase |
||||
tcl::namespace::path [tcl::namespace::parent] |
||||
#*** !doctools |
||||
#[subsection {Namespace ::punk::ansi::colourmap::lib}] |
||||
#[para] Secondary functions that are part of the API |
||||
#[list_begin definitions] |
||||
|
||||
#proc utility1 {p1 args} { |
||||
# #*** !doctools |
||||
# #[call lib::[fun utility1] [arg p1] [opt {?option value...?}]] |
||||
# #[para]Description of utility1 |
||||
# return 1 |
||||
#} |
||||
|
||||
|
||||
|
||||
#*** !doctools |
||||
#[list_end] [comment {--- end definitions namespace ::punk::ansi::colourmap::lib ---}] |
||||
} |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
|
||||
|
||||
|
||||
|
||||
# ----------------------------------------------------------------------------- |
||||
# register namespace(s) to have PUNKARGS,PUNKARGS_aliases variables checked |
||||
# ----------------------------------------------------------------------------- |
||||
# variable PUNKARGS |
||||
# variable PUNKARGS_aliases |
||||
namespace eval ::punk::args::register { |
||||
#use fully qualified so 8.6 doesn't find existing var in global namespace |
||||
lappend ::punk::args::register::NAMESPACES ::punk::ansi::colourmap |
||||
} |
||||
# ----------------------------------------------------------------------------- |
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
## Ready |
||||
package provide punk::ansi::colourmap [tcl::namespace::eval ::punk::ansi::colourmap { |
||||
variable pkg ::punk::ansi::colourmap |
||||
variable version |
||||
set version 999999.0a1.0 |
||||
}] |
||||
return |
||||
|
||||
#*** !doctools |
||||
#[manpage_end] |
||||
|
||||
@ -0,0 +1,3 @@
|
||||
0.1.0 |
||||
#First line must be a semantic version number |
||||
#all other lines are ignored. |
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@ -0,0 +1,622 @@
|
||||
# -*- tcl -*- |
||||
# Maintenance Instruction: leave the 999999.xxx.x as is and use punkshell 'dev make' or bin/punkmake to update from <pkg>-buildversion.txt |
||||
# module template: shellspy/src/decktemplates/vendor/punk/modules/template_module-0.0.3.tm |
||||
# |
||||
# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem. |
||||
# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository. |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
# (C) 2025 |
||||
# |
||||
# @@ Meta Begin |
||||
# Application punk::args::tkcore 999999.0a1.0 |
||||
# Meta platform tcl |
||||
# Meta license MIT |
||||
# @@ Meta End |
||||
|
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
# doctools header |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
#*** !doctools |
||||
#[manpage_begin shellspy_module_punk::args::tkcore 0 999999.0a1.0] |
||||
#[copyright "2025"] |
||||
#[titledesc {Module API}] [comment {-- Name section and table of contents description --}] |
||||
#[moddesc {-}] [comment {-- Description at end of page heading --}] |
||||
#[require punk::args::tkcore] |
||||
#[keywords module] |
||||
#[description] |
||||
#[para] - |
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
|
||||
#*** !doctools |
||||
#[section Overview] |
||||
#[para] overview of punk::args::tkcore |
||||
#[subsection Concepts] |
||||
#[para] - |
||||
|
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
## Requirements |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
|
||||
#*** !doctools |
||||
#[subsection dependencies] |
||||
#[para] packages used by punk::args::tkcore |
||||
#[list_begin itemized] |
||||
|
||||
package require Tcl 8.6- |
||||
package require punk::args |
||||
package require punk::ansi |
||||
package require textblock |
||||
#*** !doctools |
||||
#[item] [package {Tcl 8.6}] |
||||
#[item] [package {punk::args}] |
||||
#[item] [package {textblock}] |
||||
|
||||
|
||||
#*** !doctools |
||||
#[list_end] |
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
|
||||
#*** !doctools |
||||
#[section API] |
||||
|
||||
|
||||
|
||||
tcl::namespace::eval punk::args::tkcore { |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
# Base namespace |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
#*** !doctools |
||||
#[subsection {Namespace punk::args::tkcore}] |
||||
#[para] Core API functions for punk::args::tkcore |
||||
#[list_begin definitions] |
||||
|
||||
tcl::namespace::export {[a-z]*} ;# Convention: export all lowercase |
||||
|
||||
set A_WARN \x1b\[7m |
||||
set A_RST \x1b\[0m |
||||
|
||||
variable manbase |
||||
variable manbase_ext |
||||
set patch [info patchlevel] |
||||
lassign [split $patch .] major |
||||
if {$major < 9} { |
||||
set manbase "https://tcl.tk/man/tcl/TkCmd" |
||||
set manbase_ext .htm |
||||
} else { |
||||
set manbase "https://tcl.tk/man/tcl9.0/TkCmd" |
||||
set manbase_ext .html |
||||
} |
||||
proc manpage {cmd} { |
||||
variable manbase |
||||
variable manbase_ext |
||||
return ${manbase}/${cmd}${manbase_ext} |
||||
} |
||||
|
||||
|
||||
variable PUNKARGS |
||||
|
||||
|
||||
namespace eval argdoc { |
||||
tcl::namespace::import ::punk::ansi::a+ |
||||
tcl::namespace::import ::punk::args::tkcore::manpage |
||||
# -- --- --- --- --- |
||||
#non colour SGR codes |
||||
# we can use these directly via ${$I} etc without marking a definition with @dynamic |
||||
#This is because they don't need to change when colour switched on and off. |
||||
set I [a+ italic] |
||||
set NI [a+ noitalic] |
||||
set B [a+ bold] |
||||
set N [a+ normal] |
||||
# -- --- --- --- --- |
||||
proc example {str} { |
||||
set str [string trimleft $str \n] |
||||
set block [punk::ansi::ansiwrap Web-gray [textblock::frame -ansibase [a+ Web-gray bold white] -ansiborder [a+ black White] -boxlimits {hl} -type block $str]] |
||||
set result [textblock::bookend_lines $block [a] "[a defaultbg] [a]"] |
||||
#puts $result |
||||
return $result |
||||
} |
||||
} |
||||
|
||||
|
||||
namespace eval argdoc { |
||||
lappend PUNKARGS [list { |
||||
@id -id "(default)::punk::args::tkcore::common" |
||||
} "@doc -name Manpage: -url [manpage index]" ] |
||||
|
||||
|
||||
#list all tk_standardoptions |
||||
#use punk::args::resolved_spec |
||||
#{${[punk::args::resolved_def -types opts (default)::punk::args::tkcore::tk_standardoptions -disabledforeground -font ...]}} |
||||
::punk::args::define { |
||||
@id -id "(default)::punk::args::tkcore::tk_standardoptions" |
||||
-activebackground -type colour -help\ |
||||
"Specifies background color to use when drawing active elements. An element (a widget or portion of a widget) |
||||
is active if the mouse cursor is positioned over the element and pressing a mouse button will cause some |
||||
action to occur. If strict Motif compliance has been requested by setting the tk_strictMotif variable, this |
||||
option will normally be ignored; the normal background color will be used instead. For some elements on |
||||
Windows and Macintosh systems, the active color will only be used while mouse button 1 is pressed over the |
||||
element." |
||||
-activeborderwidth -type tk_screen_units -help\ |
||||
"Specifies a non-negative value indicating the width of the 3-D border drawn around active elements. See above |
||||
for definition of active elements. The value may have any of the forms acceptable to Tk_GetPixels. This option |
||||
is typically only available in widgets displaying more than one element at a time (e.g. menus but not buttons)." |
||||
-activeforeground -type colour -help\ |
||||
"Specifies foreground color to use when drawing active elements. See above for definition of active elements." |
||||
-activerelief -type string -choicecolumns 6 -choices {raised sunken flat ridge solid groove} -help\ |
||||
"Specifies the 3-D effect desired for the active item of the widget. See the -relief option for details." |
||||
-anchor -type string -choicecolumns 9 -choices {n ne e se s sw w nw center} -help\ |
||||
"Specifies how the information in a widget (e.g. text or a bitmap) is to be displayed in the widget. |
||||
For example, ${$B}nw${$N} means display the information such that its top-left corner is at the top-left corner of the widget." |
||||
-background|-bg -type colour -help\ |
||||
"Specifies the normal background color to use when displaying the widget." |
||||
-bitmap -type bmp -help\ |
||||
"Specifies a bitmap to display in the widget, in any of the forms acceptable to Tk_GetBitmap. The exact |
||||
way in which the bitmap is displayed may be affected by other options such as -anchor or -justify. |
||||
Typically, if this option is specified then it overrides other options that specify a textual value to |
||||
display in the widget but this is controlled by the ${$B}-compound${$N} option; the -bitmap option may be reset to |
||||
an empty string to re-enable a text display. In widgets that support both -bitmap and -image options, |
||||
-image will usually override -bitmap." |
||||
-borderwidth|-bd -type tk_screen_units -help\ |
||||
"Specifies a non-negative value indicating the width of the 3-D border to draw around the outside of the |
||||
widget (if such a border is being drawn; the -relief option typically determines this). The value may |
||||
also be used when drawing 3-D effects in the interior of the widget. The value may have any of the |
||||
forms acceptable to Tk_GetPixels." |
||||
#todo - something better for large -choices lists |
||||
#list of cursors is large, not obtainable dynamically, and has some that are platform specific. |
||||
-cursor -type string -help\ |
||||
"" |
||||
-compound -type string -choicecolumns 6 -choices {none bottom top left right center} -help\ |
||||
"Specifies if the widget should display text and bitmaps/images at the same time, and if so, where the |
||||
bitmap/image should be placed relative to the text. Must be one of the values none, bottom, top, left, |
||||
right, or center. For example, the (default) value none specifies that the bitmap or image should |
||||
(if defined) be displayed instead of the text, the value ${$B}left${$N} specifies that the bitmap or image should |
||||
be displayed to the left of the text, and the value ${$B}center${$N} specifies that the bitmap or image should be |
||||
displayed on top of the text." |
||||
-disabledforeground -type colour|literal() -help\ |
||||
"Specifies foreground color to use when drawing a disabled element. If the option is specified |
||||
as an empty string (which is typically the case on monochrome displays), disabled elements |
||||
are drawn with the normal foreground color but they are dimmed by drawing them with a |
||||
stippled fill pattern." |
||||
-exportselection -type boolean -help\ |
||||
"Specifies whether or not a selection in the widget should also be the X selection. The value may have any of the |
||||
forms accepted by Tcl_GetBoolean, such as true, false, 0, 1, yes, or no. If the selection is exported, then |
||||
selecting in the widget deselects the current X selection, selecting outside the widget deselects any widget |
||||
selection, and the widget will respond to selection retrieval requests when it has a selection. The default is |
||||
usually for widgets to export selections." |
||||
-font -type tk_font -help\ |
||||
"Specifies the font to use when drawing text inside the widget. The value may have any of the |
||||
forms described in the font manual page under FONT DESCRIPTION." |
||||
-foreground|-fg -type colour -help\ |
||||
"Specifies the normal foreground color to use when displaying the widget." |
||||
-highlightbackground -type colour -help\ |
||||
"Specifies the color to display in the traversal highlight region when the widget does not have the input focus." |
||||
-highlightcolor -type colour -help\ |
||||
"Specifies the color to use for the traversal highlight rectangle that is drawn around the widget when it has the |
||||
input focus." |
||||
-highlightthicknes -type tk_screen_units -help\ |
||||
"Specifies a non-negative value indicating the width of the highlight rectangle to draw around the outside of the |
||||
widget when it has the input focus. The value may have any of the forms acceptable to Tk_GetPixels. If the |
||||
value is zero, no focus highlight is drawn around the widget." |
||||
-image -type string -help\ |
||||
"Specifies an image to display in the widget, which must have been created with the image create command. |
||||
Typically, if the -image option is specified then it overrides other options that specify a bitmap or textual |
||||
value to display in the widget, though this is controlled by the -compound option; the -image option may be |
||||
reset to an empty string to re-enable a bitmap or text display." |
||||
-insertbackground -type colour -help\ |
||||
"Specifies the color to use as background in the area covered by the insertion cursor. This color will normally |
||||
override either the normal background for the widget (or the selection background if the insertion cursor |
||||
happens to fall in the selection)." |
||||
-insertborderwidth -type tk_screen_units -help\ |
||||
"Specifies a non-negative value indicating the width of the 3-D border to draw around the insertion cursor. |
||||
The value may have any of the forms acceptable to Tk_GetPixels." |
||||
-insertofftime -type integer -typesynopsis {${$I}ms${$NI}} -range {0 ""} -help\ |
||||
"Specifies a non-negative integer value indicating the number of milliseconds the insertion cursor should remain |
||||
“off” in each blink cycle. If this option is zero then the cursor does not blink: it is on all the time." |
||||
-insertontime -type integer -typesynopsis {${$I}ms${$NI}} -range {0 ""} -help\ |
||||
"Specifies a non-negative integer value indicating the number of milliseconds the insertion cursor should remain |
||||
“on” in each blink cycle." |
||||
-insertwidth -type tk_screen_units -help\ |
||||
"Specifies a non-negative value indicating the total width of the insertion cursor. The value may have any of the |
||||
forms acceptable to Tk_GetPixels. If a border has been specified for the insertion cursor (using the |
||||
-insertborderwidth option), the border will be drawn inside the width specified by the -insertwidth option." |
||||
-jump -type boolean -help\ |
||||
"For widgets with a slider that can be dragged to adjust a value, such as scrollbars, this option determines when |
||||
notifications are made about changes in the value. The option's value must be a boolean of the form accepted by |
||||
Tcl_GetBoolean. If the value is false, updates are made continuously as the slider is dragged. If the value is |
||||
true, updates are delayed until the mouse button is released to end the drag; at that point a single |
||||
notification is made (the value “jumps” rather than changing smoothly)." |
||||
-justify -type string -choicecolumns 3 -choices {left center right} -help\ |
||||
"When there are multiple lines of text displayed in a widget, this option determines how the lines line up with |
||||
each other. Must be one of left, center, or right. Left means that the lines' left edges all line up, center |
||||
means that the lines' centers are aligned, and right means that the lines' right edges line up." |
||||
-orient -type string -choiceprefix 1 -choicecolumns 2 -choices {horizontal vertical} -help\ |
||||
"For widgets that can lay themselves out with either a horizontal or vertical orientation, such as scrollbars, |
||||
this option specifies which orientation should be used. Must be either horizontal or vertical or an |
||||
abbreviation of one of these." |
||||
-padx -type tk_screen_units -help\ |
||||
"Specifies a non-negative value indicating how much extra space to request for the widget in the X-direction. |
||||
The value may have any of the forms acceptable to Tk_GetPixels. When computing how large a window it needs, |
||||
the widget will add this amount to the width it would normally need (as determined by the width of the things |
||||
displayed in the widget); if the geometry manager can satisfy this request, the widget will end up with extra |
||||
internal space to the left and/or right of what it displays inside. Most widgets only use this option for |
||||
padding text: if they are displaying a bitmap or image, then they usually ignore padding options." |
||||
-pady -type tk_screen_units -help\ |
||||
"Specifies a non-negative value indicating how much extra space to request for the widget in the Y-direction. |
||||
The value may have any of the forms acceptable to Tk_GetPixels. When computing how large a window it needs, |
||||
the widget will add this amount to the height it would normally need (as determined by the height of the things |
||||
displayed in the widget); if the geometry manager can satisfy this request, the widget will end up with extra |
||||
internal space above and/or below what it displays inside. Most widgets only use this option for padding text: |
||||
if they are displaying a bitmap or image, then they usually ignore padding options." |
||||
-placeholder -type string -help\ |
||||
"Specifies a help text string to display if no text is otherwise displayed, that is when the widget is empty. |
||||
The placeholder text is displayed using the values of the -font and -justify options." |
||||
-placeholderforeground -type colour -help\ |
||||
"Specifies the foreground color to use when the placeholder text is displayed. |
||||
The default color is platform-specific." |
||||
-relief -type string -choicecolumns 6 -choices {raised sunken flat ridge solid groove} -help\ |
||||
"Specifies the 3-D effect desired for the widget. Acceptable values are raised, sunken, flat, ridge, solid, and |
||||
groove. The value indicates how the interior of the widget should appear relative to its exterior; for example, |
||||
raised means the interior of the widget should appear to protrude from the screen, relative to the exterior of |
||||
the widget." |
||||
-repeatdelay -type integer -typesynopsis {${$I}ms${$NI}} -help\ |
||||
"Specifies the number of milliseconds a button or key must be held down before it begins to auto-repeat. Used, |
||||
for example, on the up- and down-arrows in scrollbars." |
||||
-repeatinterval -type integer -typesynopsis {${$I}ms${$NI}} -help\ |
||||
"Used in conjunction with -repeatdelay: once auto-repeat begins, this option determines the number of |
||||
milliseconds between auto-repeats." |
||||
-selectbackground -type colour -help\ |
||||
"Specifies the background color to use when displaying selected items." |
||||
-selectborderwidth -type tk_screen_units -help\ |
||||
"Specifies a non-negative value indicating the width of the 3-D border to draw around selected items. |
||||
The value may have any of the forms acceptable to Tk_GetPixels." |
||||
-selectforeground -type colour -help\ |
||||
"Specifies the foreground color to use when displaying selected items." |
||||
-setgrid -type boolean -help\ |
||||
"Specifies a boolean value that determines whether this widget controls the resizing grid for its top-level window. |
||||
This option is typically used in text widgets, where the information in the widget has a natural size (the size |
||||
of a character) and it makes sense for the window's dimensions to be integral numbers of these units. These |
||||
natural window sizes form a grid. If the -setgrid option is set to true then the widget will communicate with the |
||||
window manager so that when the user interactively resizes the top-level window that contains the widget, the |
||||
dimensions of the window will be displayed to the user in grid units and the window size will be constrained to |
||||
integral numbers of grid units. See the section GRIDDED GEOMETRY MANAGEMENT in the wm manual entry for more |
||||
details." |
||||
-takefocus -type literal(0)|literal(1)|literal() -help\ |
||||
"Determines whether the window accepts the focus during keyboard traversal (e.g., Tab and Shift-Tab). Before |
||||
setting the focus to a window, the traversal scripts consult the value of the -takefocus option. A value of 0 |
||||
means that the window should be skipped entirely during keyboard traversal. 1 means that the window should |
||||
receive the input focus as long as it is viewable (it and all of its ancestors are mapped). An empty value for |
||||
the option means that the traversal scripts make the decision about whether or not to focus on the window: the |
||||
current algorithm is to skip the window if it is disabled, if it has no key bindings, or if it is not viewable. |
||||
If the value has any other form, then the traversal scripts take the value, append the name of the window to it |
||||
(with a separator space), and evaluate the resulting string as a Tcl script. The script must return 0, 1, or an |
||||
empty string: a 0 or 1 value specifies whether the window will receive the input focus, and an empty string |
||||
results in the default decision described above. Note that this interpretation of the option is defined entirely |
||||
by the Tcl scripts that implement traversal: the widget implementations ignore the option entirely, so you can |
||||
change its meaning if you redefine the keyboard traversal scripts." |
||||
-text -type string -help\ |
||||
"Specifies a string to be displayed inside the widget. The way in which the string is displayed depends on the |
||||
particular widget and may be determined by other options, such as -anchor or -justify." |
||||
-textvariable -type string -help\ |
||||
"Specifies the name of a global variable. The value of the variable is a text string to be displayed inside the |
||||
widget; if the variable value changes then the widget will automatically update itself to reflect the new value. |
||||
The way in which the string is displayed in the widget depends on the particular widget and may be determined by |
||||
other options, such as -anchor or -justify." |
||||
-troughcolor -type colour -help\ |
||||
"Specifies the color to use for the rectangular trough areas in widgets such as scrollbars and scales. This option |
||||
is ignored for scrollbars on Windows (native widget does not recognize this option)." |
||||
-underline -type indexexpression -help\ |
||||
"Specifies the integer index of a character to underline in the widget. This option is used by the default |
||||
bindings to implement keyboard traversal for menu buttons and menu entries. 0 corresponds to the first character |
||||
of the text displayed in the widget, 1 to the next character, and so on. end corresponds to the last character, |
||||
end-1 to the before last character, and so on." |
||||
-wraplength -type tk_screen_units -help\ |
||||
"For widgets that can perform word-wrapping, this option specifies the maximum line length. Lines that would |
||||
exceed this length are wrapped onto the next line, so that no line is longer than the specified length. The |
||||
value may be specified in any of the standard forms for screen distances. If this value is negative or zero |
||||
then no wrapping is done: lines will break only at newline characters in the text." |
||||
-xscrollcommand -type list -typesynopsis {${$I}cmdprefix${$NI}} -help\ |
||||
"Specifies the prefix for a command used to communicate with horizontal scrollbars. When the view in the widget's |
||||
window changes (or whenever anything else occurs that could change the display in a scrollbar, such as a change |
||||
in the total size of the widget's contents), the widget will generate a Tcl command by concatenating the scroll |
||||
command and two numbers. Each of the numbers is a fraction between 0 and 1, which indicates a position in the |
||||
document. 0 indicates the beginning of the document, 1 indicates the end, .333 indicates a position one third |
||||
the way through the document, and so on. The first fraction indicates the first information in the document |
||||
that is visible in the window, and the second fraction indicates the information just after the last portion |
||||
that is visible. The command is then passed to the Tcl interpreter for execution. Typically the -xscrollcommand |
||||
option consists of the path name of a scrollbar widget followed by “set”, e.g. “.x.scrollbar set”: this will |
||||
cause the scrollbar to be updated whenever the view in the window changes. If this option is not specified, |
||||
then no command will be executed." |
||||
-yscrollcommand -type list -typesynopsis {${$I}cmdprefix${$NI}} -help\ |
||||
"Specifies the prefix for a command used to communicate with vertical scrollbars. This option is treated in the |
||||
same way as the -xscrollcommand option, except that it is used for vertical scrollbars and is provided by |
||||
widgets that support vertical scrolling. See the description of -xscrollcommand for details on how this option |
||||
is used." |
||||
|
||||
} "@doc -name Manpage: -url [manpage options]" |
||||
# -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- |
||||
lappend PUNKARGS [list { |
||||
@id -id ::bell |
||||
@cmd -name "Tk Builtin: bell"\ |
||||
-summary\ |
||||
"Ring a display's bell."\ |
||||
-help\ |
||||
"This command rings the bell on the display for ${$I}window${$NI} and returns an empty string. |
||||
If the ${$B}-displayof${$N} option is omitted, the display of the application's main window |
||||
is used by default. The command uses the current bell-related settings for the |
||||
display, which may be modified with programs such as ${$B}xset${$N}. |
||||
If ${$B}-nice${$N} is not specified, this command also resets the screen saver for the screen. |
||||
Some screen savers will ignore this, but others will reset so that the screen |
||||
becomes visible again." |
||||
@opts |
||||
-displayof -type stringstartswith(.) -typesynopsis window |
||||
-nice -type none |
||||
@values -min 0 -max 0 |
||||
} "@doc -name Manpage: -url [manpage bell]" ] |
||||
|
||||
|
||||
|
||||
|
||||
|
||||
# -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- |
||||
lappend PUNKARGS_aliases {::button ::tk::button} |
||||
punk::args::define { |
||||
@id -id ::tk::button |
||||
@cmd -name "Tk Builtin: tk::button"\ |
||||
-summary\ |
||||
"Create and manipulate 'button' action widgets."\ |
||||
-help\ |
||||
"The ${$B}button${$N} command creates a new window (given by the ${$I}pathName${$NI} argument) and makes it into a button |
||||
widget. Additional options, described above, may be specified on the command line or in the option |
||||
database to configure aspects of the button such as its colors, font, text, and initial relief. The |
||||
${$B}button${$N} command returns its ${$I}pathName${$NI} argument. At the time this command is invoked, there must not |
||||
exist a window named ${$I}pathName${$NI}, but ${$I}pathName${$NI}'s parent must exist. |
||||
A button is a widget that displays a textual string, bitmap or image. If text is displayed, it must |
||||
all be in a single font, but it can occupy multiple lines on the screen (if it contains newlines or |
||||
if wrapping occurs because of the ${$B}-wraplength${$N} option) and one of the characters may optionally be |
||||
underlined using the ${$B}-underline${$N} option. It can display itself in either of three different ways, |
||||
according to the ${$B}-state${$N} option; it can be made to appear raised, sunken, or flat; and it can be made |
||||
to flash. When a user invokes the button (by pressing mouse button 1 with the cursor over the button), |
||||
then the Tcl command specified in the ${$B}-command${$N} option is invoked." |
||||
@leaders |
||||
pathName -type tk_path |
||||
|
||||
|
||||
@opts -type string -parsekey "" -group "STANDARD OPTIONS" -grouphelp\ |
||||
"" |
||||
}\ |
||||
{${[punk::args::resolved_def -types opts (default)::punk::args::tkcore::tk_standardoptions\ |
||||
-activebackground\ |
||||
-activeforeground\ |
||||
-anchor\ |
||||
-background|-bg\ |
||||
-bitmap\ |
||||
-borderwidth|-bd\ |
||||
-compound\ |
||||
-cursor\ |
||||
-disabledforeground\ |
||||
-font\ |
||||
-foreground|-fg\ |
||||
-highligthbackground\ |
||||
-highlightcolor\ |
||||
-highlightthickness\ |
||||
-image\ |
||||
-justify\ |
||||
-padx\ |
||||
-pady\ |
||||
-relief\ |
||||
-takefocus\ |
||||
-text\ |
||||
-textvariable\ |
||||
-underline\ |
||||
-wraplength\ |
||||
]}}\ |
||||
{ |
||||
@opts -type string -parsekey "" -group "WIDGET-SPECIFIC OPTIONS" -grouphelp\ |
||||
"" |
||||
-command -type script -help\ |
||||
"Specifies a Tcl command to associate with the button. This command is typically invoked when mouse button 1 |
||||
is released over the button window." |
||||
-default -type string -choices {normal active disabled} -help\ |
||||
"Specifies one of three states for the default ring: normal, active, or disabled. In active state, the button |
||||
is drawn with the platform specific appearance for a default button. In normal state, the button is drawn |
||||
with the platform specific appearance for a non-default button, leaving enough space to draw the default |
||||
button appearance. The normal and active states will result in buttons of the same size. In disabled state, |
||||
the button is drawn with the non-default button appearance without leaving space for the default appearance. |
||||
The disabled state may result in a smaller button than the active state." |
||||
-height -type tk_screen_units -help\ |
||||
"Specifies a desired height for the button. If an image or bitmap is being displayed in the button then the |
||||
value is in screen units (i.e. any of the forms acceptable to Tk_GetPixels); for text it is in lines of text. |
||||
If this option is not specified, the button's desired height is computed from the size of the image or bitmap |
||||
or text being displayed in it." |
||||
-overrelief -type string -default "" -choicecolumns 7 -choices {raised sunken flat ridge solid groove ""} -help\ |
||||
"Specifies an alternative relief for the button, to be used when the mouse cursor is over the widget. This |
||||
option can be used to make toolbar buttons, by configuring -relief flat -overrelief raised. If the value of |
||||
this option is the empty string, then no alternative relief is used when the mouse cursor is over the button. |
||||
The empty string is the default value." |
||||
-state -type string -choices {normal active disabled} -help\ |
||||
"Specifies one of three states for the button: normal, active, or disabled. In normal state the button is |
||||
displayed using the ${$B}-foreground${$N} and ${$B}-background${$N} options. The active state is typically used when the pointer |
||||
is over the button. In active state the button is displayed using the ${$B}-activeforeground${$N} and ${$B}-activebackground${$N} |
||||
options. Disabled state means that the button should be insensitive: the default bindings will refuse to |
||||
activate the widget and will ignore mouse button presses. In this state the ${$B}-disabledforeground${$N} and |
||||
${$B}-background${$N} options determine how the button is displayed." |
||||
-width -type tk_screen_units -help\ |
||||
"Specifies a desired width for the button. If an image or bitmap is being displayed in the button then the |
||||
value is in screen units (i.e. any of the forms acceptable to Tk_GetPixels). For a text button (no image or |
||||
with -compound none) then the width specifies how much space in characters to allocate for the text label. |
||||
If the width is negative then this specifies a minimum width. If this option is not specified, the button's |
||||
desired width is computed from the size of the image or bitmap or text being displayed in it." |
||||
|
||||
|
||||
|
||||
} "@doc -name Manpage: -url [manpage bell]" |
||||
# -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- |
||||
|
||||
|
||||
|
||||
} |
||||
|
||||
#*** !doctools |
||||
#[list_end] [comment {--- end definitions namespace punk::args::tkcore ---}] |
||||
} |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
|
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
# Secondary API namespace |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
tcl::namespace::eval punk::args::tkcore::lib { |
||||
tcl::namespace::export {[a-z]*} ;# Convention: export all lowercase |
||||
tcl::namespace::path [tcl::namespace::parent] |
||||
#*** !doctools |
||||
#[subsection {Namespace punk::args::tkcore::lib}] |
||||
#[para] Secondary functions that are part of the API |
||||
#[list_begin definitions] |
||||
|
||||
#proc utility1 {p1 args} { |
||||
# #*** !doctools |
||||
# #[call lib::[fun utility1] [arg p1] [opt {?option value...?}]] |
||||
# #[para]Description of utility1 |
||||
# return 1 |
||||
#} |
||||
|
||||
|
||||
|
||||
#*** !doctools |
||||
#[list_end] [comment {--- end definitions namespace punk::args::tkcore::lib ---}] |
||||
} |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
|
||||
|
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
#*** !doctools |
||||
#[section Internal] |
||||
#tcl::namespace::eval punk::args::tkcore::system { |
||||
#*** !doctools |
||||
#[subsection {Namespace punk::args::tkcore::system}] |
||||
#[para] Internal functions that are not part of the API |
||||
|
||||
|
||||
|
||||
#} |
||||
|
||||
|
||||
# == === === === === === === === === === === === === === === |
||||
# Sample 'about' function with punk::args documentation |
||||
# == === === === === === === === === === === === === === === |
||||
tcl::namespace::eval punk::args::tkcore { |
||||
tcl::namespace::export {[a-z]*} ;# Convention: export all lowercase |
||||
variable PUNKARGS |
||||
variable PUNKARGS_aliases |
||||
|
||||
lappend PUNKARGS [list { |
||||
@id -id "(package)punk::args::tkcore" |
||||
@package -name "punk::args::tkcore" -help\ |
||||
"Package |
||||
Description" |
||||
}] |
||||
|
||||
namespace eval argdoc { |
||||
#namespace for custom argument documentation |
||||
proc package_name {} { |
||||
return punk::args::tkcore |
||||
} |
||||
proc about_topics {} { |
||||
#info commands results are returned in an arbitrary order (like array keys) |
||||
set topic_funs [info commands [namespace current]::get_topic_*] |
||||
set about_topics [list] |
||||
foreach f $topic_funs { |
||||
set tail [namespace tail $f] |
||||
lappend about_topics [string range $tail [string length get_topic_] end] |
||||
} |
||||
#Adjust this function or 'default_topics' if a different order is required |
||||
return [lsort $about_topics] |
||||
} |
||||
proc default_topics {} {return [list Description *]} |
||||
|
||||
# ------------------------------------------------------------- |
||||
# get_topic_ functions add more to auto-include in about topics |
||||
# ------------------------------------------------------------- |
||||
proc get_topic_Description {} { |
||||
punk::args::lib::tstr [string trim { |
||||
package punk::args::tkcore |
||||
punk::args documentation for Tk |
||||
} \n] |
||||
} |
||||
proc get_topic_License {} { |
||||
return "MIT" |
||||
} |
||||
proc get_topic_Version {} { |
||||
return "$::punk::args::tkcore::version" |
||||
} |
||||
proc get_topic_Contributors {} { |
||||
set authors {{Julian Noble <julian@precisium.com.au}} |
||||
set contributors "" |
||||
foreach a $authors { |
||||
append contributors $a \n |
||||
} |
||||
if {[string index $contributors end] eq "\n"} { |
||||
set contributors [string range $contributors 0 end-1] |
||||
} |
||||
return $contributors |
||||
} |
||||
#proc get_topic_custom-topic {} { |
||||
# punk::args::lib::tstr -return string { |
||||
# "" |
||||
# } |
||||
#} |
||||
# ------------------------------------------------------------- |
||||
} |
||||
|
||||
# we re-use the argument definition from punk::args::standard_about and override some items |
||||
set overrides [dict create] |
||||
dict set overrides @id -id "::punk::args::tkcore::about" |
||||
dict set overrides @cmd -name "punk::args::tkcore::about" |
||||
dict set overrides @cmd -help [string trim [punk::args::lib::tstr { |
||||
About punk::args::tkcore |
||||
}] \n] |
||||
dict set overrides topic -choices [list {*}[punk::args::tkcore::argdoc::about_topics] *] |
||||
dict set overrides topic -choicerestricted 1 |
||||
dict set overrides topic -default [punk::args::tkcore::argdoc::default_topics] ;#if -default is present 'topic' will always appear in parsed 'values' dict |
||||
set newdef [punk::args::resolved_def -antiglobs -package_about_namespace -override $overrides ::punk::args::package::standard_about *] |
||||
lappend PUNKARGS [list $newdef] |
||||
proc about {args} { |
||||
package require punk::args |
||||
#standard_about accepts additional choices for topic - but we need to normalize any abbreviations to full topic name before passing on |
||||
set argd [punk::args::parse $args withid ::punk::args::tkcore::about] |
||||
lassign [dict values $argd] _leaders opts values _received |
||||
punk::args::package::standard_about -package_about_namespace ::punk::args::tkcore::argdoc {*}$opts {*}[dict get $values topic] |
||||
} |
||||
} |
||||
# end of sample 'about' function |
||||
# == === === === === === === === === === === === === === === |
||||
|
||||
|
||||
# ----------------------------------------------------------------------------- |
||||
# register namespace(s) to have PUNKARGS,PUNKARGS_aliases variables checked |
||||
# ----------------------------------------------------------------------------- |
||||
# variable PUNKARGS |
||||
# variable PUNKARGS_aliases |
||||
namespace eval ::punk::args::register { |
||||
#use fully qualified so 8.6 doesn't find existing var in global namespace |
||||
lappend ::punk::args::register::NAMESPACES ::punk::args::tkcore ::punk::args::tkcore::argdoc |
||||
} |
||||
# ----------------------------------------------------------------------------- |
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
## Ready |
||||
package provide punk::args::tkcore [tcl::namespace::eval punk::args::tkcore { |
||||
variable pkg punk::args::tkcore |
||||
variable version |
||||
set version 999999.0a1.0 |
||||
}] |
||||
return |
||||
|
||||
#*** !doctools |
||||
#[manpage_end] |
||||
|
||||
@ -0,0 +1,3 @@
|
||||
0.1.0 |
||||
#First line must be a semantic version number |
||||
#all other lines are ignored. |
||||
File diff suppressed because it is too large
Load Diff
@ -1,3 +1,3 @@
|
||||
0.1.1 |
||||
0.1.2 |
||||
#First line must be a semantic version number |
||||
#all other lines are ignored. |
||||
|
||||
@ -0,0 +1,80 @@
|
||||
package require tcltest |
||||
|
||||
namespace eval ::testspace { |
||||
namespace import ::tcltest::* |
||||
variable common { |
||||
set result "" |
||||
} |
||||
|
||||
test ansistrip_basic_sgr_strip {test ansistrip on basic SGR colour code and reset}\ |
||||
-setup $common -body { |
||||
set a "\x1b\[31mxxx\x1b\[myyy" ;# set a [a+ red]xxx[a]yyy |
||||
lappend result [punk::ansi::ansistrip $a] |
||||
}\ |
||||
-cleanup { |
||||
}\ |
||||
-result [list\ |
||||
xxxyyy |
||||
] |
||||
|
||||
test ansistrip_nonansi_escape {test ansistrip on non-ansi ESC}\ |
||||
-setup $common -body { |
||||
set a \x1bxxx ;#not an SGR or other known ansi sequence - should pass through |
||||
set b [punk::ansi::ansistrip $a] |
||||
lappend result [string equal $a $b] |
||||
}\ |
||||
-cleanup { |
||||
}\ |
||||
-result [list\ |
||||
1 |
||||
] |
||||
|
||||
test ansistrip_movement {test ansistrip on ANSI move}\ |
||||
-setup $common -body { |
||||
set a X\x1b\[2\;2HY ;#not an SGR or other known ansi sequence - should pass through |
||||
#equivalent to : set a X[move 2 2]Y |
||||
lappend result [punk::ansi::ansistrip $a] |
||||
}\ |
||||
-cleanup { |
||||
}\ |
||||
-result [list\ |
||||
XY |
||||
] |
||||
|
||||
test ansistrip_privacymessage_7bit {test ansistrip on a 7bit privacymessage strips entire pm}\ |
||||
-setup $common -body { |
||||
#regardless of whether various terminals display the PM contents or not - this is required to be stripped here. |
||||
set a "7bit secret \x1b^UN\x1b\\safe" |
||||
#equivalent to : set a X[move 2 2]Y |
||||
lappend result [punk::ansi::ansistrip $a] |
||||
}\ |
||||
-cleanup { |
||||
}\ |
||||
-result [list\ |
||||
"7bit secret safe" |
||||
] |
||||
test ansistrip_privacymessage_8bit {test ansistrip on a 8bit privacymessage strips entire pm}\ |
||||
-setup $common -body { |
||||
#regardless of whether various terminals display the PM contents or not - this is required to be stripped here. |
||||
set a "8bit secret \x9eUN\x9csafe" |
||||
#equivalent to : set a X[move 2 2]Y |
||||
lappend result [punk::ansi::ansistrip $a] |
||||
}\ |
||||
-cleanup { |
||||
}\ |
||||
-result [list\ |
||||
"8bit secret safe" |
||||
] |
||||
|
||||
test ansistrip_converts_vt100_gx {test ansistrip converts vt100 graphical symbols to unicode equivalent}\ |
||||
-setup $common -body { |
||||
set a "\x1b(0|\x1b(B" ;#equivalent [punk::ansi::g0 |] |
||||
lappend result [punk::ansi::ansistrip $a] ;#unicode not-equal symbol \u2260 |
||||
}\ |
||||
-cleanup { |
||||
}\ |
||||
-result [list\ |
||||
\u2260 |
||||
] |
||||
|
||||
} |
||||
@ -0,0 +1,225 @@
|
||||
# -*- tcl -*- |
||||
# Maintenance Instruction: leave the 999999.xxx.x as is and use punkshell 'dev make' or bin/punkmake to update from <pkg>-buildversion.txt |
||||
# module template: shellspy/src/decktemplates/vendor/punk/modules/template_module-0.0.3.tm |
||||
# |
||||
# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem. |
||||
# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository. |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
# (C) 2025 |
||||
# |
||||
# @@ Meta Begin |
||||
# Application test::punk::ansi 999999.0a1.0 |
||||
# Meta platform tcl |
||||
# Meta license MIT |
||||
# @@ Meta End |
||||
|
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
# doctools header |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
#*** !doctools |
||||
#[manpage_begin shellspy_module_test::punk::ansi 0 999999.0a1.0] |
||||
#[copyright "2025"] |
||||
#[titledesc {Module API}] [comment {-- Name section and table of contents description --}] |
||||
#[moddesc {-}] [comment {-- Description at end of page heading --}] |
||||
#[require test::punk::ansi] |
||||
#[keywords module] |
||||
#[description] |
||||
#[para] - |
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
|
||||
#*** !doctools |
||||
#[section Overview] |
||||
#[para] overview of test::punk::ansi |
||||
#[subsection Concepts] |
||||
#[para] - |
||||
|
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
## Requirements |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
|
||||
#*** !doctools |
||||
#[subsection dependencies] |
||||
#[para] packages used by test::punk::ansi |
||||
#[list_begin itemized] |
||||
|
||||
package require Tcl 8.6- |
||||
#*** !doctools |
||||
#[item] [package {Tcl 8.6}] |
||||
|
||||
#*** !doctools |
||||
#[list_end] |
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
|
||||
#*** !doctools |
||||
#[section API] |
||||
|
||||
|
||||
tcl::namespace::eval test::punk::ansi { |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
# Base namespace |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
#*** !doctools |
||||
#[subsection {Namespace test::punk::ansi}] |
||||
#[para] Core API functions for test::punk::ansi |
||||
#[list_begin definitions] |
||||
|
||||
variable PUNKARGS |
||||
|
||||
|
||||
variable pkg test::punk::ansi |
||||
variable version |
||||
set version 999999.0a1.0 |
||||
|
||||
|
||||
package require packageTest |
||||
packageTest::makeAPI test::punk::ansi $version punk::ansi; #will package provide test::punk::args $version |
||||
|
||||
package forget punk::ansi |
||||
package require punk::ansi |
||||
|
||||
|
||||
#*** !doctools |
||||
#[list_end] [comment {--- end definitions namespace test::punk::ansi ---}] |
||||
} |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
|
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
# Secondary API namespace |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
tcl::namespace::eval test::punk::ansi::lib { |
||||
tcl::namespace::export {[a-z]*} ;# Convention: export all lowercase |
||||
tcl::namespace::path [tcl::namespace::parent] |
||||
#*** !doctools |
||||
#[subsection {Namespace test::punk::ansi::lib}] |
||||
#[para] Secondary functions that are part of the API |
||||
#[list_begin definitions] |
||||
|
||||
#proc utility1 {p1 args} { |
||||
# #*** !doctools |
||||
# #[call lib::[fun utility1] [arg p1] [opt {?option value...?}]] |
||||
# #[para]Description of utility1 |
||||
# return 1 |
||||
#} |
||||
|
||||
|
||||
|
||||
#*** !doctools |
||||
#[list_end] [comment {--- end definitions namespace test::punk::ansi::lib ---}] |
||||
} |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
|
||||
|
||||
|
||||
|
||||
# == === === === === === === === === === === === === === === |
||||
# Sample 'about' function with punk::args documentation |
||||
# == === === === === === === === === === === === === === === |
||||
tcl::namespace::eval test::punk::ansi { |
||||
tcl::namespace::export {[a-z]*} ;# Convention: export all lowercase |
||||
variable PUNKARGS |
||||
variable PUNKARGS_aliases |
||||
|
||||
lappend PUNKARGS [list { |
||||
@id -id "(package)test::punk::ansi" |
||||
@package -name "test::punk::ansi" -help\ |
||||
"test suite for punk::ansi" |
||||
}] |
||||
|
||||
namespace eval argdoc { |
||||
#namespace for custom argument documentation |
||||
proc package_name {} { |
||||
return test::punk::ansi |
||||
} |
||||
proc about_topics {} { |
||||
#info commands results are returned in an arbitrary order (like array keys) |
||||
set topic_funs [info commands [namespace current]::get_topic_*] |
||||
set about_topics [list] |
||||
foreach f $topic_funs { |
||||
set tail [namespace tail $f] |
||||
lappend about_topics [string range $tail [string length get_topic_] end] |
||||
} |
||||
#Adjust this function or 'default_topics' if a different order is required |
||||
return [lsort $about_topics] |
||||
} |
||||
proc default_topics {} {return [list Description *]} |
||||
|
||||
# ------------------------------------------------------------- |
||||
# get_topic_ functions add more to auto-include in about topics |
||||
# ------------------------------------------------------------- |
||||
proc get_topic_Description {} { |
||||
punk::args::lib::tstr [string trim { |
||||
package test::punk::ansi |
||||
} \n] |
||||
} |
||||
proc get_topic_License {} { |
||||
return "MIT" |
||||
} |
||||
proc get_topic_Version {} { |
||||
return "$::test::punk::ansi::version" |
||||
} |
||||
proc get_topic_Contributors {} { |
||||
set authors {{Julian Noble <julian@precisium.com.au}} |
||||
set contributors "" |
||||
foreach a $authors { |
||||
append contributors $a \n |
||||
} |
||||
if {[string index $contributors end] eq "\n"} { |
||||
set contributors [string range $contributors 0 end-1] |
||||
} |
||||
return $contributors |
||||
} |
||||
# ------------------------------------------------------------- |
||||
} |
||||
|
||||
# we re-use the argument definition from punk::args::standard_about and override some items |
||||
set overrides [dict create] |
||||
dict set overrides @id -id "::test::punk::ansi::about" |
||||
dict set overrides @cmd -name "test::punk::ansi::about" |
||||
dict set overrides @cmd -help [string trim [punk::args::lib::tstr { |
||||
About test::punk::ansi |
||||
}] \n] |
||||
dict set overrides topic -choices [list {*}[test::punk::ansi::argdoc::about_topics] *] |
||||
dict set overrides topic -choicerestricted 1 |
||||
dict set overrides topic -default [test::punk::ansi::argdoc::default_topics] ;#if -default is present 'topic' will always appear in parsed 'values' dict |
||||
set newdef [punk::args::resolved_def -antiglobs -package_about_namespace -override $overrides ::punk::args::package::standard_about *] |
||||
lappend PUNKARGS [list $newdef] |
||||
proc about {args} { |
||||
package require punk::args |
||||
#standard_about accepts additional choices for topic - but we need to normalize any abbreviations to full topic name before passing on |
||||
set argd [punk::args::parse $args withid ::test::punk::ansi::about] |
||||
lassign [dict values $argd] _leaders opts values _received |
||||
punk::args::package::standard_about -package_about_namespace ::test::punk::ansi::argdoc {*}$opts {*}[dict get $values topic] |
||||
} |
||||
} |
||||
# end of sample 'about' function |
||||
# == === === === === === === === === === === === === === === |
||||
|
||||
|
||||
# ----------------------------------------------------------------------------- |
||||
# register namespace(s) to have PUNKARGS,PUNKARGS_aliases variables checked |
||||
# ----------------------------------------------------------------------------- |
||||
# variable PUNKARGS |
||||
# variable PUNKARGS_aliases |
||||
namespace eval ::punk::args::register { |
||||
#use fully qualified so 8.6 doesn't find existing var in global namespace |
||||
lappend ::punk::args::register::NAMESPACES ::test::punk::ansi |
||||
} |
||||
# ----------------------------------------------------------------------------- |
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
## Ready |
||||
package provide test::punk::ansi [tcl::namespace::eval test::punk::ansi { |
||||
variable pkg test::punk::ansi |
||||
variable version |
||||
set version 999999.0a1.0 |
||||
}] |
||||
return |
||||
|
||||
#*** !doctools |
||||
#[manpage_end] |
||||
|
||||
@ -0,0 +1,3 @@
|
||||
0.1.1 |
||||
#First line must be a semantic version number |
||||
#all other lines are ignored. |
||||
File diff suppressed because it is too large
Load Diff
@ -0,0 +1,969 @@
|
||||
# -*- tcl -*- |
||||
# Maintenance Instruction: leave the 999999.xxx.x as is and use punkshell 'dev make' or bin/punkmake to update from <pkg>-buildversion.txt |
||||
# module template: shellspy/src/decktemplates/vendor/punk/modules/template_module-0.0.3.tm |
||||
# |
||||
# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem. |
||||
# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository. |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
# (C) 2025 |
||||
# |
||||
# @@ Meta Begin |
||||
# Application ::punk::ansi::colourmap 0.1.0 |
||||
# Meta platform tcl |
||||
# Meta license MIT |
||||
# @@ Meta End |
||||
|
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
# doctools header |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
#*** !doctools |
||||
#[manpage_begin shellspy_module_::punk::ansi::colourmap 0 0.1.0] |
||||
#[copyright "2025"] |
||||
#[titledesc {Module API}] [comment {-- Name section and table of contents description --}] |
||||
#[moddesc {-}] [comment {-- Description at end of page heading --}] |
||||
#[require ::punk::ansi::colourmap] |
||||
#[keywords module] |
||||
#[description] |
||||
#[para] - |
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
|
||||
#*** !doctools |
||||
#[section Overview] |
||||
#[para] overview of ::punk::ansi::colourmap |
||||
#[subsection Concepts] |
||||
#[para] - |
||||
|
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
## Requirements |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
|
||||
#*** !doctools |
||||
#[subsection dependencies] |
||||
#[para] packages used by ::punk::ansi::colourmap |
||||
#[list_begin itemized] |
||||
|
||||
package require Tcl 8.6- |
||||
#*** !doctools |
||||
#[item] [package {Tcl 8.6}] |
||||
|
||||
# #package require frobz |
||||
# #*** !doctools |
||||
# #[item] [package {frobz}] |
||||
|
||||
#*** !doctools |
||||
#[list_end] |
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
|
||||
#*** !doctools |
||||
#[section API] |
||||
|
||||
|
||||
tcl::namespace::eval ::punk::ansi::colourmap { |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
# Base namespace |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
#*** !doctools |
||||
#[subsection {Namespace ::punk::ansi::colourmap}] |
||||
#[para] Core API functions for ::punk::ansi::colourmap |
||||
#[list_begin definitions] |
||||
|
||||
variable PUNKARGS |
||||
|
||||
#---------------------------------------------- |
||||
#todo - document vars as part of package API |
||||
#- or provide a function to return varnames? |
||||
#- or wrap each in a function and see if any performance/memory impact? (readonly - so should just be a reference without any copying?) |
||||
#TK_colour_map |
||||
#TK_colour_map_lookup |
||||
#TK_colour_map_merge |
||||
#TK_colour_map_reverse |
||||
#---------------------------------------------- |
||||
|
||||
|
||||
|
||||
#significantly slower than tables - but here as a check/test |
||||
lappend PUNKARGS [list { |
||||
@id -id ::punk::ansi::colourmap::get_rgb_using_tk |
||||
@cmd -name punk::ansi::colourmap::get_rgb_using_tk -help\ |
||||
"This function requires Tk to function, and will call |
||||
'package require tk' to load it. |
||||
The name argument accepts Tk colour names or hex values |
||||
in either #XXX or #XXXXXX format. |
||||
Tk colour names can be displayed using the command: |
||||
punk::ansi::a? tk ?glob..? |
||||
|
||||
get_rgb_using_tk returns a decimal rgb string delimited with dashes. |
||||
e.g |
||||
get_rgb_using_tk #FFF |
||||
255-255-255 |
||||
get_rgb_using_tk SlateBlue |
||||
106-90-205" |
||||
@leaders |
||||
name -type string|stringstartswith(#) |
||||
}] |
||||
proc get_rgb_using_tk {name} { |
||||
package require tk |
||||
#assuming 'winfo depth .' is always 32 ? |
||||
set RGB [winfo rgb . $name] |
||||
set rgb [lmap n $RGB {expr {$n / 256}}] |
||||
return [join $rgb -] |
||||
} |
||||
|
||||
variable TK_colour_map |
||||
tcl::dict::set TK_colour_map "alice blue" 240-248-255 |
||||
tcl::dict::set TK_colour_map AliceBlue 240-248-255 |
||||
tcl::dict::set TK_colour_map "antique white" 250-235-215 |
||||
tcl::dict::set TK_colour_map AntiqueWhite 250-235-215 |
||||
tcl::dict::set TK_colour_map AntiqueWhite1 255-239-219 |
||||
tcl::dict::set TK_colour_map AntiqueWhite2 238-223-204 |
||||
tcl::dict::set TK_colour_map AntiqueWhite3 205-192-176 |
||||
tcl::dict::set TK_colour_map AntiqueWhite4 139-131-120 |
||||
tcl::dict::set TK_colour_map aqua 0-255-255 |
||||
tcl::dict::set TK_colour_map aquamarine 127-255-212 |
||||
tcl::dict::set TK_colour_map aquamarine1 127-255-212 |
||||
tcl::dict::set TK_colour_map aquamarine2 118-238-198 |
||||
tcl::dict::set TK_colour_map aquamarine3 102-205-170 |
||||
tcl::dict::set TK_colour_map aquamarine4 69-139-16 |
||||
tcl::dict::set TK_colour_map azure 240-255-255 |
||||
tcl::dict::set TK_colour_map azure1 240-255-255 |
||||
tcl::dict::set TK_colour_map azure2 224-238-238 |
||||
tcl::dict::set TK_colour_map azure3 193-205-205 |
||||
tcl::dict::set TK_colour_map azure4 131-139-139 |
||||
tcl::dict::set TK_colour_map beige 245-245-220 |
||||
tcl::dict::set TK_colour_map bisque 255-228-196 |
||||
tcl::dict::set TK_colour_map bisque1 255-228-196 |
||||
tcl::dict::set TK_colour_map bisque2 238-213-183 |
||||
tcl::dict::set TK_colour_map bisque3 205-183-158 |
||||
tcl::dict::set TK_colour_map bisque4 139-125-107 |
||||
tcl::dict::set TK_colour_map black 0-0-0 |
||||
tcl::dict::set TK_colour_map "blanched almond" 255-235-205 |
||||
tcl::dict::set TK_colour_map BlanchedAlmond 255-235-205 |
||||
tcl::dict::set TK_colour_map blue 0-0-255 |
||||
tcl::dict::set TK_colour_map "blue violet" 138-43-226 |
||||
tcl::dict::set TK_colour_map blue1 0-0-255 |
||||
tcl::dict::set TK_colour_map blue2 0-0-238 |
||||
tcl::dict::set TK_colour_map blue3 0-0-205 |
||||
tcl::dict::set TK_colour_map blue4 0-0-139 |
||||
tcl::dict::set TK_colour_map BlueViolet 138-43-226 |
||||
tcl::dict::set TK_colour_map brown 165-42-42 |
||||
tcl::dict::set TK_colour_map brown1 255-64-64 |
||||
tcl::dict::set TK_colour_map brown2 238-59-59 |
||||
tcl::dict::set TK_colour_map brown3 205-51-51 |
||||
tcl::dict::set TK_colour_map brown4 139-35-35 |
||||
tcl::dict::set TK_colour_map burlywood 222-184-135 |
||||
tcl::dict::set TK_colour_map burlywood1 255-211-155 |
||||
tcl::dict::set TK_colour_map burlywood2 238-197-145 |
||||
tcl::dict::set TK_colour_map burlywood3 205-170-125 |
||||
tcl::dict::set TK_colour_map burlywood4 139-115-85 |
||||
tcl::dict::set TK_colour_map "cadet blue" 95-158-160 |
||||
tcl::dict::set TK_colour_map CadetBlue 95-158-160 |
||||
tcl::dict::set TK_colour_map CadetBlue1 152-245-255 |
||||
tcl::dict::set TK_colour_map CadetBlue2 142-229-238 |
||||
tcl::dict::set TK_colour_map CadetBlue3 122-197-205 |
||||
tcl::dict::set TK_colour_map CadetBlue4 83-134-139 |
||||
tcl::dict::set TK_colour_map chartreuse 127-255-0 |
||||
tcl::dict::set TK_colour_map chartreuse1 127-255-0 |
||||
tcl::dict::set TK_colour_map chartreuse2 118-238-0 |
||||
tcl::dict::set TK_colour_map chartreuse3 102-205-0 |
||||
tcl::dict::set TK_colour_map chartreuse4 69-139-0 |
||||
tcl::dict::set TK_colour_map chocolate 210-105-30 |
||||
tcl::dict::set TK_colour_map chocolate1 255-127-36 |
||||
tcl::dict::set TK_colour_map chocolate2 238-118-33 |
||||
tcl::dict::set TK_colour_map chocolate3 205-102-29 |
||||
tcl::dict::set TK_colour_map chocolate4 139-69-19 |
||||
tcl::dict::set TK_colour_map coral 255-127-80 |
||||
tcl::dict::set TK_colour_map coral1 255-114-86 |
||||
tcl::dict::set TK_colour_map coral2 238-106-80 |
||||
tcl::dict::set TK_colour_map coral3 205-91-69 |
||||
tcl::dict::set TK_colour_map coral4 139-62-47 |
||||
tcl::dict::set TK_colour_map "cornflower blue" 100-149-237 |
||||
tcl::dict::set TK_colour_map CornflowerBlue 100-149-237 |
||||
tcl::dict::set TK_colour_map cornsilk 255-248-220 |
||||
tcl::dict::set TK_colour_map cornsilk1 255-248-220 |
||||
tcl::dict::set TK_colour_map cornsilk2 238-232-205 |
||||
tcl::dict::set TK_colour_map cornsilk3 205-200-177 |
||||
tcl::dict::set TK_colour_map cornsilk4 139-136-120 |
||||
tcl::dict::set TK_colour_map crimson 220-20-60 |
||||
tcl::dict::set TK_colour_map cyan 0-255-255 |
||||
tcl::dict::set TK_colour_map cyan1 0-255-255 |
||||
tcl::dict::set TK_colour_map cyan2 0-238-238 |
||||
tcl::dict::set TK_colour_map cyan3 0-205-205 |
||||
tcl::dict::set TK_colour_map cyan4 0-139-139 |
||||
tcl::dict::set TK_colour_map "dark blue" 0-0-139 |
||||
tcl::dict::set TK_colour_map "dark cyan" 0-139-139 |
||||
tcl::dict::set TK_colour_map "dark goldenrod" 184-134-11 |
||||
tcl::dict::set TK_colour_map "dark gray" 169-169-169 |
||||
tcl::dict::set TK_colour_map "dark green" 0-100-0 |
||||
tcl::dict::set TK_colour_map "dark grey" 169-169-169 |
||||
tcl::dict::set TK_colour_map "dark khaki" 189-183-107 |
||||
tcl::dict::set TK_colour_map "dark magenta" 139-0-139 |
||||
tcl::dict::set TK_colour_map "dark olive green" 85-107-47 |
||||
tcl::dict::set TK_colour_map "dark orange" 255-140-0 |
||||
tcl::dict::set TK_colour_map "dark orchid" 153-50-204 |
||||
tcl::dict::set TK_colour_map "dark red" 139-0-0 |
||||
tcl::dict::set TK_colour_map "dark salmon" 233-150-122 |
||||
tcl::dict::set TK_colour_map "dark sea green" 143-188-143 |
||||
tcl::dict::set TK_colour_map "dark slate blue" 72-61-139 |
||||
tcl::dict::set TK_colour_map "dark slate gray" 47-79-79 |
||||
tcl::dict::set TK_colour_map "dark slate grey" 47-79-79 |
||||
tcl::dict::set TK_colour_map "dark turquoise" 0-206-209 |
||||
tcl::dict::set TK_colour_map "dark violet" 148-0-211 |
||||
tcl::dict::set TK_colour_map DarkBlue 0-0-139 |
||||
tcl::dict::set TK_colour_map DarkCyan 0-139-139 |
||||
tcl::dict::set TK_colour_map DarkGoldenrod 184-134-11 |
||||
tcl::dict::set TK_colour_map DarkGoldenrod1 255-185-15 |
||||
tcl::dict::set TK_colour_map DarkGoldenrod2 238-173-14 |
||||
tcl::dict::set TK_colour_map DarkGoldenrod3 205-149-12 |
||||
tcl::dict::set TK_colour_map DarkGoldenrod4 139-101-8 |
||||
tcl::dict::set TK_colour_map DarkGray 169-169-169 |
||||
tcl::dict::set TK_colour_map DarkGreen 0-100-0 |
||||
tcl::dict::set TK_colour_map DarkGrey 169-169-169 |
||||
tcl::dict::set TK_colour_map DarkKhaki 189-183-107 |
||||
tcl::dict::set TK_colour_map DarkMagenta 139-0-139 |
||||
tcl::dict::set TK_colour_map DarkOliveGreen 85-107-47 |
||||
tcl::dict::set TK_colour_map DarkOliveGreen1 202-255-112 |
||||
tcl::dict::set TK_colour_map DarkOliveGreen2 188-238-104 |
||||
tcl::dict::set TK_colour_map DarkOliveGreen3 162-205-90 |
||||
tcl::dict::set TK_colour_map DarkOliveGreen4 110-139-61 |
||||
tcl::dict::set TK_colour_map DarkOrange 255-140-0 |
||||
tcl::dict::set TK_colour_map DarkOrange1 255-127-0 |
||||
tcl::dict::set TK_colour_map DarkOrange2 238-118-0 |
||||
tcl::dict::set TK_colour_map DarkOrange3 205-102-0 |
||||
tcl::dict::set TK_colour_map DarkOrange4 139-69-0 |
||||
tcl::dict::set TK_colour_map DarkOrchid 153-50-204 |
||||
tcl::dict::set TK_colour_map DarkOrchid1 191-62-255 |
||||
tcl::dict::set TK_colour_map DarkOrchid2 178-58-238 |
||||
tcl::dict::set TK_colour_map DarkOrchid3 154-50-205 |
||||
tcl::dict::set TK_colour_map DarkOrchid4 104-34-139 |
||||
tcl::dict::set TK_colour_map DarkRed 139-0-0 |
||||
tcl::dict::set TK_colour_map DarkSalmon 233-150-122 |
||||
tcl::dict::set TK_colour_map DarkSeaGreen 43-188-143 |
||||
tcl::dict::set TK_colour_map DarkSeaGreen1 193-255-193 |
||||
tcl::dict::set TK_colour_map DarkSeaGreen2 180-238-180 |
||||
tcl::dict::set TK_colour_map DarkSeaGreen3 155-205-155 |
||||
tcl::dict::set TK_colour_map DarkSeaGreen4 105-139-105 |
||||
tcl::dict::set TK_colour_map DarkSlateBlue 72-61-139 |
||||
tcl::dict::set TK_colour_map DarkSlateGray 47-79-79 |
||||
tcl::dict::set TK_colour_map DarkSlateGray1 151-255-255 |
||||
tcl::dict::set TK_colour_map DarkSlateGray2 141-238-238 |
||||
tcl::dict::set TK_colour_map DarkSlateGray3 121-205-205 |
||||
tcl::dict::set TK_colour_map DarkSlateGray4 82-139-139 |
||||
tcl::dict::set TK_colour_map DarkSlateGrey 47-79-79 |
||||
tcl::dict::set TK_colour_map DarkTurquoise 0-206-209 |
||||
tcl::dict::set TK_colour_map DarkViolet 148-0-211 |
||||
tcl::dict::set TK_colour_map "deep pink" 255-20-147 |
||||
tcl::dict::set TK_colour_map "deep sky blue" 0-191-255 |
||||
tcl::dict::set TK_colour_map DeepPink 255-20-147 |
||||
tcl::dict::set TK_colour_map DeepPink1 255-20-147 |
||||
tcl::dict::set TK_colour_map DeepPink2 238-18-137 |
||||
tcl::dict::set TK_colour_map DeepPink3 205-16-118 |
||||
tcl::dict::set TK_colour_map DeepPink4 139-10-80 |
||||
tcl::dict::set TK_colour_map DeepSkyBlue 0-191-255 |
||||
tcl::dict::set TK_colour_map DeepSkyBlue1 0-191-255 |
||||
tcl::dict::set TK_colour_map DeepSkyBlue2 0-178-238 |
||||
tcl::dict::set TK_colour_map DeepSkyBlue3 0-154-205 |
||||
tcl::dict::set TK_colour_map DeepSkyBlue4 0-104-139 |
||||
tcl::dict::set TK_colour_map "dim gray" 105-105-105 |
||||
tcl::dict::set TK_colour_map "dim grey" 105-105-105 |
||||
tcl::dict::set TK_colour_map DimGray 105-105-105 |
||||
tcl::dict::set TK_colour_map DimGrey 105-105-105 |
||||
tcl::dict::set TK_colour_map "dodger blue" 30-144-255 |
||||
tcl::dict::set TK_colour_map DodgerBlue 30-144-255 |
||||
tcl::dict::set TK_colour_map DodgerBlue1 30-144-255 |
||||
tcl::dict::set TK_colour_map DodgerBlue2 28-134-238 |
||||
tcl::dict::set TK_colour_map DodgerBlue3 24-116-205 |
||||
tcl::dict::set TK_colour_map DodgerBlue4 16-78-139 |
||||
tcl::dict::set TK_colour_map firebrick 178-34-34 |
||||
tcl::dict::set TK_colour_map firebrick1 255-48-48 |
||||
tcl::dict::set TK_colour_map firebrick2 238-44-44 |
||||
tcl::dict::set TK_colour_map firebrick3 205-38-38 |
||||
tcl::dict::set TK_colour_map firebrick4 139-26-26 |
||||
tcl::dict::set TK_colour_map "floral white" 255-250-240 |
||||
tcl::dict::set TK_colour_map FloralWhite 255-250-240 |
||||
tcl::dict::set TK_colour_map "forest green" 34-139-34 |
||||
tcl::dict::set TK_colour_map ForestGreen 34-139-34 |
||||
tcl::dict::set TK_colour_map fuchsia 255-0-255 |
||||
tcl::dict::set TK_colour_map gainsboro 220-220-220 |
||||
tcl::dict::set TK_colour_map "ghost white" 248-248-255 |
||||
tcl::dict::set TK_colour_map GhostWhite 248-248-255 |
||||
tcl::dict::set TK_colour_map gold 255-215-0 |
||||
tcl::dict::set TK_colour_map gold1 255-215-0 |
||||
tcl::dict::set TK_colour_map gold2 238-201-0 |
||||
tcl::dict::set TK_colour_map gold3 205-173-0 |
||||
tcl::dict::set TK_colour_map gold4 139-117-0 |
||||
tcl::dict::set TK_colour_map goldenrod 218-165-32 |
||||
tcl::dict::set TK_colour_map goldenrod1 255-193-37 |
||||
tcl::dict::set TK_colour_map goldenrod2 238-180-34 |
||||
tcl::dict::set TK_colour_map goldenrod3 205-155-29 |
||||
tcl::dict::set TK_colour_map goldenrod4 139-105-20 |
||||
tcl::dict::set TK_colour_map gray 128-128-128 |
||||
tcl::dict::set TK_colour_map gray0 0-0-0 |
||||
tcl::dict::set TK_colour_map gray1 3-3-3 |
||||
tcl::dict::set TK_colour_map gray2 5-5-5 |
||||
tcl::dict::set TK_colour_map gray3 8-8-8 |
||||
tcl::dict::set TK_colour_map gray4 10-10-10 |
||||
tcl::dict::set TK_colour_map gray5 13-13-13 |
||||
tcl::dict::set TK_colour_map gray6 15-15-15 |
||||
tcl::dict::set TK_colour_map gray7 18-18-18 |
||||
tcl::dict::set TK_colour_map gray8 20-20-20 |
||||
tcl::dict::set TK_colour_map gray9 23-23-23 |
||||
tcl::dict::set TK_colour_map gray10 26-26-26 |
||||
tcl::dict::set TK_colour_map gray11 28-28-28 |
||||
tcl::dict::set TK_colour_map gray12 31-31-31 |
||||
tcl::dict::set TK_colour_map gray13 33-33-33 |
||||
tcl::dict::set TK_colour_map gray14 36-36-36 |
||||
tcl::dict::set TK_colour_map gray15 38-38-38 |
||||
tcl::dict::set TK_colour_map gray16 41-41-41 |
||||
tcl::dict::set TK_colour_map gray17 43-43-43 |
||||
tcl::dict::set TK_colour_map gray18 46-46-46 |
||||
tcl::dict::set TK_colour_map gray19 48-48-48 |
||||
tcl::dict::set TK_colour_map gray20 51-51-51 |
||||
tcl::dict::set TK_colour_map gray21 54-54-54 |
||||
tcl::dict::set TK_colour_map gray22 56-56-56 |
||||
tcl::dict::set TK_colour_map gray23 59-59-59 |
||||
tcl::dict::set TK_colour_map gray24 61-61-61 |
||||
tcl::dict::set TK_colour_map gray25 64-64-64 |
||||
tcl::dict::set TK_colour_map gray26 66-66-66 |
||||
tcl::dict::set TK_colour_map gray27 69-69-69 |
||||
tcl::dict::set TK_colour_map gray28 71-71-71 |
||||
tcl::dict::set TK_colour_map gray29 74-74-74 |
||||
tcl::dict::set TK_colour_map gray30 77-77-77 |
||||
tcl::dict::set TK_colour_map gray31 79-79-79 |
||||
tcl::dict::set TK_colour_map gray32 82-82-82 |
||||
tcl::dict::set TK_colour_map gray33 84-84-84 |
||||
tcl::dict::set TK_colour_map gray34 87-87-87 |
||||
tcl::dict::set TK_colour_map gray35 89-89-89 |
||||
tcl::dict::set TK_colour_map gray36 92-92-92 |
||||
tcl::dict::set TK_colour_map gray37 94-94-94 |
||||
tcl::dict::set TK_colour_map gray38 97-97-97 |
||||
tcl::dict::set TK_colour_map gray39 99-99-99 |
||||
tcl::dict::set TK_colour_map gray40 102-102-102 |
||||
tcl::dict::set TK_colour_map gray41 105-105-105 |
||||
tcl::dict::set TK_colour_map gray42 107-107-107 |
||||
tcl::dict::set TK_colour_map gray43 110-110-110 |
||||
tcl::dict::set TK_colour_map gray44 112-112-112 |
||||
tcl::dict::set TK_colour_map gray45 115-115-115 |
||||
tcl::dict::set TK_colour_map gray46 117-117-117 |
||||
tcl::dict::set TK_colour_map gray47 120-120-120 |
||||
tcl::dict::set TK_colour_map gray48 122-122-122 |
||||
tcl::dict::set TK_colour_map gray49 125-125-125 |
||||
tcl::dict::set TK_colour_map gray50 127-127-127 |
||||
tcl::dict::set TK_colour_map gray51 130-130-130 |
||||
tcl::dict::set TK_colour_map gray52 133-133-133 |
||||
tcl::dict::set TK_colour_map gray53 135-135-135 |
||||
tcl::dict::set TK_colour_map gray54 138-138-138 |
||||
tcl::dict::set TK_colour_map gray55 140-140-140 |
||||
tcl::dict::set TK_colour_map gray56 143-143-143 |
||||
tcl::dict::set TK_colour_map gray57 145-145-145 |
||||
tcl::dict::set TK_colour_map gray58 148-148-148 |
||||
tcl::dict::set TK_colour_map gray59 150-150-150 |
||||
tcl::dict::set TK_colour_map gray60 153-153-153 |
||||
tcl::dict::set TK_colour_map gray61 156-156-156 |
||||
tcl::dict::set TK_colour_map gray62 158-158-158 |
||||
tcl::dict::set TK_colour_map gray63 161-161-161 |
||||
tcl::dict::set TK_colour_map gray64 163-163-163 |
||||
tcl::dict::set TK_colour_map gray65 166-166-166 |
||||
tcl::dict::set TK_colour_map gray66 168-168-168 |
||||
tcl::dict::set TK_colour_map gray67 171-171-171 |
||||
tcl::dict::set TK_colour_map gray68 173-173-173 |
||||
tcl::dict::set TK_colour_map gray69 176-176-176 |
||||
tcl::dict::set TK_colour_map gray70 179-179-179 |
||||
tcl::dict::set TK_colour_map gray71 181-181-181 |
||||
tcl::dict::set TK_colour_map gray72 184-184-184 |
||||
tcl::dict::set TK_colour_map gray73 186-186-186 |
||||
tcl::dict::set TK_colour_map gray74 189-189-189 |
||||
tcl::dict::set TK_colour_map gray75 191-191-191 |
||||
tcl::dict::set TK_colour_map gray76 194-194-194 |
||||
tcl::dict::set TK_colour_map gray77 196-196-196 |
||||
tcl::dict::set TK_colour_map gray78 199-199-199 |
||||
tcl::dict::set TK_colour_map gray79 201-201-201 |
||||
tcl::dict::set TK_colour_map gray80 204-204-204 |
||||
tcl::dict::set TK_colour_map gray81 207-207-207 |
||||
tcl::dict::set TK_colour_map gray82 209-209-209 |
||||
tcl::dict::set TK_colour_map gray83 212-212-212 |
||||
tcl::dict::set TK_colour_map gray84 214-214-214 |
||||
tcl::dict::set TK_colour_map gray85 217-217-217 |
||||
tcl::dict::set TK_colour_map gray86 219-219-219 |
||||
tcl::dict::set TK_colour_map gray87 222-222-222 |
||||
tcl::dict::set TK_colour_map gray88 224-224-224 |
||||
tcl::dict::set TK_colour_map gray89 227-227-227 |
||||
tcl::dict::set TK_colour_map gray90 229-229-229 |
||||
tcl::dict::set TK_colour_map gray91 232-232-232 |
||||
tcl::dict::set TK_colour_map gray92 235-235-235 |
||||
tcl::dict::set TK_colour_map gray93 237-237-237 |
||||
tcl::dict::set TK_colour_map gray94 240-240-240 |
||||
tcl::dict::set TK_colour_map gray95 242-242-242 |
||||
tcl::dict::set TK_colour_map gray96 245-245-245 |
||||
tcl::dict::set TK_colour_map gray97 247-247-247 |
||||
tcl::dict::set TK_colour_map gray98 250-250-250 |
||||
tcl::dict::set TK_colour_map gray99 252-252-252 |
||||
tcl::dict::set TK_colour_map gray100 255-255-255 |
||||
tcl::dict::set TK_colour_map green 0-128-0 |
||||
tcl::dict::set TK_colour_map "green yellow" 173-255-47 |
||||
tcl::dict::set TK_colour_map green1 0-255-0 |
||||
tcl::dict::set TK_colour_map green2 0-238-0 |
||||
tcl::dict::set TK_colour_map green3 0-205-0 |
||||
tcl::dict::set TK_colour_map green4 0-139-0 |
||||
tcl::dict::set TK_colour_map GreenYellow 173-255-47 |
||||
tcl::dict::set TK_colour_map grey 128-128-128 |
||||
tcl::dict::set TK_colour_map grey0 0-0-0 |
||||
tcl::dict::set TK_colour_map grey1 3-3-3 |
||||
tcl::dict::set TK_colour_map grey2 5-5-5 |
||||
tcl::dict::set TK_colour_map grey3 8-8-8 |
||||
tcl::dict::set TK_colour_map grey4 10-10-10 |
||||
tcl::dict::set TK_colour_map grey5 13-13-13 |
||||
tcl::dict::set TK_colour_map grey6 15-15-15 |
||||
tcl::dict::set TK_colour_map grey7 18-18-18 |
||||
tcl::dict::set TK_colour_map grey8 20-20-20 |
||||
tcl::dict::set TK_colour_map grey9 23-23-23 |
||||
tcl::dict::set TK_colour_map grey10 26-26-26 |
||||
tcl::dict::set TK_colour_map grey11 28-28-28 |
||||
tcl::dict::set TK_colour_map grey12 31-31-31 |
||||
tcl::dict::set TK_colour_map grey13 33-33-33 |
||||
tcl::dict::set TK_colour_map grey14 36-36-36 |
||||
tcl::dict::set TK_colour_map grey15 38-38-38 |
||||
tcl::dict::set TK_colour_map grey16 41-41-41 |
||||
tcl::dict::set TK_colour_map grey17 43-43-43 |
||||
tcl::dict::set TK_colour_map grey18 46-46-46 |
||||
tcl::dict::set TK_colour_map grey19 48-48-48 |
||||
tcl::dict::set TK_colour_map grey20 51-51-51 |
||||
tcl::dict::set TK_colour_map grey21 54-54-54 |
||||
tcl::dict::set TK_colour_map grey22 56-56-56 |
||||
tcl::dict::set TK_colour_map grey23 59-59-59 |
||||
tcl::dict::set TK_colour_map grey24 61-61-61 |
||||
tcl::dict::set TK_colour_map grey25 64-64-64 |
||||
tcl::dict::set TK_colour_map grey26 66-66-66 |
||||
tcl::dict::set TK_colour_map grey27 69-69-69 |
||||
tcl::dict::set TK_colour_map grey28 71-71-71 |
||||
tcl::dict::set TK_colour_map grey29 74-74-74 |
||||
tcl::dict::set TK_colour_map grey30 77-77-77 |
||||
tcl::dict::set TK_colour_map grey31 79-79-79 |
||||
tcl::dict::set TK_colour_map grey32 82-82-82 |
||||
tcl::dict::set TK_colour_map grey33 84-84-84 |
||||
tcl::dict::set TK_colour_map grey34 87-87-87 |
||||
tcl::dict::set TK_colour_map grey35 89-89-89 |
||||
tcl::dict::set TK_colour_map grey36 92-92-92 |
||||
tcl::dict::set TK_colour_map grey37 94-94-94 |
||||
tcl::dict::set TK_colour_map grey38 97-97-97 |
||||
tcl::dict::set TK_colour_map grey39 99-99-99 |
||||
tcl::dict::set TK_colour_map grey40 102-102-102 |
||||
tcl::dict::set TK_colour_map grey41 105-105-105 |
||||
tcl::dict::set TK_colour_map grey42 107-107-107 |
||||
tcl::dict::set TK_colour_map grey43 110-110-110 |
||||
tcl::dict::set TK_colour_map grey44 112-112-112 |
||||
tcl::dict::set TK_colour_map grey45 115-115-115 |
||||
tcl::dict::set TK_colour_map grey46 117-117-117 |
||||
tcl::dict::set TK_colour_map grey47 120-120-120 |
||||
tcl::dict::set TK_colour_map grey48 122-122-122 |
||||
tcl::dict::set TK_colour_map grey49 125-125-125 |
||||
tcl::dict::set TK_colour_map grey50 127-127-127 |
||||
tcl::dict::set TK_colour_map grey51 130-130-130 |
||||
tcl::dict::set TK_colour_map grey52 133-133-133 |
||||
tcl::dict::set TK_colour_map grey53 135-135-135 |
||||
tcl::dict::set TK_colour_map grey54 138-138-138 |
||||
tcl::dict::set TK_colour_map grey55 140-140-140 |
||||
tcl::dict::set TK_colour_map grey56 143-143-143 |
||||
tcl::dict::set TK_colour_map grey57 145-145-145 |
||||
tcl::dict::set TK_colour_map grey58 148-148-148 |
||||
tcl::dict::set TK_colour_map grey59 150-150-150 |
||||
tcl::dict::set TK_colour_map grey60 153-153-153 |
||||
tcl::dict::set TK_colour_map grey61 156-156-156 |
||||
tcl::dict::set TK_colour_map grey62 158-158-158 |
||||
tcl::dict::set TK_colour_map grey63 161-161-161 |
||||
tcl::dict::set TK_colour_map grey64 163-163-163 |
||||
tcl::dict::set TK_colour_map grey65 166-166-166 |
||||
tcl::dict::set TK_colour_map grey66 168-168-168 |
||||
tcl::dict::set TK_colour_map grey67 171-171-171 |
||||
tcl::dict::set TK_colour_map grey68 173-173-173 |
||||
tcl::dict::set TK_colour_map grey69 176-176-176 |
||||
tcl::dict::set TK_colour_map grey70 179-179-179 |
||||
tcl::dict::set TK_colour_map grey71 181-181-181 |
||||
tcl::dict::set TK_colour_map grey72 184-184-184 |
||||
tcl::dict::set TK_colour_map grey73 186-186-186 |
||||
tcl::dict::set TK_colour_map grey74 189-189-189 |
||||
tcl::dict::set TK_colour_map grey75 191-191-191 |
||||
tcl::dict::set TK_colour_map grey76 194-194-194 |
||||
tcl::dict::set TK_colour_map grey77 196-196-196 |
||||
tcl::dict::set TK_colour_map grey78 199-199-199 |
||||
tcl::dict::set TK_colour_map grey79 201-201-201 |
||||
tcl::dict::set TK_colour_map grey80 204-204-204 |
||||
tcl::dict::set TK_colour_map grey81 207-207-207 |
||||
tcl::dict::set TK_colour_map grey82 209-209-209 |
||||
tcl::dict::set TK_colour_map grey83 212-212-212 |
||||
tcl::dict::set TK_colour_map grey84 214-214-214 |
||||
tcl::dict::set TK_colour_map grey85 217-217-217 |
||||
tcl::dict::set TK_colour_map grey86 219-219-219 |
||||
tcl::dict::set TK_colour_map grey87 222-222-222 |
||||
tcl::dict::set TK_colour_map grey88 224-224-224 |
||||
tcl::dict::set TK_colour_map grey89 227-227-227 |
||||
tcl::dict::set TK_colour_map grey90 229-229-229 |
||||
tcl::dict::set TK_colour_map grey91 232-232-232 |
||||
tcl::dict::set TK_colour_map grey92 235-235-235 |
||||
tcl::dict::set TK_colour_map grey93 237-237-237 |
||||
tcl::dict::set TK_colour_map grey94 240-240-240 |
||||
tcl::dict::set TK_colour_map grey95 242-242-242 |
||||
tcl::dict::set TK_colour_map grey96 245-245-245 |
||||
tcl::dict::set TK_colour_map grey97 247-247-247 |
||||
tcl::dict::set TK_colour_map grey98 250-250-250 |
||||
tcl::dict::set TK_colour_map grey99 252-252-252 |
||||
tcl::dict::set TK_colour_map grey100 255-255-255 |
||||
tcl::dict::set TK_colour_map honeydew 240-255-240 |
||||
tcl::dict::set TK_colour_map honeydew1 240-255-240 |
||||
tcl::dict::set TK_colour_map honeydew2 224-238-224 |
||||
tcl::dict::set TK_colour_map honeydew3 193-205-193 |
||||
tcl::dict::set TK_colour_map honeydew4 131-139-131 |
||||
tcl::dict::set TK_colour_map "hot pink" 255-105-180 |
||||
tcl::dict::set TK_colour_map HotPink 255-105-180 |
||||
tcl::dict::set TK_colour_map HotPink1 255-110-180 |
||||
tcl::dict::set TK_colour_map HotPink2 238-106-167 |
||||
tcl::dict::set TK_colour_map HotPink3 205-96-144 |
||||
tcl::dict::set TK_colour_map HotPink4 139-58-98 |
||||
tcl::dict::set TK_colour_map "indian red" 205-92-92 |
||||
tcl::dict::set TK_colour_map IndianRed 205-92-92 |
||||
tcl::dict::set TK_colour_map IndianRed1 255-106-106 |
||||
tcl::dict::set TK_colour_map IndianRed2 238-99-99 |
||||
tcl::dict::set TK_colour_map IndianRed3 205-85-85 |
||||
tcl::dict::set TK_colour_map IndianRed4 139-58-58 |
||||
tcl::dict::set TK_colour_map indigo 75-0-130 |
||||
tcl::dict::set TK_colour_map ivory 255-255-240 |
||||
tcl::dict::set TK_colour_map ivory1 255-255-240 |
||||
tcl::dict::set TK_colour_map ivory2 238-238-224 |
||||
tcl::dict::set TK_colour_map ivory3 205-205-193 |
||||
tcl::dict::set TK_colour_map ivory4 139-139-131 |
||||
tcl::dict::set TK_colour_map khaki 240-230-140 |
||||
tcl::dict::set TK_colour_map khaki1 255-246-143 |
||||
tcl::dict::set TK_colour_map khaki2 238-230-133 |
||||
tcl::dict::set TK_colour_map khaki3 205-198-115 |
||||
tcl::dict::set TK_colour_map khaki4 139-134-78 |
||||
tcl::dict::set TK_colour_map lavender 230-230-250 |
||||
tcl::dict::set TK_colour_map "lavender blush" 255-240-245 |
||||
tcl::dict::set TK_colour_map LavenderBlush 255-240-245 |
||||
tcl::dict::set TK_colour_map LavenderBlush1 255-240-245 |
||||
tcl::dict::set TK_colour_map LavenderBlush2 238-224-229 |
||||
tcl::dict::set TK_colour_map LavenderBlush3 205-193-197 |
||||
tcl::dict::set TK_colour_map LavenderBlush4 139-131-134 |
||||
tcl::dict::set TK_colour_map "lawn green" 124-252-0 |
||||
tcl::dict::set TK_colour_map LawnGreen 124-252-0 |
||||
tcl::dict::set TK_colour_map "lemon chiffon" 255-250-205 |
||||
tcl::dict::set TK_colour_map LemonChiffon 255-250-205 |
||||
tcl::dict::set TK_colour_map LemonChiffon1 255-250-205 |
||||
tcl::dict::set TK_colour_map LemonChiffon2 238-233-191 |
||||
tcl::dict::set TK_colour_map LemonChiffon3 205-201-165 |
||||
tcl::dict::set TK_colour_map LemonChiffon4 139-137-112 |
||||
tcl::dict::set TK_colour_map "light blue" 173-216-230 |
||||
tcl::dict::set TK_colour_map "light coral" 240-128-128 |
||||
tcl::dict::set TK_colour_map "light cyan" 224-255-255 |
||||
tcl::dict::set TK_colour_map "light goldenrod" 238-221-130 |
||||
tcl::dict::set TK_colour_map "light goldenrod yellow" 250-250-210 |
||||
tcl::dict::set TK_colour_map "light gray" 211-211-211 |
||||
tcl::dict::set TK_colour_map "light green" 144-238-144 |
||||
tcl::dict::set TK_colour_map "light grey" 211-211-211 |
||||
tcl::dict::set TK_colour_map "light pink" 255-182-193 |
||||
tcl::dict::set TK_colour_map "light salmon" 255-160-122 |
||||
tcl::dict::set TK_colour_map "light sea green" 32-178-170 |
||||
tcl::dict::set TK_colour_map "light sky blue" 135-206-250 |
||||
tcl::dict::set TK_colour_map "light slate blue" 132-112-255 |
||||
tcl::dict::set TK_colour_map "light slate gray" 119-136-153 |
||||
tcl::dict::set TK_colour_map "light slate grey" 119-136-153 |
||||
tcl::dict::set TK_colour_map "light steel blue" 176-196-222 |
||||
tcl::dict::set TK_colour_map "light yellow" 255-255-224 |
||||
tcl::dict::set TK_colour_map LightBlue 173-216-230 |
||||
tcl::dict::set TK_colour_map LightBlue1 191-239-255 |
||||
tcl::dict::set TK_colour_map LightBlue2 178-223-238 |
||||
tcl::dict::set TK_colour_map LightBlue3 154-192-205 |
||||
tcl::dict::set TK_colour_map LightBlue4 104-131-139 |
||||
tcl::dict::set TK_colour_map LightCoral 240-128-128 |
||||
tcl::dict::set TK_colour_map LightCyan 224-255-255 |
||||
tcl::dict::set TK_colour_map LightCyan1 224-255-255 |
||||
tcl::dict::set TK_colour_map LightCyan2 209-238-238 |
||||
tcl::dict::set TK_colour_map LightCyan3 180-205-205 |
||||
tcl::dict::set TK_colour_map LightCyan4 122-139-139 |
||||
tcl::dict::set TK_colour_map LightGoldenrod 238-221-130 |
||||
tcl::dict::set TK_colour_map LightGoldenrod1 255-236-139 |
||||
tcl::dict::set TK_colour_map LightGoldenrod2 238-220-130 |
||||
tcl::dict::set TK_colour_map LightGoldenrod3 205-190-112 |
||||
tcl::dict::set TK_colour_map LightGoldenrod4 139-129-76 |
||||
tcl::dict::set TK_colour_map LightGoldenrodYellow 250-250-210 |
||||
tcl::dict::set TK_colour_map LightGray 211-211-211 |
||||
tcl::dict::set TK_colour_map LightGreen 144-238-144 |
||||
tcl::dict::set TK_colour_map LightGrey 211-211-211 |
||||
tcl::dict::set TK_colour_map LightPink 255-182-193 |
||||
tcl::dict::set TK_colour_map LightPink1 255-174-185 |
||||
tcl::dict::set TK_colour_map LightPink2 238-162-173 |
||||
tcl::dict::set TK_colour_map LightPink3 205-140-149 |
||||
tcl::dict::set TK_colour_map LightPink4 139-95-101 |
||||
tcl::dict::set TK_colour_map LightSalmon 255-160-122 |
||||
tcl::dict::set TK_colour_map LightSalmon1 255-160-122 |
||||
tcl::dict::set TK_colour_map LightSalmon2 238-149-114 |
||||
tcl::dict::set TK_colour_map LightSalmon3 205-129-98 |
||||
tcl::dict::set TK_colour_map LightSalmon4 139-87-66 |
||||
tcl::dict::set TK_colour_map LightSeaGreen 32-178-170 |
||||
tcl::dict::set TK_colour_map LightSkyBlue 135-206-250 |
||||
tcl::dict::set TK_colour_map LightSkyBlue1 176-226-255 |
||||
tcl::dict::set TK_colour_map LightSkyBlue2 164-211-238 |
||||
tcl::dict::set TK_colour_map LightSkyBlue3 141-182-205 |
||||
tcl::dict::set TK_colour_map LightSkyBlue4 96-123-139 |
||||
tcl::dict::set TK_colour_map LightSlateBlue 132-112-255 |
||||
tcl::dict::set TK_colour_map LightSlateGray 119-136-153 |
||||
tcl::dict::set TK_colour_map LightSlateGrey 119-136-153 |
||||
tcl::dict::set TK_colour_map LightSteelBlue 176-196-222 |
||||
tcl::dict::set TK_colour_map LightSteelBlue1 202-225-255 |
||||
tcl::dict::set TK_colour_map LightSteelBlue2 188-210-238 |
||||
tcl::dict::set TK_colour_map LightSteelBlue3 162-181-205 |
||||
tcl::dict::set TK_colour_map LightSteelBlue4 110-123-139 |
||||
tcl::dict::set TK_colour_map LightYellow 255-255-224 |
||||
tcl::dict::set TK_colour_map LightYellow1 255-255-224 |
||||
tcl::dict::set TK_colour_map LightYellow2 238-238-209 |
||||
tcl::dict::set TK_colour_map LightYellow3 205-205-180 |
||||
tcl::dict::set TK_colour_map LightYellow4 139-139-122 |
||||
tcl::dict::set TK_colour_map lime 0-255-0 |
||||
tcl::dict::set TK_colour_map "lime green" 50-205-50 |
||||
tcl::dict::set TK_colour_map LimeGreen 50-205-50 |
||||
tcl::dict::set TK_colour_map linen 250-240-230 |
||||
tcl::dict::set TK_colour_map magenta 255-0-255 |
||||
tcl::dict::set TK_colour_map magenta1 255-0-255 |
||||
tcl::dict::set TK_colour_map magenta2 238-0-238 |
||||
tcl::dict::set TK_colour_map magenta3 205-0-205 |
||||
tcl::dict::set TK_colour_map magenta4 139-0-139 |
||||
tcl::dict::set TK_colour_map maroon 128-0-0 |
||||
tcl::dict::set TK_colour_map maroon1 255-52-179 |
||||
tcl::dict::set TK_colour_map maroon2 238-48-167 |
||||
tcl::dict::set TK_colour_map maroon3 205-41-144 |
||||
tcl::dict::set TK_colour_map maroon4 139-28-98 |
||||
tcl::dict::set TK_colour_map "medium aquamarine" 102-205-170 |
||||
tcl::dict::set TK_colour_map "medium blue" 0-0-205 |
||||
tcl::dict::set TK_colour_map "medium orchid" 186-85-211 |
||||
tcl::dict::set TK_colour_map "medium purple" 147-112-219 |
||||
tcl::dict::set TK_colour_map "medium sea green" 60-179-113 |
||||
tcl::dict::set TK_colour_map "medium slate blue" 123-104-238 |
||||
tcl::dict::set TK_colour_map "medium spring green" 0-250-154 |
||||
tcl::dict::set TK_colour_map "medium turquoise" 72-209-204 |
||||
tcl::dict::set TK_colour_map "medium violet red" 199-21-133 |
||||
tcl::dict::set TK_colour_map MediumAquamarine 102-205-170 |
||||
tcl::dict::set TK_colour_map MediumBlue 0-0-205 |
||||
tcl::dict::set TK_colour_map MediumOrchid 186-85-211 |
||||
tcl::dict::set TK_colour_map MediumOrchid1 224-102-255 |
||||
tcl::dict::set TK_colour_map MediumOrchid2 209-95-238 |
||||
tcl::dict::set TK_colour_map MediumOrchid3 180-82-205 |
||||
tcl::dict::set TK_colour_map MediumOrchid4 122-55-139 |
||||
tcl::dict::set TK_colour_map MediumPurple 147-112-219 |
||||
tcl::dict::set TK_colour_map MediumPurple1 171-130-255 |
||||
tcl::dict::set TK_colour_map MediumPurple2 159-121-238 |
||||
tcl::dict::set TK_colour_map MediumPurple3 137-104-205 |
||||
tcl::dict::set TK_colour_map MediumPurple4 93-71-139 |
||||
tcl::dict::set TK_colour_map MediumSeaGreen 60-179-113 |
||||
tcl::dict::set TK_colour_map MediumSlateBlue 123-104-238 |
||||
tcl::dict::set TK_colour_map MediumSpringGreen 0-250-154 |
||||
tcl::dict::set TK_colour_map MediumTurquoise 72-209-204 |
||||
tcl::dict::set TK_colour_map MediumVioletRed 199-21-133 |
||||
tcl::dict::set TK_colour_map "midnight blue" 25-25-112 |
||||
tcl::dict::set TK_colour_map MidnightBlue 25-25-112 |
||||
tcl::dict::set TK_colour_map "mint cream" 245-255-250 |
||||
tcl::dict::set TK_colour_map MintCream 245-255-250 |
||||
tcl::dict::set TK_colour_map "misty rose" 255-228-225 |
||||
tcl::dict::set TK_colour_map MistyRose 255-228-225 |
||||
tcl::dict::set TK_colour_map MistyRose1 255-228-225 |
||||
tcl::dict::set TK_colour_map MistyRose2 238-213-210 |
||||
tcl::dict::set TK_colour_map MistyRose3 205-183-181 |
||||
tcl::dict::set TK_colour_map MistyRose4 139-125-123 |
||||
tcl::dict::set TK_colour_map moccasin 255-228-181 |
||||
tcl::dict::set TK_colour_map "navajo white" 255-222-173 |
||||
tcl::dict::set TK_colour_map NavajoWhite 255-222-173 |
||||
tcl::dict::set TK_colour_map NavajoWhite1 255-222-173 |
||||
tcl::dict::set TK_colour_map NavajoWhite2 238-207-161 |
||||
tcl::dict::set TK_colour_map NavajoWhite3 205-179-139 |
||||
tcl::dict::set TK_colour_map NavajoWhite4 139-121-94 |
||||
tcl::dict::set TK_colour_map navy 0-0-128 |
||||
tcl::dict::set TK_colour_map "navy blue" 0-0-128 |
||||
tcl::dict::set TK_colour_map NavyBlue 0-0-128 |
||||
tcl::dict::set TK_colour_map "old lace" 253-245-230 |
||||
tcl::dict::set TK_colour_map OldLace 253-245-230 |
||||
tcl::dict::set TK_colour_map olive 128-128-0 |
||||
tcl::dict::set TK_colour_map "olive drab" 107-142-35 |
||||
tcl::dict::set TK_colour_map OliveDrab 107-142-35 |
||||
tcl::dict::set TK_colour_map OliveDrab1 192-255-62 |
||||
tcl::dict::set TK_colour_map OliveDrab2 179-238-58 |
||||
tcl::dict::set TK_colour_map OliveDrab3 154-205-50 |
||||
tcl::dict::set TK_colour_map OliveDrab4 105-139-34 |
||||
tcl::dict::set TK_colour_map orange 255-165-0 |
||||
tcl::dict::set TK_colour_map "orange red" 255-69-0 |
||||
tcl::dict::set TK_colour_map orange1 255-165-0 |
||||
tcl::dict::set TK_colour_map orange2 238-154-0 |
||||
tcl::dict::set TK_colour_map orange3 205-133-0 |
||||
tcl::dict::set TK_colour_map orange4 139-90-0 |
||||
tcl::dict::set TK_colour_map OrangeRed 255-69-0 |
||||
tcl::dict::set TK_colour_map OrangeRed1 255-69-0 |
||||
tcl::dict::set TK_colour_map OrangeRed2 238-64-0 |
||||
tcl::dict::set TK_colour_map OrangeRed3 205-55-0 |
||||
tcl::dict::set TK_colour_map OrangeRed4 139-37-0 |
||||
tcl::dict::set TK_colour_map orchid 218-112-214 |
||||
tcl::dict::set TK_colour_map orchid1 255-131-250 |
||||
tcl::dict::set TK_colour_map orchid2 238-122-233 |
||||
tcl::dict::set TK_colour_map orchid3 205-105-201 |
||||
tcl::dict::set TK_colour_map orchid4 139-71-137 |
||||
tcl::dict::set TK_colour_map "pale goldenrod" 238-232-170 |
||||
tcl::dict::set TK_colour_map "pale green" 152-251-152 |
||||
tcl::dict::set TK_colour_map "pale turquoise" 175-238-238 |
||||
tcl::dict::set TK_colour_map "pale violet red" 219-112-147 |
||||
tcl::dict::set TK_colour_map PaleGoldenrod 238-232-170 |
||||
tcl::dict::set TK_colour_map PaleGreen 152-251-152 |
||||
tcl::dict::set TK_colour_map PaleGreen1 154-255-154 |
||||
tcl::dict::set TK_colour_map PaleGreen2 144-238-144 |
||||
tcl::dict::set TK_colour_map PaleGreen3 124-205-124 |
||||
tcl::dict::set TK_colour_map PaleGreen4 84-139-84 |
||||
tcl::dict::set TK_colour_map PaleTurquoise 175-238-238 |
||||
tcl::dict::set TK_colour_map PaleTurquoise1 187-255-255 |
||||
tcl::dict::set TK_colour_map PaleTurquoise2 174-238-238 |
||||
tcl::dict::set TK_colour_map PaleTurquoise3 150-205-205 |
||||
tcl::dict::set TK_colour_map PaleTurquoise4 102-139-139 |
||||
tcl::dict::set TK_colour_map PaleVioletRed 219-112-147 |
||||
tcl::dict::set TK_colour_map PaleVioletRed1 255-130-171 |
||||
tcl::dict::set TK_colour_map PaleVioletRed2 238-121-159 |
||||
tcl::dict::set TK_colour_map PaleVioletRed3 205-104-127 |
||||
tcl::dict::set TK_colour_map PaleVioletRed4 139-71-93 |
||||
tcl::dict::set TK_colour_map "papaya whip" 255-239-213 |
||||
tcl::dict::set TK_colour_map PapayaWhip 255-239-213 |
||||
tcl::dict::set TK_colour_map "peach puff" 255-218-185 |
||||
tcl::dict::set TK_colour_map PeachPuff 255-218-185 |
||||
tcl::dict::set TK_colour_map PeachPuff1 255-218-185 |
||||
tcl::dict::set TK_colour_map PeachPuff2 238-203-173 |
||||
tcl::dict::set TK_colour_map PeachPuff3 205-175-149 |
||||
tcl::dict::set TK_colour_map PeachPuff4 139-119-101 |
||||
tcl::dict::set TK_colour_map peru 205-133-63 |
||||
tcl::dict::set TK_colour_map pink 255-192-203 |
||||
tcl::dict::set TK_colour_map pink1 255-181-197 |
||||
tcl::dict::set TK_colour_map pink2 238-169-184 |
||||
tcl::dict::set TK_colour_map pink3 205-145-158 |
||||
tcl::dict::set TK_colour_map pink4 139-99-108 |
||||
tcl::dict::set TK_colour_map plum 221-160-221 |
||||
tcl::dict::set TK_colour_map plum1 255-187-255 |
||||
tcl::dict::set TK_colour_map plum2 238-174-238 |
||||
tcl::dict::set TK_colour_map plum3 205-150-205 |
||||
tcl::dict::set TK_colour_map plum4 139-102-139 |
||||
tcl::dict::set TK_colour_map "powder blue" 176-224-230 |
||||
tcl::dict::set TK_colour_map PowderBlue 176-224-230 |
||||
tcl::dict::set TK_colour_map purple 128-0-128 |
||||
tcl::dict::set TK_colour_map purple1 155-48-255 |
||||
tcl::dict::set TK_colour_map purple2 145-44-238 |
||||
tcl::dict::set TK_colour_map purple3 125-38-205 |
||||
tcl::dict::set TK_colour_map purple4 85-26-139 |
||||
tcl::dict::set TK_colour_map red 255-0-0 |
||||
tcl::dict::set TK_colour_map red1 255-0-0 |
||||
tcl::dict::set TK_colour_map red2 238-0-0 |
||||
tcl::dict::set TK_colour_map red3 205-0-0 |
||||
tcl::dict::set TK_colour_map red4 139-0-0 |
||||
tcl::dict::set TK_colour_map "rosy brown" 188-143-143 |
||||
tcl::dict::set TK_colour_map RosyBrown 188-143-143 |
||||
tcl::dict::set TK_colour_map RosyBrown1 255-193-193 |
||||
tcl::dict::set TK_colour_map RosyBrown2 238-180-180 |
||||
tcl::dict::set TK_colour_map RosyBrown3 205-155-155 |
||||
tcl::dict::set TK_colour_map RosyBrown4 139-105-105 |
||||
tcl::dict::set TK_colour_map "royal blue" 65-105-225 |
||||
tcl::dict::set TK_colour_map RoyalBlue 65-105-225 |
||||
tcl::dict::set TK_colour_map RoyalBlue1 72-118-255 |
||||
tcl::dict::set TK_colour_map RoyalBlue2 67-110-238 |
||||
tcl::dict::set TK_colour_map RoyalBlue3 58-95-205 |
||||
tcl::dict::set TK_colour_map RoyalBlue4 39-64-139 |
||||
tcl::dict::set TK_colour_map "saddle brown" 139-69-19 |
||||
tcl::dict::set TK_colour_map SaddleBrown 139-69-19 |
||||
tcl::dict::set TK_colour_map salmon 250-128-114 |
||||
tcl::dict::set TK_colour_map salmon1 255-140-105 |
||||
tcl::dict::set TK_colour_map salmon2 238-130-98 |
||||
tcl::dict::set TK_colour_map salmon3 205-112-84 |
||||
tcl::dict::set TK_colour_map salmon4 139-76-57 |
||||
tcl::dict::set TK_colour_map "sandy brown" 244-164-96 |
||||
tcl::dict::set TK_colour_map SandyBrown 244-164-96 |
||||
tcl::dict::set TK_colour_map "sea green" 46-139-87 |
||||
tcl::dict::set TK_colour_map SeaGreen 46-139-87 |
||||
tcl::dict::set TK_colour_map SeaGreen1 84-255-159 |
||||
tcl::dict::set TK_colour_map SeaGreen2 78-238-148 |
||||
tcl::dict::set TK_colour_map SeaGreen3 67-205-128 |
||||
tcl::dict::set TK_colour_map SeaGreen4 46-139-87 |
||||
tcl::dict::set TK_colour_map seashell 255-245-238 |
||||
tcl::dict::set TK_colour_map seashell1 255-245-238 |
||||
tcl::dict::set TK_colour_map seashell2 238-229-222 |
||||
tcl::dict::set TK_colour_map seashell3 205-197-191 |
||||
tcl::dict::set TK_colour_map seashell4 139-134-130 |
||||
tcl::dict::set TK_colour_map sienna 160-82-45 |
||||
tcl::dict::set TK_colour_map sienna1 255-130-71 |
||||
tcl::dict::set TK_colour_map sienna2 238-121-66 |
||||
tcl::dict::set TK_colour_map sienna3 205-104-57 |
||||
tcl::dict::set TK_colour_map sienna4 139-71-38 |
||||
tcl::dict::set TK_colour_map silver 192-192-192 |
||||
tcl::dict::set TK_colour_map "sky blue" 135-206-235 |
||||
tcl::dict::set TK_colour_map SkyBlue 135-206-235 |
||||
tcl::dict::set TK_colour_map SkyBlue1 135-206-255 |
||||
tcl::dict::set TK_colour_map SkyBlue2 126-192-238 |
||||
tcl::dict::set TK_colour_map SkyBlue3 108-166-205 |
||||
tcl::dict::set TK_colour_map SkyBlue4 74-112-139 |
||||
tcl::dict::set TK_colour_map "slate blue" 106-90-205 |
||||
tcl::dict::set TK_colour_map "slate gray" 112-128-144 |
||||
tcl::dict::set TK_colour_map "slate grey" 112-128-144 |
||||
tcl::dict::set TK_colour_map SlateBlue 106-90-205 |
||||
tcl::dict::set TK_colour_map SlateBlue1 131-111-255 |
||||
tcl::dict::set TK_colour_map SlateBlue2 122-103-238 |
||||
tcl::dict::set TK_colour_map SlateBlue3 105-89-205 |
||||
tcl::dict::set TK_colour_map SlateBlue4 71-60-139 |
||||
tcl::dict::set TK_colour_map SlateGray 112-128-144 |
||||
tcl::dict::set TK_colour_map SlateGray1 198-226-255 |
||||
tcl::dict::set TK_colour_map SlateGray2 185-211-238 |
||||
tcl::dict::set TK_colour_map SlateGray3 159-182-205 |
||||
tcl::dict::set TK_colour_map SlateGray4 108-123-139 |
||||
tcl::dict::set TK_colour_map SlateGrey 112-128-144 |
||||
tcl::dict::set TK_colour_map snow 255-250-250 |
||||
tcl::dict::set TK_colour_map snow1 255-250-250 |
||||
tcl::dict::set TK_colour_map snow2 238-233-233 |
||||
tcl::dict::set TK_colour_map snow3 205-201-201 |
||||
tcl::dict::set TK_colour_map snow4 139-137-137 |
||||
tcl::dict::set TK_colour_map "spring green" 0-255-127 |
||||
tcl::dict::set TK_colour_map SpringGreen 0-255-127 |
||||
tcl::dict::set TK_colour_map SpringGreen1 0-255-127 |
||||
tcl::dict::set TK_colour_map SpringGreen2 0-238-118 |
||||
tcl::dict::set TK_colour_map SpringGreen3 0-205-102 |
||||
tcl::dict::set TK_colour_map SpringGreen4 0-139-69 |
||||
tcl::dict::set TK_colour_map "steel blue" 70-130-180 |
||||
tcl::dict::set TK_colour_map SteelBlue 70-130-180 |
||||
tcl::dict::set TK_colour_map SteelBlue1 99-184-255 |
||||
tcl::dict::set TK_colour_map SteelBlue2 92-172-238 |
||||
tcl::dict::set TK_colour_map SteelBlue3 79-148-205 |
||||
tcl::dict::set TK_colour_map SteelBlue4 54-100-139 |
||||
tcl::dict::set TK_colour_map tan 210-180-140 |
||||
tcl::dict::set TK_colour_map tan1 255-165-79 |
||||
tcl::dict::set TK_colour_map tan2 238-154-73 |
||||
tcl::dict::set TK_colour_map tan3 205-133-63 |
||||
tcl::dict::set TK_colour_map tan4 139-90-43 |
||||
tcl::dict::set TK_colour_map teal 0-128-128 |
||||
tcl::dict::set TK_colour_map thistle 216-191-216 |
||||
tcl::dict::set TK_colour_map thistle1 255-225-255 |
||||
tcl::dict::set TK_colour_map thistle2 238-210-238 |
||||
tcl::dict::set TK_colour_map thistle3 205-181-205 |
||||
tcl::dict::set TK_colour_map thistle4 139-123-139 |
||||
tcl::dict::set TK_colour_map tomato 255-99-71 |
||||
tcl::dict::set TK_colour_map tomato1 255-99-71 |
||||
tcl::dict::set TK_colour_map tomato2 238-92-66 |
||||
tcl::dict::set TK_colour_map tomato3 205-79-57 |
||||
tcl::dict::set TK_colour_map tomato4 139-54-38 |
||||
tcl::dict::set TK_colour_map turquoise 64-224-208 |
||||
tcl::dict::set TK_colour_map turquoise1 0-245-255 |
||||
tcl::dict::set TK_colour_map turquoise2 0-229-238 |
||||
tcl::dict::set TK_colour_map turquoise3 0-197-205 |
||||
tcl::dict::set TK_colour_map turquoise4 0-134-139 |
||||
tcl::dict::set TK_colour_map violet 238-130-238 |
||||
tcl::dict::set TK_colour_map "violet red" 208-32-144 |
||||
tcl::dict::set TK_colour_map VioletRed 208-32-144 |
||||
tcl::dict::set TK_colour_map VioletRed1 255-62-150 |
||||
tcl::dict::set TK_colour_map VioletRed2 238-58-140 |
||||
tcl::dict::set TK_colour_map VioletRed3 205-50-120 |
||||
tcl::dict::set TK_colour_map VioletRed4 139-34-82 |
||||
tcl::dict::set TK_colour_map wheat 245-222-179 |
||||
tcl::dict::set TK_colour_map wheat1 255-231-186 |
||||
tcl::dict::set TK_colour_map wheat2 238-216-174 |
||||
tcl::dict::set TK_colour_map wheat3 205-186-150 |
||||
tcl::dict::set TK_colour_map wheat4 139-126-102 |
||||
tcl::dict::set TK_colour_map white 255-255-255 |
||||
tcl::dict::set TK_colour_map "white smoke" 245-245-245 |
||||
tcl::dict::set TK_colour_map WhiteSmoke 245-245-245 |
||||
tcl::dict::set TK_colour_map yellow 255-255-0 |
||||
tcl::dict::set TK_colour_map "yellow green" 154-205-50 |
||||
tcl::dict::set TK_colour_map yellow1 255-255-0 |
||||
tcl::dict::set TK_colour_map yellow2 238-238-0 |
||||
tcl::dict::set TK_colour_map yellow3 205-205-0 |
||||
tcl::dict::set TK_colour_map yellow4 139-139-0 |
||||
tcl::dict::set TK_colour_map YellowGreen 154-205-50 |
||||
|
||||
variable TK_colour_map_lookup ;#same dict but with lower-case versions added |
||||
set TK_colour_map_lookup $TK_colour_map |
||||
dict for {key val} $TK_colour_map { |
||||
dict set TK_colour_map_lookup [tcl::string::tolower $key] $val ;#no need to test if already present - just set. |
||||
} |
||||
|
||||
variable TK_colour_map_reverse [dict create] |
||||
dict for {key val} $TK_colour_map { |
||||
dict lappend TK_colour_map_reverse $val $key |
||||
} |
||||
|
||||
#using same order as inital colour map |
||||
variable TK_colour_map_merge [dict create] |
||||
set seen_names [dict create] |
||||
dict for {key val} $TK_colour_map { |
||||
if {[dict exists $seen_names $key]} { |
||||
continue |
||||
} |
||||
set allnames [dict get $TK_colour_map_reverse $val] |
||||
set names [list] |
||||
foreach n $allnames { |
||||
if {$n ne $key} { |
||||
lappend names $n |
||||
} |
||||
} |
||||
dict set TK_colour_map_merge $key [dict create colour $val names $names] |
||||
foreach n $names { |
||||
dict set seen_names $n 1 |
||||
} |
||||
} |
||||
unset seen_names |
||||
|
||||
|
||||
|
||||
|
||||
#*** !doctools |
||||
#[list_end] [comment {--- end definitions namespace ::punk::ansi::colourmap ---}] |
||||
} |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
|
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
# Secondary API namespace |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
tcl::namespace::eval ::punk::ansi::colourmap::lib { |
||||
tcl::namespace::export {[a-z]*} ;# Convention: export all lowercase |
||||
tcl::namespace::path [tcl::namespace::parent] |
||||
#*** !doctools |
||||
#[subsection {Namespace ::punk::ansi::colourmap::lib}] |
||||
#[para] Secondary functions that are part of the API |
||||
#[list_begin definitions] |
||||
|
||||
#proc utility1 {p1 args} { |
||||
# #*** !doctools |
||||
# #[call lib::[fun utility1] [arg p1] [opt {?option value...?}]] |
||||
# #[para]Description of utility1 |
||||
# return 1 |
||||
#} |
||||
|
||||
|
||||
|
||||
#*** !doctools |
||||
#[list_end] [comment {--- end definitions namespace ::punk::ansi::colourmap::lib ---}] |
||||
} |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
|
||||
|
||||
|
||||
|
||||
# ----------------------------------------------------------------------------- |
||||
# register namespace(s) to have PUNKARGS,PUNKARGS_aliases variables checked |
||||
# ----------------------------------------------------------------------------- |
||||
# variable PUNKARGS |
||||
# variable PUNKARGS_aliases |
||||
namespace eval ::punk::args::register { |
||||
#use fully qualified so 8.6 doesn't find existing var in global namespace |
||||
lappend ::punk::args::register::NAMESPACES ::punk::ansi::colourmap |
||||
} |
||||
# ----------------------------------------------------------------------------- |
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
## Ready |
||||
package provide punk::ansi::colourmap [tcl::namespace::eval ::punk::ansi::colourmap { |
||||
variable pkg ::punk::ansi::colourmap |
||||
variable version |
||||
set version 0.1.0 |
||||
}] |
||||
return |
||||
|
||||
#*** !doctools |
||||
#[manpage_end] |
||||
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@ -0,0 +1,622 @@
|
||||
# -*- tcl -*- |
||||
# Maintenance Instruction: leave the 999999.xxx.x as is and use punkshell 'dev make' or bin/punkmake to update from <pkg>-buildversion.txt |
||||
# module template: shellspy/src/decktemplates/vendor/punk/modules/template_module-0.0.3.tm |
||||
# |
||||
# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem. |
||||
# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository. |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
# (C) 2025 |
||||
# |
||||
# @@ Meta Begin |
||||
# Application punk::args::tkcore 0.1.0 |
||||
# Meta platform tcl |
||||
# Meta license MIT |
||||
# @@ Meta End |
||||
|
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
# doctools header |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
#*** !doctools |
||||
#[manpage_begin shellspy_module_punk::args::tkcore 0 0.1.0] |
||||
#[copyright "2025"] |
||||
#[titledesc {Module API}] [comment {-- Name section and table of contents description --}] |
||||
#[moddesc {-}] [comment {-- Description at end of page heading --}] |
||||
#[require punk::args::tkcore] |
||||
#[keywords module] |
||||
#[description] |
||||
#[para] - |
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
|
||||
#*** !doctools |
||||
#[section Overview] |
||||
#[para] overview of punk::args::tkcore |
||||
#[subsection Concepts] |
||||
#[para] - |
||||
|
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
## Requirements |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
|
||||
#*** !doctools |
||||
#[subsection dependencies] |
||||
#[para] packages used by punk::args::tkcore |
||||
#[list_begin itemized] |
||||
|
||||
package require Tcl 8.6- |
||||
package require punk::args |
||||
package require punk::ansi |
||||
package require textblock |
||||
#*** !doctools |
||||
#[item] [package {Tcl 8.6}] |
||||
#[item] [package {punk::args}] |
||||
#[item] [package {textblock}] |
||||
|
||||
|
||||
#*** !doctools |
||||
#[list_end] |
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
|
||||
#*** !doctools |
||||
#[section API] |
||||
|
||||
|
||||
|
||||
tcl::namespace::eval punk::args::tkcore { |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
# Base namespace |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
#*** !doctools |
||||
#[subsection {Namespace punk::args::tkcore}] |
||||
#[para] Core API functions for punk::args::tkcore |
||||
#[list_begin definitions] |
||||
|
||||
tcl::namespace::export {[a-z]*} ;# Convention: export all lowercase |
||||
|
||||
set A_WARN \x1b\[7m |
||||
set A_RST \x1b\[0m |
||||
|
||||
variable manbase |
||||
variable manbase_ext |
||||
set patch [info patchlevel] |
||||
lassign [split $patch .] major |
||||
if {$major < 9} { |
||||
set manbase "https://tcl.tk/man/tcl/TkCmd" |
||||
set manbase_ext .htm |
||||
} else { |
||||
set manbase "https://tcl.tk/man/tcl9.0/TkCmd" |
||||
set manbase_ext .html |
||||
} |
||||
proc manpage {cmd} { |
||||
variable manbase |
||||
variable manbase_ext |
||||
return ${manbase}/${cmd}${manbase_ext} |
||||
} |
||||
|
||||
|
||||
variable PUNKARGS |
||||
|
||||
|
||||
namespace eval argdoc { |
||||
tcl::namespace::import ::punk::ansi::a+ |
||||
tcl::namespace::import ::punk::args::tkcore::manpage |
||||
# -- --- --- --- --- |
||||
#non colour SGR codes |
||||
# we can use these directly via ${$I} etc without marking a definition with @dynamic |
||||
#This is because they don't need to change when colour switched on and off. |
||||
set I [a+ italic] |
||||
set NI [a+ noitalic] |
||||
set B [a+ bold] |
||||
set N [a+ normal] |
||||
# -- --- --- --- --- |
||||
proc example {str} { |
||||
set str [string trimleft $str \n] |
||||
set block [punk::ansi::ansiwrap Web-gray [textblock::frame -ansibase [a+ Web-gray bold white] -ansiborder [a+ black White] -boxlimits {hl} -type block $str]] |
||||
set result [textblock::bookend_lines $block [a] "[a defaultbg] [a]"] |
||||
#puts $result |
||||
return $result |
||||
} |
||||
} |
||||
|
||||
|
||||
namespace eval argdoc { |
||||
lappend PUNKARGS [list { |
||||
@id -id "(default)::punk::args::tkcore::common" |
||||
} "@doc -name Manpage: -url [manpage index]" ] |
||||
|
||||
|
||||
#list all tk_standardoptions |
||||
#use punk::args::resolved_spec |
||||
#{${[punk::args::resolved_def -types opts (default)::punk::args::tkcore::tk_standardoptions -disabledforeground -font ...]}} |
||||
::punk::args::define { |
||||
@id -id "(default)::punk::args::tkcore::tk_standardoptions" |
||||
-activebackground -type colour -help\ |
||||
"Specifies background color to use when drawing active elements. An element (a widget or portion of a widget) |
||||
is active if the mouse cursor is positioned over the element and pressing a mouse button will cause some |
||||
action to occur. If strict Motif compliance has been requested by setting the tk_strictMotif variable, this |
||||
option will normally be ignored; the normal background color will be used instead. For some elements on |
||||
Windows and Macintosh systems, the active color will only be used while mouse button 1 is pressed over the |
||||
element." |
||||
-activeborderwidth -type tk_screen_units -help\ |
||||
"Specifies a non-negative value indicating the width of the 3-D border drawn around active elements. See above |
||||
for definition of active elements. The value may have any of the forms acceptable to Tk_GetPixels. This option |
||||
is typically only available in widgets displaying more than one element at a time (e.g. menus but not buttons)." |
||||
-activeforeground -type colour -help\ |
||||
"Specifies foreground color to use when drawing active elements. See above for definition of active elements." |
||||
-activerelief -type string -choicecolumns 6 -choices {raised sunken flat ridge solid groove} -help\ |
||||
"Specifies the 3-D effect desired for the active item of the widget. See the -relief option for details." |
||||
-anchor -type string -choicecolumns 9 -choices {n ne e se s sw w nw center} -help\ |
||||
"Specifies how the information in a widget (e.g. text or a bitmap) is to be displayed in the widget. |
||||
For example, ${$B}nw${$N} means display the information such that its top-left corner is at the top-left corner of the widget." |
||||
-background|-bg -type colour -help\ |
||||
"Specifies the normal background color to use when displaying the widget." |
||||
-bitmap -type bmp -help\ |
||||
"Specifies a bitmap to display in the widget, in any of the forms acceptable to Tk_GetBitmap. The exact |
||||
way in which the bitmap is displayed may be affected by other options such as -anchor or -justify. |
||||
Typically, if this option is specified then it overrides other options that specify a textual value to |
||||
display in the widget but this is controlled by the ${$B}-compound${$N} option; the -bitmap option may be reset to |
||||
an empty string to re-enable a text display. In widgets that support both -bitmap and -image options, |
||||
-image will usually override -bitmap." |
||||
-borderwidth|-bd -type tk_screen_units -help\ |
||||
"Specifies a non-negative value indicating the width of the 3-D border to draw around the outside of the |
||||
widget (if such a border is being drawn; the -relief option typically determines this). The value may |
||||
also be used when drawing 3-D effects in the interior of the widget. The value may have any of the |
||||
forms acceptable to Tk_GetPixels." |
||||
#todo - something better for large -choices lists |
||||
#list of cursors is large, not obtainable dynamically, and has some that are platform specific. |
||||
-cursor -type string -help\ |
||||
"" |
||||
-compound -type string -choicecolumns 6 -choices {none bottom top left right center} -help\ |
||||
"Specifies if the widget should display text and bitmaps/images at the same time, and if so, where the |
||||
bitmap/image should be placed relative to the text. Must be one of the values none, bottom, top, left, |
||||
right, or center. For example, the (default) value none specifies that the bitmap or image should |
||||
(if defined) be displayed instead of the text, the value ${$B}left${$N} specifies that the bitmap or image should |
||||
be displayed to the left of the text, and the value ${$B}center${$N} specifies that the bitmap or image should be |
||||
displayed on top of the text." |
||||
-disabledforeground -type colour|literal() -help\ |
||||
"Specifies foreground color to use when drawing a disabled element. If the option is specified |
||||
as an empty string (which is typically the case on monochrome displays), disabled elements |
||||
are drawn with the normal foreground color but they are dimmed by drawing them with a |
||||
stippled fill pattern." |
||||
-exportselection -type boolean -help\ |
||||
"Specifies whether or not a selection in the widget should also be the X selection. The value may have any of the |
||||
forms accepted by Tcl_GetBoolean, such as true, false, 0, 1, yes, or no. If the selection is exported, then |
||||
selecting in the widget deselects the current X selection, selecting outside the widget deselects any widget |
||||
selection, and the widget will respond to selection retrieval requests when it has a selection. The default is |
||||
usually for widgets to export selections." |
||||
-font -type tk_font -help\ |
||||
"Specifies the font to use when drawing text inside the widget. The value may have any of the |
||||
forms described in the font manual page under FONT DESCRIPTION." |
||||
-foreground|-fg -type colour -help\ |
||||
"Specifies the normal foreground color to use when displaying the widget." |
||||
-highlightbackground -type colour -help\ |
||||
"Specifies the color to display in the traversal highlight region when the widget does not have the input focus." |
||||
-highlightcolor -type colour -help\ |
||||
"Specifies the color to use for the traversal highlight rectangle that is drawn around the widget when it has the |
||||
input focus." |
||||
-highlightthicknes -type tk_screen_units -help\ |
||||
"Specifies a non-negative value indicating the width of the highlight rectangle to draw around the outside of the |
||||
widget when it has the input focus. The value may have any of the forms acceptable to Tk_GetPixels. If the |
||||
value is zero, no focus highlight is drawn around the widget." |
||||
-image -type string -help\ |
||||
"Specifies an image to display in the widget, which must have been created with the image create command. |
||||
Typically, if the -image option is specified then it overrides other options that specify a bitmap or textual |
||||
value to display in the widget, though this is controlled by the -compound option; the -image option may be |
||||
reset to an empty string to re-enable a bitmap or text display." |
||||
-insertbackground -type colour -help\ |
||||
"Specifies the color to use as background in the area covered by the insertion cursor. This color will normally |
||||
override either the normal background for the widget (or the selection background if the insertion cursor |
||||
happens to fall in the selection)." |
||||
-insertborderwidth -type tk_screen_units -help\ |
||||
"Specifies a non-negative value indicating the width of the 3-D border to draw around the insertion cursor. |
||||
The value may have any of the forms acceptable to Tk_GetPixels." |
||||
-insertofftime -type integer -typesynopsis {${$I}ms${$NI}} -range {0 ""} -help\ |
||||
"Specifies a non-negative integer value indicating the number of milliseconds the insertion cursor should remain |
||||
“off” in each blink cycle. If this option is zero then the cursor does not blink: it is on all the time." |
||||
-insertontime -type integer -typesynopsis {${$I}ms${$NI}} -range {0 ""} -help\ |
||||
"Specifies a non-negative integer value indicating the number of milliseconds the insertion cursor should remain |
||||
“on” in each blink cycle." |
||||
-insertwidth -type tk_screen_units -help\ |
||||
"Specifies a non-negative value indicating the total width of the insertion cursor. The value may have any of the |
||||
forms acceptable to Tk_GetPixels. If a border has been specified for the insertion cursor (using the |
||||
-insertborderwidth option), the border will be drawn inside the width specified by the -insertwidth option." |
||||
-jump -type boolean -help\ |
||||
"For widgets with a slider that can be dragged to adjust a value, such as scrollbars, this option determines when |
||||
notifications are made about changes in the value. The option's value must be a boolean of the form accepted by |
||||
Tcl_GetBoolean. If the value is false, updates are made continuously as the slider is dragged. If the value is |
||||
true, updates are delayed until the mouse button is released to end the drag; at that point a single |
||||
notification is made (the value “jumps” rather than changing smoothly)." |
||||
-justify -type string -choicecolumns 3 -choices {left center right} -help\ |
||||
"When there are multiple lines of text displayed in a widget, this option determines how the lines line up with |
||||
each other. Must be one of left, center, or right. Left means that the lines' left edges all line up, center |
||||
means that the lines' centers are aligned, and right means that the lines' right edges line up." |
||||
-orient -type string -choiceprefix 1 -choicecolumns 2 -choices {horizontal vertical} -help\ |
||||
"For widgets that can lay themselves out with either a horizontal or vertical orientation, such as scrollbars, |
||||
this option specifies which orientation should be used. Must be either horizontal or vertical or an |
||||
abbreviation of one of these." |
||||
-padx -type tk_screen_units -help\ |
||||
"Specifies a non-negative value indicating how much extra space to request for the widget in the X-direction. |
||||
The value may have any of the forms acceptable to Tk_GetPixels. When computing how large a window it needs, |
||||
the widget will add this amount to the width it would normally need (as determined by the width of the things |
||||
displayed in the widget); if the geometry manager can satisfy this request, the widget will end up with extra |
||||
internal space to the left and/or right of what it displays inside. Most widgets only use this option for |
||||
padding text: if they are displaying a bitmap or image, then they usually ignore padding options." |
||||
-pady -type tk_screen_units -help\ |
||||
"Specifies a non-negative value indicating how much extra space to request for the widget in the Y-direction. |
||||
The value may have any of the forms acceptable to Tk_GetPixels. When computing how large a window it needs, |
||||
the widget will add this amount to the height it would normally need (as determined by the height of the things |
||||
displayed in the widget); if the geometry manager can satisfy this request, the widget will end up with extra |
||||
internal space above and/or below what it displays inside. Most widgets only use this option for padding text: |
||||
if they are displaying a bitmap or image, then they usually ignore padding options." |
||||
-placeholder -type string -help\ |
||||
"Specifies a help text string to display if no text is otherwise displayed, that is when the widget is empty. |
||||
The placeholder text is displayed using the values of the -font and -justify options." |
||||
-placeholderforeground -type colour -help\ |
||||
"Specifies the foreground color to use when the placeholder text is displayed. |
||||
The default color is platform-specific." |
||||
-relief -type string -choicecolumns 6 -choices {raised sunken flat ridge solid groove} -help\ |
||||
"Specifies the 3-D effect desired for the widget. Acceptable values are raised, sunken, flat, ridge, solid, and |
||||
groove. The value indicates how the interior of the widget should appear relative to its exterior; for example, |
||||
raised means the interior of the widget should appear to protrude from the screen, relative to the exterior of |
||||
the widget." |
||||
-repeatdelay -type integer -typesynopsis {${$I}ms${$NI}} -help\ |
||||
"Specifies the number of milliseconds a button or key must be held down before it begins to auto-repeat. Used, |
||||
for example, on the up- and down-arrows in scrollbars." |
||||
-repeatinterval -type integer -typesynopsis {${$I}ms${$NI}} -help\ |
||||
"Used in conjunction with -repeatdelay: once auto-repeat begins, this option determines the number of |
||||
milliseconds between auto-repeats." |
||||
-selectbackground -type colour -help\ |
||||
"Specifies the background color to use when displaying selected items." |
||||
-selectborderwidth -type tk_screen_units -help\ |
||||
"Specifies a non-negative value indicating the width of the 3-D border to draw around selected items. |
||||
The value may have any of the forms acceptable to Tk_GetPixels." |
||||
-selectforeground -type colour -help\ |
||||
"Specifies the foreground color to use when displaying selected items." |
||||
-setgrid -type boolean -help\ |
||||
"Specifies a boolean value that determines whether this widget controls the resizing grid for its top-level window. |
||||
This option is typically used in text widgets, where the information in the widget has a natural size (the size |
||||
of a character) and it makes sense for the window's dimensions to be integral numbers of these units. These |
||||
natural window sizes form a grid. If the -setgrid option is set to true then the widget will communicate with the |
||||
window manager so that when the user interactively resizes the top-level window that contains the widget, the |
||||
dimensions of the window will be displayed to the user in grid units and the window size will be constrained to |
||||
integral numbers of grid units. See the section GRIDDED GEOMETRY MANAGEMENT in the wm manual entry for more |
||||
details." |
||||
-takefocus -type literal(0)|literal(1)|literal() -help\ |
||||
"Determines whether the window accepts the focus during keyboard traversal (e.g., Tab and Shift-Tab). Before |
||||
setting the focus to a window, the traversal scripts consult the value of the -takefocus option. A value of 0 |
||||
means that the window should be skipped entirely during keyboard traversal. 1 means that the window should |
||||
receive the input focus as long as it is viewable (it and all of its ancestors are mapped). An empty value for |
||||
the option means that the traversal scripts make the decision about whether or not to focus on the window: the |
||||
current algorithm is to skip the window if it is disabled, if it has no key bindings, or if it is not viewable. |
||||
If the value has any other form, then the traversal scripts take the value, append the name of the window to it |
||||
(with a separator space), and evaluate the resulting string as a Tcl script. The script must return 0, 1, or an |
||||
empty string: a 0 or 1 value specifies whether the window will receive the input focus, and an empty string |
||||
results in the default decision described above. Note that this interpretation of the option is defined entirely |
||||
by the Tcl scripts that implement traversal: the widget implementations ignore the option entirely, so you can |
||||
change its meaning if you redefine the keyboard traversal scripts." |
||||
-text -type string -help\ |
||||
"Specifies a string to be displayed inside the widget. The way in which the string is displayed depends on the |
||||
particular widget and may be determined by other options, such as -anchor or -justify." |
||||
-textvariable -type string -help\ |
||||
"Specifies the name of a global variable. The value of the variable is a text string to be displayed inside the |
||||
widget; if the variable value changes then the widget will automatically update itself to reflect the new value. |
||||
The way in which the string is displayed in the widget depends on the particular widget and may be determined by |
||||
other options, such as -anchor or -justify." |
||||
-troughcolor -type colour -help\ |
||||
"Specifies the color to use for the rectangular trough areas in widgets such as scrollbars and scales. This option |
||||
is ignored for scrollbars on Windows (native widget does not recognize this option)." |
||||
-underline -type indexexpression -help\ |
||||
"Specifies the integer index of a character to underline in the widget. This option is used by the default |
||||
bindings to implement keyboard traversal for menu buttons and menu entries. 0 corresponds to the first character |
||||
of the text displayed in the widget, 1 to the next character, and so on. end corresponds to the last character, |
||||
end-1 to the before last character, and so on." |
||||
-wraplength -type tk_screen_units -help\ |
||||
"For widgets that can perform word-wrapping, this option specifies the maximum line length. Lines that would |
||||
exceed this length are wrapped onto the next line, so that no line is longer than the specified length. The |
||||
value may be specified in any of the standard forms for screen distances. If this value is negative or zero |
||||
then no wrapping is done: lines will break only at newline characters in the text." |
||||
-xscrollcommand -type list -typesynopsis {${$I}cmdprefix${$NI}} -help\ |
||||
"Specifies the prefix for a command used to communicate with horizontal scrollbars. When the view in the widget's |
||||
window changes (or whenever anything else occurs that could change the display in a scrollbar, such as a change |
||||
in the total size of the widget's contents), the widget will generate a Tcl command by concatenating the scroll |
||||
command and two numbers. Each of the numbers is a fraction between 0 and 1, which indicates a position in the |
||||
document. 0 indicates the beginning of the document, 1 indicates the end, .333 indicates a position one third |
||||
the way through the document, and so on. The first fraction indicates the first information in the document |
||||
that is visible in the window, and the second fraction indicates the information just after the last portion |
||||
that is visible. The command is then passed to the Tcl interpreter for execution. Typically the -xscrollcommand |
||||
option consists of the path name of a scrollbar widget followed by “set”, e.g. “.x.scrollbar set”: this will |
||||
cause the scrollbar to be updated whenever the view in the window changes. If this option is not specified, |
||||
then no command will be executed." |
||||
-yscrollcommand -type list -typesynopsis {${$I}cmdprefix${$NI}} -help\ |
||||
"Specifies the prefix for a command used to communicate with vertical scrollbars. This option is treated in the |
||||
same way as the -xscrollcommand option, except that it is used for vertical scrollbars and is provided by |
||||
widgets that support vertical scrolling. See the description of -xscrollcommand for details on how this option |
||||
is used." |
||||
|
||||
} "@doc -name Manpage: -url [manpage options]" |
||||
# -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- |
||||
lappend PUNKARGS [list { |
||||
@id -id ::bell |
||||
@cmd -name "Tk Builtin: bell"\ |
||||
-summary\ |
||||
"Ring a display's bell."\ |
||||
-help\ |
||||
"This command rings the bell on the display for ${$I}window${$NI} and returns an empty string. |
||||
If the ${$B}-displayof${$N} option is omitted, the display of the application's main window |
||||
is used by default. The command uses the current bell-related settings for the |
||||
display, which may be modified with programs such as ${$B}xset${$N}. |
||||
If ${$B}-nice${$N} is not specified, this command also resets the screen saver for the screen. |
||||
Some screen savers will ignore this, but others will reset so that the screen |
||||
becomes visible again." |
||||
@opts |
||||
-displayof -type stringstartswith(.) -typesynopsis window |
||||
-nice -type none |
||||
@values -min 0 -max 0 |
||||
} "@doc -name Manpage: -url [manpage bell]" ] |
||||
|
||||
|
||||
|
||||
|
||||
|
||||
# -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- |
||||
lappend PUNKARGS_aliases {::button ::tk::button} |
||||
punk::args::define { |
||||
@id -id ::tk::button |
||||
@cmd -name "Tk Builtin: tk::button"\ |
||||
-summary\ |
||||
"Create and manipulate 'button' action widgets."\ |
||||
-help\ |
||||
"The ${$B}button${$N} command creates a new window (given by the ${$I}pathName${$NI} argument) and makes it into a button |
||||
widget. Additional options, described above, may be specified on the command line or in the option |
||||
database to configure aspects of the button such as its colors, font, text, and initial relief. The |
||||
${$B}button${$N} command returns its ${$I}pathName${$NI} argument. At the time this command is invoked, there must not |
||||
exist a window named ${$I}pathName${$NI}, but ${$I}pathName${$NI}'s parent must exist. |
||||
A button is a widget that displays a textual string, bitmap or image. If text is displayed, it must |
||||
all be in a single font, but it can occupy multiple lines on the screen (if it contains newlines or |
||||
if wrapping occurs because of the ${$B}-wraplength${$N} option) and one of the characters may optionally be |
||||
underlined using the ${$B}-underline${$N} option. It can display itself in either of three different ways, |
||||
according to the ${$B}-state${$N} option; it can be made to appear raised, sunken, or flat; and it can be made |
||||
to flash. When a user invokes the button (by pressing mouse button 1 with the cursor over the button), |
||||
then the Tcl command specified in the ${$B}-command${$N} option is invoked." |
||||
@leaders |
||||
pathName -type tk_path |
||||
|
||||
|
||||
@opts -type string -parsekey "" -group "STANDARD OPTIONS" -grouphelp\ |
||||
"" |
||||
}\ |
||||
{${[punk::args::resolved_def -types opts (default)::punk::args::tkcore::tk_standardoptions\ |
||||
-activebackground\ |
||||
-activeforeground\ |
||||
-anchor\ |
||||
-background|-bg\ |
||||
-bitmap\ |
||||
-borderwidth|-bd\ |
||||
-compound\ |
||||
-cursor\ |
||||
-disabledforeground\ |
||||
-font\ |
||||
-foreground|-fg\ |
||||
-highligthbackground\ |
||||
-highlightcolor\ |
||||
-highlightthickness\ |
||||
-image\ |
||||
-justify\ |
||||
-padx\ |
||||
-pady\ |
||||
-relief\ |
||||
-takefocus\ |
||||
-text\ |
||||
-textvariable\ |
||||
-underline\ |
||||
-wraplength\ |
||||
]}}\ |
||||
{ |
||||
@opts -type string -parsekey "" -group "WIDGET-SPECIFIC OPTIONS" -grouphelp\ |
||||
"" |
||||
-command -type script -help\ |
||||
"Specifies a Tcl command to associate with the button. This command is typically invoked when mouse button 1 |
||||
is released over the button window." |
||||
-default -type string -choices {normal active disabled} -help\ |
||||
"Specifies one of three states for the default ring: normal, active, or disabled. In active state, the button |
||||
is drawn with the platform specific appearance for a default button. In normal state, the button is drawn |
||||
with the platform specific appearance for a non-default button, leaving enough space to draw the default |
||||
button appearance. The normal and active states will result in buttons of the same size. In disabled state, |
||||
the button is drawn with the non-default button appearance without leaving space for the default appearance. |
||||
The disabled state may result in a smaller button than the active state." |
||||
-height -type tk_screen_units -help\ |
||||
"Specifies a desired height for the button. If an image or bitmap is being displayed in the button then the |
||||
value is in screen units (i.e. any of the forms acceptable to Tk_GetPixels); for text it is in lines of text. |
||||
If this option is not specified, the button's desired height is computed from the size of the image or bitmap |
||||
or text being displayed in it." |
||||
-overrelief -type string -default "" -choicecolumns 7 -choices {raised sunken flat ridge solid groove ""} -help\ |
||||
"Specifies an alternative relief for the button, to be used when the mouse cursor is over the widget. This |
||||
option can be used to make toolbar buttons, by configuring -relief flat -overrelief raised. If the value of |
||||
this option is the empty string, then no alternative relief is used when the mouse cursor is over the button. |
||||
The empty string is the default value." |
||||
-state -type string -choices {normal active disabled} -help\ |
||||
"Specifies one of three states for the button: normal, active, or disabled. In normal state the button is |
||||
displayed using the ${$B}-foreground${$N} and ${$B}-background${$N} options. The active state is typically used when the pointer |
||||
is over the button. In active state the button is displayed using the ${$B}-activeforeground${$N} and ${$B}-activebackground${$N} |
||||
options. Disabled state means that the button should be insensitive: the default bindings will refuse to |
||||
activate the widget and will ignore mouse button presses. In this state the ${$B}-disabledforeground${$N} and |
||||
${$B}-background${$N} options determine how the button is displayed." |
||||
-width -type tk_screen_units -help\ |
||||
"Specifies a desired width for the button. If an image or bitmap is being displayed in the button then the |
||||
value is in screen units (i.e. any of the forms acceptable to Tk_GetPixels). For a text button (no image or |
||||
with -compound none) then the width specifies how much space in characters to allocate for the text label. |
||||
If the width is negative then this specifies a minimum width. If this option is not specified, the button's |
||||
desired width is computed from the size of the image or bitmap or text being displayed in it." |
||||
|
||||
|
||||
|
||||
} "@doc -name Manpage: -url [manpage bell]" |
||||
# -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- |
||||
|
||||
|
||||
|
||||
} |
||||
|
||||
#*** !doctools |
||||
#[list_end] [comment {--- end definitions namespace punk::args::tkcore ---}] |
||||
} |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
|
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
# Secondary API namespace |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
tcl::namespace::eval punk::args::tkcore::lib { |
||||
tcl::namespace::export {[a-z]*} ;# Convention: export all lowercase |
||||
tcl::namespace::path [tcl::namespace::parent] |
||||
#*** !doctools |
||||
#[subsection {Namespace punk::args::tkcore::lib}] |
||||
#[para] Secondary functions that are part of the API |
||||
#[list_begin definitions] |
||||
|
||||
#proc utility1 {p1 args} { |
||||
# #*** !doctools |
||||
# #[call lib::[fun utility1] [arg p1] [opt {?option value...?}]] |
||||
# #[para]Description of utility1 |
||||
# return 1 |
||||
#} |
||||
|
||||
|
||||
|
||||
#*** !doctools |
||||
#[list_end] [comment {--- end definitions namespace punk::args::tkcore::lib ---}] |
||||
} |
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
|
||||
|
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
#*** !doctools |
||||
#[section Internal] |
||||
#tcl::namespace::eval punk::args::tkcore::system { |
||||
#*** !doctools |
||||
#[subsection {Namespace punk::args::tkcore::system}] |
||||
#[para] Internal functions that are not part of the API |
||||
|
||||
|
||||
|
||||
#} |
||||
|
||||
|
||||
# == === === === === === === === === === === === === === === |
||||
# Sample 'about' function with punk::args documentation |
||||
# == === === === === === === === === === === === === === === |
||||
tcl::namespace::eval punk::args::tkcore { |
||||
tcl::namespace::export {[a-z]*} ;# Convention: export all lowercase |
||||
variable PUNKARGS |
||||
variable PUNKARGS_aliases |
||||
|
||||
lappend PUNKARGS [list { |
||||
@id -id "(package)punk::args::tkcore" |
||||
@package -name "punk::args::tkcore" -help\ |
||||
"Package |
||||
Description" |
||||
}] |
||||
|
||||
namespace eval argdoc { |
||||
#namespace for custom argument documentation |
||||
proc package_name {} { |
||||
return punk::args::tkcore |
||||
} |
||||
proc about_topics {} { |
||||
#info commands results are returned in an arbitrary order (like array keys) |
||||
set topic_funs [info commands [namespace current]::get_topic_*] |
||||
set about_topics [list] |
||||
foreach f $topic_funs { |
||||
set tail [namespace tail $f] |
||||
lappend about_topics [string range $tail [string length get_topic_] end] |
||||
} |
||||
#Adjust this function or 'default_topics' if a different order is required |
||||
return [lsort $about_topics] |
||||
} |
||||
proc default_topics {} {return [list Description *]} |
||||
|
||||
# ------------------------------------------------------------- |
||||
# get_topic_ functions add more to auto-include in about topics |
||||
# ------------------------------------------------------------- |
||||
proc get_topic_Description {} { |
||||
punk::args::lib::tstr [string trim { |
||||
package punk::args::tkcore |
||||
punk::args documentation for Tk |
||||
} \n] |
||||
} |
||||
proc get_topic_License {} { |
||||
return "MIT" |
||||
} |
||||
proc get_topic_Version {} { |
||||
return "$::punk::args::tkcore::version" |
||||
} |
||||
proc get_topic_Contributors {} { |
||||
set authors {{Julian Noble <julian@precisium.com.au}} |
||||
set contributors "" |
||||
foreach a $authors { |
||||
append contributors $a \n |
||||
} |
||||
if {[string index $contributors end] eq "\n"} { |
||||
set contributors [string range $contributors 0 end-1] |
||||
} |
||||
return $contributors |
||||
} |
||||
#proc get_topic_custom-topic {} { |
||||
# punk::args::lib::tstr -return string { |
||||
# "" |
||||
# } |
||||
#} |
||||
# ------------------------------------------------------------- |
||||
} |
||||
|
||||
# we re-use the argument definition from punk::args::standard_about and override some items |
||||
set overrides [dict create] |
||||
dict set overrides @id -id "::punk::args::tkcore::about" |
||||
dict set overrides @cmd -name "punk::args::tkcore::about" |
||||
dict set overrides @cmd -help [string trim [punk::args::lib::tstr { |
||||
About punk::args::tkcore |
||||
}] \n] |
||||
dict set overrides topic -choices [list {*}[punk::args::tkcore::argdoc::about_topics] *] |
||||
dict set overrides topic -choicerestricted 1 |
||||
dict set overrides topic -default [punk::args::tkcore::argdoc::default_topics] ;#if -default is present 'topic' will always appear in parsed 'values' dict |
||||
set newdef [punk::args::resolved_def -antiglobs -package_about_namespace -override $overrides ::punk::args::package::standard_about *] |
||||
lappend PUNKARGS [list $newdef] |
||||
proc about {args} { |
||||
package require punk::args |
||||
#standard_about accepts additional choices for topic - but we need to normalize any abbreviations to full topic name before passing on |
||||
set argd [punk::args::parse $args withid ::punk::args::tkcore::about] |
||||
lassign [dict values $argd] _leaders opts values _received |
||||
punk::args::package::standard_about -package_about_namespace ::punk::args::tkcore::argdoc {*}$opts {*}[dict get $values topic] |
||||
} |
||||
} |
||||
# end of sample 'about' function |
||||
# == === === === === === === === === === === === === === === |
||||
|
||||
|
||||
# ----------------------------------------------------------------------------- |
||||
# register namespace(s) to have PUNKARGS,PUNKARGS_aliases variables checked |
||||
# ----------------------------------------------------------------------------- |
||||
# variable PUNKARGS |
||||
# variable PUNKARGS_aliases |
||||
namespace eval ::punk::args::register { |
||||
#use fully qualified so 8.6 doesn't find existing var in global namespace |
||||
lappend ::punk::args::register::NAMESPACES ::punk::args::tkcore ::punk::args::tkcore::argdoc |
||||
} |
||||
# ----------------------------------------------------------------------------- |
||||
|
||||
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
||||
## Ready |
||||
package provide punk::args::tkcore [tcl::namespace::eval punk::args::tkcore { |
||||
variable pkg punk::args::tkcore |
||||
variable version |
||||
set version 0.1.0 |
||||
}] |
||||
return |
||||
|
||||
#*** !doctools |
||||
#[manpage_end] |
||||
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
Binary file not shown.
Binary file not shown.
Loading…
Reference in new issue