[PD-cvs] pd/src desire.tk,1.1.2.452,1.1.2.453

[Mathieu Bouchard]

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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
fixed bug in GAtomProperties (swapping of send/receive symbols)


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.452
retrieving revision 1.1.2.453
diff -C2 -d -r1.1.2.452 -r1.1.2.453
*** desire.tk	2 Sep 2006 04:10:00 -0000	1.1.2.452
--- desire.tk	3 Sep 2006 16:46:22 -0000	1.1.2.453
***************
*** 1798,1806 ****
  }
  
- def ObjectBox unedit {} {
- 	super
- 	$self erase ;# (why?)
- }
- 
  #-----------------------------------------------------------------------------------#
  def Canvas name=   {name}    {set @name   $name  ; $self update_title}
--- 1798,1801 ----
***************
*** 2245,2249 ****
  
  def Canvas cut {} {
! 	$@history atomically "Cut" {
  		$self copy
  		$self delete_selection
--- 2240,2244 ----
  
  def Canvas cut {} {
! 	$@history atomically [list cut] {
  		$self copy
  		$self delete_selection
***************
*** 3182,3187 ****
  set fields(vdl)    $fields(hradio)
  set fields(coords)     {foo bar xfrom yfrom xto yto w h gop x1 y1} ;# goes with #N canvas
! set fields(floatatom)  {foo bar x1 y1 w min max pos lab snd rcv}
! set fields(symbolatom) {foo bar x1 y1 w min max pos lab snd rcv}
  set fields(array)      {name n elemtype flags}
  
--- 3177,3182 ----
  set fields(vdl)    $fields(hradio)
  set fields(coords)     {foo bar xfrom yfrom xto yto w h gop x1 y1} ;# goes with #N canvas
! set fields(floatatom)  {foo bar x1 y1 w min max pos lab rcv snd}
! set fields(symbolatom) {foo bar x1 y1 w min max pos lab rcv snd}
  set fields(array)      {name n elemtype flags}
  
***************
*** 3525,3528 ****
--- 3520,3532 ----
  }
  
+ class_new WirePropertiesDialog {PropertiesDialog}
+ def Box popup_properties {} {WirePropertiesDialog new $self}
+ def WirePropertiesDialog init {of} {
+ 	super $of
+ 	wm title .$self "Wire Properties"
+ 	pack [label .$self.huh  -text "huh..."]
+ 	pack [label .$self.huh2 -text "this is where some #V properties should go"]
+ }
+ 
  class_new GAtomPropertiesDialog {PropertiesDialog}
  
***************
*** 3536,3540 ****
  	super $of
  	foreach var {w min max pos} {set @$var $_($of:$var)}
! 	foreach var {lab snd rcv} {set @$var [gatom_unescape $_($of:$var)]}
  	wm title .$self "Atom"
  	global properties
--- 3540,3544 ----
  	super $of
  	foreach var {w min max pos} {set @$var $_($of:$var)}
! 	foreach var {lab rcv snd} {set @$var [gatom_unescape $_($of:$var)]}
  	wm title .$self "Atom"
  	global properties
***************
*** 6003,6010 ****
  
  def FontBombDialog init {} {
- 	global font
  	super cancel ok
  	set f .$self
! 	$self add_fontbomb $f foo 
  }
  ############ other stuff #########
--- 6007,6013 ----
  
  def FontBombDialog init {} {
  	super cancel ok
  	set f .$self
! 	$self add_fontbomb $f foo
  }
  ############ other stuff #########