[PD-cvs] pd/src desire.tk,1.1.2.392,1.1.2.393

chunlee chunlee at users.sourceforge.net
Tue Aug 22 03:15:54 CEST 2006


Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21631

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
turn global look into local table


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.392
retrieving revision 1.1.2.393
diff -C2 -d -r1.1.2.392 -r1.1.2.393
*** desire.tk	21 Aug 2006 17:21:35 -0000	1.1.2.392
--- desire.tk	22 Aug 2006 01:15:52 -0000	1.1.2.393
***************
*** 446,450 ****
  proc say_category  {text} {}
  
! proc look {k} {global look; return $look($k)}
  
  set cmdline(server) [list [file join [file dirname $argh0] ../bin/pd]]
--- 446,451 ----
  proc say_category  {text} {}
  
! proc look2 {k} {global look; return $look($k)}
! proc look {class k} {global look; return $look($class:$k)}
  
  set cmdline(server) [list [file join [file dirname $argh0] ../bin/pd]]
***************
*** 955,959 ****
  set look(commentframe2) #888888
  set look(commentframe3) #cccccc
- 
  set look(canvasbgrun) #ffffff
  set look(canvasbgedit) #dddddd
--- 956,959 ----
***************
*** 974,977 ****
--- 974,1012 ----
          default {concat 1}}]
  set look(minobjwidth) 21
+ 
+ set look(View:tooltip) 1
+ set look(View:iowidth) 7
+ set look(View:minobjwidth) 21
+ set look(View:iopos) 0
+ set look(View:inletfg) #ff0000
+ set look(View:outletfg) #ff0000
+ set look(View:selectframe) #0080ff
+ set look(View:fg) #000000
+ set look(View:bg) #ffffff
+ set look(View:frame1) #99cccc
+ set look(View:frame2) #668888
+ set look(View:frame3) #000000
+ set look(Comment:fg) #000000
+ set look(Comment:bg) #cccccc
+ set look(Comment:frame1) #ffffff
+ set look(Comment:frame2) #888888
+ set look(Comment:frame3) #cccccc
+ set look(Canvas:bgrun) #ffffff
+ set look(Canvas:bgedit) #dddddd
+ set look(Canvas:crosshair) #ff14ff
+ set look(SelRect:rect) #ff12ff
+ set look(Wire:fg) #888888
+ set look(Wire:fg2) #ee0000
+ set look(Wire:thick) 1
+ set look(FutureWire:dash) #ee0012
+ set look(Slider:bg) #ccebff
+ set look(Completion:showcomp) 10
+ set look(Completion:fg) #000000
+ set look(Completion:bg) #ffffff
+ set look(Completion:selectbg) #000000
+ set look(Completion:selectfg) #ffffff
+ 
+ 
+ 
  set scale(canned) [list 25 33 50 75 100 125 150 200 250 300 400]
  set crosshair(hairstate) 1
***************
*** 1073,1077 ****
  def* View unclick {x y f target} {}
  def  View  motion {x y f target} {}
