Lines Matching refs:src
89 # src - Source window. Must be a menu. It and its
94 proc tkMenuDup {src dst} {
96 foreach option [$src configure] {
103 set last [$src index last]
107 for {set i [$src cget -tearoff]} {$i <= $last} {incr i} {
108 set cmd [list $dst add [$src type $i]]
109 foreach option [$src entryconfigure $i] {
113 if {[$src type $i] == "cascade"} {
114 tkMenuDup [$src entrycget $i -menu] $dst.m$i
121 regsub -all . $src {\\&} quotedSrc
123 regsub -all $quotedSrc [bindtags $src] $dst x
125 foreach event [bind $src] {
126 regsub -all $quotedSrc [bind $src $event] $dst x