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 }