Re: A TkPath question

Liste des GroupesRevenir à cl tcl 
Sujet : Re: A TkPath question
De : hgiese (at) *nospam* ratiosoft.com (Helmut Giese)
Groupes : comp.lang.tcl
Date : 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

Date Sujet#  Auteur
10 Oct 24 * A TkPath question3Helmut Giese
10 Oct 24 +- Re: A TkPath question1Helmut Giese
11 Oct 24 `- Re: A TkPath question1greg

Haut de la page

Les messages affichés proviennent d'usenet.

NewsPortal