738 |
(save-window-excursion |
(save-window-excursion |
739 |
(set-window-configuration strokes-window-configuration) |
(set-window-configuration strokes-window-configuration) |
740 |
(when prompt |
(when prompt |
741 |
(message prompt) |
(message "%s" prompt) |
742 |
(setq event (read-event)) |
(setq event (read-event)) |
743 |
(or (strokes-button-press-event-p event) |
(or (strokes-button-press-event-p event) |
744 |
(error "You must draw with the mouse"))) |
(error "You must draw with the mouse"))) |
769 |
(bury-buffer)))) |
(bury-buffer)))) |
770 |
;; Otherwise, don't use strokes buffer and read stroke silently |
;; Otherwise, don't use strokes buffer and read stroke silently |
771 |
(when prompt |
(when prompt |
772 |
(message prompt) |
(message "%s" prompt) |
773 |
(setq event (read-event)) |
(setq event (read-event)) |
774 |
(or (strokes-button-press-event-p event) |
(or (strokes-button-press-event-p event) |
775 |
(error "You must draw with the mouse"))) |
(error "You must draw with the mouse"))) |
799 |
(grid-locs nil)) |
(grid-locs nil)) |
800 |
(if prompt |
(if prompt |
801 |
(while (not (strokes-button-press-event-p event)) |
(while (not (strokes-button-press-event-p event)) |
802 |
(message prompt) |
(message "%s" prompt) |
803 |
(setq event (read-event)))) |
(setq event (read-event)))) |
804 |
(unwind-protect |
(unwind-protect |
805 |
(track-mouse |
(track-mouse |