[PD-cvs] pd/src desire.tk,1.1.2.600.2.195,1.1.2.600.2.196

[Mathieu Bouchard]

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/