Changeset 1077 for trunk/gui/scripts/textentry.tcl
- Timestamp:
- Jul 23, 2008, 8:00:21 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/textentry.tcl
r724 r1077 311 311 $itk_component(tmenu) add command -label "Select All" -accelerator "^A" -command [list $itk_component(text) tag add sel 1.0 end] 312 312 $itk_component(tmenu) add separator 313 $itk_component(tmenu) add command -label "Upload..." \ 313 314 $itk_component(tmenu) add command \ 315 -label [Rappture::filexfer::label upload] \ 314 316 -command [itcl::code $this _uploadValue -start] 315 $itk_component(tmenu) add command -label "Download" \ 317 $itk_component(tmenu) add command \ 318 -label [Rappture::filexfer::label download] \ 316 319 -command [itcl::code $this _downloadValue] 320 317 321 bind $itk_component(text) <<PopupMenu>> \ 318 322 [itcl::code $this _edit menu tmenu %X %Y]
Note: See TracChangeset
for help on using the changeset viewer.