Changeset 5679 for branches/uq/gui/scripts/datatable.tcl
- Timestamp:
- Jun 9, 2015, 1:55:08 PM (9 years ago)
- Location:
- branches/uq
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/uq
- Property svn:mergeinfo changed
-
branches/uq/gui/scripts/datatable.tcl
r3330 r5679 1 # -*- mode: tcl; indent-tabs-mode: nil -*- 2 1 # -*- mode: tcl; indent-tabs-mode: nil -*- 3 2 # ---------------------------------------------------------------------- 4 3 # COMPONENT: datatable - extracts data from an XML description of a field … … 19 18 package require BLT 20 19 21 namespace eval Rappture { 22 # forward declaration 20 namespace eval Rappture { 21 # forward declaration 23 22 } 24 23 25 24 itcl::class Rappture::DataTable { 26 constructor {xmlobj path} { 27 # defined below 25 constructor {xmlobj path} { 26 # defined below 28 27 } 29 destructor { 30 # defined below 28 destructor { 29 # defined below 31 30 } 32 31 … … 53 52 set _xmlobj $xmlobj 54 53 set _datatable [$xmlobj element -as object $path] 55 54 56 55 # build up vectors for various components of the datatable 57 56 Build … … 67 66 68 67 # ---------------------------------------------------------------------- 69 # USAGE: values 68 # USAGE: values 70 69 # 71 70 # Returns the values for the datatable as a BLT tree. … … 76 75 77 76 # ---------------------------------------------------------------------- 78 # USAGE: columns 77 # USAGE: columns 79 78 # 80 79 # Returns the columns of the datatable in order. … … 144 143 foreach row $csvlist { 145 144 set child [$_tree insert 0] 146 set c 0 145 set c 0 147 146 foreach value $row {label description style} $_columns { 148 147 if { $label == "" } { … … 150 149 } 151 150 $_tree set $child $label $value 152 incr c 151 incr c 153 152 } 154 153 }
Note: See TracChangeset
for help on using the changeset viewer.