! 
  def View init {} {
  	super
--- 1108,1121 ----
  def* View unclick {x y f target} {}
  def  View  motion {x y f target} {}
! def Thing look {k} {
! 	global look 
! 	if {[info exists look($@_class:$k)]} {
! 		return $look($@_class:$k)
! 	} else {
! 		foreach super [$@_class ancestors] {
! 		if {[info exists look($super:$k)]} {return $look($super:$k)}
! 		}
! 	}
! }
  def View init {} {
  	super
***************
*** 1116,1120 ****
  }
  
! def* View item_delete {{suffix all}} {
    switch -- $suffix {
      all     {.$@canvas.c delete $self       }
--- 1160,1164 ----
  }
  
! def View item_delete {{suffix all}} {
    switch -- $suffix {
      all     {.$@canvas.c delete $self       }
***************
*** 1607,1611 ****
  def* Canvas draw {} {
  	if {$@subpatch} {super} ;# is for the [pd] box if applicable
! 	if {$@editmode} {set bg [look canvasbgedit]} else {set bg [look canvasbgrun]}
  	.$self.c configure -background $bg
  	$self adjust_scrollbars
--- 1651,1655 ----
  def* Canvas draw {} {
  	if {$@subpatch} {super} ;# is for the [pd] box if applicable
! 	if {$@editmode} {set bg [$self look bgedit]} else {set bg [$self look bgrun]}
  	.$self.c configure -background $bg
  	$self adjust_scrollbars
***************
*** 1641,1645 ****
      } {
  	$self item TEXT text [l+ {2 2} [list $x1 $y1]] \
! 		-font $font(str) -text $@text -fill [look objectfg] -anchor nw
      }
  }
--- 1685,1689 ----
      } {
  	$self item TEXT text [l+ {2 2} [list $x1 $y1]] \
! 		-font $font(str) -text $@text -fill [$self look fg] -anchor nw
      }
  }
***************
*** 1664,1668 ****
  	text $t -height 1 -width [expr [string length $@text]+1] -relief flat \
  		-bg [.$@canvas.c itemcget ${self}BASE -fill] -borderwidth 0 -highlightthickness 0\
! 		-font $font_str -fg [look objectfg]
  	bind $t <Key>            "$self key %W %x %y %K %A 0"
  	bind $t <Control-Return> "$self key %W %x %y 10 %A 0"
--- 1708,1712 ----
  	text $t -height 1 -width [expr [string length $@text]+1] -relief flat \
  		-bg [.$@canvas.c itemcget ${self}BASE -fill] -borderwidth 0 -highlightthickness 0\
! 		-font $font_str -fg [$self look fg]
  	bind $t <Key>            "$self key %W %x %y %K %A 0"
  	bind $t <Control-Return> "$self key %W %x %y 10 %A 0"
***************
*** 1702,1708 ****
  	}
  	#set textwidth [expr $font(padx)+$font(width)*($n+$@edit)]
! 	set topwidth    [expr (2* $@ninlets-1) * [look iowidth]]
! 	set bottomwidth [expr (2*$@noutlets-1) * [look iowidth]]
! 	set @xs [max [look minobjwidth] [max $bottomwidth [max $topwidth $textwidth]]]
  	set @ys [expr $font(pady)+$font(height)]
  }
--- 1746,1752 ----
  	}
  	#set textwidth [expr $font(padx)+$font(width)*($n+$@edit)]
! 	set topwidth    [expr (2* $@ninlets-1) * [$self look iowidth]]
! 	set bottomwidth [expr (2*$@noutlets-1) * [$self look iowidth]]
! 	set @xs [max [$self look minobjwidth] [max $bottomwidth [max $topwidth $textwidth]]]
  	set @ys [expr $font(pady)+$font(height)]
  }
***************
*** 1760,1766 ****
  	set xyb [l+ [list $x2 $y1 $x1 $y1 $x1 $y2] [list -1 +1 +1 +1 +1 -1]]
  	set xyc [l+ [list $x2 $y1 $x2 $y2 $x1 $y2] [list -1 +1 -1 -1 +1 -1]]
! 	$self item BASE  rectangle $xya -fill [look objectbg] -width 1
! 	$self item BASE1 line      $xyb -fill [look objectframe1] -width 1
! 	$self item BASE2 line      $xyc -fill [look objectframe2] -width 1
  }
  
--- 1804,1810 ----
  	set xyb [l+ [list $x2 $y1 $x1 $y1 $x1 $y2] [list -1 +1 +1 +1 +1 -1]]
  	set xyc [l+ [list $x2 $y1 $x2 $y2 $x1 $y2] [list -1 +1 -1 -1 +1 -1]]
! 	$self item BASE  rectangle $xya -fill [$self look bg] -width 1
! 	$self item BASE1 line      $xyb -fill [$self look frame1] -width 1
! 	$self item BASE2 line      $xyc -fill [$self look frame2] -width 1
  }
  
***************
*** 1769,1773 ****
  	super
          $self draw_io
!         if {[$self selected?]} {set frcol [look selectframe]} {set frcol [look objectframe3]}
  	set c .$@canvas.c
  	$c itemconfigure ${self}BASE -outline $frcol -dash [if {$@valid} {list 8 8 8 8} {list}]
--- 1813,1817 ----
  	super
          $self draw_io
!         if {[$self selected?]} {set frcol [$self look selectframe]} {set frcol [$self look frame3]}
  	set c .$@canvas.c
  	$c itemconfigure ${self}BASE -outline $frcol -dash [if {$@valid} {list 8 8 8 8} {list}]
