[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