From 6f06ed7291700917920c970b33cc01de9151b75c Mon Sep 17 00:00:00 2001
From: "N.N." <matju@users.sourceforge.net>
Date: Sat, 16 May 2009 19:43:04 +0000
Subject: show svn version number of desire.tk

svn path=/trunk/; revision=11397
---
 desiredata/src/desire.tk | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

(limited to 'desiredata')

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} {
-- 
cgit v1.2.1