Changeset 1929 for trunk/gui/scripts/drawingentry.tcl

Timestamp:

Oct 22, 2010, 4:06:10 PM (14 years ago)

Author:

gah

Message:

 

File:

• trunk/gui/scripts/drawingentry.tcl (modified) (5 diffs)

trunk/gui/scripts/drawingentry.tcl

@@ -38 +38 @@
 itcl::body Rappture::DrawingEntry::constructor {owner path args} {
     if {[catch {$owner isa Rappture::ControlOwner} valid] != 0 || !$valid} {
-        error "bad object \"$owner\": should be Rappture::ControlOwner"
+        error "bad object \"$owner\": should be Rappture::ControlOwner"
     }
     set _path $path
@@ -46 +46 @@
     #
     itk_component add drawing {
-        Rappture::Drawing $itk_interior.drawing $owner $path
+        Rappture::Drawing $itk_interior.drawing $owner $path
     }
     pack $itk_component(drawing) -expand yes -fill both
@@ -67 +67 @@
     set i [lsearch -exact $args -check]
     if {$i >= 0} {
-        set onlycheck 1
-        set args [lreplace $args $i $i]
+        set onlycheck 1
+        set args [lreplace $args $i $i]
     }
 
     if {[llength $args] == 1} {
-        if {$onlycheck} {
-            # someday we may add validation...
-            return
-        }
-        set xmlobj [lindex $args 0]
-        $itk_component(drawing) value $xmlobj
-        return $xmlobj
+        if {$onlycheck} {
+            # someday we may add validation...
+            return
+        }
+        set xmlobj [lindex $args 0]
+        $itk_component(drawing) value $xmlobj
+        return $xmlobj
 
     } elseif {[llength $args] != 0} {
-        error "wrong # args: should be \"value ?-check? ?newval?\""
+        error "wrong # args: should be \"value ?-check? ?newval?\""
     }
 
@@ -100 +100 @@
     set label [$_owner xml get $_path.about.label]
     if {"" == $label} {
-        set label "Drawing"
+        set label "Drawing"
     }
     return $label
@@ -125 +125 @@
     set valid {normal disabled}
     if {[lsearch -exact $valid $itk_option(-state)] < 0} {
-        error "bad value \"$itk_option(-state)\": should be [join $valid {, }]"
+        error "bad value \"$itk_option(-state)\": should be [join $valid {, }]"
     }
 }