Lines Matching refs:adjust
94 bind $win <Left> [mymethod adjust -1 0 0]
95 bind $win <Right> [mymethod adjust 1 0 0]
97 bind $win <Up> [mymethod adjust -7 0 0]
98 bind $win <Down> [mymethod adjust 7 0 0]
100 bind $win <Control-Left> [mymethod adjust 0 -1 0]
101 bind $win <Control-Right> [mymethod adjust 0 1 0]
103 bind $win <Control-Up> [mymethod adjust 0 0 -1]
104 bind $win <Control-Down> [mymethod adjust 0 0 1]
260 # adjust --
272 method adjust {dday dmonth dyear} {
362 $self cbutton [expr {$xs+2}] $pad -$xs [mymethod adjust 0 0 -1]; # <<
363 $self cbutton [expr {$xs*2}] $pad [expr {-$xs/1.5}] [mymethod adjust 0 -1 0]; # <
365 $self cbutton $lxs $pad $xs [mymethod adjust 0 0 1]; # >>
367 $self cbutton $lxs $pad [expr {$xs/1.5}] [mymethod adjust 0 1 0]; # >