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

Modified Files: Tag: devel_0_39 desire.tk Log Message: first attempt in making a config file for the $look

Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.150 retrieving revision 1.1.2.151 diff -C2 -d -r1.1.2.150 -r1.1.2.151 *** desire.tk 10 Apr 2006 23:39:49 -0000 1.1.2.150 --- desire.tk 12 Apr 2006 15:41:53 -0000 1.1.2.151 *************** *** 544,548 **** def client open_file {} { global pd_opendir ! set filename [tk_getOpenFile -defaultextension .pd \ -filetypes { {{pd files} {.pd}} {{max files} {.pat}}} \ -initialdir $pd_opendir] --- 544,548 ---- def client open_file {} { global pd_opendir ! set hname [tk_getOpenFile -defaultextension .pd \ -filetypes { {{pd files} {.pd}} {{max files} {.pat}}} \ -initialdir $pd_opendir] *************** *** 681,684 **** --- 681,686 ---- set look(iowidth) 7 set look(iopos) 0 + set look(inletfg) #ff0000 + set look(outletfg) #ff0000 set look(objectfg) #000000 set look(objectbg) #ffffff *************** *** 689,698 **** set look(canvasbgrun) #ffffff set look(canvasbgedit) #dddddd set look(wirefg) #888888 set look(wirefg2) #ee0000 set look(sliderbg) #ccebff #set look(sliderbg) #ffeedd ! set look(inletfg) #ff0000 ! set look(outletfg) #ff0000 set look(extrapix) [switch $OS { osx {concat 2} --- 691,702 ---- set look(canvasbgrun) #ffffff set look(canvasbgedit) #dddddd + set look(selrect) #ff12ff set look(wirefg) #888888 set look(wirefg2) #ee0000 + set look(wirethick) 1 + set look(wiredash) #ee0012 set look(sliderbg) #ccebff #set look(sliderbg) #ffeedd ! set look(extrapix) [switch $OS { osx {concat 2} *************** *** 701,704 **** --- 705,745 ----

#-----------------------------------------------------------------------------------# + proc read_ddrc {} { + global look + set file [open "~/.ddrc" "RDONLY CREAT"] + set dd_config [read $file] + close $file + + set lines [split $dd_config "\n"] + foreach line $lines { + # comments begins with "#", and is skipped + if {[regexp {^#} $line comment]} {} else { + + if {[regexp {^-[a-zA-Z]{2,10}} $line option]} { + + foreach {word1 word2 word3} $line { + puts "word:: $word1 | $word2 | $word3" + set word1 [string replace $word1 0 0] + + switch $word1 { + look { + set look($word2) $word3 + puts "look($word2) $word3" + } + font { + puts "settings for font" + } + default { + puts "settings for something" + } + } + + } + } + } + } + } + read_ddrc + #-----------------------------------------------------------------------------------# set pd_apilist "{ALSA 1}"

*************** *** 1730,1733 **** --- 1771,1775 ----

def* canvas clickedit {x y b f} { + global look set c .[$self canvas].c mset {type id} [$self identify_target $x $y $b $f "click"] *************** *** 1740,1744 **** set @action rect $c create line $x $y $x $y $x $y $x $y $x $y \ ! -tags {selrect1 selrect} -fill black -dash {3 3 3 3} -dashoffset 3 return } --- 1782,1786 ---- set @action rect $c create line $x $y $x $y $x $y $x $y $x $y \ ! -tags {selrect1 selrect} -fill black -dash {3 3 3 3} -dashoffset 3 -fill $look(selrect) return } *************** *** 1763,1767 **** set out [expr int(($x-$x1)*$outs/($x2-$x1))] mset {x1 y1 x2 y2} [$c bbox ${id}o${out}] ! $c create line [expr ($x1+$x2)/2] [expr ($y1+$y2)/2] $x $y -dash {4 4 4 4} -tags lnew set @wire_from [list $id $out] set @action wire --- 1805,1809 ---- set out [expr int(($x-$x1)*$outs/($x2-$x1))] mset {x1 y1 x2 y2} [$c bbox ${id}o${out}] ! $c create line [expr ($x1+$x2)/2] [expr ($y1+$y2)/2] $x $y -dash {4 4 4 4} -tags lnew -fill $look(wiredash) set @wire_from [list $id $out] set @action wire *************** *** 1870,1873 **** --- 1912,1923 ---- } move { + puts "something moved ::: $@selection" + + #foreach obj $@selection { + ##this could be wrong.... + #mset {x y} [$obj xy] + #pd .$self object_moveto !$obj $x $y + #} + #puts "....select_by:$@select_by" #if {$@select_by == "click"} { *************** *** 2067,2071 **** 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"}} $@canvas show_tooltip $x $y $tip --- 2117,2121 ---- 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 -fill switch $type {i {set tip "inlet $port"} o {set tip "outlet $port"}} $@canvas show_tooltip $x $y $tip *************** *** 2098,2102 **** def* wire draw {} { global look ! set thick 2 puts "------- from:$@obj1 outlet:$@port1 to:$@obj2 inlet:$@port2" set bbox1 [.$@canvas.c bbox [join [list "$@obj1" o "$@port1"] ""]] --- 2148,2152 ---- def* wire draw {} { global look ! #set thick 2 puts "------- from:$@obj1 outlet:$@port1 to:$@obj2 inlet:$@port2" set bbox1 [.$@canvas.c bbox [join [list "$@obj1" o "$@port1"] ""]] *************** *** 2109,2112 **** --- 2159,2163 ---- set xys [list $x1 $y1 $x2 $y2] set length [expr sqrt(pow($x2-$x1,2)+pow($y2-$y1,2))] + # how to customise the arrow size/shape? set arrowsize [expr $length<100 ? $length/10 : 10] if {$arrowsize < 5} {set arrow none} {set arrow last} *************** *** 2115,2119 **** if {$@select_by == "selrect"} {set wire_color $look(wirefg2)} {set wire_color $look(wirefg)} #set wire_color $look(wirefg) ! $self item WIRE line $xys -width $thick -smooth yes \ -arrow $arrow -arrowshape $arrowshape -fill $wire_color --- 2166,2170 ---- if {$@select_by == "selrect"} {set wire_color $look(wirefg2)} {set wire_color $look(wirefg)} #set wire_color $look(wirefg) ! $self item WIRE line $xys -width $look(wirethick) -smooth yes \ -arrow $arrow -arrowshape $arrowshape -fill $wire_color *************** *** 3415,3416 **** --- 3466,3468 ---- post_hierarchy thing

+