***************
*** 2203,2207 ****
  	set @selection $@children
  	set @selection_wire $@wires
! 	#foreach obj $@selection {.$self.c itemconfigure ${obj}BASE -outline [look selectframe]}
  }
  
--- 2247,2251 ----
  	set @selection $@children
  	set @selection_wire $@wires
! 	#foreach obj $@selection {.$self.c itemconfigure ${obj}BASE -outline [$self look selectframe]}
  }
  
***************
*** 2317,2321 ****
  }
  def FutureWire draw {} {
! 	$self item WIRE line [list $@x1 $@y1 $@x2 $@y2] -dash {4 4 4 4} -fill [look wiredash]
  }
  
--- 2361,2365 ----
  }
  def FutureWire draw {} {
! 	$self item WIRE line [list $@x1 $@y1 $@x2 $@y2] -dash {4 4 4 4} -fill [$self look dash]
  }
  
***************
*** 2365,2369 ****
  def SelRect draw {} {
  	$self item RECT line [list $@x1 $@y1 $@x2 $@y1 $@x2 $@y2 $@x1 $@y2 $@x1 $@y1] \
! 		-fill black -dash {3 3 3 3} -dashoffset 3 -fill [look selrect]
  }
  
--- 2409,2413 ----
  def SelRect draw {} {
  	$self item RECT line [list $@x1 $@y1 $@x2 $@y1 $@x2 $@y2 $@x1 $@y2 $@x1 $@y1] \
! 		-fill black -dash {3 3 3 3} -dashoffset 3 -fill [$self look rect]
  }
  
***************
*** 2847,2851 ****
  def Box draw {} {
  	#set text "[$@canvas index $self]: "
! 	#$self item ID text [$self xy] -fill [look objectfg] -anchor ne -text $text
  	$self draw_box
  }
--- 2891,2895 ----
  def Box draw {} {
  	#set text "[$@canvas index $self]: "
! 	#$self item ID text [$self xy] -fill [$self look fg] -anchor ne -text $text
  	$self draw_box
  }
***************
*** 2906,2912 ****
      set ys [expr $y2-$y1]
      for {set i 0} {$i<$n} {incr i} {
!         set onset [expr $x1 + ($xs-([look iowidth])) * $i / $nplus]
!         set points [list [expr $onset] [expr $y-1] [expr $onset+[look iowidth]] $y]
! 	switch $which { i {set color [look inletfg]} o {set color [look outletfg]}}
  	$self item [list $which$i $which] rectangle $points -outline $color -fill $color
      }
--- 2950,2956 ----
      set ys [expr $y2-$y1]
      for {set i 0} {$i<$n} {incr i} {
!         set onset [expr $x1 + ($xs-([$self look iowidth])) * $i / $nplus]
!         set points [list [expr $onset] [expr $y-1] [expr $onset+[$self look iowidth]] $y]
! 	switch $which { i {set color [$self look inletfg]} o {set color [$self look outletfg]}}
  	$self item [list $which$i $which] rectangle $points -outline $color -fill $color
      }
***************
*** 2914,2918 ****
  
  def Box draw_io {} {
!     set fy [look iopos]
      mset {x1 y1 x2 y2} [$self bbox]
      $self draw_io2 i  $@ninlets [expr $y1-$fy-1]
--- 2958,2962 ----
  
  def Box draw_io {} {
!     set fy [$self look iopos]
      mset {x1 y1 x2 y2} [$self bbox]
      $self draw_io2 i  $@ninlets [expr $y1-$fy-1]
***************
*** 2933,2937 ****
  		set center [expr ([lindex $area 2] + [lindex $area 0]) / 2 ]
  		set dist [expr abs($x - $center)]
! 		if {$dist < [expr ([look iowidth]/2)+5] && $dist > 0} {set port $n}
  	}
  
--- 2977,2981 ----
  		set center [expr ([lindex $area 2] + [lindex $area 0]) / 2 ]
  		set dist [expr abs($x - $center)]
! 		if {$dist < [expr ([$self look iowidth]/2)+5] && $dist > 0} {set port $n}
  	}
  
***************
*** 2940,2947 ****
  	if {$port >= $ports} {set port [expr $ports-1]}
  	set p $self$type$port
