[PD-cvs] pd/src desire.tk,1.1.2.600.2.255,1.1.2.600.2.256
chunlee
chunlee at users.sourceforge.net
Tue Jul 31 02:43:28 CEST 2007
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24043
Modified Files:
Tag: desiredata
desire.tk
Log Message:
some small fixes plus chinese.tcl
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.255
retrieving revision 1.1.2.600.2.256
diff -C2 -d -r1.1.2.600.2.255 -r1.1.2.600.2.256
*** desire.tk 30 Jul 2007 15:11:10 -0000 1.1.2.600.2.255
--- desire.tk 31 Jul 2007 00:43:24 -0000 1.1.2.600.2.256
***************
*** 1115,1120 ****
switch $::OS { osx {raise .; wm iconify .; after 100 {wm deiconify .}}}
after 0 {
! Listener new .tcl "Tcl Client" tcl_eval
! Listener new .pd " Pd Server" pd_eval
}
#wm geometry .[$self keyboard_view] -0+0
--- 1115,1120 ----
switch $::OS { osx {raise .; wm iconify .; after 100 {wm deiconify .}}}
after 0 {
! Listener new .tcl [say "tcl_console"] tcl_eval
! Listener new .pd [say "pd_console"] pd_eval
}
#wm geometry .[$self keyboard_view] -0+0
***************
*** 1966,1969 ****
--- 1966,1970 ----
def Canvas new_object {sel args} {
$self editmode= 1
+ $self deselect_all
mset {x y} $@curpos
set x1 [expr $x/$@zoom]
***************
*** 1978,1982 ****
}
def Canvas new_wire_callback {wire} {}
! def Canvas new_object_callback {obj} {if {$@keynav} {$self update_Active $obj}}
def Canvas new_object_select {obj} {$self selection+= $obj}
def Canvas new_wire_select {wire} {$self selection_wire+= $wire}
--- 1979,1988 ----
}
def Canvas new_wire_callback {wire} {}
! def Canvas new_object_callback {obj} {
! set @newest $obj
! set @keynav_last_obj $obj
! $self selection+= $obj
! if {$@keynav} {$self update_Active $obj}
! }
def Canvas new_object_select {obj} {$self selection+= $obj}
def Canvas new_wire_select {wire} {$self selection_wire+= $wire}
***************
*** 6758,6762 ****
-command [list $self choose_col $f $name $v] -relief sunken -background $v \
-highlightbackground "#ffffff" -activebackground [darker $v]
! button $f.preset -text "preset" -pady 2 -font {Helvetica 8} \
-command [list $self color_popup $f $name 10]
bind $f.preset <Return> "$self color_popup $f $name 10"
--- 6764,6768 ----
-command [list $self choose_col $f $name $v] -relief sunken -background $v \
-highlightbackground "#ffffff" -activebackground [darker $v]
! button $f.preset -text [say "preset"] -pady 2 -font {Helvetica 8} \
-command [list $self color_popup $f $name 10]
bind $f.preset <Return> "$self color_popup $f $name 10"
More information about the Pd-cvs
mailing list