Changeset 6566


Ignore:
Timestamp:
Oct 26, 2016 11:53:50 AM (6 years ago)
Author:
ldelgass
Message:

merge trunk to blt4_trunk

Location:
branches/blt4_trunk
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • branches/blt4_trunk

  • branches/blt4_trunk/gui/scripts/main.tcl

    r6497 r6566  
    335335$f.analyze buildMenu $m $url $app
    336336
    337 
    338337# ----------------------------------------------------------------------
    339338# Finalize the arrangement
     
    405404
    406405# let components (loaders) settle after the newly loaded runs
    407 update
     406#
     407# This update was put in to allow the loader to wait for all the
     408# widgets to get created before updating them with whatever is the
     409# default for the loader.
     410#
     411# This update is a source of problems for tools that are 1) loading
     412# previously saved/shared simulation results and 2) talk to a visualization
     413# server.
     414#
     415# So we're commenting out the "update".  It may need to go back
     416# if this breaks loaders with a default setting.
     417#update
    408418
    409419foreach path [array names ::Rappture::parameters] {
  • branches/blt4_trunk/gui/scripts/map.tcl

    r6548 r6566  
    463463                $_tree set $child "wms.$key" $value
    464464            }
     465            # These are optional
     466            foreach key { times frameSeconds } {
     467                set value [$layers get $layer.wms.$key]
     468                if { $value != "" } {
     469                    if {$key == "times"} {
     470                        # Normalize whitespace
     471                        regsub -all "\[ \t\r\n\]+" [string trim $value] " " value
     472                    }
     473                    $_tree set $child "wms.$key" $value
     474                }
     475            }
    465476            $_tree set $child "driver" "wms"
    466477        }
     
    845856        "wms" {
    846857            array set params $driverParamArray
    847             foreach key { url layers format transparent } {
     858            foreach key { url layers format transparent times frameSeconds } {
    848859                if {[info exists params($key)]} {
    849860                    set value $params($key)
     861                    if {$key == "times"} {
     862                        # Normalize whitespace
     863                        regsub -all "\[ \t\r\n\]+" [string trim $value] " " value
     864                    }
    850865                    $_tree set $child "wms.$key" $value
    851866                }
  • branches/blt4_trunk/gui/scripts/mapviewer.tcl

    r6548 r6566  
    27792779                }
    27802780                "wms" {
    2781                     SendCmd [list map layer add $tag image wms \
    2782                                  $info(wms.url) $info(cache) $coverage \
    2783                                  $info(wms.layers) \
    2784                                  $info(wms.format) \
    2785                                  $info(wms.transparent)]
     2781                    if {[info exists info(wms.times)]} {
     2782                        SendCmd [list map layer add $tag image wms \
     2783                                     $info(wms.url) $info(cache) $coverage \
     2784                                     $info(wms.layers) \
     2785                                     $info(wms.format) \
     2786                                     $info(wms.transparent) \
     2787                                     $info(wms.times) \
     2788                                     $info(wms.frameSeconds)]
     2789                    } else {
     2790                        SendCmd [list map layer add $tag image wms \
     2791                                     $info(wms.url) $info(cache) $coverage \
     2792                                     $info(wms.layers) \
     2793                                     $info(wms.format) \
     2794                                     $info(wms.transparent)]
     2795                    }
    27862796                }
    27872797                "xyz" {
     
    31873197                -minbias 1000
    31883198                -opacity 1.0
    3189                 -removedupes 1
    31903199                -xoffset 0
    31913200                -yoffset 0
     
    32103219                    SendFiles $info(ogr.url)
    32113220                    if {[info exists style(-minrange)] && [info exists style(-maxrange)]} {
    3212                         SendCmd [list map layer add $tag text ogr {} {} $info(ogr.url) $info(cache) $contentExpr $priorityExpr $fgR $fgG $fgB $bgR $bgG $bgB $style(-halowidth) $style(-fontsize) $style(-removedupes) $style(-declutter) $style(-align) $style(-xoffset) $style(-yoffset) $style(-minrange) $style(-maxrange)]
     3221                        SendCmd [list map layer add $tag text ogr {} {} $info(ogr.url) $info(cache) $contentExpr $priorityExpr $fgR $fgG $fgB $bgR $bgG $bgB $style(-halowidth) $style(-fontsize) $style(-declutter) $style(-align) $style(-xoffset) $style(-yoffset) $style(-minrange) $style(-maxrange)]
    32133222                    } else {
    3214                         SendCmd [list map layer add $tag text ogr {} {} $info(ogr.url) $info(cache) $contentExpr $priorityExpr $fgR $fgG $fgB $bgR $bgG $bgB $style(-halowidth) $style(-fontsize) $style(-removedupes) $style(-declutter) $style(-align) $style(-xoffset) $style(-yoffset)]
     3223                        SendCmd [list map layer add $tag text ogr {} {} $info(ogr.url) $info(cache) $contentExpr $priorityExpr $fgR $fgG $fgB $bgR $bgG $bgB $style(-halowidth) $style(-fontsize) $style(-declutter) $style(-align) $style(-xoffset) $style(-yoffset)]
    32153224                    }
    32163225                }
     
    32213230                    }
    32223231                    if {[info exists style(-minrange)] && [info exists style(-maxrange)]} {
    3223                         SendCmd [list map layer add $tag text tfs $format {} $info(tfs.url) $info(cache) $contentExpr $priorityExpr $fgR $fgG $fgB $bgR $bgG $bgB $style(-halowidth) $style(-fontsize) $style(-removedupes) $style(-declutter) $style(-align) $style(-xoffset) $style(-yoffset) $style(-minrange) $style(-maxrange)]
     3232                        SendCmd [list map layer add $tag text tfs $format {} $info(tfs.url) $info(cache) $contentExpr $priorityExpr $fgR $fgG $fgB $bgR $bgG $bgB $style(-halowidth) $style(-fontsize) $style(-declutter) $style(-align) $style(-xoffset) $style(-yoffset) $style(-minrange) $style(-maxrange)]
    32243233                    } else {
    3225                         SendCmd [list map layer add $tag text tfs $format {} $info(tfs.url) $info(cache) $contentExpr $priorityExpr $fgR $fgG $fgB $bgR $bgG $bgB $style(-halowidth) $style(-fontsize) $style(-removedupes) $style(-declutter) $style(-align) $style(-xoffset) $style(-yoffset)]
     3234                        SendCmd [list map layer add $tag text tfs $format {} $info(tfs.url) $info(cache) $contentExpr $priorityExpr $fgR $fgG $fgB $bgR $bgG $bgB $style(-halowidth) $style(-fontsize) $style(-declutter) $style(-align) $style(-xoffset) $style(-yoffset)]
    32263235                    }
    32273236                }
     
    32323241                    }
    32333242                    if {[info exists style(-minrange)] && [info exists style(-maxrange)]} {
    3234                         SendCmd [list map layer add $tag text wfs $format $info(wfs.typename) $info(wfs.url) $contentExpr $priorityExpr $fgR $fgG $fgB $bgR $bgG $bgB $style(-halowidth) $style(-fontsize) $style(-removedupes) $style(-declutter) $style(-align) $style(-xoffset) $style(-yoffset) $style(-minrange) $style(-maxrange)]
     3243                        SendCmd [list map layer add $tag text wfs $format $info(wfs.typename) $info(wfs.url) $contentExpr $priorityExpr $fgR $fgG $fgB $bgR $bgG $bgB $style(-halowidth) $style(-fontsize) $style(-declutter) $style(-align) $style(-xoffset) $style(-yoffset) $style(-minrange) $style(-maxrange)]
    32353244                    } else {
    3236                         SendCmd [list map layer add $tag text wfs $format $info(wfs.typename) $info(wfs.url) $contentExpr $priorityExpr $fgR $fgG $fgB $bgR $bgG $bgB $style(-halowidth) $style(-fontsize) $style(-removedupes) $style(-declutter) $style(-align) $style(-xoffset) $style(-yoffset)]
     3245                        SendCmd [list map layer add $tag text wfs $format $info(wfs.typename) $info(wfs.url) $contentExpr $priorityExpr $fgR $fgG $fgB $bgR $bgG $bgB $style(-halowidth) $style(-fontsize) $style(-declutter) $style(-align) $style(-xoffset) $style(-yoffset)]
    32373246                    }
    32383247                }
Note: See TracChangeset for help on using the changeset viewer.