aboutsummaryrefslogtreecommitdiff
path: root/desiredata/src
diff options
context:
space:
mode:
authorN.N. <matju@users.sourceforge.net>2009-05-16 19:43:04 +0000
committerN.N. <matju@users.sourceforge.net>2009-05-16 19:43:04 +0000
commit6f06ed7291700917920c970b33cc01de9151b75c (patch)
tree32cca1caabb2dc41649df6f4cfa306d627a68c94 /desiredata/src
parentf2b59c47be6d17d7198a26e8d87bf42296632dde (diff)
show svn version number of desire.tk
svn path=/trunk/; revision=11397
Diffstat (limited to 'desiredata/src')
-rw-r--r--desiredata/src/desire.tk12
1 files changed, 7 insertions, 5 deletions
diff --git a/desiredata/src/desire.tk b/desiredata/src/desire.tk
index c9b5fb2f..13e9e7ba 100644
--- a/desiredata/src/desire.tk
+++ b/desiredata/src/desire.tk
@@ -1,5 +1,5 @@
#!/usr/bin/env wish
-set cvsid {$Id$}
+set svnid {$Id$}
#-----------------------------------------------------------------------------------#
#
# DesireData
@@ -936,11 +936,13 @@ def Client init_controls {} {
. configure -menu .mbar
wm title . "DesireData"
catch {wm iconphoto . icon_pd}
- #regexp {\d\d\d\d/\d\d/\d\d} $::cvsid version
- #regsub -all "/" $version "." version
- set version "svn"
+ regexp {\d\d\d\d-\d\d-\d\d} $::svnid date
+ regsub -all "/" $date "." date
+ regexp {desire.tk (\d+)} $::svnid blah revision
+ set version "svn#$revision ($date)"
set ::pd_version_client $version
- post "DesireData client version $version with Tcl %s and Tk %s" $::tcl_patchLevel $::tk_patchLevel
+ post "DesireData client version $version"
+ post "Using Tcl %s and Tk %s" $::tcl_patchLevel $::tk_patchLevel
}
proc pdtk_pd_dsp {value} {