[PD-cvs] pd/src desire.tk,1.1.2.456,1.1.2.457
chunlee
chunlee at users.sourceforge.net
Mon Sep 4 16:23:30 CEST 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 ----
More information about the Pd-cvs
mailing list