[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