diff options
| author | patthoyts <patthoyts@users.sourceforge.net> | 2008-06-24 13:37:26 (GMT) |
|---|---|---|
| committer | patthoyts <patthoyts@users.sourceforge.net> | 2008-06-24 13:37:26 (GMT) |
| commit | b7d36d610814188bb5c669e60f0a6adf1f4452be (patch) | |
| tree | 523b812e402b00cf9da815618e4c7a8838116ebc /library | |
| parent | 1c522063702f7be647b0c23ff52131c118fe3f51 (diff) | |
| download | tk-b7d36d610814188bb5c669e60f0a6adf1f4452be.zip tk-b7d36d610814188bb5c669e60f0a6adf1f4452be.tar.gz tk-b7d36d610814188bb5c669e60f0a6adf1f4452be.tar.bz2 | |
Work around missing timezones (eg: tclkit or some unixes)
Diffstat (limited to 'library')
| -rw-r--r-- | library/demos/ttkpane.tcl | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/library/demos/ttkpane.tcl b/library/demos/ttkpane.tcl index 549ef3f..a99a845 100644 --- a/library/demos/ttkpane.tcl +++ b/library/demos/ttkpane.tcl @@ -2,7 +2,7 @@ # # This demonstration script creates a Ttk pane with some content. # -# RCS: @(#) $Id: ttkpane.tcl,v 1.3 2007/12/13 15:27:07 dgp Exp $ +# RCS: @(#) $Id: ttkpane.tcl,v 1.4 2008/06/24 13:37:32 patthoyts Exp $ if {![info exists widgetDemo]} { error "This script should be run from the \"widget\" demo." @@ -53,7 +53,7 @@ proc every {delay script} { uplevel #0 $script after $delay [list every $delay $script] } -set zones { +set testzones { :Europe/Berlin :America/Argentina/Buenos_Aires :Africa/Johannesburg @@ -67,7 +67,13 @@ set zones { } # Force a pre-load of all the timezones needed; otherwise can end up # poor-looking synch problems! -foreach zone $zones {clock format 0 -timezone $zone} +set zones {} +foreach zone $testzones { + if {![catch {clock format 0 -timezone $zone}]} { + lappend zones $zone + } +} +if {[llength $zones] < 2} { lappend zones -0200 :GMT :UTC +0200 } foreach zone $zones { set city [string map {_ " "} [regexp -inline {[^/]+$} $zone]] if {$i} { |