! 	set outline [switch $type {i {concat [look outletfg]} o {concat [look inletfg]}}]
  	$c create rectangle [l+ [$c coords $p] {-4 -4 +4 +4}] -outline $outline -width 1 -tags ${p}b
  	switch $type {i {set tip "inlet $port"} o {set tip "outlet $port"}}
! 	if {[look tooltip]} {$@canvas show_tooltip $x $y $tip}
  	return $port
  }
--- 2984,2991 ----
  	if {$port >= $ports} {set port [expr $ports-1]}
  	set p $self$type$port
! 	set outline [switch $type {i {concat [$self look outletfg]} o {concat [$self look inletfg]}}]
  	$c create rectangle [l+ [$c coords $p] {-4 -4 +4 +4}] -outline $outline -width 1 -tags ${p}b
  	switch $type {i {set tip "inlet $port"} o {set tip "outlet $port"}}
! 	if {[$self look tooltip]} {$@canvas show_tooltip $x $y $tip}
  	return $port
  }
***************
*** 3007,3012 ****
  	if {$arrowsize < 5} {set arrow none} {set arrow last}
  	set arrowshape [list $arrowsize [expr $arrowsize*4/5] [expr $arrowsize/3]]
! 	if {[$self selected?]} {set wire_color [look wirefg2]} {set wire_color [look wirefg]}
! 	$self item WIRE line $xys -width [look wirethick] -smooth yes \
  		-arrow $arrow -arrowshape $arrowshape -fill $wire_color
  }
--- 3051,3056 ----
  	if {$arrowsize < 5} {set arrow none} {set arrow last}
  	set arrowshape [list $arrowsize [expr $arrowsize*4/5] [expr $arrowsize/3]]
! 	if {[$self selected?]} {set wire_color [$self look fg2]} {set wire_color [$self look fg]}
! 	$self item WIRE line $xys -width [$self look thick] -smooth yes \
  		-arrow $arrow -arrowshape $arrowshape -fill $wire_color
  }
***************
*** 3022,3027 ****
  
  proc bluify {colour} {
  	scan $colour         #%02x%02x%02x r g b
! 	scan [look sliderbg] #%02x%02x%02x R G B
  	return [format #%02x%02x%02x [expr ($r*$R)>>8] [expr ($g*$G)>>8] [expr ($b*$B)>>8]]
  }
--- 3066,3073 ----
  
  proc bluify {colour} {
+ 	global look
  	scan $colour         #%02x%02x%02x r g b
! 	#scan [$self look sliderbg] #%02x%02x%02x R G B
! 	scan $look(Slider:bg) #%02x%02x%02x R G B
  	return [format #%02x%02x%02x [expr ($r*$R)>>8] [expr ($g*$G)>>8] [expr ($b*$B)>>8]]
  }
***************
*** 3195,3200 ****
  	set points [list $x1 $y1 [expr $x2+4] $y1 $x2 [expr $y1+4] $x2 [expr $y2-4] \
  		[expr $x2+4] $y2 $x1 $y2 $x2 $y2 $x1 $y2]
! 	if {[$self selected?]} {set frcol [look selectframe]} {set frcol [look objectframe3]}
! 	$self item BASE polygon $points -fill [look objectbg] -outline $frcol -width 1
  }
  
--- 3241,3246 ----
  	set points [list $x1 $y1 [expr $x2+4] $y1 $x2 [expr $y1+4] $x2 [expr $y2-4] \
  		[expr $x2+4] $y2 $x1 $y2 $x2 $y2 $x1 $y2]
! 	if {[$self selected?]} {set frcol [$self look selectframe]} {set frcol [$self look frame3]}
! 	$self item BASE polygon $points -fill [$self look bg] -outline $frcol -width 1
  }
  
