pd/src desire.tk,1.1.2.228,1.1.2.229 - Pd-cvs

12 Jun 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