[PD-cvs] pd/src desire.tk,1.1.2.118,1.1.2.119
chunlee
chunlee at users.sourceforge.net
Fri Nov 11 02:51:08 CET 2005
- Previous message: [PD-cvs] externals/maxlib/src allow.c, 1.4, 1.5 arbran.c, 1.7, 1.8 arraycopy.c, 1.4, 1.5 average.c, 1.5, 1.6 beat.c, 1.5, 1.6 beta.c, 1.6, 1.7 bilex.c, 1.5, 1.6 borax.c, 1.5, 1.6 cauchy.c, 1.5, 1.6 chord.c, 1.6, 1.7 delta.c, 1.5, 1.6 deny.c, 1.4, 1.5 dist.c, 1.5, 1.6 divide.c, 1.5, 1.6 divmod.c, 1.5, 1.6 edge.c, 1.5, 1.6 expo.c, 1.6, 1.7 fifo.c, 1.6, 1.7 gauss.c, 1.5, 1.6 gestalt.c, 1.6, 1.7 history.c, 1.5, 1.6 ignore.c, 1.5, 1.6 iso.c, 1.5, 1.6 lifo.c, 1.7, 1.8 limit.c, 1.5, 1.6 linear.c, 1.6, 1.7 listfifo.c, 1.4, 1.5 listfunnel.c, 1.5, 1.6 match.c, 1.5, 1.6 minus.c, 1.5, 1.6 mlife.c, 1.6, 1.7 multi.c, 1.5, 1.6 nchange.c, 1.4, 1.5 netclient.c, 1.11, 1.12 netdist.c, 1.8, 1.9 netrec.c, 1.12, 1.13 netserver.c, 1.13, 1.14 nroute.c, 1.6, 1.7 pitch.c, 1.6, 1.7 plus.c, 1.6, 1.7 poisson.c, 1.6, 1.7 pong.c, 1.6, 1.7 pulse.c, 1.6, 1.7 remote.c, 1.7, 1.8 rewrap.c, 1.6, 1.7 rhythm.c, 1.6, 1.7 scale.c, 1.5, 1.6 score.c, 1.6, 1.7 speedlim.c, 1.5, 1.6 split.c, 1.5, 1.6 step.c, 1.6, 1.7 subst.c, 1.6, 1.7 sync.c, 1.4, 1.5 temperature.c, 1.6, 1.7 tilt.c, 1.6, 1.7 timebang.c, 1.5, 1.6 triang.c, 1.6, 1.7 unroute.c, 1.6, 1.7 urn.c, 1.6, 1.7 velocity.c, 1.5, 1.6 weibull.c, 1.5, 1.6 wrap.c, 1.5, 1.6
- Next message: [PD-cvs] packages/darwin_app/patches extended-help-menu.patch, 1.2, 1.3
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25697
Modified Files:
Tag: devel_0_39
desire.tk
Log Message:
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.118
retrieving revision 1.1.2.119
diff -C2 -d -r1.1.2.118 -r1.1.2.119
*** desire.tk 10 Nov 2005 16:16:58 -0000 1.1.2.118
--- desire.tk 11 Nov 2005 01:51:06 -0000 1.1.2.119
***************
*** 615,618 ****
--- 615,619 ----
osx {list 2}
default {list 1}}]
+ set look(minobjwidth) 21
#-----------------------------------------------------------------------------------#
***************
*** 1215,1225 ****
global font look
set @textwidth [expr $font(padx)+$font(width)*([string length $@text]+$@edit)]
- #set @textwidth [expr $font(width)*([string length $@text]+$@edit)]
set @topwidth [expr ($@ninlets + ($@ninlets - 1)) * $look(iowidth)]
set @bottomwidth [expr ($@noutlets + ($@noutlets - 1)) * $look(iowidth)]
! set @xs [max $@bottomwidth [max $@topwidth $@textwidth]]
! #set @textchars [expr int([max $@bottomwidth [max $@topwidth $@textwidth]]/$font(width)) + 1]
! #puts "roundoff:$@textchars"
! #set @xs [expr $@textchars * $font(width)]
set @ys [expr $font(pady)+$font(height)]
#puts "inlet = $@ninlets/$@topwidth | \
--- 1216,1223 ----
global font look
set @textwidth [expr $font(padx)+$font(width)*([string length $@text]+$@edit)]
set @topwidth [expr ($@ninlets + ($@ninlets - 1)) * $look(iowidth)]
set @bottomwidth [expr ($@noutlets + ($@noutlets - 1)) * $look(iowidth)]
! set @xs [max $look(minobjwidth) [max $@bottomwidth [max $@topwidth $@textwidth]]]
!
set @ys [expr $font(pady)+$font(height)]
#puts "inlet = $@ninlets/$@topwidth | \
***************
*** 1243,1259 ****
#set @text $args
set @edit 0
- #if {[info exists _($canvas:selection)]} {
- # if {[llength [$canvas obj_in_edit]]} {
- # set object [lindex $_($canvas:selection) 0]
- # $object unedit
- # }
- # foreach obj $_($canvas:selection) {
- # .$canvas.c itemconfigure ${obj}BASE -outline $look(objectframe3)
- # }
- # set _($canvas:selection) {}
- #}
- #$canvas obj_in_edit= 1
- #$canvas selection= $self
- #puts "new objectbox has text '$@text'"
}
--- 1241,1244 ----
***************
*** 1456,1467 ****
$c coords lnew $l
}
- switch $@action {
- edit {
- if {[distance [list $x $y] $@click_at] > 5} {
- set @action move
- mset {ox oy} $@click_at
- }
- }
- }
switch $@action {
move {
--- 1441,1444 ----
***************
*** 1475,1484 ****
$c coords selrect $x1 $y1 $x2 $y1 $x2 $y2 $x1 $y2 $x1 $y1
}
}
! if {[string length $@focus]} {
! if {$@editmode} {set event motionedit} {set event motion}
! $@focus $event $self $x $y $mods
! return
! }
mset {type id} [$self identify_target $x $y -1 -1 "move "]
switch $type {
--- 1452,1467 ----
$c coords selrect $x1 $y1 $x2 $y1 $x2 $y2 $x1 $y2 $x1 $y1
}
+ edit {
+ if {[distance [list $x $y] $@click_at] > 5} {
+ set @action move
+ mset {ox oy} $@click_at
+ }
+ }
}
! # if {[string length $@focus]} {
! # if {$@editmode} {set event motionedit} {set event motion}
! # $@focus $event $self $x $y $mods
! # return
! # }
mset {type id} [$self identify_target $x $y -1 -1 "move "]
switch $type {
***************
*** 1491,1495 ****
set port [$id hilite_io i $x $y]
set @dehighlight "$c delete ${id}i${port}b; set wire_to {}"
- set wire_to [list $id $port]
return
}
--- 1474,1477 ----
***************
*** 1670,1673 ****
--- 1652,1656 ----
global look
set c .$self.c
+ puts "_____ unclickedit action:$@action "
switch $@action {
rect {
***************
*** 1699,1702 ****
--- 1682,1686 ----
$c delete lnew
mset {type id} [$@canvas identify_target $x $y [expr $x-1] [expr $y-1] "unclick"]
+ if {$id != ""} {
mset {x1 y1 x2 y2} [$id bbox]
set ins 0; set ins [$id ninlets]
***************
*** 1706,1709 ****
--- 1690,1694 ----
}
puts "connect $@wire_from $@wire_to"
+ }
}
edit {
***************
*** 2074,2083 ****
set i 1
set class [lindex $d $i]
- puts "class = $class"
switch -- $class {
canvas {set class canvas}
obj {set i 4; set class [lindex $d 4]}
}
!
if {![info exists _($x:_class)]} {
--- 2059,2067 ----
set i 1
set class [lindex $d $i]
switch -- $class {
canvas {set class canvas}
obj {set i 4; set class [lindex $d 4]}
}
! puts "class = $class"
if {![info exists _($x:_class)]} {
***************
*** 2499,2505 ****
#-----------------------------------------------------------------------------------#
-
class_new bang {view}
! #def bang init {} {super}
def bang draw {} {
--- 2483,2496 ----
#-----------------------------------------------------------------------------------#
class_new bang {view}
! def bang init {} {
! super
! puts "init bang!!!!!!!"
! }
!
! def bang ninlets= {v} {set @ninlets $v}
! def bang noutlets= {v} {set @noutlets $v}
! def bang ninlets {} {return $@ninlets}
! def bang noutlets {} {return $@noutlets}
def bang draw {} {
***************
*** 2508,2512 ****
set @noutlets [expr [string compare $@snd empty]==0]
set colour [parse_color $@bcol]
! super
set xs $@w; set x2 [expr $x1+$xs]
set ys $@w; set y2 [expr $y1+$ys]
--- 2499,2503 ----
set @noutlets [expr [string compare $@snd empty]==0]
set colour [parse_color $@bcol]
! #super
set xs $@w; set x2 [expr $x1+$xs]
set ys $@w; set y2 [expr $y1+$ys]
- Previous message: [PD-cvs] externals/maxlib/src allow.c, 1.4, 1.5 arbran.c, 1.7, 1.8 arraycopy.c, 1.4, 1.5 average.c, 1.5, 1.6 beat.c, 1.5, 1.6 beta.c, 1.6, 1.7 bilex.c, 1.5, 1.6 borax.c, 1.5, 1.6 cauchy.c, 1.5, 1.6 chord.c, 1.6, 1.7 delta.c, 1.5, 1.6 deny.c, 1.4, 1.5 dist.c, 1.5, 1.6 divide.c, 1.5, 1.6 divmod.c, 1.5, 1.6 edge.c, 1.5, 1.6 expo.c, 1.6, 1.7 fifo.c, 1.6, 1.7 gauss.c, 1.5, 1.6 gestalt.c, 1.6, 1.7 history.c, 1.5, 1.6 ignore.c, 1.5, 1.6 iso.c, 1.5, 1.6 lifo.c, 1.7, 1.8 limit.c, 1.5, 1.6 linear.c, 1.6, 1.7 listfifo.c, 1.4, 1.5 listfunnel.c, 1.5, 1.6 match.c, 1.5, 1.6 minus.c, 1.5, 1.6 mlife.c, 1.6, 1.7 multi.c, 1.5, 1.6 nchange.c, 1.4, 1.5 netclient.c, 1.11, 1.12 netdist.c, 1.8, 1.9 netrec.c, 1.12, 1.13 netserver.c, 1.13, 1.14 nroute.c, 1.6, 1.7 pitch.c, 1.6, 1.7 plus.c, 1.6, 1.7 poisson.c, 1.6, 1.7 pong.c, 1.6, 1.7 pulse.c, 1.6, 1.7 remote.c, 1.7, 1.8 rewrap.c, 1.6, 1.7 rhythm.c, 1.6, 1.7 scale.c, 1.5, 1.6 score.c, 1.6, 1.7 speedlim.c, 1.5, 1.6 split.c, 1.5, 1.6 step.c, 1.6, 1.7 subst.c, 1.6, 1.7 sync.c, 1.4, 1.5 temperature.c, 1.6, 1.7 tilt.c, 1.6, 1.7 timebang.c, 1.5, 1.6 triang.c, 1.6, 1.7 unroute.c, 1.6, 1.7 urn.c, 1.6, 1.7 velocity.c, 1.5, 1.6 weibull.c, 1.5, 1.6 wrap.c, 1.5, 1.6
- Next message: [PD-cvs] packages/darwin_app/patches extended-help-menu.patch, 1.2, 1.3
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the Pd-cvs
mailing list