help

$canvaseditor help: opens help window
obj method canvaseditor help {} {
  set win [my canvas].help
  destroy $win
  set bg "-bg ivory"
  set fg "-fg navy"
  toplevel $win {*}$bg
  wm resizable $win no no
  wm transient $win .
  pack\
    [label $win.name -text {Vectorleaf 0.1} {*}$bg]\
    [label $win.copyright -text {© 2020-2021} {*}$bg]\
    [label $win.author -text {Wolf-Dieter Busch} {*}$bg]\
    [label $win.str -text {Bremer Str. 25} {*}$bg]\
    [label $win.stadt -text {49610 Quakenbrück} {*}$bg]\
    [label $win.email -text wolf.dieter.busch@gmail.com {*}$fg {*}$bg]\
    [label $win.url -text {http://wolf-dieter-busch.de/vectorleaf/} {*}$bg]
  bind $win.url <3> "tk_popup [menu $win.copy -tearoff no] %X %Y"
  $win.copy add command -label "Copy URL" -command [subst -nocommand {
    clipboard clear
    clipboard append [$win.url cget -text]
  }]
}