Changeset 6065 for trunk/gui

Timestamp:

Feb 27, 2016, 6:34:59 PM (9 years ago)

Author:

ldelgass

Message:

cleanups, comments

File:

• trunk/gui/scripts/mapviewer.tcl (modified) (5 diffs)

trunk/gui/scripts/mapviewer.tcl

@@ -301 +301 @@
     }
 
+    DebugTrace "main: [winfo class $itk_component(main)]"
     itk_component add view {
         canvas $itk_component(plotarea).view \
@@ -672 +673 @@
         set params(-color) black
     }
+    # Add to display list
     set pos [lsearch -exact $_dlist $dataobj]
     if {$pos < 0} {
@@ -820 +822 @@
             set _mapsettings(extents) $settings(extents)
             set _mapsettings(camera) $settings(camera)
-            DebugTrace "map style: $settings(style)"
-        }
+        }
+        # If dataobj has the same type and projection as view, expand extents
         if { $settings(extents) != "" &&
              $settings(type) == $_mapsettings(type) &&
@@ -2182 +2184 @@
 
 #
-## camera
-##
-## This is the public camera API
-##
+# camera
+#
+# This is the public camera API
+#
 itcl::body Rappture::MapViewer::camera {option args} {
     switch -- $option {
@@ -2864 +2866 @@
     set attrib [list]
     set imgIdx 0
+    # FIXME: This order may not match stacking order in server
     foreach dataobj [get -objects] {
         foreach layer [$dataobj layers] {