- Timestamp:
- Mar 25, 2005 8:22:06 AM (17 years ago)
- Location:
- trunk/gui
- Files:
-
- 2 added
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/apps/driver
r6 r7 150 150 set dfirst "" 151 151 set dlist [$config children -type structure controls] 152 puts "device: $dlist" 152 153 if {"" != $dlist} { 153 154 foreach dname $dlist { 154 155 set obj [$config element -flavor object controls.$dname] 155 156 set name [$obj get label] 157 puts " => $name = $obj" 156 158 set devs($name) $obj 157 159 } … … 175 177 set first [lindex $devlist 0] 176 178 set dfirst $devs($first) 177 Rappture::DeviceViewer1D $w.device -device $devs($first) \ 178 -tool $tool -library $lib 179 set tags [$dfirst children] 180 set i [lsearch $tags label] 181 if {$i >= 0} {set tags [lreplace $tags $i $i]} 182 183 puts "first device: tags = $tags" 184 if {$tags == "molecule"} { 185 Rappture::MoleculeViewer $w.device -device $devs($first) \ 186 -library $lib 187 } else { 188 Rappture::DeviceViewer1D $w.device -device $devs($first) \ 189 -tool $tool -library $lib 190 } 179 191 pack $w.device -expand yes -fill both 180 192 … … 198 210 switch -glob -- $name { 199 211 parameters.ambient* - structure* { 200 $win.input.device controls add $name201 } 202 } 203 } 212 ## $win.input.device controls add $name 213 } 214 } 215 }
Note: See TracChangeset
for help on using the changeset viewer.