Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14911
Modified Files: Tag: desiredata desire.tk Log Message: get version number from s_main.c
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.195 retrieving revision 1.1.2.600.2.196 diff -C2 -d -r1.1.2.600.2.195 -r1.1.2.600.2.196 *** desire.tk 30 Jun 2007 11:31:31 -0000 1.1.2.600.2.195 --- desire.tk 30 Jun 2007 14:27:29 -0000 1.1.2.600.2.196 *************** *** 742,746 ****
proc pd_startup {version apilist midiapilist args} { ! set ::pd_myversion $version set ::pd_apilist $apilist set ::pd_midiapilist $midiapilist --- 742,746 ----
proc pd_startup {version apilist midiapilist args} { ! set ::pd_version $version set ::pd_apilist $apilist set ::pd_midiapilist $midiapilist *************** *** 1464,1468 **** set bigstring [read $f 1000] regsub -all PD_BASEDIR $bigstring $::pd_guidir bigstring ! regsub -all PD_VERSION $bigstring $::pd_myversion bigstring $w.1.text insert end $bigstring } --- 1464,1468 ---- set bigstring [read $f 1000] regsub -all PD_BASEDIR $bigstring $::pd_guidir bigstring ! regsub -all PD_VERSION $bigstring $::pd_version bigstring $w.1.text insert end $bigstring } *************** *** 7968,7972 **** super close wm title .$self "About DesireData" ! pack [label .$self.title -text "DesireData 0.39.A.pre5" -font {helvetica 24}] -side top pack [label .$self.date -text "released on 2006.12.??"] -side top pack [text .$self.text -yscrollcommand ".$self.scroll set" -width 72 --- 7968,7972 ---- super close wm title .$self "About DesireData" ! pack [label .$self.title -text $::pd_version -font {helvetica 24}] -side top pack [label .$self.date -text "released on 2006.12.??"] -side top pack [text .$self.text -yscrollcommand ".$self.scroll set" -width 72 *************** *** 7974,7979 **** pack [scrollbar .$self.scroll -command ".$self.text yview"] -side right -fill y -expand yes #12345678901234567890123456789012345678901234567890123456789012345678901 <- 72 chars ! .$self.text insert 0.0 "\ ! DesireData is a free (libre) real-time computer programming language interpreter focused on realtime audio and video. You can get DesireData from http://desiredata.goto10.org/ --- 7974,7979 ---- pack [scrollbar .$self.scroll -command ".$self.text yview"] -side right -fill y -expand yes #12345678901234567890123456789012345678901234567890123456789012345678901 <- 72 chars ! .$self.text insert 0.0 \ ! "DesireData is a free (libre) real-time computer programming language interpreter focused on realtime audio and video. You can get DesireData from http://desiredata.goto10.org/