Changeset 2990
- Timestamp:
- May 2, 2012, 7:29:30 AM (12 years ago)
- Location:
- branches/blt4/gui/scripts
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/blt4/gui/scripts/controls.tcl
r2988 r2990 267 267 set _name2info($name-enable) $enable 268 268 269 set hidden [$_owner xml get $_name2info($name-path).hide] 270 if { $hidden != "" } { 271 set _name2info($name-enable) [expr !$hidden] 272 } 269 273 $_owner widgetfor $path $w 270 274 -
branches/blt4/gui/scripts/drawingcontrols.tcl
r2988 r2990 89 89 set controls $_controls 90 90 } 91 foreach name $ _controls {91 foreach name $controls { 92 92 set w $_frame.v$name 93 93 destroy $w 94 if { [info exists _name2info($name-label)] } { 95 destroy $_frame.l$name 96 } 94 97 set i [lsearch $_controls $name] 95 98 set _controls [lreplace $_controls $i $i] -
branches/blt4/gui/scripts/drawingentry.tcl
r2989 r2990 38 38 private variable _yOffset 0 39 39 private variable _yScale 1.0 40 private variable _cursor "" 40 41 41 42 constructor {owner path args} { # defined below } … … 314 315 set value [XmlGet $cpath.$attr] 315 316 lappend _cname2controls($cname) $value 317 puts stderr "$_owner xml put $value.hide 1" 318 $_owner xml put $value.hide 1 316 319 } 317 320 } … … 323 326 } 324 327 set c $itk_component(drawing) 325 set img [image create picture -file ~/ Resize-Handle.png]328 set img [image create picture -file ~/question_mark12.png] 326 329 foreach { x1 y1 } $coords break 327 330 set id [$itk_component(drawing) create image $x1 $y1] … … 332 335 set _cname2id($cname) $id 333 336 set _cname2image($cname) $img 334 #$c bind $id <Enter> [itcl::code $this Activate $cname]335 #$c bind $id <Leave> [itcl::code $this Deactivate $cname]337 $c bind $id <Enter> [itcl::code $this Activate $cname] 338 $c bind $id <Leave> [itcl::code $this Deactivate $cname] 336 339 #$c bind $id <ButtonPress-1> [itcl::code $this Depress $cname] 337 340 $c bind $id <ButtonRelease-1> [itcl::code $this Invoke $cname $x1 $y1] … … 832 835 833 836 # 837 # Activate -- 838 # 839 itcl::body Rappture::DrawingEntry::Activate { cname } { 840 $itk_component(drawing) configure -cursor center_ptr 841 } 842 843 # 844 # Deactivate -- 845 # 846 itcl::body Rappture::DrawingEntry::Deactivate { cname } { 847 $itk_component(drawing) configure -cursor left_ptr 848 } 849 850 # 834 851 # Invoke -- 835 852 #
Note: See TracChangeset
for help on using the changeset viewer.