Tk Library Source Code

Check-in [cbab3b4b29]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:provide package version 5.4.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | tcl80
Files: files | file ages | folders
SHA1: cbab3b4b297eab2fef1019daa7fe74edb3f5596b
User & Date: jfontain 2000-03-21 21:32:25.000
Context
2000-03-26
09:34
version 5.4. check-in: e891a830d9 user: jfontain tags: tcl80
2000-03-21
21:32
provide package version 5.4. check-in: cbab3b4b29 user: jfontain tags: tcl80
2000-03-05
21:04
added label{}. check-in: 6006de4814 user: jfontain tags: tcl80
Changes
Unified Diff Ignore Whitespace Patch
Changes to modules/tkpiechart/pie.tcl.
1
2
3
4
5
6
7
8
9
10
set rcsId {$Id: pie.tcl,v 1.85.1.1 2000/03/05 20:48:16 jfontain Exp $}

package provide tkpiechart 5.3

class pie {
    set pie::(colors) {#7FFFFF #7FFF7F #FF7F7F #FFFF7F #7F7FFF #FFBF00 #BFBFBF #FF7FFF #FFFFFF}
}

proc pie::pie {this canvas x y args} switched {$args} {                         ;# note: all pie elements are tagged with pie($this)
    set pie::($this,canvas) $canvas
|

|







1
2
3
4
5
6
7
8
9
10
set rcsId {$Id: pie.tcl,v 1.85.1.2 2000/03/21 21:32:25 jfontain Exp $}

package provide tkpiechart 5.4

class pie {
    set pie::(colors) {#7FFFFF #7FFF7F #FF7F7F #FFFF7F #7F7FFF #FFBF00 #BFBFBF #FF7FFF #FFFFFF}
}

proc pie::pie {this canvas x y args} switched {$args} {                         ;# note: all pie elements are tagged with pie($this)
    set pie::($this,canvas) $canvas