Lines Matching refs:mw
37 variable mw
38 set mw(classes) [list Text Listbox Table TreeCtrl]
39 if {![info exists mw(binding)]} {
41 set mw(binding) [bind Text <MouseWheel>]
42 set mw(s-binding) [bind Text <Shift-MouseWheel>]
44 set mw(binding4) [bind Text <4>]
45 set mw(binding5) [bind Text <5>]
49 set mw(ctrl) "Command"
51 set mw(ctrl) "Control"
102 variable mw
109 bind all <$mw(ctrl)-plus> \
111 bind all <$mw(ctrl)-minus> \
126 variable mw
131 bind all <$mw(ctrl)-plus> {}
132 bind all <$mw(ctrl)-minus> {}
467 variable mw
473 foreach class $mw(classes) {
485 foreach class $mw(classes) {
496 variable mw
500 foreach class $mw(classes) {
501 bind $class <MouseWheel> $mw(binding)
502 bind $class <Shift-MouseWheel> $mw(s-binding)
507 foreach class $mw(classes) {
508 bind $class <Button-4> $mw(binding4)
509 bind $class <Button-5> $mw(binding5)