[PD-cvs] pd/src desire.tk,1.1.2.228,1.1.2.229

Mathieu Bouchard matju at users.sourceforge.net
Mon Jun 12 07:58:00 CEST 2006


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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
fixed completion bug


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.228
retrieving revision 1.1.2.229
diff -C2 -d -r1.1.2.228 -r1.1.2.229
*** desire.tk	11 Jun 2006 22:08:39 -0000	1.1.2.228
--- desire.tk	12 Jun 2006 05:57:58 -0000	1.1.2.229
***************
*** 1054,1059 ****
          set dialog [menu_doc_open doc/1.manual 1.introduction.txt]
          wm title $dialog "About Pd"
!         label $dialog.title -text [about_pd] -font {helvetica 24}
!         pack $dialog.title -side top
  }
  
--- 1054,1058 ----
          set dialog [menu_doc_open doc/1.manual 1.introduction.txt]
          wm title $dialog "About Pd"
!         pack [$dialog.title -text [about_pd] -font {helvetica 24}] -side top
  }
  
***************
*** 2701,2705 ****
  		obj {set i 4; set class [lindex $d 4]}
  	}
! 	puts "class -------- $class"
  	if {![info exists _($x:_class)]} {
  		# new object
--- 2700,2704 ----
  		obj {set i 4; set class [lindex $d 4]}
  	}
! 	puts "update_object: class=$class"
  	if {![info exists _($x:_class)]} {
  		# new object
***************
*** 3758,3763 ****
  		}
  	}
- 	.$self.title configure -text [format [say how_many_object_classes] $n [llength $class_list]]
  	if {$@name == "browser"} {
  	}
  	$listbox selection set 0 0
--- 3757,3762 ----
  		}
  	}
  	if {$@name == "browser"} {
+ 		.$self.title configure -text [format [say how_many_object_classes] $n [llength $class_list]]
  	}
  	$listbox selection set 0 0





More information about the Pd-cvs mailing list