Changeset 2152
- Timestamp:
- Mar 26, 2011, 7:39:07 PM (14 years ago)
- Location:
- trunk/lang/tcl/scripts
- Files:
-
- 1 added
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/lang/tcl/scripts/Makefile.in
r2145 r2152 63 63 $(srcdir)/types/file.tcl \ 64 64 $(srcdir)/types/image.tcl \ 65 $(srcdir)/types/language.tcl \ 65 66 $(srcdir)/types/string.tcl \ 66 67 $(srcdir)/types/units.tcl -
trunk/lang/tcl/scripts/objects.tcl
r2145 r2152 217 217 # does this object type have a value class? 218 218 if {[catch {$ovclass ::#auto} obj]} { 219 puts "OOPS! can't construct: $obj"220 219 return "" 221 220 } … … 225 224 return $obj 226 225 } 227 puts "OOPS! $result\nin $obj = [$obj info class]\nfrom: $obj import xml $xmlobj $path\n$::errorInfo"228 226 229 227 # can't seem to load anything -- return null … … 938 936 # scan through all matching types and try to import the value 939 937 foreach type [importTypes] { 940 puts "checking $type = $pattern"941 938 if {[string match $pattern $type]} { 942 939 set cmd [format {eval $this import_%s $args} $type] 943 puts " testing $type = ($cmd)"944 940 if {[catch $cmd result] == 0} { 945 puts " success!"946 941 return 1 947 942 } … … 949 944 } 950 945 } 951 puts " failed: $errs"952 946 return [concat 0 $errs] 953 947 } -
trunk/lang/tcl/scripts/objects/number/number.rp
r2138 r2152 22 22 attr min -title "Minimum Value" -type string:validate=number -path min 23 23 attr max -title "Maximum Value" -type string:validate=number -path max 24 attr icon -title "Icon" -type image:maxsize=20,rescale=yes -path about.icon 24 25 attr color -title "Color" -type color -path color 25 26 -
trunk/lang/tcl/scripts/types/image.tcl
r2145 r2152 161 161 } else { 162 162 if {$_actual eq ""} { 163 set _actual [image create photo -data $ bytes]163 set _actual [image create photo -data $data] 164 164 } else { 165 $_actual configure -data $ bytes165 $_actual configure -data $data 166 166 } 167 167 }
Note: See TracChangeset
for help on using the changeset viewer.