[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