***************
*** 3218,3222 ****
  def MessageBox bang {flag} {
  	.$@canvas.c itemconfigure ${self}BASE -fill \
! 		[if {$flag} {list #ffff00} {list [look objectbg]}]
  }
  
--- 3264,3268 ----
  def MessageBox bang {flag} {
  	.$@canvas.c itemconfigure ${self}BASE -fill \
! 		[if {$flag} {list #ffff00} {list [$self look bg]}]
  }
  
***************
*** 3232,3237 ****
  	set points [list $x1 $y1 [expr $x2-4] $y1 $x2 [expr $y1+4] $x2 $y2 $x1 $y2]
  	.$@canvas.c canvasx $x1
! 	if {[$self selected?]} {set frcol [look selectframe]} {set frcol [look objectframe3]}
! 	$self item BASE polygon $points -fill [look objectbg] -outline $frcol
  	$self draw_io
  }
--- 3278,3283 ----
  	set points [list $x1 $y1 [expr $x2-4] $y1 $x2 [expr $y1+4] $x2 $y2 $x1 $y2]
  	.$@canvas.c canvasx $x1
! 	if {[$self selected?]} {set frcol [$self look selectframe]} {set frcol [$self look frame3]}
! 	$self item BASE polygon $points -fill [$self look bg] -outline $frcol
  	$self draw_io
  }
***************
*** 3241,3245 ****
  	super
  	mset {x1 y1} [$self xy]
! 	if {[$self selected?]} {set fcol red} else {set fcol [look objectfg]}
  	if {[string length $@val] <= $@w} {
  		set string $@text
--- 3287,3291 ----
  	super
  	mset {x1 y1} [$self xy]
! 	if {[$self selected?]} {set fcol red} else {set fcol [$self look fg]}
  	if {[string length $@val] <= $@w} {
  		set string $@text
***************
*** 3248,3252 ****
  	}
  	$self item TEXT text [l+ {2 2} [list $x1 $y1]] \
! 		-text $string -fill [look objectfg] -font $font(str) -anchor nw
  }
  
--- 3294,3298 ----
  	}
  	$self item TEXT text [l+ {2 2} [list $x1 $y1]] \
! 		-text $string -fill [$self look fg] -font $font(str) -anchor nw
  }
  
***************
*** 3261,3268 ****
  	set xyb [l+ [list $x2 $y1 $x1 $y1 $x1 $y2] [list -1 +1 +1 +1 +1 -1]]
  	set xyc [l+ [list $x2 $y1 $x2 $y2 $x1 $y2] [list -1 +1 -1 -1 +1 -1]]
! 	if {[$self selected?]} {set frcol [look selectframe]} {set frcol [look commentframe3]}
! 	$self item BASE  rectangle $xya -fill [look commentbg] -outline $frcol
! 	$self item BASE1 line      $xyb -fill [look commentframe1]
! 	$self item BASE2 line      $xyc -fill [look commentframe2]
  }
  
--- 3307,3314 ----
  	set xyb [l+ [list $x2 $y1 $x1 $y1 $x1 $y2] [list -1 +1 +1 +1 +1 -1]]
  	set xyc [l+ [list $x2 $y1 $x2 $y2 $x1 $y2] [list -1 +1 -1 -1 +1 -1]]
! 	if {[$self selected?]} {set frcol [$self look selectframe]} {set frcol [$self look frame3]}
! 	$self item BASE  rectangle $xya -fill [$self look bg] -outline $frcol
! 	$self item BASE1 line      $xyb -fill [$self look frame1]
! 	$self item BASE2 line      $xyc -fill [$self look frame2]
  }
  
***************
*** 3277,3281 ****
  	set xyc [list [expr $x2-1] [expr $y1+1] [expr $x2-1] [expr $y2-1] [expr $x1+1] [expr $y2-1]]
  	set color [bluify [parse_color $@bcol]]
! 	if {[$self selected?]} {set frcol [look selectframe]} {set frcol [look objectframe3]}
  	$self item BASE  rectangle $xya -fill $color -outline $frcol
  	$self item BASE2 line      $xyb -fill #ffffff
--- 3323,3327 ----
  	set xyc [list [expr $x2-1] [expr $y1+1] [expr $x2-1] [expr $y2-1] [expr $x1+1] [expr $y2-1]]
  	set color [bluify [parse_color $@bcol]]
! 	if {[$self selected?]} {set frcol [$self look selectframe]} {set frcol [$self look frame3]}
  	$self item BASE  rectangle $xya -fill $color -outline $frcol
  	$self item BASE2 line      $xyb -fill #ffffff
***************
*** 3604,3610 ****
  	if {!$@w} {set @w 5}
  	set textwidth [expr $font(padx)+$font(width)*$@w]
! 	set topwidth    [expr (2* $@ninlets-1) * [look iowidth]]
! 	set bottomwidth [expr (2*$@noutlets-1) * [look iowidth]]
! 	set @xs [max [look minobjwidth] [max $bottomwidth [max $topwidth $textwidth]]]
  	set @ys [expr $font(pady)+$font(height)]
  }
