*** empty log message ***

svn path=/trunk/; revision=5973

1 files changed, 0 insertions, 105 deletions

diff --git a/extensions/gui/ix/nob.wid b/extensions/gui/ix/nob.wid
deleted file mode 100755
index 9d256537..00000000
--- a/extensions/gui/ix/nob.wid
+++ /dev/null
@@ -1,105 +0,0 @@
-#console show

-package require Tkzinc 3.3

-package require zincGraphics

-namespace eval ::ix {

-    variable _

-    proc nobfloat {path t num} {

-	variable _

-	$path itemconfigure $t:num -text $num

-	pd [concat $t.rp _cb $num \;]

-	set _($t:num) $num

-    }

-    proc nob_mover {w t f x y} {

-	variable _

-	if {$::ix::_($t:clickd) > 0} {

-	    set move [expr (($x - $::ix::_($t:lx)) + (-1 * ($y - $::ix::_($t:ly)))) / ([winfo width $w].0 + [winfo height $w].0) * $f]

-	    nob_move $w $t $move

-	}

-	set ::ix::_($t:clickd) 1

-	set ::ix::_($t:lx) $x

-	set ::ix::_($t:ly) $y	

-    }

-    proc nob_move {w t move} {

-	variable _

-	set on [$w itemcget $t:num -text]

-	set no [expr $on + $_($t:range) * $move * 2]

-	if {$_($t:min) != $_($t:max)} {

-	    if {$no > $_($t:max)} {set no $_($t:max);set move 0}

-	    if {$no < $_($t:min)} {set no $_($t:min);set move 0}

-	}

-	nobfloat $w $t $no

-	foreach e {1 10 100} {

-	    set a [expr [$w itemcget $t:nob$e -startangle] + int($move * $e * 90)]

-	    $w itemconfigure $t:nob$e -startangle $a

-	    set _($t:a$e) $a

-	}	

-    }

-

-    proc nob {path t w h range bg c1 c2 c3 cn trans th nx ny max min} {

-	variable _

-	set _($t:lx) 32

-	set _($t:clickd) -1

-	set _($t:max) $max

-	set _($t:min) $min

-	if {$_($t:min) != $_($t:max)} {

-	    set _($t:range) [expr abs($min - $max)]

-	} else {

-	    set _($t:range) $range

-	}

-	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 *

-	    set i 0

-	    set colors [list $c1 $c2 $c3]

-	    set ratios {1 10 0.1}

-	    set edge 10

-	    $path.nob add rectangle 1 {1 1 8 4} -filled 1 -fillcolor "#555555"

-	    $path.nob add rectangle 1 "1 $h 8 [expr $h - 5]" -filled 1 -fillcolor "#555555"

-	    foreach e {1 10 100} {

-		$path.nob add arc 1 \

-		    "[expr $w / $edge / ($i + 1) + ($edge / 2)] [expr $h / $edge / ($i + 1) + ($edge / 2)] [expr $w - $w / $edge / ($i + 1) - ($edge / 2)] [expr $h - $h / $edge / ($i + 1) - ($edge / 2)]" \

-		    -closed 0 -filled 0 -extent [expr int(300 / $e)] -startangle 90 \

-		    -linecolor "[lindex $colors $i];$trans" \

-		    -linewidth [expr int($h / $th)] \

-		    -tags $t:nob$e

-		bind $path.nob <B[expr $i + 1]-Motion> \

-		    "::ix::nob_mover $path.nob $t [lindex $ratios $i] %x %y"

-		incr i

-		bind $path.nob <ButtonRelease-$i> "set ::ix::_($t:clickd) -1"

-	    }

-	    bind $path <MouseWheel> {::ix::nob_move %W.nob [winfo name %W] [expr %D / 2400.]}

-	    bind $path <Shift-MouseWheel> {::ix::nob_move %W.nob [winfo name %W] [expr %D / 24000.]}

-	    bind $path <Control-MouseWheel> {::ix::nob_move %W.nob [winfo name %W] [expr %D / 240.]}

-	    bind $path.nob <Shift-B1-Motion> "::ix::nob_mover $path.nob $t 10 %x %y"

-	    bind $path.nob <Control-B1-Motion> "::ix::nob_mover $path.nob $t 0.1 %x %y"

-	    if {$nx == 0} {

-		set nx [expr $w / 2]

-		set ny [expr $h - 20]

-	    }

-	    $path.nob add text 1 -text "0.0" \

-		-position "$nx $ny" -tags $t:num -color "$cn;$trans"

-	}

-	if {[info exists _($t:num)]} {

-	    $path.nob itemconfigure $t:num -text $_($t:num)

-	    foreach e {1 10 100} {

-		$path.nob itemconfigure $t:nob$e -startangle $_($t:a$e)

-	    }

-	} else {

-	    foreach e {1 10 100} {set _($t:a$e) 90}

-	    set _($t:num) 0.0}

-

-    }

-}

-#> nob frame

-#. -height 128 -width 128 -bd 1 -bg "#cccccc"

-#. -highlightbackground red

-#. #max 0 #min 0

-#. #w 128 #h 128 #trans 70 #th 5 #range 100 #nx 0 #ny 0

-#. #bg purple #ca blue #cb yellow #cc green #cn orange

-#. @float ::ix::nobfloat .-.nob .| .#1

-#. @cmd eval ".-.nob .#args"

-bind .- <Enter> {focus .-}

-bind .- <Leave> {focus .^.c}

-::ix::nob .- .| .#w .#h .#range .#bg .#ca .#cb .#cc .#cn .#trans .#th .#nx .#ny .#max .#min