Changeset 5657 for trunk

Timestamp:

Jun 5, 2015 8:37:19 AM (9 years ago)

Author:

ldelgass

Message:

style/whitespace

File:

• trunk/gui/scripts/drawing.tcl (modified) (12 diffs)

trunk/gui/scripts/drawing.tcl

@@ -1 @@
-# -*- mode: tcl; indent-tabs-mode: nil -*- 
+# -*- mode: tcl; indent-tabs-mode: nil -*-
 # ----------------------------------------------------------------------
 #  COMPONENT: drawing - 3D drawing of data
@@ -12 +12 @@
 package require BLT
 
-namespace eval Rappture { 
-    # forward declaration 
+namespace eval Rappture {
+    # forward declaration
 }
 
 itcl::class Rappture::Drawing {
     private variable _drawing
-    private variable _xmlobj 
-    private variable _styles 
-    private variable _shapes 
-    private variable _labels 
-    private variable _types 
-    private variable _data 
+    private variable _xmlobj
+    private variable _styles
+    private variable _shapes
+    private variable _labels
+    private variable _types
+    private variable _data
     private variable _hints
     private variable _units
 
-    constructor {xmlobj path} { 
-        # defined below 
-    }
-    destructor { 
-        # defined below 
+    constructor {xmlobj path} {
+        # defined below
+    }
+    destructor {
+        # defined below
     }
 
@@ -40 +40 @@
     public method values { elem }
     public method data { elem }
-    public method hints {{keyword ""}} 
-    public method components { args } 
+    public method hints {{keyword ""}}
+    public method components { args }
 }
 
@@ -72 +72 @@
             glyphs* {
                 set _data($elem) [$_xmlobj get $path.$elem.vtk]
-                set _data($elem) [string trim $_data($elem)]
+                set _data($elem) [string trim $_data($elem)]
                 set _styles($elem) [$_xmlobj get $path.$elem.about.style]
                 set _labels($elem) [$_xmlobj get $path.$elem.about.label]
@@ -85 +85 @@
                     set contents [$_xmlobj get $path.$elem.vtk]
                 }
-                set _data($elem) [string trim $contents]
+                set _data($elem) [string trim $contents]
                 set _styles($elem) [$_xmlobj get $path.$elem.about.style]
                 set _labels($elem) [$_xmlobj get $path.$elem.about.label]
@@ -143 +143 @@
 }
 
-# 
-# label -- 
-# 
+#
+# label --
+#
 #       Returns the label of the named drawing element.
 #
@@ -151 +151 @@
     if { [info exists _labels($elem)] } {
         return $_labels($elem)
-    } 
-    return ""
-}
-
-# 
-# type -- 
-# 
+    }
+    return ""
+}
+
+#
+# type --
+#
 #       Returns the type of the named drawing element.
 #
@@ -163 +163 @@
     if { [info exists _types($elem)] } {
         return $_types($elem)
-    } 
-    return ""
-}
-
-# 
-# style -- 
-# 
+    }
+    return ""
+}
+
+#
+# style --
+#
 #       Returns the style string of the named drawing element.
 #
@@ -175 +175 @@
     if { [info exists _styles($elem)] } {
         return $_styles($elem)
-    } 
-    return ""
-}
-
-# 
-# shape -- 
-# 
+    }
+    return ""
+}
+
+#
+# shape --
+#
 #       Returns the shape of the glyphs in the drawing element.
 #
@@ -188 +188 @@
     if { [info exists _shapes($elem)] } {
         return $_shapes($elem)
-    } 
-    switch -- $shape { 
-        arrow - cone - cube - cylinder - dodecahedron - 
-        icosahedron - line - octahedron - sphere - tetrahedron  {
-            return $shape
-        }
-        default {
-            puts stderr "unknown glyph shape \"$shape\""
-        }
-    }
-    return ""
-}
-
-# 
-# data -- 
-# 
+    }
+    switch -- $shape {
+        arrow - cone - cube - cylinder - dodecahedron -
+        icosahedron - line - octahedron - sphere - tetrahedron  {
+            return $shape
+        }
+        default {
+            puts stderr "unknown glyph shape \"$shape\""
+        }
+    }
+    return ""
+}
+
+#
+# data --
+#
 #       Returns the data of the named drawing element.
 #
@@ -209 +209 @@
     if { [info exists _data($elem)] } {
         return $_data($elem)
-    } 
-    return ""
-}
-
-# ----------------------------------------------------------------------
-# method values 
+    }
+    return ""
+}
+
+# ----------------------------------------------------------------------
+# method values
 #       Returns a base64 encoded, gzipped Tcl list that represents the
-#       Tcl command and data to recreate the uniform rectangular grid 
+#       Tcl command and data to recreate the uniform rectangular grid
 #       on the nanovis server.
 # ----------------------------------------------------------------------
@@ -222 +222 @@
     if { [info exists _data($elem)] } {
         return $_data($elem)
-    } 
+    }
     return ""
 }
 
 itcl::body Rappture::Drawing::components { args } {
-    return [array names _data] 
+    return [array names _data]
 }