[PD-cvs] pd/src desire.tk,1.1.2.573,1.1.2.574

[Mathieu Bouchard]

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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
fixed properties dialog of [tgl] [nbx] [cnv]


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.573
retrieving revision 1.1.2.574
diff -C2 -d -r1.1.2.573 -r1.1.2.574
*** desire.tk	20 Nov 2006 03:12:11 -0000	1.1.2.573
--- desire.tk	20 Nov 2006 03:38:19 -0000	1.1.2.574
***************
*** 2834,2852 ****
  
  def Canvas popup {id x y} {
!   set p .$self.popup
!   catch {destroy $p}
!   menu $p -tearoff false
!   if {$id == ""} {
!     $self populate_menu $p {popup_properties            popup_help}
!   } {
! 	  if {[$id class] == "Wire"} {
! 		  $id   populate_menu $p {popup_insert}
! 	  } else {
! 		  $id   populate_menu $p {popup_properties popup_open popup_help \
! 					  popup_clear_wires popup_auto_wire}
! 	  }
!     
!   }
!   tk_popup $p [expr $x-5] [expr $y-5]
  }
  
--- 2834,2849 ----
  
  def Canvas popup {id x y} {
! 	set p .$self.popup
! 	catch {destroy $p}
! 	menu $p -tearoff false
! 	if {$id == ""} {
! 		$self populate_menu $p {popup_properties popup_help}
! 	} elseif {[$id class] == "Wire"} {
! 		$id populate_menu $p {popup_insert}
! 	} else {
! 		$id populate_menu $p {popup_properties popup_open popup_help 
! 			popup_clear_wires popup_auto_wire}
! 	}
! 	tk_popup $p [expr $x-5] [expr $y-5]
  }
  
***************
*** 4535,4538 ****
--- 4532,4538 ----
  			on     {continue}
  			change {list integer}
+ 			nonzero {list float -width 9}
+ 			log_height {list float -width 9}
+ 			hh {continue}
  			default {error "huh? ($prop)"}
  		}]]
***************
*** 4619,4623 ****
  
  class_new WirePropertiesDialog {PropertiesDialog}
! def Box popup_properties {} {WirePropertiesDialog new $self}
  def WirePropertiesDialog init {of} {
  	super $of
--- 4619,4623 ----
  
  class_new WirePropertiesDialog {PropertiesDialog}
! def Wire popup_properties {} {WirePropertiesDialog new $self}
  def WirePropertiesDialog init {of} {
  	super $of
***************
*** 4864,4867 ****
--- 4864,4869 ----
  
  class_new NumBox {Labeled Box}
+ def Box popup_properties {} {IEMPropertiesDialog new $self}
+ 
  def NumBox init {mess} {
  	super $mess