aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorN.N. <matju@users.sourceforge.net>2009-06-13 16:47:59 +0000
committerN.N. <matju@users.sourceforge.net>2009-06-13 16:47:59 +0000
commit546b21987706d5112b41d43a8037a8fc75bbfd7e (patch)
tree8c44e5c8b78c19413550e2141220b5d97435fbad
parentb3c2325d5d9382e6d566a2265a5ab677d9bfdd43 (diff)
fix version when $Id$ lacks
svn path=/trunk/; revision=11763
-rw-r--r--desiredata/src/desire.tk16
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 {} {