--- 3650,3656 ----
  	if {!$@w} {set @w 5}
  	set textwidth [expr $font(padx)+$font(width)*$@w]
! 	set topwidth    [expr (2* $@ninlets-1) * [$self look iowidth]]
! 	set bottomwidth [expr (2*$@noutlets-1) * [$self look iowidth]]
! 	set @xs [max [$self look minobjwidth] [max $bottomwidth [max $topwidth $textwidth]]]
  	set @ys [expr $font(pady)+$font(height)]
  }
***************
*** 3660,3666 ****
  	global font
  	set textwidth [expr $font(padx)+$font(width)*[string length $@buf]]
! 	set topwidth    [expr (2* $@ninlets-1) * [look iowidth]]
! 	set bottomwidth [expr (2*$@noutlets-1) * [look iowidth]]
! 	set @xs [max [look minobjwidth] [max $bottomwidth [max $topwidth $textwidth]]]
  	set @ys  [expr $font(pady)+$font(height)]
  }
--- 3706,3712 ----
  	global font
  	set textwidth [expr $font(padx)+$font(width)*[string length $@buf]]
! 	set topwidth    [expr (2* $@ninlets-1) * [$self look iowidth]]
! 	set bottomwidth [expr (2*$@noutlets-1) * [$self look iowidth]]
! 	set @xs [max [$self look minobjwidth] [max $bottomwidth [max $topwidth $textwidth]]]
  	set @ys  [expr $font(pady)+$font(height)]
  }
***************
*** 3682,3688 ****
  	set points2 [list $x1 $y1 [expr $x1+$ys/2] [expr $y1+$ys/2] $x1 $y2]
  	set focused [$self == [$@canvas focus]]
! 	if {$focused} {set color4 #00ff00} {set color4 [look objectbg]}
! 	$self item BASE   polygon $points  -fill [parse_color $@bcol] -outline [look objectframe3]
! 	$self item BASE4  polygon $points2 -fill $color4 -outline [look objectframe3]
  	#$self item NUMBER text [list $xt $yt] -anchor w -text [$self ftoa] \
  	#	-font $font(str) -fill [parse_color $@fcol]
--- 3728,3734 ----
  	set points2 [list $x1 $y1 [expr $x1+$ys/2] [expr $y1+$ys/2] $x1 $y2]
  	set focused [$self == [$@canvas focus]]
! 	if {$focused} {set color4 #00ff00} {set color4 [$self look bg]}
! 	$self item BASE   polygon $points  -fill [parse_color $@bcol] -outline [$self look frame3]
! 	$self item BASE4  polygon $points2 -fill $color4 -outline [$self look frame3]
  	#$self item NUMBER text [list $xt $yt] -anchor w -text [$self ftoa] \
  	#	-font $font(str) -fill [parse_color $@fcol]
***************
*** 3695,3699 ****
  	}
  	$self draw_io
! 	if {[$self selected?]} {set frcol [look selectframe]} {set frcol [look objectframe3]}
  	$c itemconfigure ${self}BASE -outline $frcol
  }
--- 3741,3745 ----
  	}
  	$self draw_io
! 	if {[$self selected?]} {set frcol [$self look selectframe]} {set frcol [$self look frame3]}
  	$c itemconfigure ${self}BASE -outline $frcol
  }
***************
*** 3750,3754 ****
  	#if {$@oval!=$@val} {
  	#	$@canvas focus= ""
! 	#	.$@canvas.c itemconfigure ${self}BASE4 -fill [look objectbg]
  	#	pd .$self float $@val
  	#}
--- 3796,3800 ----
  	#if {$@oval!=$@val} {
  	#	$@canvas focus= ""
! 	#	.$@canvas.c itemconfigure ${self}BASE4 -fill [$self look bg]
  	#	pd .$self float $@val
  	#}
***************
*** 3760,3764 ****
  	} {
  		$@canvas focus= ""
! 		.$@canvas.c itemconfigure ${self}BASE4 -fill [look objectbg]
  		if {$@key_input} {set @val $@old_val; set @key_input 0; set @text $@val}
  	}
