pd/src desire.tk,1.1.2.456,1.1.2.457 - Pd-cvs

4 Sep 2006


      Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22644
Modified Files:
      Tag: devel_0_39
    desire.tk 
Log Message:
added a config option to enable/disable the wire arrow, cleaned up some stuff in clientprefsdialog 
stuff
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.456
retrieving revision 1.1.2.457
diff -C2 -d -r1.1.2.456 -r1.1.2.457
*** desire.tk	4 Sep 2006 13:58:18 -0000	1.1.2.456
--- desire.tk	4 Sep 2006 14:23:27 -0000	1.1.2.457
***************
*** 3147,3152 ****
--- 3147,3157 ----
        }
    }
+ 	if {[$self look wirearrow]} {
    $self item WIRE line $xys -width $wire_width -smooth yes \
        -arrow $arrow -arrowshape $arrowshape -fill $wire_color
+ 	} else {
+ 	$self item WIRE line $xys -width $wire_width -smooth yes \
+ 	    -arrowshape $arrowshape -fill $wire_color
+ 	}
  }
***************
*** 5723,5728 ****
      color FutureWire dash
    subsection Client others_color
!     color View inletfg
!     color View outletfg
      color SelRect rect
  section Client keys
--- 5728,5733 ----
      color FutureWire dash
    subsection Client others_color
!     color Box inletfg
!     color Box outletfg
      color SelRect rect
  section Client keys
***************
*** 5765,5772 ****
      font View fontitalic
  section Client others
!     crosshair Canvas hairstate
!     crosshair Canvas hairsnap
!     bar Canvas buttonbar
!     bar Canvas statusbar
  }
--- 5770,5778 ----
      font View fontitalic
  section Client others
!     toggle Canvas hairstate
!     toggle Canvas hairsnap
!     toggle Canvas buttonbar
!     toggle Canvas statusbar
!     toggle Wire wirearrow
  }
***************
*** 5885,5893 ****
    			
    		}
! 			crosshair {
! 				set var [string tolower $class$name]
! 				set look($class:$name) $_($self:$var)
! 			}
! 			bar {
    			set var [string tolower $class$name]
    			set look($class:$name) $_($self:$var)
--- 5891,5895 ----
    			
    		}
! 			toggle {
    			set var [string tolower $class$name]
    			set look($class:$name) $_($self:$var)
***************
*** 5993,5997 ****
    			#$self add $which_section [list $l $type]
    		}
! 			crosshair {
    			set str [string tolower $class$name]
    			set str2 ${str}path
--- 5995,5999 ----
    			#$self add $which_section [list $l $type]
    		}
! 			toggle {
    			set str [string tolower $class$name]
    			set str2 ${str}path
***************
*** 6004,6017 ****
    			$self add $which_section [list [lindex $str 0] toggle]
    		}
- 			bar {
- 				set str [string tolower $class$name]
- 				set str2 ${str}path
- 				#set var ${name}path
- 				#set @$var $which_section.$name.color
- 				set @$str2 $which_section.$name.color
- 				#set @$name $bar($name)
- 				set @$str $look($class:$name)
- 				$self add $which_section [list [lindex $str 0] toggle]
- 			}
    		font {
    			puts "	adding font bomb"
--- 6006,6009 ----