Lines Matching refs:click
148 (define-key gomoku-mode-map [down-mouse-1] 'gomoku-click)
149 (define-key gomoku-mode-map [drag-mouse-1] 'gomoku-click)
150 (define-key gomoku-mode-map [mouse-1] 'gomoku-click)
151 (define-key gomoku-mode-map [down-mouse-2] 'gomoku-click)
835 (defun gomoku-click (click)
836 "Position at the square where you click."
838 (and (windowp (posn-window (setq click (event-end click))))
839 (numberp (posn-point click))
840 (select-window (posn-window click))
841 (setq click (posn-col-row click))
843 (min (max (/ (+ (- (car click)
853 (min (max (/ (+ (- (cdr click)
865 (defun gomoku-mouse-play (click)
866 "Play at the square where you click."
868 (if (gomoku-click click)