Sujet : Re: A TkPath question
De : hgiese (at) *nospam* ratiosoft.com (Helmut Giese)
Groupes : comp.lang.tclDate : 10. Oct 2024, 20:51:42
Autres entêtes
Organisation : ratiosoft
Message-ID : <0rbggjlmc43ta2ojc8vq9vatjlvnr7konc@4ax.com>
References : 1
User-Agent : Forte Free Agent 1.93/32.576 English (American)
To answer my own question: The 'path' item to the rescue. The
description isn't exactly exhaustive but after some experimentation I
came up with the following which is pretty close to my OP:
---
package require Tk
package require tkpath
proc mkGUI {parent} {
set c [tkp::canvas $parent.c -width 250 -height 150 \
-background gray50]
pack $c
$c create path {M 25 36 A 270 270 0 0 1 235 36 L 205 120 \
M 25 36 L 50 120 A 220 220 0 0 1 205 120} -fill lightgreen
return $c
}
set c [mkGUI ""]
---
So I'm a happy camper again
Helmut