[brlcad-commits] SF.net SVN: brlcad:[51294] brlcad/trunk/src/tclscripts/archer

[<bo...@us...>]

Revision: 51294
          http://brlcad.svn.sourceforge.net/brlcad/?rev=51294&view=rev
Author:   bob1961
Date:     2012-06-22 21:37:24 +0000 (Fri, 22 Jun 2012)
Log Message:
-----------
Using ::cadwidgets:Ged::isdouble.

Modified Paths:
--------------
    brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl
    brlcad/trunk/src/tclscripts/archer/GeometryEditFrame.tcl
    brlcad/trunk/src/tclscripts/archer/ShaderEdit.tcl

Modified: brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl	2012-06-22 21:26:45 UTC (rev 51293)
+++ brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl	2012-06-22 21:37:24 UTC (rev 51294)
@@ -3055,11 +3055,7 @@
 }
 
 ::itcl::body ArcherCore::validateDouble {d} {
-    if {$d == "-" || [string is double $d]} {
-	return 1
-    }
-
-    return 0
+    ::cadwidgets::Ged::isdouble $d
 }
 
 ::itcl::body ArcherCore::validateTickInterval {ti} {
@@ -3067,8 +3063,8 @@
 	return 1
     }
 
-    if {[string is double $ti]} {
-	if {0 <= $ti} {
+    if {[::cadwidgets::Ged::isdouble $ti]} {
+	if {$ti == "." || 0 <= $ti} {
 	    return 1
 	}
 

Modified: brlcad/trunk/src/tclscripts/archer/GeometryEditFrame.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/GeometryEditFrame.tcl	2012-06-22 21:26:45 UTC (rev 51293)
+++ brlcad/trunk/src/tclscripts/archer/GeometryEditFrame.tcl	2012-06-22 21:37:24 UTC (rev 51294)
@@ -217,11 +217,7 @@
 }
 
 ::itcl::body GeometryEditFrame::validateDouble {d} {
-    if {$d == "-" || [string is double $d]} {
-	return 1
-    }
-
-    return 0
+    ::cadwidgets::Ged::isdouble $d
 }
 
 ::itcl::body GeometryEditFrame::validateColorComp {c} {

Modified: brlcad/trunk/src/tclscripts/archer/ShaderEdit.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/ShaderEdit.tcl	2012-06-22 21:26:45 UTC (rev 51293)
+++ brlcad/trunk/src/tclscripts/archer/ShaderEdit.tcl	2012-06-22 21:37:24 UTC (rev 51294)
@@ -1163,11 +1163,7 @@
 }
 
 ::itcl::body ShaderEdit::validateDouble {d} {
-    if {$d == "" || $d == "-" || [string is double $d]} {
-	return 1
-    }
-
-    return 0
+    ::cadwidgets::Ged::isdouble $d
 }
 
 # Local Variables:

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.