diff options
| author | N.N. <matju@users.sourceforge.net> | 2009-05-16 19:43:04 +0000 |
|---|---|---|
| committer | N.N. <matju@users.sourceforge.net> | 2009-05-16 19:43:04 +0000 |
| commit | 6f06ed7291700917920c970b33cc01de9151b75c (patch) | |
| tree | 32cca1caabb2dc41649df6f4cfa306d627a68c94 /desiredata/src/desire.tk | |
| parent | f2b59c47be6d17d7198a26e8d87bf42296632dde (diff) | |
show svn version number of desire.tk
svn path=/trunk/; revision=11397
Diffstat (limited to 'desiredata/src/desire.tk')
| -rw-r--r-- | desiredata/src/desire.tk | 12 |
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} { |