[Brlcad-commits] CVS: brlcad/src/tclscripts/archer ShaderEdit.tcl,1.1,1.2

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

Update of /cvsroot/brlcad/brlcad/src/tclscripts/archer
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10977

Modified Files:
	ShaderEdit.tcl 
Log Message:
Arrange to call the shader changed callback when editing the shader form.

Index: ShaderEdit.tcl
===================================================================
RCS file: /cvsroot/brlcad/brlcad/src/tclscripts/archer/ShaderEdit.tcl,v
retrieving revision 1.1
retrieving revision 1.2
diff -w -u -r1.1 -r1.2
--- ShaderEdit.tcl	10 Jan 2006 22:35:55 -0000	1.1
+++ ShaderEdit.tcl	11 Jan 2006 16:34:29 -0000	1.2
@@ -40,7 +40,7 @@
 	    {"Bump Map" bump}
 	    {Checker checker}
 	    {"Test Map" testmap}
-	    {"Fake Star Patter" fakestar}
+	    {"Fake Star Pattern" fakestar}
 	    {Cloud cloud}
 	    {Stack stack}
 	    {"Env Map" envmap}
@@ -967,6 +967,10 @@
     }
 
     set shaderSpec "plastic [list $newSpec]"
+
+    if {$allowCallbacks && $itk_option(-shaderChangedCallback) != ""} {
+	$itk_option(-shaderChangedCallback)
+    }
 }
 
 ::itcl::body ShaderEdit::validateDouble_mirror {id d} {
@@ -1049,6 +1053,10 @@
     }
 
     set shaderSpec "mirror [list $newSpec]"
+
+    if {$allowCallbacks && $itk_option(-shaderChangedCallback) != ""} {
+	$itk_option(-shaderChangedCallback)
+    }
 }
 
 ::itcl::body ShaderEdit::validateDouble_glass {id d} {
@@ -1131,11 +1139,19 @@
     }
 
     set shaderSpec "glass [list $newSpec]"
+
+    if {$allowCallbacks && $itk_option(-shaderChangedCallback) != ""} {
+	$itk_option(-shaderChangedCallback)
+    }
 }
 
 
 ::itcl::body ShaderEdit::updateUnlistedSpec {id} {
     set shaderSpec "$unlistedName($id) $unlistedParams($id)"
+
+    if {$allowCallbacks && $itk_option(-shaderChangedCallback) != ""} {
+	$itk_option(-shaderChangedCallback)
+    }
 }
 
 ::itcl::body ShaderEdit::validateDouble {d} {