It's been a while since I've done Tk. I've forgotten how to do
the Copy/Paste/Etc menu commands for a text widget.
.menubar add cascade -label Edit -menu .menubar.edit
.menubar.edit add command -label Cut -command {
event generate %W <<Cut>>
} -accel Command-X
.menubar.edit add command -label Copy -command {
set t {event generate %W <<Copy>>}
puts **t=$t**
if {[catch $t rs]} {puts catch**$rs**}
} -accel Command-C
.menubar.edit add command -label Paste -command {
event generate %W <<Paste>>
} -accel Command-V
.menubar.edit add command -label Clear -command {
event generate %W <<Delete>>
}
I enter some text into .t.t
Command-C and Command-V work fine, but Edit>Copy
**t=event generate %W <<Copy>>**
catch**bad window name/identifier "%W"**
This is so frustrating to have this slipped out of my mind. I
tend to do this elementary grot by copy/paste a working wish
script, but I lost a lot on this machine and I can't find text
widget + edit menu online.
--
:-<> Siri Seal of Disavowal #000-001. Disavowed. Denied. Deleted. @
'I desire mercy, not sacrifice.' /|\ Discordia: not just a religion but also a parody. This post / \
I am an Andrea Doria sockpuppet. insults Islam. Mohammed
--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)