Changeset 6054


Ignore:
Timestamp:
Feb 25, 2016 6:15:09 PM (8 years ago)
Author:
ldelgass
Message:

Prep for multiple map results fixes: make distinction between layer name within
an individual Map object and layer tag name in server.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/gui/scripts/mapviewer.tcl

    r6052 r6054  
    12901290            array unset info
    12911291            array set info [$dataobj layer $layer]
    1292             if { ![info exists _layers($layer)] } {
     1292            set tag $layer
     1293            if { ![info exists _layers($tag)] } {
    12931294                if { $_reportClientInfo }  {
    12941295                    set cinfo {}
    … …  
    12991300                    lappend cinfo "tool_revision" [$dataobj hints toolrevision]
    13001301                    lappend cinfo "dataset_label" [encoding convertto utf-8 $info(label)]
    1301                     lappend cinfo "dataset_tag"   $layer
     1302                    lappend cinfo "dataset_tag"   $tag
    13021303                    SendCmd "clientinfo [list $cinfo]"
    13031304                }
    1304                 set _layers($layer) 1
     1305                set _layers($tag) 1
    13051306                SetLayerStyle $dataobj $layer
    13061307            }
    … …  
    13081309            if { [info exists _obj2ovride($dataobj-raise)] &&
    13091310                 $_obj2ovride($dataobj-raise)} {
    1310                 SendCmd "map layer visible 1 $layer"
    1311                 set _visibility($layer) 1
     1311                SendCmd "map layer visible 1 $tag"
     1312                set _visibility($tag) 1
    13121313            }
    13131314            if {$info(type) == "elevation"} {
    … …  
    13461347        UpdateViewpointControls
    13471348    }
     1349
    13481350    set _reset 0
    13491351    global readyForNextFrame
    … …  
    24002402itcl::body Rappture::MapViewer::SetLayerStyle { dataobj layer } {
    24012403    array set info [$dataobj layer $layer]
     2404    set tag $layer
    24022405    if { [info exists info(visible)] &&
    24032406         !$info(visible) } {
    2404         set _visibility($layer) 0
     2407        set _visibility($tag) 0
    24052408    } else {
    2406         set _visibility($layer) 1
     2409        set _visibility($tag) 1
    24072410    }
    24082411
    … …  
    24202423            if { [info exists info(opacity)] } {
    24212424                set style(-opacity) $info(opacity)
    2422                 set _opacity($layer) $info(opacity)
    2423             }
    2424             set _opacity($layer) [expr $style(-opacity) * 100]
     2425                set _opacity($tag) $info(opacity)
     2426            }
     2427            set _opacity($tag) [expr $style(-opacity) * 100]
    24252428            set coverage 0
    24262429            if { [info exists info(coverage)] } {
    … …  
    24292432            switch -- $info(driver) {
    24302433                "arcgis" {
    2431                     SendCmd [list map layer add $layer image arcgis \
     2434                    SendCmd [list map layer add $tag image arcgis \
    24322435                                 $info(arcgis.url) $info(cache) $coverage $info(arcgis.token)]
    24332436                }
    24342437                "colorramp" {
    2435                     set cmapName $layer
     2438                    set cmapName $tag
    24362439                    SendFiles $info(colorramp.url)
    24372440                    SendCmd [list colormap define $cmapName $info(colorramp.colormap)]
    2438                     SendCmd [list map layer add $layer image colorramp \
     2441                    SendCmd [list map layer add $tag image colorramp \
    24392442                                 $info(colorramp.url) $info(cache) $coverage $info(colorramp.elevdriver) $info(profile)  \
    24402443                                 $cmapName]
    24412444                }
    24422445                "debug" {
    2443                     SendCmd [list map layer add $layer image debug]
     2446                    SendCmd [list map layer add $tag image debug]
    24442447                }
    24452448                "gdal" {
    24462449                    SendFiles $info(gdal.url)
    2447                     SendCmd [list map layer add $layer image gdal \
     2450                    SendCmd [list map layer add $tag image gdal \
    24482451                                 $info(gdal.url) $info(cache) $coverage]
    24492452                }
    24502453                "tms" {
    2451                     SendCmd [list map layer add $layer image tms \
     2454                    SendCmd [list map layer add $tag image tms \
    24522455                                 $info(tms.url) $info(cache) $coverage]
    24532456                }
    24542457                "wms" {
    2455                     SendCmd [list map layer add $layer image wms \
     2458                    SendCmd [list map layer add $tag image wms \
    24562459                                 $info(wms.url) $info(cache) $coverage \
    24572460                                 $info(wms.layers) \
    … …  
    24602463                }
    24612464                "xyz" {
    2462                     SendCmd [list map layer add $layer image xyz \
     2465                    SendCmd [list map layer add $tag image xyz \
    24632466                                 $info(xyz.url) $info(cache) $coverage]
    24642467                }
    24652468            }
    2466             SendCmd "map layer opacity $style(-opacity) $layer"
     2469            SendCmd "map layer opacity $style(-opacity) $tag"
    24672470        }
    24682471        "elevation" {
    … …  
    24772480                "gdal" {
    24782481                    SendFiles $info(gdal.url)
    2479                     SendCmd [list map layer add $layer elevation gdal \
     2482                    SendCmd [list map layer add $tag elevation gdal \
    24802483                                 $info(gdal.url) $info(cache)]
    24812484                }
    24822485                "tms" {
    2483                     SendCmd [list map layer add $layer elevation tms \
     2486                    SendCmd [list map layer add $tag elevation tms \
    24842487                                 $info(tms.url) $info(cache)]
    24852488                }
    24862489                "wcs" {
    2487                     SendCmd [list map layer add $layer elevation wcs \
     2490                    SendCmd [list map layer add $tag elevation wcs \
    24882491                                 $info(wcs.url) $info(cache) $info(wcs.identifier)]
    24892492                }
    … …  
    25012504                set style(-opacity) $info(opacity)
    25022505            }
    2503             set _opacity($layer) [expr $style(-opacity) * 100]
     2506            set _opacity($tag) [expr $style(-opacity) * 100]
    25042507            DebugTrace "stylesheet: $info(stylesheet)"
    25052508            set script ""
    … …  
    25252528            set wfsType ""
    25262529            if { [info exists info(ogr.connection)] } {
    2527                 set cmd [list map layer add $layer feature db $format $info(ogr.layer) $info(ogr.connection) $info(cache) $info(stylesheet) $script $selectors]
     2530                set cmd [list map layer add $tag feature db $format $info(ogr.layer) $info(ogr.connection) $info(cache) $info(stylesheet) $script $selectors]
    25282531                if {[info exists style(-minrange)] && [info exists style(-maxrange)]} {
    25292532                    lappend cmd $style(-minrange) $style(-maxrange)
    25302533                }
    25312534            } else {
    2532                 set cmd [list map layer add $layer feature $info(driver) $format $wfsType $info(ogr.url) $info(cache) $info(stylesheet) $script $selectors]
     2535                set cmd [list map layer add $tag feature $info(driver) $format $wfsType $info(ogr.url) $info(cache) $info(stylesheet) $script $selectors]
    25332536                if {[info exists style(-minrange)] && [info exists style(-maxrange)]} {
    25342537                    lappend cmd $style(-minrange) $style(-maxrange)
    … …  
    25572560                set style(-opacity) $info(opacity)
    25582561            }
    2559             set _opacity($layer) [expr $style(-opacity) * 100]
     2562            set _opacity($tag) [expr $style(-opacity) * 100]
    25602563            foreach {r g b} [Color2RGB $style(-color)] {}
    25612564            switch -- $info(driver)  {
    … …  
    25632566                    SendFiles $info(ogr.url)
    25642567                    if {[info exists style(-minrange)] && [info exists style(-maxrange)]} {
    2565                         SendCmd [list map layer add $layer line ogr {} {} $info(ogr.url) $info(cache) $r $g $b $style(-width) $style(-cap) $style(-join) $style(-stipplepattern) $style(-stipplefactor) $style(-clamping) $style(-clamptechnique) $style(-minrange) $style(-maxrange)]
     2568                        SendCmd [list map layer add $tag line ogr {} {} $info(ogr.url) $info(cache) $r $g $b $style(-width) $style(-cap) $style(-join) $style(-stipplepattern) $style(-stipplefactor) $style(-clamping) $style(-clamptechnique) $style(-minrange) $style(-maxrange)]
    25662569                    } else {
    2567                         SendCmd [list map layer add $layer line ogr {} {} $info(ogr.url) $info(cache) $r $g $b $style(-width) $style(-cap) $style(-join) $style(-stipplepattern) $style(-stipplefactor) $style(-clamping) $style(-clamptechnique)]
     2570                        SendCmd [list map layer add $tag line ogr {} {} $info(ogr.url) $info(cache) $r $g $b $style(-width) $style(-cap) $style(-join) $style(-stipplepattern) $style(-stipplefactor) $style(-clamping) $style(-clamptechnique)]
    25682571                    }
    25692572                }
    … …  
    25742577                    }
    25752578                    if {[info exists style(-minrange)] && [info exists style(-maxrange)]} {
    2576                         SendCmd [list map layer add $layer line tfs $format {} $info(tfs.url) $info(cache) $r $g $b $style(-width) $style(-cap) $style(-join) $style(-stipplepattern) $style(-stipplefactor) $style(-clamping) $style(-clamptechnique) $style(-minrange) $style(-maxrange)]
     2579                        SendCmd [list map layer add $tag line tfs $format {} $info(tfs.url) $info(cache) $r $g $b $style(-width) $style(-cap) $style(-join) $style(-stipplepattern) $style(-stipplefactor) $style(-clamping) $style(-clamptechnique) $style(-minrange) $style(-maxrange)]
    25772580                    } else {
    2578                         SendCmd [list map layer add $layer line tfs $format {} $info(tfs.url) $info(cache) $r $g $b $style(-width) $style(-cap) $style(-join) $style(-stipplepattern) $style(-stipplefactor) $style(-clamping) $style(-clamptechnique)]
     2581                        SendCmd [list map layer add $tag line tfs $format {} $info(tfs.url) $info(cache) $r $g $b $style(-width) $style(-cap) $style(-join) $style(-stipplepattern) $style(-stipplefactor) $style(-clamping) $style(-clamptechnique)]
    25792582                    }
    25802583                }
    … …  
    25852588                    }
    25862589                    if {[info exists style(-minrange)] && [info exists style(-maxrange)]} {
    2587                         SendCmd [list map layer add $layer line wfs $format $info(wfs.typename) $info(wfs.url) $info(cache) $r $g $b $style(-width) $style(-cap) $style(-join) $style(-stipplepattern) $style(-stipplefactor) $style(-clamping) $style(-clamptechnique) $style(-minrange) $style(-maxrange)]
     2590                        SendCmd [list map layer add $tag line wfs $format $info(wfs.typename) $info(wfs.url) $info(cache) $r $g $b $style(-width) $style(-cap) $style(-join) $style(-stipplepattern) $style(-stipplefactor) $style(-clamping) $style(-clamptechnique) $style(-minrange) $style(-maxrange)]
    25882591                    } else {
    2589                         SendCmd [list map layer add $layer line wfs $format $info(wfs.typename) $info(wfs.url) $info(cache) $r $g $b $style(-width) $style(-cap) $style(-join) $style(-stipplepattern) $style(-stipplefactor) $style(-clamping) $style(-clamptechnique)]
    2590                     }
    2591                 }
    2592             }
    2593             SendCmd "map layer opacity $style(-opacity) $layer"
     2592                        SendCmd [list map layer add $tag line wfs $format $info(wfs.typename) $info(wfs.url) $info(cache) $r $g $b $style(-width) $style(-cap) $style(-join) $style(-stipplepattern) $style(-stipplefactor) $style(-clamping) $style(-clamptechnique)]
     2593                    }
     2594                }
     2595            }
     2596            SendCmd "map layer opacity $style(-opacity) $tag"
    25942597        }
    25952598        "point" {
    … …  
    26062609                set style(-opacity) $info(opacity)
    26072610            }
    2608             set _opacity($layer) [expr $style(-opacity) * 100]
     2611            set _opacity($tag) [expr $style(-opacity) * 100]
    26092612            foreach {r g b} [Color2RGB $style(-color)] {}
    26102613            switch -- $info(driver)  {
    … …  
    26122615                    SendFiles $info(ogr.url)
    26132616                    if {[info exists style(-minrange)] && [info exists style(-maxrange)]} {
    2614                         SendCmd [list map layer add $layer point ogr {} {} $info(ogr.url) $info(cache) $r $g $b $style(-size) $style(-minrange) $style(-maxrange)]
     2617                        SendCmd [list map layer add $tag point ogr {} {} $info(ogr.url) $info(cache) $r $g $b $style(-size) $style(-minrange) $style(-maxrange)]
    26152618                    } else {
    2616                         SendCmd [list map layer add $layer point ogr {} {} $info(ogr.url) $info(cache) $r $g $b $style(-size)]
     2619                        SendCmd [list map layer add $tag point ogr {} {} $info(ogr.url) $info(cache) $r $g $b $style(-size)]
    26172620                    }
    26182621                }
    … …  
    26232626                    }
    26242627                    if {[info exists style(-minrange)] && [info exists style(-maxrange)]} {
    2625                         SendCmd [list map layer add $layer point tfs $format {} $info(ogr.url) $info(cache) $r $g $b $style(-size) $style(-minrange) $style(-maxrange)]
     2628                        SendCmd [list map layer add $tag point tfs $format {} $info(ogr.url) $info(cache) $r $g $b $style(-size) $style(-minrange) $style(-maxrange)]
    26262629                    } else {
    2627                         SendCmd [list map layer add $layer point tfs $format {} $info(ogr.url) $info(cache) $r $g $b $style(-size)]
     2630                        SendCmd [list map layer add $tag point tfs $format {} $info(ogr.url) $info(cache) $r $g $b $style(-size)]
    26282631                    }
    26292632                }
    … …  
    26342637                    }
    26352638                    if {[info exists style(-minrange)] && [info exists style(-maxrange)]} {
    2636                         SendCmd [list map layer add $layer point wfs $format $info(wfs.typename) $info(ogr.url) $info(cache) $r $g $b $style(-size) $style(-minrange) $style(-maxrange)]
     2639                        SendCmd [list map layer add $tag point wfs $format $info(wfs.typename) $info(ogr.url) $info(cache) $r $g $b $style(-size) $style(-minrange) $style(-maxrange)]
    26372640                    } else {
    2638                         SendCmd [list map layer add $layer point wfs $format $info(wfs.typename) $info(ogr.url) $info(cache) $r $g $b $style(-size)]
    2639                     }
    2640                 }
    2641             }
    2642             SendCmd "map layer opacity $style(-opacity) $layer"
     2641                        SendCmd [list map layer add $tag point wfs $format $info(wfs.typename) $info(ogr.url) $info(cache) $r $g $b $style(-size)]
     2642                    }
     2643                }
     2644            }
     2645            SendCmd "map layer opacity $style(-opacity) $tag"
    26432646        }
    26442647        "icon" {
    … …  
    26592662                set style(-opacity) $info(opacity)
    26602663            }
    2661             set _opacity($layer) [expr $style(-opacity) * 100]
     2664            set _opacity($tag) [expr $style(-opacity) * 100]
    26622665            switch -- $info(driver)  {
    26632666                "ogr" {
    26642667                    SendFiles $info(ogr.url)
    26652668                    if {[info exists style(-minrange)] && [info exists style(-maxrange)]} {
    2666                         SendCmd [list map layer add $layer icon ogr {} {} $info(ogr.url) $info(cache) $style(-icon) $style(-scale) $style(-heading) $style(-declutter) $style(-placement) $style(-align) $style(-minrange) $style(-maxrange)]
     2669                        SendCmd [list map layer add $tag icon ogr {} {} $info(ogr.url) $info(cache) $style(-icon) $style(-scale) $style(-heading) $style(-declutter) $style(-placement) $style(-align) $style(-minrange) $style(-maxrange)]
    26672670                    } else {
    2668                         SendCmd [list map layer add $layer icon ogr {} {} $info(ogr.url) $info(cache) $style(-icon) $style(-scale) $style(-heading) $style(-declutter) $style(-placement) $style(-align)]
     2671                        SendCmd [list map layer add $tag icon ogr {} {} $info(ogr.url) $info(cache) $style(-icon) $style(-scale) $style(-heading) $style(-declutter) $style(-placement) $style(-align)]
    26692672                    }
    26702673                }
    … …  
    26752678                    }
    26762679                    if {[info exists style(-minrange)] && [info exists style(-maxrange)]} {
    2677                         SendCmd [list map layer add $layer icon tfs $format {} $info(tfs.url) $info(cache) $style(-icon) $style(-scale) $style(-heading) $style(-declutter) $style(-placement) $style(-align) $style(-minrange) $style(-maxrange)]
     2680                        SendCmd [list map layer add $tag icon tfs $format {} $info(tfs.url) $info(cache) $style(-icon) $style(-scale) $style(-heading) $style(-declutter) $style(-placement) $style(-align) $style(-minrange) $style(-maxrange)]
    26782681                    } else {
    2679                         SendCmd [list map layer add $layer icon tfs $format {} $info(tfs.url) $info(cache) $style(-icon) $style(-scale) $style(-heading) $style(-declutter) $style(-placement) $style(-align)]
     2682                        SendCmd [list map layer add $tag icon tfs $format {} $info(tfs.url) $info(cache) $style(-icon) $style(-scale) $style(-heading) $style(-declutter) $style(-placement) $style(-align)]
    26802683                    }
    26812684                }
    … …  
    26862689                    }
    26872690                    if {[info exists style(-minrange)] && [info exists style(-maxrange)]} {
    2688                         SendCmd [list map layer add $layer icon wfs $format $info(wfs.typename) $info(wfs.url) $info(cache) $style(-icon) $style(-scale) $style(-heading) $style(-declutter) $style(-placement) $style(-align) $style(-minrange) $style(-maxrange)]
     2691                        SendCmd [list map layer add $tag icon wfs $format $info(wfs.typename) $info(wfs.url) $info(cache) $style(-icon) $style(-scale) $style(-heading) $style(-declutter) $style(-placement) $style(-align) $style(-minrange) $style(-maxrange)]
    26892692                    } else {
    2690                         SendCmd [list map layer add $layer icon wfs $format $info(wfs.typename) $info(wfs.url) $info(cache) $style(-icon) $style(-scale) $style(-heading) $style(-declutter) $style(-placement) $style(-align)]
    2691                     }
    2692                 }
    2693             }
    2694             SendCmd "map layer opacity $style(-opacity) $layer"
     2693                        SendCmd [list map layer add $tag icon wfs $format $info(wfs.typename) $info(wfs.url) $info(cache) $style(-icon) $style(-scale) $style(-heading) $style(-declutter) $style(-placement) $style(-align)]
     2694                    }
     2695                }
     2696            }
     2697            SendCmd "map layer opacity $style(-opacity) $tag"
    26952698        }
    26962699        "polygon" {
    … …  
    27102713                set style(-opacity) $info(opacity)
    27112714            }
    2712             set _opacity($layer) [expr $style(-opacity) * 100]
     2715            set _opacity($tag) [expr $style(-opacity) * 100]
    27132716            foreach {r g b} [Color2RGB $style(-color)] {}
    27142717            foreach {strokeR strokeG strokeB} [Color2RGB $style(-strokecolor)] {}
    … …  
    27172720                    SendFiles $info(ogr.url)
    27182721                    if {[info exists style(-minrange)] && [info exists style(-maxrange)]} {
    2719                         SendCmd [list map layer add $layer polygon ogr {} {} $info(ogr.url) $info(cache) $r $g $b $style(-strokewidth) $strokeR $strokeG $strokeB $style(-clamping) $style(-clamptechnique) $style(-minrange) $style(-maxrange)]
     2722                        SendCmd [list map layer add $tag polygon ogr {} {} $info(ogr.url) $info(cache) $r $g $b $style(-strokewidth) $strokeR $strokeG $strokeB $style(-clamping) $style(-clamptechnique) $style(-minrange) $style(-maxrange)]
    27202723                    } else {
    2721                         SendCmd [list map layer add $layer polygon ogr {} {} $info(ogr.url) $info(cache) $r $g $b $style(-strokewidth) $strokeR $strokeG $strokeB $style(-clamping) $style(-clamptechnique)]
     2724                        SendCmd [list map layer add $tag polygon ogr {} {} $info(ogr.url) $info(cache) $r $g $b $style(-strokewidth) $strokeR $strokeG $strokeB $style(-clamping) $style(-clamptechnique)]
    27222725                    }
    27232726                }
    … …  
    27282731                    }
    27292732                    if {[info exists style(-minrange)] && [info exists style(-maxrange)]} {
    2730                         SendCmd [list map layer add $layer polygon tfs $format {} $info(tfs.url) $info(cache) $r $g $b $style(-strokewidth) $strokeR $strokeG $strokeB $style(-clamping) $style(-clamptechnique) $style(-minrange) $style(-maxrange)]
     2733                        SendCmd [list map layer add $tag polygon tfs $format {} $info(tfs.url) $info(cache) $r $g $b $style(-strokewidth) $strokeR $strokeG $strokeB $style(-clamping) $style(-clamptechnique) $style(-minrange) $style(-maxrange)]
    27312734                    } else {
    2732                         SendCmd [list map layer add $layer polygon tfs $format {} $info(tfs.url) $info(cache) $r $g $b $style(-strokewidth) $strokeR $strokeG $strokeB $style(-clamping) $style(-clamptechnique)]
     2735                        SendCmd [list map layer add $tag polygon tfs $format {} $info(tfs.url) $info(cache) $r $g $b $style(-strokewidth) $strokeR $strokeG $strokeB $style(-clamping) $style(-clamptechnique)]
    27332736                    }
    27342737                }
    … …  
    27392742                    }
    27402743                    if {[info exists style(-minrange)] && [info exists style(-maxrange)]} {
    2741                         SendCmd [list map layer add $layer polygon wfs $format $info(wfs.typename) $info(wfs.url) $info(cache) $r $g $b $style(-strokewidth) $strokeR $strokeG $strokeB $style(-clamping) $style(-clamptechnique) $style(-minrange) $style(-maxrange)]
     2744                        SendCmd [list map layer add $tag polygon wfs $format $info(wfs.typename) $info(wfs.url) $info(cache) $r $g $b $style(-strokewidth) $strokeR $strokeG $strokeB $style(-clamping) $style(-clamptechnique) $style(-minrange) $style(-maxrange)]
    27422745                    } else {
    2743                         SendCmd [list map layer add $layer polygon wfs $format $info(wfs.typename) $info(wfs.url) $info(cache) $r $g $b $style(-strokewidth) $strokeR $strokeG $strokeB $style(-clamping) $style(-clamptechnique)]
    2744                     }
    2745                 }
    2746             }
    2747             SendCmd "map layer opacity $style(-opacity) $layer"
     2746                        SendCmd [list map layer add $tag polygon wfs $format $info(wfs.typename) $info(wfs.url) $info(cache) $r $g $b $style(-strokewidth) $strokeR $strokeG $strokeB $style(-clamping) $style(-clamptechnique)]
     2747                    }
     2748                }
     2749            }
     2750            SendCmd "map layer opacity $style(-opacity) $tag"
    27482751        }
    27492752        "label" {
    … …  
    27692772                set style(-opacity) $info(opacity)
    27702773            }
    2771             set _opacity($layer) [expr $style(-opacity) * 100]
     2774            set _opacity($tag) [expr $style(-opacity) * 100]
    27722775            set contentExpr $info(content)
    27732776            if {[info exists info(priority)]} {
    … …  
    27822785                    SendFiles $info(ogr.url)
    27832786                    if {[info exists style(-minrange)] && [info exists style(-maxrange)]} {
    2784                         SendCmd [list map layer add $layer 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)]
     2787                        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)]
    27852788                    } else {
    2786                         SendCmd [list map layer add $layer 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)]
     2789                        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)]
    27872790                    }
    27882791                }
    … …  
    27932796                    }
    27942797                    if {[info exists style(-minrange)] && [info exists style(-maxrange)]} {
    2795                         SendCmd [list map layer add $layer 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)]
     2798                        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)]
    27962799                    } else {
    2797                         SendCmd [list map layer add $layer 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)]
     2800                        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)]
    27982801                    }
    27992802                }
    … …  
    28042807                    }
    28052808                    if {[info exists style(-minrange)] && [info exists style(-maxrange)]} {
    2806                         SendCmd [list map layer add $layer 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)]
     2809                        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)]
    28072810                    } else {
    2808                         SendCmd [list map layer add $layer 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)]
    2809                     }
    2810                 }
    2811             }
    2812             SendCmd "map layer opacity $style(-opacity) $layer"
     2811                        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)]
     2812                    }
     2813                }
     2814            }
     2815            SendCmd "map layer opacity $style(-opacity) $tag"
    28132816        }
    28142817    }
    … …  
    28162819    if {[info exists info(placard)]} {
    28172820        array set placard [$dataobj getPlacardConfig $layer]
    2818         SendCmd [list placard config $placard(attrlist) $placard(style) $placard(padding) $layer]
    2819     }
    2820 
    2821     SendCmd "map layer visible $_visibility($layer) $layer"
     2821        SendCmd [list placard config $placard(attrlist) $placard(style) $placard(padding) $tag]
     2822    }
     2823
     2824    SendCmd "map layer visible $_visibility($tag) $tag"
    28222825}
    28232826
    28242827itcl::body Rappture::MapViewer::SetLayerOpacity { dataobj layer {value 100}} {
    2825     set val $_opacity($layer)
     2828    set tag $layer
     2829    set val $_opacity($tag)
    28262830    set sval [expr { 0.01 * double($val) }]
    2827     SendCmd "map layer opacity $sval $layer"
     2831    SendCmd "map layer opacity $sval $tag"
    28282832}
    28292833
    28302834itcl::body Rappture::MapViewer::SetLayerVisibility { dataobj layer } {
    2831     set bool $_visibility($layer)
    2832     SendCmd "map layer visible $bool $layer"
     2835    set tag $layer
     2836    set bool $_visibility($tag)
     2837    SendCmd "map layer visible $bool $tag"
    28332838}
    28342839
    … …  
    28482853            array unset info
    28492854            array set info [$dataobj layer $layer]
    2850             checkbutton $f.${layer}_visible \
     2855            set tag $layer
     2856            set ctlname $layer
     2857            checkbutton $f.${ctlname}_visible \
    28512858                -text $info(label) \
    28522859                -font "Arial 9" -anchor w \
    2853                 -variable [itcl::scope _visibility($layer)] \
     2860                -variable [itcl::scope _visibility($tag)] \
    28542861                -command [itcl::code $this \
    28552862                              SetLayerVisibility $dataobj $layer]
    2856             blt::table $f $row,0 $f.${layer}_visible -anchor w -pady 2 -cspan 2
     2863            blt::table $f $row,0 $f.${ctlname}_visible -anchor w -pady 2 -cspan 2
    28572864            incr row
    28582865            if { $info(type) == "image" } {
    28592866                incr imgIdx
    28602867                if { $info(driver) == "colorramp" } {
    2861                     set colormap $layer
     2868                    set colormap $ctlname
    28622869                    if { ![info exists _image(legend-$colormap)] } {
    28632870                        set _image(legend-$colormap) [image create photo]
    … …  
    28802887                }
    28812888            }
    2882             if { $info(type) != "elevation" && ($info(type) != "image" || $imgIdx > 1) } {
    2883                 label $f.${layer}_opacity_l -text "Opacity" -font "Arial 9"
    2884                 ::scale $f.${layer}_opacity -from 0 -to 100 \
     2889            if { $info(type) != "elevation" &&
     2890                ($info(type) != "image" || $imgIdx > 1) } {
     2891                label $f.${ctlname}_opacity_l -text "Opacity" -font "Arial 9"
     2892                ::scale $f.${ctlname}_opacity -from 0 -to 100 \
    28852893                    -orient horizontal -showvalue off \
    2886                     -variable [itcl::scope _opacity($layer)] \
     2894                    -variable [itcl::scope _opacity($tag)] \
    28872895                    -width 10 \
    28882896                    -command [itcl::code $this \
    28892897                                  SetLayerOpacity $dataobj $layer]
    2890                 Rappture::Tooltip::for $f.${layer}_opacity "Set opacity of $info(label) layer"
    2891                 blt::table $f $row,0 $f.${layer}_opacity_l -anchor w -pady 2
    2892                 blt::table $f $row,1 $f.${layer}_opacity -anchor w -pady 2
     2898                Rappture::Tooltip::for $f.${ctlname}_opacity "Set opacity of $info(label) layer"
     2899                blt::table $f $row,0 $f.${ctlname}_opacity_l -anchor w -pady 2
     2900                blt::table $f $row,1 $f.${ctlname}_opacity -anchor w -pady 2
    28932901                incr row
    28942902            }
    … …  
    28982906                lappend tooltip $info(attribution)
    28992907            }
    2900             Rappture::Tooltip::for $f.${layer}_visible [join $tooltip \n]
     2908            Rappture::Tooltip::for $f.${ctlname}_visible [join $tooltip \n]
    29012909        }
    29022910        set mapAttrib [$dataobj hints "attribution"]
Note: See TracChangeset for help on using the changeset viewer.