[PD-cvs] pd/src desire.tk,1.1.2.600.2.204,1.1.2.600.2.205

Mathieu Bouchard matju at users.sourceforge.net
Sat Jul 7 02:00:49 CEST 2007


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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
improved version reporting on startup


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.204
retrieving revision 1.1.2.600.2.205
diff -C2 -d -r1.1.2.600.2.204 -r1.1.2.600.2.205
*** desire.tk	6 Jul 2007 23:50:48 -0000	1.1.2.600.2.204
--- desire.tk	7 Jul 2007 00:00:45 -0000	1.1.2.600.2.205
***************
*** 1,4 ****
  #!/usr/bin/env wish
! # $Id$
  #-----------------------------------------------------------------------------------#
  #
--- 1,4 ----
  #!/usr/bin/env wish
! set cvsid {$Id$}
  #-----------------------------------------------------------------------------------#
  #
***************
*** 748,751 ****
--- 748,753 ----
  		lappend ::pd_apilist2 "-[string tolower [lindex $api 0]]"
  	}
+ 	set version [regsub "^DesireData " $::pd_version ""]
+ 	post "DesireData server version $version"
  }
  
***************
*** 789,793 ****
      wm title . "DesireData"
      catch {wm iconphoto . icon_pd}
!     post "DesireData 0.40, Tcl %s, Tk %s" $::tcl_patchLevel $::tk_patchLevel
  }
  
--- 791,797 ----
      wm title . "DesireData"
      catch {wm iconphoto . icon_pd}
!     regexp {\d\d\d\d/\d\d/\d\d} $::cvsid version
!     regsub -all "/" $version "." version
!     post "DesireData client version $version with Tcl %s and Tk %s" $::tcl_patchLevel $::tk_patchLevel
  }
  





More information about the Pd-cvs mailing list