diff options
| author | carmen rocco <ix9@users.sourceforge.net> | 2006-09-19 23:21:31 +0000 |
|---|---|---|
| committer | carmen rocco <ix9@users.sourceforge.net> | 2006-09-19 23:21:31 +0000 |
| commit | 5689251b4df7456f43a0d3b357672bbd9fc3a40c (patch) | |
| tree | 98e8bd772edf971e3cda5bff8dece0436105ddc4 /extensions/gui/ix/spectrum.wid | |
| parent | 2ed8e5ab0516ba0a3d66fdc5612a4631fee5f6d5 (diff) | |
*** empty log message ***
svn path=/trunk/; revision=5973
Diffstat (limited to 'extensions/gui/ix/spectrum.wid')
| -rwxr-xr-x | extensions/gui/ix/spectrum.wid | 42 |
1 files changed, 0 insertions, 42 deletions
diff --git a/extensions/gui/ix/spectrum.wid b/extensions/gui/ix/spectrum.wid deleted file mode 100755 index e42af026..00000000 --- a/extensions/gui/ix/spectrum.wid +++ /dev/null @@ -1,42 +0,0 @@ -#console show
-package require Tkzinc 3.3
-package require zincGraphics
-namespace eval ::ix {
- variable _
- proc spectrum_sub {t sub} {
- variable _
- set _($t:use) $sub
- }
- proc spectrum_floats {path t w h args} {
- variable _
- set coords "0 $h"
- set i 0
- foreach num $args {
- incr i
- lappend coords $i $num
- }
- lappend coords $w $h
- $path coords $t:sub$_($t:use) $coords
-
- }
- proc spectrum {path t w h bg c1 c2 t1 t2} {
- if {[winfo exists $path.nob] != 1} {
- zinc $path.nob -render 1 -width $w -height $h -borderwidth 1 -lightangle 140 -backcolor $bg
- $path configure -width $w -height $h
- place $path.nob -anchor nw -relwidth 1 -relheight 1
- $path.nob remove *
- $path.nob add curve 1 {1 1 8 4} -filled 1 -linewidth 0 -fillcolor "$c1;$t1" -closed 1 -tags $t:sub1
- $path.nob add curve 1 {1 1 8 4} -filled 1 -linewidth 0 -fillcolor "$c2;$t2" -closed 1 -tags $t:sub2
- }
- }
-}
-#> spectrum frame
-#. -height 160 -width 480 -bd 1 -bg "#cccccc"
-#. #h 160 #w 480 #bg gray20 #ca yellow #cb red #ta 100 #tb 50
-#. @list ::ix::spectrum_floats .-.nob .| .#w .#h .#args
-#. @use ::ix::spectrum_sub .| .#1
-#. @cmd eval ".-.nob .#args"
-bind .- <Enter> {focus .-}
-bind .- <Leave> {focus .^.c}
-::ix::spectrum .- .| .#w .#h .#bg .#ca .#cb .#ta .#tb
-puts "spectrum .- .|"
|