int
mvpw_event_flush(void)
{
GR_EVENT event;
if (widget_count == 0)
return -1;
while (widget_count > 0) {
GrCheckNextEvent(&event);
switch (event.type) {
case GR_EVENT_TYPE_EXPOSURE:
exposure(&event.exposure);
break;
case GR_EVENT_TYPE_KEY_DOWN:
keystroke(&event.keystroke);
break;
case GR_EVENT_TYPE_TIMER:
timer(&event.timer);
break;
case GR_EVENT_TYPE_SCREENSAVER:
screensaver(&event.screensaver);
break;
case GR_EVENT_TYPE_FDINPUT:
fdinput(&event.fdinput);
break;
case GR_EVENT_TYPE_NONE:
return 0;
break;
}
}
return 0;
}
boolean Dialog::run() {
Session* s = Session::instance();
Event e;
done_ = false;
for (;;) {
s->read(e);
if (e.grabber() != nil || inside(e)) {
e.handle();
} else if (e.type() == Event::key) {
keystroke(e);
}
if (done_) {
break;
}
if (s->done()) {
accepted_ = false;
break;
}
}
return accepted_;
}
void
pressreturn(void)
{
int c;
int odiscmd;
odiscmd = discmd;
discmd = TRUE;
mlprompt("[Press return to continue]");
discmd = odiscmd;
TTflush();
/* loop for a CR, a space, or a : to do another named command */
while ((c = keystroke()) != '\r' &&
c != '\n' &&
c != ' ' &&
!ABORTED(c)) {
if (kcod2fnc(c) == &f_namedcmd) {
unkeystroke(c);
break;
}
}
TTputc('\r');
TTputc('\n');
}
/* the #ifdefs have been totally separated, for readability */
static int
spawn1(int rerun, int pressret)
{
#if DISP_IBMPC
int closed;
#endif
#if COMMON_SH_PROMPT
register int s;
char line[NLINE]; /* command line send to shell */
if ((s = ShellPrompt(&save_shell[0], line, rerun)) != TRUE)
return s;
#endif /* COMMON_SH_PROMPT */
/* take care of autowrite */
if (writeall(FALSE,1,FALSE,TRUE,TRUE) != TRUE)
return FALSE;
#if SYS_UNIX
#if DISP_X11
(void)system_SHELL(line);
#else
ttclean(TRUE);
(void)system_SHELL(line);
TTflush();
ttunclean();
if (pressret)
pressreturn();
TTopen();
TTkopen();
TTflush();
sgarbf = TRUE;
#endif /* DISP_X11 */
return AfterShell();
#endif /* SYS_UNIX */
#if SYS_VMS
TTputc('\n'); /* Already have '\r' */
TTflush();
s = sys(line); /* Run the command. */
mlforce("\r\n\n[End]"); /* Pause. */
TTflush();
(void)keystroke();
sgarbf = TRUE;
return (s);
#endif
#if SYS_WIN31
mlforce("[Not in Windows 3.1]");
return FALSE;
#endif
#if SYS_MSDOS || SYS_OS2 || SYS_WINNT
bottomleft();
TTputc('\n');
TTflush();
TTkclose();
#if DISP_IBMPC
/* If we don't reset to 80x25, parts of the shell-output will go
* astray.
*/
closed = term.t_ncol != 80 || term.t_nrow != 25;
if (closed)
TTclose();
#endif
system(line);
TTkopen();
/* if we are interactive, pause here */
if (pressret) {
pressreturn();
}
#if DISP_IBMPC
/* Reopen the display _after_ the prompt, to keep the shell-output
* in the same type of screen as the prompt.
*/
if (closed)
TTopen();
#endif
sgarbf = TRUE;
return AfterShell();
#endif
}
static int
xterm_button(int c)
{
WINDOW *wp;
int event;
int button;
int x;
int y;
int status;
#if OPT_XTERM >= 3
int save_row = ttrow;
int save_col = ttcol;
int firstrow, lastrow;
int startx, endx, mousex;
int starty, endy, mousey;
MARK save_dot;
char temp[NSTRING];
static const char *fmt = "\033[%d;%d;%d;%d;%dT";
#endif /* OPT_XTERM >= 3 */
if (insertmode)
return ABORT;
if ((status = (global_g_val(GMDXTERM_MOUSE))) != 0) {
beginDisplay;
switch(c) {
case 'M': /* button-event */
event = keystroke();
x = XtermPos() + x_origin;
y = XtermPos() + y_origin;
button = (event & 3) + 1;
TRACE(("M-button event:%d x:%d y:%d\n", event, x, y))
if (button > 3) {
endofDisplay;
return TRUE; /* button up */
}
wp = row2window(y-1);
#if OPT_XTERM >= 3
/* Tell the xterm how to highlight the selection.
* It won't do anything else until we do this.
*/
if (wp != 0) {
firstrow = wp->w_toprow + 1;
lastrow = mode_row(wp) + 1;
} else { /* from message-line */
firstrow = term.t_nrow ;
lastrow = term.t_nrow + 1;
}
if (y >= lastrow) /* don't select modeline */
y = lastrow - 1;
(void)lsprintf(temp, fmt, 1, x, y, firstrow, lastrow);
putpad(temp);
TTflush();
#endif /* OPT_XTERM >= 3 */
/* Set the dot-location if button 1 was pressed in a
* window.
*/
if (wp != 0
&& button == 1
&& !reading_msg_line
&& setcursor(y-1, x-1)) {
/*mlerase();*/
(void)update(TRUE);
status = TRUE;
} else if (button <= 3) {
#if OPT_XTERM >= 3
/* abort the selection */
(void)lsprintf(temp, fmt, 0, x, y, firstrow, lastrow);
putpad(temp);
TTflush();
#endif /* OPT_XTERM >= 3 */
status = ABORT;
} else {
status = FALSE;
}
break;
#if OPT_XTERM >= 3
case 't': /* reports valid text-location */
x = XtermPos();
y = XtermPos();
TRACE(("t: x:%d y:%d\n", x, y))
setwmark(y-1, x-1);
yankregion();
movecursor(save_row, save_col);
/*mlerase();*/
(void)update(TRUE);
break;
case 'T': /* reports invalid text-location */
/*
* The starting-location returned is not the location
* at which the mouse was pressed. Instead, it is the
* top-most location of the selection. In turn, the
* ending-location is the bottom-most location of the
* selection. The mouse-up location is not necessarily
* a pointer to valid text.
*
* This case handles multi-clicking events as well as
* selections whose start or end location was not
* pointing to text.
*/
save_dot = DOT;
startx = XtermPos(); /* starting-location */
starty = XtermPos();
endx = XtermPos(); /* ending-location */
endy = XtermPos();
mousex = XtermPos(); /* location at mouse-up */
mousey = XtermPos();
TRACE(("T: start(%d,%d) end(%d,%d) mouse(%d,%d)\n",
starty, startx,
endy, endx,
mousey, mousex))
setcursor(starty - 1, startx - 1);
setwmark (endy - 1, endx - 1);
if (MK.o != 0 && !is_at_end_of_line(MK))
MK.o += 1;
yankregion();
DOT = save_dot;
movecursor(save_row, save_col);
/*mlerase();*/
(void)update(TRUE);
break;
#endif /* OPT_XTERM >= 3 */
default:
status = FALSE;
}
endofDisplay;
}