source: branches/geomap/gui/scripts/geomapdataproviderxyz.tcl @ 5949

Last change on this file since 5949 was 5949, checked in by dkearney, 7 years ago

adding data provider and layer objects, updating mapviewer to remove layers from client and server.

File size: 1.9 KB
Line 
1# -*- mode: tcl; indent-tabs-mode: nil -*-
2# ----------------------------------------------------------------------
3#  COMPONENT: geomapdataproviderxyz -
4#               holds data source information for a geomap
5#               raster xyz layer
6#
7# ======================================================================
8#  AUTHOR:  Derrick Kearney, Purdue University
9#  Copyright (c) 2004-2015  HUBzero Foundation, LLC
10#
11#  See the file "license.terms" for information on usage and
12#  redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
13# ======================================================================
14package require Itcl
15package require BLT
16
17namespace eval Rappture {
18    # forward declaration
19}
20
21
22itcl::class Rappture::GeoMapDataProviderXYZ {
23    inherit Rappture::GeoMapDataProvider
24
25    constructor {url args} {
26        Rappture::GeoMapDataProvider::constructor "image" "xyz" $url
27    } {
28        # defined below
29    }
30    destructor {
31        # defined below
32    }
33
34    public method exportToBltTree { tree }
35}
36
37# ----------------------------------------------------------------------
38# CONSTRUCTOR
39# ----------------------------------------------------------------------
40itcl::body Rappture::GeoMapDataProviderXYZ::constructor {url args} {
41
42    eval configure $args
43}
44
45
46# ----------------------------------------------------------------------
47# DESTRUCTOR
48# ----------------------------------------------------------------------
49itcl::body Rappture::GeoMapDataProviderXYZ::destructor {} {
50
51}
52
53# ----------------------------------------------------------------------
54# ExportToBltTree: export object to a blt::tree
55#
56# ExportToBltTree $tree
57#
58# ----------------------------------------------------------------------
59itcl::body Rappture::GeoMapDataProviderXYZ::exportToBltTree {tree} {
60
61    Rappture::GeoMapDataProvider::exportToBltTree $tree
62
63    $tree set root \
64        xyz.url [url]
65}
66
Note: See TracBrowser for help on using the repository browser.