Changeset 1003 for trunk

Timestamp:

May 15, 2008, 4:05:42 PM (16 years ago)

Author:

dkearney

Message:

definging _mkdir in tool.tcl and removing it from analyzer because the code that uses it has moved

Location:

trunk/gui/scripts

Files:

• analyzer.tcl (modified) (2 diffs)
• tool.tcl (modified) (2 diffs)

trunk/gui/scripts/analyzer.tcl

@@ -65 +65 @@
     protected method _simOutput {message}
     protected method _resultTooltip {}
-    protected method _mkdir {dir}
 
     private variable _tool ""          ;# belongs to this tool
@@ -991 +990 @@
 
 # ----------------------------------------------------------------------
-# USAGE: _mkdir <directory>
-#
-# Used internally to create the <directory> in the file system.
-# The parent directory is also created, as needed.
-# ----------------------------------------------------------------------
-itcl::body Rappture::Analyzer::_mkdir {dir} {
-    set parent [file dirname $dir]
-    if {"." != $parent && "/" != $parent} {
-        if {![file exists $parent]} {
-            _mkdir $parent
-        }
-    }
-    file mkdir $dir
-}
-
-# ----------------------------------------------------------------------
 # USAGE: _fixSimControl
 #

trunk/gui/scripts/tool.tcl

@@ -29 +29 @@
     public method abort {}
 
+    protected method _mkdir {dir}
     protected method _output {data}
 
@@ -297 +298 @@
 
 # ----------------------------------------------------------------------
+# USAGE: _mkdir <directory>
+#
+# Used internally to create the <directory> in the file system.
+# The parent directory is also created, as needed.
+# ----------------------------------------------------------------------
+itcl::body Rappture::Tool::_mkdir {dir} {
+    set parent [file dirname $dir]
+    if {"." != $parent && "/" != $parent} {
+        if {![file exists $parent]} {
+            _mkdir $parent
+        }
+    }
+    file mkdir $dir
+}
+
+
+# ----------------------------------------------------------------------
 # USAGE: abort
 #