- Timestamp:
- Aug 29, 2012, 2:39:15 PM (12 years ago)
- Location:
- trunk/gui/scripts
- Files:
-
- 7 added
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/controlOwner.tcl
r3139 r3157 260 260 error "\"$newobj\" is not a Rappture::library" 261 261 } 262 263 262 foreach path [array names _path2widget] { 264 263 # the following elements do not accept "current" tags, skip them -
trunk/gui/scripts/drawingentry.tcl
r3139 r3157 603 603 set coords "0 0 1 1" 604 604 } 605 foreach { x1 y1 x2 y2 } [ScreenCoords $coords] break 606 foreach { x1 y1 x2 y2 } [ScreenCoords $coords] break 607 set id [$itk_component(drawing) create rectangle $x1 $y1 $x2 $y2] 605 foreach { x1 y1 x2 y2 } [ScreenCoords $coords] break 606 set id [$itk_component(drawing) create rectangle $x1 $y1 $x2 $y2] 608 607 set _cname2id($cname) $id 609 608 eval $itk_component(drawing) itemconfigure $id [array get options] -
trunk/gui/scripts/mesh.tcl
r2792 r3157 366 366 if {![info exists _pts2elem($npts)]} { 367 367 switch -- $npts { 368 3 { 369 set _pts2elem($npts) $this-elem3 370 vtkTriangle $_pts2elem($npts) 371 } 368 372 4 { 369 373 set _pts2elem($npts) $this-elem4 -
trunk/gui/scripts/textentry.tcl
r3080 r3157 349 349 -label [Rappture::filexfer::label download] \ 350 350 -command [itcl::code $this _downloadValue] 351 351 352 352 bind $itk_component(text) <<PopupMenu>> \ 353 353 [itcl::code $this _edit menu tmenu %X %Y] -
trunk/gui/scripts/unirect2d.tcl
r3050 r3157 52 52 } 53 53 set path [$field get $cname.mesh] 54 54 55 set m [$xmlobj element -as object $path] 55 56 GetValue $m "xaxis.min" _xMin
Note: See TracChangeset
for help on using the changeset viewer.