--- 3806,3810 ----
  	} {
  		$@canvas focus= ""
! 		.$@canvas.c itemconfigure ${self}BASE4 -fill [$self look bg]
  		if {$@key_input} {set @val $@old_val; set @key_input 0; set @text $@val}
  	}
***************
*** 3927,3931 ****
  		set coords [list $x1 $y3 [expr $x1+$xs] $y3]
  	}
! 	$@canvas item NOTCH $coords -dash [list 1 $eighth 1 $eighth] -width $thick -fill [darker [look sliderbg]]
  }
  
--- 3973,3977 ----
  		set coords [list $x1 $y3 [expr $x1+$xs] $y3]
  	}
! 	$@canvas item NOTCH $coords -dash [list 1 $eighth 1 $eighth] -width $thick -fill [darker [$self look bg]]
  }
  
***************
*** 4185,4189 ****
  	$self item TEXT text [list $x1 $y1] \
  		-font $font(str) -text "an array named '$@name' should appear in this patch" \
! 		-fill [look objectfg] -anchor nw
  }
  
--- 4231,4235 ----
  	$self item TEXT text [list $x1 $y1] \
  		-font $font(str) -text "an array named '$@name' should appear in this patch" \
! 		-fill [$self look fg] -anchor nw
  }
  
***************
*** 4435,4440 ****
  	#set v1 [list $x $y1 $x $vy2]
  	#set h1 [list $x1 $y $vx2 $y]
! 	$self item VHAIR1 line $v1 -fill [look selectframe] -width 0.5 -dash {4 4 4 4}
! 	$self item HHAIR1 line $h1 -fill [look selectframe] -width 0.5 -dash {4 4 4 4}
  }
  
--- 4481,4486 ----
  	#set v1 [list $x $y1 $x $vy2]
  	#set h1 [list $x1 $y $vx2 $y]
! 	$self item VHAIR1 line $v1 -fill [$self look crosshair] -width 0.5 -dash {4 4 4 4}
! 	$self item HHAIR1 line $h1 -fill [$self look crosshair] -width 0.5 -dash {4 4 4 4}
  }
  
***************
*** 4472,4477 ****
  	#set h1 [list [expr $x - $x + $xoff] $y [expr $x + ($width +$xoff)] $y]
  	#$self item BORDER rect [list $vx1 $vy1 $vx2 $vy2] -width 10
! 	$self item VHAIR1 line $v1 -fill [look selectframe] -width 0.5 -dash {4 4 4 4}
! 	$self item HHAIR1 line $h1 -fill [look selectframe] -width 0.5 -dash {4 4 4 4}
  }
  
--- 4518,4523 ----
  	#set h1 [list [expr $x - $x + $xoff] $y [expr $x + ($width +$xoff)] $y]
  	#$self item BORDER rect [list $vx1 $vy1 $vx2 $vy2] -width 10
! 	$self item VHAIR1 line $v1 -fill [$self look selectframe] -width 0.5 -dash {4 4 4 4}
! 	$self item HHAIR1 line $h1 -fill [$self look selectframe] -width 0.5 -dash {4 4 4 4}
  }
  
***************
*** 4645,4653 ****
  	set x1 [format %0.f $x1];set y1 [format %0.f $y1]
  	set x2 [format %0.f $x2];set y2 [format %0.f $y2]
! 	if {[look showcomp] <= 20} {
! 		set @height [look showcomp]} else {set @height 20}
  	listbox $f -width $@width -height $@height -relief flat \
! 		-bg [look canvasbgedit] -selectbackground [complement [look objectfg]] \
! 		-activestyle dotbox -selectforeground [look objectfg] -fg [complement [look canvasbgedit]]
  	$self fill_box [$@textbox get 1.0 1.end]
  	$f configure -width $@width
--- 4691,4699 ----
  	set x1 [format %0.f $x1];set y1 [format %0.f $y1]
  	set x2 [format %0.f $x2];set y2 [format %0.f $y2]
! 	if {[$self look showcomp] <= 20} {
! 		set @height [$self look showcomp]} else {set @height 20}
  	listbox $f -width $@width -height $@height -relief flat \
! 		-bg [$self look bg] -selectbackground [$self look selectbg] \
! 		-activestyle dotbox -selectforeground [$self look selectfg] -fg [$self look fg]
  	$self fill_box [$@textbox get 1.0 1.end]
  	$f configure -width $@width





More information about the Pd-cvs mailing list