[PD-cvs] pd/src desire.tk,1.1.2.600.2.206,1.1.2.600.2.207

chunlee chunlee at users.sourceforge.net
Mon Jul 9 12:27:28 CEST 2007


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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
fix CanvasPropertiesDialog


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.206
retrieving revision 1.1.2.600.2.207
diff -C2 -d -r1.1.2.600.2.206 -r1.1.2.600.2.207
*** desire.tk	8 Jul 2007 12:57:55 -0000	1.1.2.600.2.206
--- desire.tk	9 Jul 2007 10:27:23 -0000	1.1.2.600.2.207
***************
*** 1569,1572 ****
--- 1569,1581 ----
      set @pointer_sense 30
      set @keyprefix 0
+     # default #X coords line
+     set @coordsx1 0
+     set @coordsy1 -1
+     set @coordsx2 1
+     set @coordsy2 1
+     set @pixwidth 85
+     set @pixheight 60
+     set @xmargin 0
+     set @ymargin 0
  }
  
***************
*** 1619,1629 ****
  	  set @pixheight [lindex $mess 7]
  	  switch [llength $mess] {
! 	    8  {set @gop 0; set @mess_len 8}
! 	    9  {set @gop [lindex $mess 8]; set @mess_len 9}
  	    11 {
  		set @gop [lindex $mess 8]
  		set @xmargin [lindex $mess 9]
  		set @ymargin [lindex $mess 10]
- 		set @mess_len 11
  	    }
  	    default {error "what???"}
--- 1628,1637 ----
  	  set @pixheight [lindex $mess 7]
  	  switch [llength $mess] {
! 	    8  {set @gop 0}
! 	    9  {set @gop [lindex $mess 8]}
  	    11 {
  		set @gop [lindex $mess 8]
  		set @xmargin [lindex $mess 9]
  		set @ymargin [lindex $mess 10]
  	    }
  	    default {error "what???"}
***************
*** 1640,1653 ****
  
  # doesn't this look like Canvas deconstruct ?
- # why does @mess_len even exist ?
  def Canvas get_mess {} {
! 	if {$@mess_len != 11} {
! 		return [list $@coordsx1 $@coordsy1 $@coordsx2 $@coordsy2 $@pixwidth $@pixheight]
! 	} else {
! 		return [list $@coordsx1 $@coordsy1 $@coordsx2 $@coordsy2 $@pixwidth $@pixheight\
! 			   $@xmargin $@ymargin]
! 	}
  }
  
  def Canvas margin {} {
  	return [list $@xmargin $@ymargin]
--- 1648,1656 ----
  
  # doesn't this look like Canvas deconstruct ?
  def Canvas get_mess {} {
! 	return [list $@coordsx1 $@coordsy1 $@coordsx2 $@coordsy2 $@pixwidth $@pixheight $@xmargin $@ymargin]
  }
  
+ 
  def Canvas margin {} {
  	return [list $@xmargin $@ymargin]
***************
*** 5327,5336 ****
  	set @width [lindex $mess 4]
  	set @height [lindex $mess 5]
  	if {!$@width} {set @width 85}; if {!$@height} {set @height 60}
- 	if {[llength $mess] == 8} {
- 		set @xmargin [lindex $mess 6]; set @ymargin [lindex $mess 7]
- 	} else {
- 		set @xmargin 0; set @ymargin 0
- 	}
  	$self add .$self [list gop toggle -command "$self gop_setting"]
  	for {set i 1} {$i<[llength $@properties]} {incr i} {
--- 5330,5336 ----
  	set @width [lindex $mess 4]
  	set @height [lindex $mess 5]
+ 	set @xmargin [lindex $mess 6]
+ 	set @ymargin [lindex $mess 7]
  	if {!$@width} {set @width 85}; if {!$@height} {set @height 60}
  	$self add .$self [list gop toggle -command "$self gop_setting"]
  	for {set i 1} {$i<[llength $@properties]} {incr i} {





More information about the Pd-cvs mailing list