Changeset 2154 for trunk/lang/tcl/scripts/objects/number

Timestamp:

Mar 27, 2011, 11:32:25 AM (14 years ago)

Author:

mmc

Message:

Added a definition for the "choice" object, along with the "choices" editor
for specifying values.

Numerous fixes to the object system: Cleaned up the palettes for all
objects so they can be used to warn about things like output objects on
the input side. Marked may attributes as "input only" via the new -only
option for attributes. Fixed the label/description checks so that they
occur properly when inherited from the "base" object class.

File:

• trunk/lang/tcl/scripts/objects/number/number.rp (modified) (2 diffs)

trunk/lang/tcl/scripts/objects/number/number.rp

@@ -18 +18 @@
     help http://rappture.org/wiki/rp_xml_ele_number
 
-    attr default -title "Default Value" -type string:validate=number -path default
+    attr default -title "Default Value" -type string:validate=number -path default -only input
     attr units -title "Units of Measurement" -type units -path units
-    attr min -title "Minimum Value" -type string:validate=number -path min
-    attr max -title "Maximum Value" -type string:validate=number -path max
-    attr icon -title "Icon" -type image:maxsize=20,rescale=yes -path about.icon
-    attr color -title "Color" -type color -path color
+    attr min -title "Minimum Value" -type string:validate=number -path min -only input
+    attr max -title "Maximum Value" -type string:validate=number -path max -only input
+    attr icon -title "Icon" -type image:maxsize=20,rescale=yes -path about.icon -only input
+    attr color -title "Color" -type color -path color -only input
 
     check default {
@@ -76 +76 @@
                && ![string equal [Rappture::Units::System::for $units] $base]} {
                 return [list error "Units for maximum value don't match the expected units for this value"]
+            }
+        }
+    }
+
+    check color {
+        if {$attr(color) ne ""} {
+            if {$attr(min) eq "" || $attr(max) eq ""} {
+                return [list warning "The color for this number won't show up unless both minimum and maximum values are set.  The color indicates the current value in the range between the min/max limits."]
             }
         }