Lines Matching refs:m

51   set m [menu $w.mb.file.m -tearoff 0]
52   $m add command -label {Close} -command "destroy $w"
65     set m [menu $editmenu -tearoff 0]
66     $m add command -label Cut -command "sqlitecon::Cut $w.t"
67     $m add command -label Copy -command "sqlitecon::Copy $w.t"
68     $m add command -label Paste -command "sqlitecon::Paste $w.t"
69     $m add command -label {Clear Screen} -command "sqlitecon::Clear $w.t"
70     $m add separator
71     $m add command -label {Save As...} -command "sqlitecon::SaveFile $w.t"
599   set m $v(editmenu)
600   if {$m=="" || ![winfo exists $m]} return
603       $m entryconf Copy -state disabled
604       $m entryconf Cut -state disabled
607       $m entryconf Copy -state normal
608       $m entryconf Cut -state normal
611       $m entryconf Copy -state normal
612       $m entryconf Cut -state disabled