diff options
author | N.N. <matju@users.sourceforge.net> | 2009-06-13 16:47:59 +0000 |
---|---|---|
committer | N.N. <matju@users.sourceforge.net> | 2009-06-13 16:47:59 +0000 |
commit | 546b21987706d5112b41d43a8037a8fc75bbfd7e (patch) | |
tree | 8c44e5c8b78c19413550e2141220b5d97435fbad | |
parent | b3c2325d5d9382e6d566a2265a5ab677d9bfdd43 (diff) |
fix version when $Id$ lacks
svn path=/trunk/; revision=11763
-rw-r--r-- | desiredata/src/desire.tk | 16 |
1 files changed, 6 insertions, 10 deletions
diff --git a/desiredata/src/desire.tk b/desiredata/src/desire.tk index 04ecec33..fbf77732 100644 --- a/desiredata/src/desire.tk +++ b/desiredata/src/desire.tk @@ -784,9 +784,6 @@ set look(Box:extrapix) [switch $::OS { #set look(View:frame2) #668888 #set look(View:frame3) #000000 -#!@#$ this is supposed to be BlueBox! -#set look(Slider:bg) #ccebff - set zoom(canned) [list 25 33 50 75 100 125 150 200 250 300 400] set scale_amount 1.1 ################## set up main window ######################### @@ -905,10 +902,11 @@ def Client init_controls {} { . configure -menu .mbar wm title . "DesireData" catch {wm iconphoto . icon_pd_32} - 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)" + if {[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 version "(unknown svn version)"} set ::pd_version_client $version post "DesireData client version $version" post "Using Tcl %s and Tk %s" $::tcl_patchLevel $::tk_patchLevel @@ -4863,9 +4861,7 @@ def Canvas arrow_key {val1 val2} { set o [$@selection values] if {[[$o class] <= IEMGUI] || [[$o class] == FloatBox]} {$o key_incr $val1 $val2} } - } else { - $self selection_move $val1 $val2 - } + } else {$self selection_move $val1 $val2} } def Canvas clear_selection {} { |