Changeset 5609 for trunk

Timestamp:

May 27, 2015 12:24:37 PM (9 years ago)

Author:

ldelgass

Message:

Remove unused/redundant size method from mesh/cloud. numpoints/numcells should
be used instead.

Location:

trunk/gui/scripts

Files:

• cloud.tcl (modified) (4 diffs)
• mesh.tcl (modified) (2 diffs)

trunk/gui/scripts/cloud.tcl

@@ -18 +18 @@
 
 itcl::class Rappture::Cloud {
+    constructor {xmlobj path} {
+        # defined below
+    }
+    destructor {
+        # defined below
+    }
+    public method points {}
+    public method mesh {}
+    public method units { axis }
+    public method label { axis }
+    public method vtkdata {}
+    public method dimensions {}
+    public method limits {which}
+    public method hints {{key ""}}
+    public method numpoints {} {
+        return $_numPoints
+    }
+    public method isvalid {} {
+        return $_isValid
+    }
+
+    public proc fetch {xmlobj path}
+    public proc release {obj}
+
     private variable _xmlobj "";        # ref to XML obj with device data
     private variable _cloud "";         # lib obj representing this cloud
@@ -24 +48 @@
     private variable _axis2units;       #
     private variable _limits;           # limits x, y, z
-    private common _xp2obj ;            # Used for fetch/release ref counting
-    private common _obj2ref ;           # Used for fetch/release ref counting
     private variable _numPoints 0
     private variable _vtkdata ""
@@ -32 +54 @@
     private variable _isValid 0;        # Indicates if the data is valid.
 
-    constructor {xmlobj path} {
-        # defined below
-    }
-    destructor {
-        # defined below
-    }
-    public method points {}
-    public method mesh {}
-    public method units { axis }
-    public method label { axis }
-    public method vtkdata {}
-    public method size {}
-    public method dimensions {}
-    public method limits {which}
-    public method hints {{key ""}}
-    public method numpoints {} {
-        return $_numPoints
-    }
-    public method isvalid {} {
-        return $_isValid
-    }
-    public proc fetch {xmlobj path}
-    public proc release {obj}
+    private common _xp2obj ;            # Used for fetch/release ref counting
+    private common _obj2ref ;           # Used for fetch/release ref counting
 }
 
@@ -224 +225 @@
 
 # ----------------------------------------------------------------------
-# USAGE: size
-#
-# Returns the number of points in this cloud.
-# ----------------------------------------------------------------------
-itcl::body Rappture::Cloud::size {} {
-    return $_numPoints
-}
-
-# ----------------------------------------------------------------------
 # USAGE: dimensions
 #

trunk/gui/scripts/mesh.tcl

@@ -45 +45 @@
     public method elements {}
     public method mesh {{-type "vtk"}}
-    public method size {{what -points}}
     public method dimensions {}
     public method limits {which}
@@ -333 +332 @@
         default {
             error "Requested mesh type \"$type\" is unknown."
-        }
-    }
-}
-
-# ----------------------------------------------------------------------
-# USAGE: size ?-points|-elements?
-#
-# Returns the number of points in this mesh.
-# ----------------------------------------------------------------------
-itcl::body Rappture::Mesh::size {{what -points}} {
-    switch -- $what {
-        -points {
-            return $_numPoints
-        }
-        -elements {
-            return $_numCells
-        }
-        default {
-            error "bad option \"$what\": should be -points or -elements"
         }
     }