Changeset 3100
- Timestamp:
- Jul 17, 2012 7:00:28 AM (12 years ago)
- Location:
- trunk/gui/scripts
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/drawingentry.tcl
r3079 r3100 407 407 "outline" "-outline" 408 408 "fill" "-fill" 409 "linewidth" "- linewidth"409 "linewidth" "-width" 410 410 } 411 411 #puts stderr "ParseOval owner=$_owner cpath=$cpath" … … 414 414 array set options { 415 415 -fill blue 416 - linewidth 1416 -width 1 417 417 -outline black 418 418 } … … 432 432 } 433 433 foreach { x1 y1 x2 y2 } [ScreenCoords $coords] break 434 set id [ eval $itk_component(drawing) create oval $coords]434 set id [$itk_component(drawing) create oval $x1 $y1 $x2 $y2] 435 435 set _cname2id($cname) $id 436 eval $itk_component(drawing) itemconfigure $id [array get options] 436 437 } 437 438 … … 536 537 array set attr2option { 537 538 "linewidth" "-width" 538 "arrow" "-arrow"539 539 "color" "-fill" 540 540 } 541 541 # Set default options first and then let tool.xml override them. 542 542 array set options { 543 - arrow none544 - width 0545 - fillblack543 -width 1 544 -fill blue 545 -outline black 546 546 } 547 547 # Coords … … 578 578 "outline" "-outline" 579 579 "fill" "-fill" 580 "linewidth" "- linewidth"580 "linewidth" "-width" 581 581 } 582 582 #puts stderr "ParseRectangle owner=$_owner cpath=$cpath" … … 585 585 array set options { 586 586 -fill blue 587 - linewidth 1587 -width 1 588 588 -outline black 589 589 } … … 602 602 } 603 603 foreach { x1 y1 x2 y2 } [ScreenCoords $coords] break 604 set id [eval $itk_component(drawing) create rectangle $coords] 604 foreach { x1 y1 x2 y2 } [ScreenCoords $coords] break 605 set id [$itk_component(drawing) create rectangle $x1 $y1 $x2 $y2] 606 puts stderr "$itk_component(drawing) create rectangle $x1 $y1 $x2 $y2" 605 607 set _cname2id($cname) $id 608 eval $itk_component(drawing) itemconfigure $id [array get options] 606 609 } 607 610 -
trunk/gui/scripts/htmlviewer.tcl
r3098 r3100 304 304 if {"" != $node} { 305 305 set bbox [$itk_component(html) bbox $node] 306 if { $bbox != "" } { 307 set realht [expr {[lindex $bbox 3]-[lindex $bbox 1]}] 308 } 306 set realht [expr {[lindex $bbox 3]-[lindex $bbox 1]}] 309 307 } 310 308 if {$itk_option(-maxlines) > 0} {
Note: See TracChangeset
for help on using the changeset viewer.