252 lines
7.6 KiB
C
252 lines
7.6 KiB
C
/*
|
|
* inputbox.c -- implements the input box
|
|
*
|
|
* AUTHOR: Savio Lam (lam836@cs.cuhk.hk)
|
|
*
|
|
* This program is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU General Public License
|
|
* as published by the Free Software Foundation; either version 2
|
|
* of the License, or (at your option) any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program; if not, write to the Free Software
|
|
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
*/
|
|
|
|
|
|
#include <dialog.h>
|
|
#include "dialog.priv.h"
|
|
|
|
|
|
/*
|
|
* Line editor
|
|
*/
|
|
int line_edit(WINDOW* dialog, int box_y, int box_x, int flen, int box_width, chtype attr, int first, unsigned char *result)
|
|
{
|
|
int i, key, len, max_len, fix_len;
|
|
chtype old_attr;
|
|
static int input_x, scroll;
|
|
static unsigned char instr[MAX_LEN+1];
|
|
unsigned char erase_char = erasechar();
|
|
unsigned char kill_char = killchar();
|
|
#ifdef notyet
|
|
unsignec char werase_char = cur_term->Ottyb.c_cc[VWERASE];
|
|
#endif
|
|
|
|
old_attr = getattrs(dialog);
|
|
keypad(dialog, TRUE);
|
|
|
|
if (first) {
|
|
memset(instr, 0, sizeof(instr));
|
|
strcpy(instr, result);
|
|
i = strlen(instr);
|
|
input_x = i % box_width;
|
|
scroll = i - input_x;
|
|
}
|
|
wmove(dialog, box_y, box_x);
|
|
wattrset(dialog, attr);
|
|
fix_len = flen >= 0 ? MIN(flen-scroll,box_width) : box_width;
|
|
for (i = 0; i < fix_len; i++)
|
|
waddch(dialog, instr[scroll+i] ? instr[scroll+i] : ' ');
|
|
len = strlen(instr);
|
|
wattrset(dialog, old_attr);
|
|
max_len = MIN(len-scroll,box_width);
|
|
for ( ; i < max_len; i++)
|
|
waddch(dialog, instr[scroll+i]);
|
|
|
|
wmove(dialog, box_y, box_x + input_x);
|
|
for (;;) {
|
|
wattrset(dialog, attr);
|
|
wrefresh(dialog);
|
|
key = wgetch(dialog);
|
|
switch (key) {
|
|
case TAB:
|
|
case KEY_BTAB:
|
|
case KEY_UP:
|
|
case KEY_DOWN:
|
|
case ESC:
|
|
case '\r':
|
|
case '\n':
|
|
for (i = strlen(instr) - 1; i >= scroll + input_x && instr[i] == ' '; i--)
|
|
instr[i] = '\0';
|
|
if (key == '\r')
|
|
key = '\n';
|
|
goto ret;
|
|
case '\025':
|
|
case '\030':
|
|
kill_it:
|
|
memset(instr, 0, sizeof(instr));
|
|
case '\001':
|
|
case KEY_HOME:
|
|
input_x = scroll = 0;
|
|
wmove(dialog, box_y, box_x);
|
|
fix_len = flen >= 0 ? MIN(flen,box_width) : box_width;
|
|
for (i = 0; i < fix_len; i++)
|
|
waddch(dialog, instr[i] ? instr[i] : ' ');
|
|
wattrset(dialog, old_attr);
|
|
max_len = MIN(len,box_width);
|
|
for ( ; i < max_len; i++)
|
|
waddch(dialog, instr[i] ? instr[i] : ' ');
|
|
wmove(dialog, box_y, box_x);
|
|
continue;
|
|
case '\005':
|
|
case KEY_END:
|
|
for (i = strlen(instr) - 1; i >= scroll + input_x && instr[i] == ' '; i--)
|
|
instr[i] = '\0';
|
|
i++;
|
|
input_x = i % box_width;
|
|
scroll = i - input_x;
|
|
wmove(dialog, box_y, box_x);
|
|
fix_len = flen >= 0 ? MIN(flen-scroll,box_width) : box_width;
|
|
for (i = 0; i < fix_len; i++)
|
|
waddch(dialog, instr[scroll+i] ? instr[scroll+i] : ' ');
|
|
wattrset(dialog, old_attr);
|
|
max_len = MIN(len-scroll,box_width);
|
|
for ( ; i < max_len; i++)
|
|
waddch(dialog, instr[scroll+i] ? instr[scroll+i] : ' ');
|
|
wmove(dialog, box_y, input_x + box_x);
|
|
continue;
|
|
case '\002':
|
|
case KEY_LEFT:
|
|
if (input_x || scroll) {
|
|
if (!input_x) {
|
|
int oldscroll = scroll;
|
|
scroll = scroll < box_width-1 ? 0 : scroll-(box_width-1);
|
|
wmove(dialog, box_y, box_x);
|
|
fix_len = flen >= 0 ? MIN(flen-scroll,box_width) : box_width;
|
|
for (i = 0; i < fix_len; i++)
|
|
waddch(dialog, instr[scroll+i] ? instr[scroll+i] : ' ');
|
|
wattrset(dialog, old_attr);
|
|
max_len = MIN(len-scroll,box_width);
|
|
for ( ; i < max_len; i++)
|
|
waddch(dialog, instr[scroll+i] ? instr[scroll+i] : ' ');
|
|
input_x = oldscroll - 1 - scroll;
|
|
}
|
|
else
|
|
input_x--;
|
|
wmove(dialog, box_y, input_x + box_x);
|
|
} else
|
|
beep();
|
|
continue;
|
|
case '\006':
|
|
case KEY_RIGHT:
|
|
if ( scroll+input_x < MAX_LEN
|
|
&& (flen < 0 || scroll+input_x < flen)
|
|
) {
|
|
if (!instr[scroll+input_x])
|
|
instr[scroll+input_x] = ' ';
|
|
if (input_x == box_width-1) {
|
|
scroll++;
|
|
wmove(dialog, box_y, box_x);
|
|
fix_len = flen >= 0 ? MIN(flen-scroll,box_width) : box_width;
|
|
for (i = 0; i < fix_len; i++)
|
|
waddch(dialog, instr[scroll+i] ? instr[scroll+i] : ' ');
|
|
wattrset(dialog, old_attr);
|
|
max_len = MIN(len-scroll,box_width);
|
|
for ( ; i < max_len; i++)
|
|
waddch(dialog, instr[scroll+i] ? instr[scroll+i] : ' ');
|
|
wmove(dialog, box_y, box_x + box_width - 1);
|
|
}
|
|
else {
|
|
wmove(dialog, box_y, input_x + box_x);
|
|
waddch(dialog, instr[scroll+input_x]);
|
|
input_x++;
|
|
}
|
|
} else
|
|
beep(); /* Alarm user about overflow */
|
|
continue;
|
|
case '\b':
|
|
case '\177':
|
|
case KEY_BACKSPACE:
|
|
erase_it:
|
|
if (input_x || scroll) {
|
|
i = strlen(instr);
|
|
memmove(instr+scroll+input_x-1, instr+scroll+input_x, i-(scroll+input_x)+1);
|
|
if (!input_x) {
|
|
int oldscroll = scroll;
|
|
scroll = scroll < box_width-1 ? 0 : scroll-(box_width-1);
|
|
input_x = oldscroll - 1 - scroll;
|
|
}
|
|
else
|
|
input_x--;
|
|
wmove(dialog, box_y, box_x);
|
|
fix_len = flen >= 0 ? MIN(flen-scroll,box_width) : box_width;
|
|
for (i = 0; i < fix_len; i++)
|
|
waddch(dialog, instr[scroll+i] ? instr[scroll+i] : ' ');
|
|
wattrset(dialog, old_attr);
|
|
max_len = MIN(len-scroll,box_width);
|
|
for ( ; i < max_len; i++)
|
|
waddch(dialog, instr[scroll+i] ? instr[scroll+i] : ' ');
|
|
wmove(dialog, box_y, input_x + box_x);
|
|
} else
|
|
beep();
|
|
continue;
|
|
case '\004':
|
|
case KEY_DC:
|
|
for (i = strlen(instr) - 1; i >= scroll + input_x && instr[i] == ' '; i--)
|
|
instr[i] = '\0';
|
|
i++;
|
|
if (i == 0) {
|
|
beep();
|
|
continue;
|
|
}
|
|
memmove(instr+scroll+input_x, instr+scroll+input_x+1, i-(scroll+input_x));
|
|
wmove(dialog, box_y, box_x);
|
|
fix_len = flen >= 0 ? MIN(flen-scroll,box_width) : box_width;
|
|
for (i = 0; i < fix_len; i++)
|
|
waddch(dialog, instr[scroll+i] ? instr[scroll+i] : ' ');
|
|
wattrset(dialog, old_attr);
|
|
max_len = MIN(len-scroll,box_width);
|
|
for ( ; i < max_len; i++)
|
|
waddch(dialog, instr[scroll+i] ? instr[scroll+i] : ' ');
|
|
wmove(dialog, box_y, input_x + box_x);
|
|
continue;
|
|
default:
|
|
if (CCEQ(key, erase_char))
|
|
goto erase_it;
|
|
if (CCEQ(key, kill_char))
|
|
goto kill_it;
|
|
if (key < 0x100 && isprint(key)) {
|
|
for (i = strlen(instr) - 1; i >= scroll + input_x && instr[i] == ' '; i--)
|
|
instr[i] = '\0';
|
|
i++;
|
|
if (i < MAX_LEN && (flen < 0 || scroll+input_x < flen)) {
|
|
if (flen < 0 || i < flen)
|
|
memmove(instr+scroll+input_x+1, instr+scroll+input_x, i-(scroll+input_x));
|
|
instr[scroll+input_x] = key;
|
|
if (input_x == box_width-1 && (flen < 0 || i < flen))
|
|
scroll++;
|
|
else
|
|
input_x++;
|
|
wmove(dialog, box_y, box_x);
|
|
fix_len = flen >= 0 ? MIN(flen-scroll,box_width) : box_width;
|
|
for (i = 0; i < fix_len; i++)
|
|
waddch(dialog, instr[scroll+i] ? instr[scroll+i] : ' ');
|
|
wattrset(dialog, old_attr);
|
|
max_len = MIN(len-scroll,box_width);
|
|
for ( ; i < max_len; i++)
|
|
waddch(dialog, instr[scroll+i] ? instr[scroll+i] : ' ');
|
|
wmove(dialog, box_y, input_x + box_x);
|
|
} else
|
|
beep(); /* Alarm user about overflow */
|
|
continue;
|
|
}
|
|
}
|
|
}
|
|
ret:
|
|
wattrset(dialog, old_attr);
|
|
wmove(dialog, box_y, box_x);
|
|
max_len = MIN(len-scroll,box_width);
|
|
for (i = 0; i < max_len; i++)
|
|
waddch(dialog, instr[scroll+i] ? instr[scroll+i] : ' ');
|
|
wmove(dialog, box_y, input_x + box_x);
|
|
wrefresh(dialog);
|
|
strcpy(result, instr);
|
|
return key;
|
|
}
|