Changeset 3080
- Timestamp:
- Jul 6, 2012, 7:17:47 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/textentry.tcl
r3079 r3080 256 256 -foreground $itk_option(-textforeground) 257 257 258 bind $itk_component(entry) <KeyPress> \ 258 # Make sure these event bindings occur after the class bindings. 259 # Otherwise you'll always get the entry value before the edit. 260 bind textentry <KeyPress> \ 259 261 [itcl::code $this _newValue] 260 bind $itk_component(entry)<Control-KeyPress-a> \262 bind textentry <Control-KeyPress-a> \ 261 263 "[list $itk_component(entry) selection range 0 end]; break" 264 set bindtags [bindtags $itk_component(entry)] 265 lappend bindtags textentry 266 bindtags $itk_component(entry) $bindtags 262 267 263 268 itk_component add emenu {
Note: See TracChangeset
for help on using the changeset viewer.