uifc32.c 61.4 KB
Newer Older
deuce's avatar
deuce committed
1
/* uifc32.c */
2
3
4

/* Curses implementation of UIFC (user interface) library based on uifc.c */

rswindell's avatar
rswindell committed
5
6
/* $Id$ */

7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
/****************************************************************************
 * @format.tab-size 4		(Plain Text/Source Code File Header)			*
 * @format.use-tabs true	(see http://www.synchro.net/ptsc_hdr.html)		*
 *																			*
 * Copyright 2003 Rob Swindell - http://www.synchro.net/copyright.html		*
 *																			*
 * This library is free software; you can redistribute it and/or			*
 * modify it under the terms of the GNU Lesser General Public License		*
 * as published by the Free Software Foundation; either version 2			*
 * of the License, or (at your option) any later version.					*
 * See the GNU Lesser General Public License for more details: lgpl.txt or	*
 * http://www.fsf.org/copyleft/lesser.html									*
 *																			*
 * Anonymous FTP access to the most recent released source is available at	*
 * ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net	*
 *																			*
 * Anonymous CVS access to the development source and modification history	*
 * is available at cvs.synchro.net:/cvsroot/sbbs, example:					*
 * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs login			*
 *     (just hit return, no password is necessary)							*
 * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs checkout src		*
 *																			*
 * For Synchronet coding style and modification guidelines, see				*
 * http://www.synchro.net/source.html										*
 *																			*
 * You are encouraged to submit any modifications (preferably in Unix diff	*
 * format) via e-mail to mods@synchro.net									*
 *																			*
 * Note: If this box doesn't appear square, then you need to fix your tabs.	*
 ****************************************************************************/

#ifdef __unix__
	#include <stdio.h>
	#include <unistd.h>
	#ifdef __QNX__
		#include <strings.h>
	#endif
	#include "ciowrap.h"
    #define mswait(x) delay(x)
deuce's avatar
deuce committed
46
47
48
49
50
51
	#if defined(putch) && defined(NO_ECHOCHAR)
		#undef putch
	#endif
	#if !defined(putch)
    	#define putch(x)	_putch(x,TRUE)
	#endif
52
    #define clreol()	clrtoeol()
53
54
55
56
#elif defined(_WIN32)
	#include <share.h>
	#include <conio.h>
	#include <windows.h>
57
	#include "keys.h"
58
59
60
61
	#define mswait(x) Sleep(x)
#endif

#include "uifc.h"
62
#define MAX_GETSTR	5120
63
64
65
66
67
68
69
70
							/* Bottom line elements */
#define BL_INS      (1<<0)  /* INS key */
#define BL_DEL      (1<<1)  /* DEL key */
#define BL_GET      (1<<2)  /* Get key */
#define BL_PUT      (1<<3)  /* Put key */

#define BLINK	128

71
static char  hclr,lclr,bclr,cclr,lbclr;
72
73
74
static int   cursor;
static char* helpfile=0;
static uint  helpline=0;
deuce's avatar
deuce committed
75
76
77
static size_t blk_scrn_len;
static char* blk_scrn;
static uchar* tmp_buffer;
78
static uchar* tmp_buffer2;
79
80
81
82
83
84
85
static win_t sav[MAX_BUFS];
static uifcapi_t* api;

/* Prototypes */
static int   uprintf(int x, int y, unsigned char attr, char *fmt,...);
static void  bottomline(int line);
static char  *utimestr(time_t *intime);
deuce's avatar
deuce committed
86
static void  help(void);
87
static int   ugetstr(int left, int top, int width, char *outstr, int max, long mode, int *lastkey);
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
static void  timedisplay(void);

/* API routines */
static void uifcbail(void);
static int  uscrn(char *str);
static int  ulist(int mode, int left, int top, int width, int *dflt, int *bar
	,char *title, char **option);
static int  uinput(int imode, int left, int top, char *prompt, char *str
	,int len ,int kmode);
static void umsg(char *str);
static void upop(char *str);
static void sethelp(int line, char* file);
static void showbuf(int mode, int left, int top, int width, int height, char *title
	, char *hbuf, int *curp, int *barp);

/* Dynamic menu support */
static int *last_menu_cur=NULL;
static int *last_menu_bar=NULL;
static int save_menu_cur=-1;
static int save_menu_bar=-1;

109
110
111
112
113
114
115
/* Internal Structs */
struct uifc_mouse_event {
	int	x;
	int	y;
	int	button;
};

116
117
118
119
120
121
122
123
/* Mouse support */
#ifdef _WIN32
int	uifc_last_button_press=0;
struct uifc_mouse_event	last_mouse_click;
#define kbhit()	console_hit()
int	console_hit(void);
#endif

124
125
126
127
128
129
130
131
132
133
134
135
static void reset_dynamic(void) {
	last_menu_cur=NULL;
	last_menu_bar=NULL;
	save_menu_cur=-1;
	save_menu_bar=-1;
}

/****************************************************************************/
/* Initialization function, see uifc.h for details.							*/
/* Returns 0 on success.													*/
/****************************************************************************/

deuce's avatar
deuce committed
136
int kbwait(void) {
137
	int timeout=0;
138
	while(timeout++<50) {
139
		if(kbhit())
140
			return(TRUE);
141
		mswait(1);
142
143
144
145
	}
	return(FALSE);
}

146
147
#ifdef _WIN32

148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
int console_hit(void)
{
	INPUT_RECORD input;
	DWORD num=0;

	while(1) {
		if(!PeekConsoleInput(GetStdHandle(STD_INPUT_HANDLE), &input, 1, &num)
			|| !num)
			break;
		if(input.EventType==KEY_EVENT && input.Event.KeyEvent.bKeyDown)
			return(1);
		if(input.EventType==MOUSE_EVENT) {
			if(!input.Event.MouseEvent.dwEventFlags
				&& (!input.Event.MouseEvent.dwButtonState
					|| input.Event.MouseEvent.dwButtonState==FROM_LEFT_1ST_BUTTON_PRESSED
					|| input.Event.MouseEvent.dwButtonState==RIGHTMOST_BUTTON_PRESSED))
				return(1);
			else
				uifc_last_button_press=0;
		}
		if(ReadConsoleInput(GetStdHandle(STD_INPUT_HANDLE), &input, 1, &num)
			&& num) {
			continue;
		}
	}
	return(0);
}

176
int inkey()
177
{
178
179
180
	char str[128];
	INPUT_RECORD input;
	DWORD num=0;
181

182
183
	while(1) {
		if(!ReadConsoleInput(GetStdHandle(STD_INPUT_HANDLE), &input, 1, &num)
184
			|| !num || (input.EventType!=KEY_EVENT && input.EventType!=MOUSE_EVENT))
185
186
			continue;

187
188
189
190
		switch(input.EventType) {
			case KEY_EVENT:
				if(!input.Event.KeyEvent.bKeyDown)
					continue;
191
#if 0
192
193
194
195
196
197
198
199
200
201
202
203
				sprintf(str,"keydown=%d\n",input.Event.KeyEvent.bKeyDown);
				OutputDebugString(str);
				sprintf(str,"repeat=%d\n",input.Event.KeyEvent.wRepeatCount);
				OutputDebugString(str);
				sprintf(str,"keycode=%x\n",input.Event.KeyEvent.wVirtualKeyCode);
				OutputDebugString(str);
				sprintf(str,"scancode=%x\n",input.Event.KeyEvent.wVirtualScanCode);
				OutputDebugString(str);
				sprintf(str,"ascii=%d\n",input.Event.KeyEvent.uChar.AsciiChar);
				OutputDebugString(str);
				sprintf(str,"dwControlKeyState=%lx\n",input.Event.KeyEvent.dwControlKeyState);
				OutputDebugString(str);
204
#endif
205

206
207
				if(input.Event.KeyEvent.uChar.AsciiChar)
					return(input.Event.KeyEvent.uChar.AsciiChar);
208

209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
				return(input.Event.KeyEvent.wVirtualScanCode<<8);
				break;
			case MOUSE_EVENT:
				if(input.Event.MouseEvent.dwEventFlags!=0) {
					uifc_last_button_press=0;
					continue;
				}
				if(input.Event.MouseEvent.dwButtonState==0) {
					if(uifc_last_button_press) {
						last_mouse_click.x=input.Event.MouseEvent.dwMousePosition.X;
						last_mouse_click.y=input.Event.MouseEvent.dwMousePosition.Y;
						last_mouse_click.button=uifc_last_button_press;
						uifc_last_button_press=0;
						return(KEY_MOUSE);
					}
				}
				else {
					uifc_last_button_press=0;
					switch(input.Event.MouseEvent.dwButtonState) {
						case FROM_LEFT_1ST_BUTTON_PRESSED:
							uifc_last_button_press=1;
							break;
						case RIGHTMOST_BUTTON_PRESSED:
							uifc_last_button_press=2;
							break;
						default:
							uifc_last_button_press=0;
					}
				}
		}
239
240
241
	}

	return(0);
242
}
243

244
245
246
247
248
249
#else 

	#define inkey() getch()

#endif

250
251
252
253
int uifcini32(uifcapi_t* uifcapi)
{
	int 	i;
	struct	text_info txtinfo;
254
255
256
#ifdef _WIN32
	DWORD	conmode;
#endif
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271

    if(uifcapi==NULL || uifcapi->size!=sizeof(uifcapi_t))
        return(-1);

    api=uifcapi;

    /* install function handlers */            
    api->bail=uifcbail;
    api->scrn=uscrn;
    api->msg=umsg;
    api->pop=upop;
    api->list=ulist;
    api->input=uinput;
    api->sethelp=sethelp;
    api->showhelp=help;
deuce's avatar
deuce committed
272
	api->showbuf=showbuf;
273
	api->timedisplay=timedisplay;
274
	api->getstrxy=ugetstr;
275

276
277
278
279
	/* A esc_delay of less than 10 is stupid... silently override */
	if(api->esc_delay < 10)
		api->esc_delay=25;

280
281
282
283
284
285
#ifdef PDCURSES
	if(mouse_set(BUTTON1_CLICKED|BUTTON3_CLICKED)==0)
		api->mode|=UIFC_MOUSE;
	else
		mouse_set(0);
#endif
286
287
288
289
#ifdef __unix__
	initciowrap(api->mode);
	#ifdef NCURSES_VERSION_MAJOR
		ESCDELAY=api->esc_delay;
290
291
292
293
294
		
		if(mousemask(BUTTON1_CLICKED|BUTTON3_CLICKED,NULL)==BUTTON1_CLICKED|BUTTON3_CLICKED)
			api->mode|=UIFC_MOUSE;
		else
			mousemask(0,NULL);
295
	#endif
296
	
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
#else
    if(api->scrn_len!=0) {
        switch(api->scrn_len) {
            case 14:
                textmode(C80X14);
                break;
            case 21:
                textmode(C80X21);
                break;
            case 25:
                textmode(C80);
                break;
            case 28:
                textmode(C80X28);
                break;
            case 43:
                textmode(C80X43);
                break;
            case 50:
                textmode(C80X50);
                break;
            case 60:
                textmode(C80X60);
                break;
            default:
                textmode(C4350);
                break;
        }
    }
#endif

    clrscr();

    gettextinfo(&txtinfo);
#ifdef _WIN32
332
	api->mode|=UIFC_MOUSE;
333
334
    /* unsupported mode? */
    if(txtinfo.screenheight<MIN_LINES
deuce's avatar
deuce committed
335
/*        || txtinfo.screenheight>MAX_LINES */
336
337
338
339
        || txtinfo.screenwidth<80) {
        textmode(C80);  /* set mode to 80x25*/
        gettextinfo(&txtinfo);
    }
340
341

	if(GetConsoleMode(GetStdHandle(STD_INPUT_HANDLE), &conmode))
342
343
344
		conmode&=~ENABLE_PROCESSED_INPUT;
		conmode|=ENABLE_MOUSE_INPUT;
		SetConsoleMode(GetStdHandle(STD_INPUT_HANDLE), conmode);
345
346
347
#endif

    api->scrn_len=txtinfo.screenheight;
deuce's avatar
deuce committed
348
349
350
    if(api->scrn_len<MIN_LINES) {
        cprintf("\7UIFC: Screen length (%u) must be %d lines or greater\r\n"
            ,api->scrn_len,MIN_LINES);
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
        return(-2);
    }
    api->scrn_len--; /* account for status line */

    if(txtinfo.screenwidth<80) {
        cprintf("\7UIFC: Screen width (%u) must be at least 80 characters\r\n"
            ,txtinfo.screenwidth);
        return(-3);
    }
	api->scrn_width=txtinfo.screenwidth;

    if(!(api->mode&UIFC_COLOR)
        && (api->mode&UIFC_MONO
            || txtinfo.currmode==MONO || txtinfo.currmode==BW80)) {
        bclr=BLACK;
        hclr=WHITE;
        lclr=LIGHTGRAY;
        cclr=LIGHTGRAY;
369
370
371
372
373
374
#ifdef __unix__
		if(txtinfo.currmode==MONO)
			lbclr=WHITE|(BLACK<<4);		/* no color on curses means no inverse either */
		else
#endif
			lbclr=BLACK|(LIGHTGRAY<<4);	/* lightbar color */
375
376
377
378
379
    } else {
        bclr=BLUE;
        hclr=YELLOW;
        lclr=WHITE;
        cclr=CYAN;
380
		lbclr=BLUE|(LIGHTGRAY<<4);	/* lightbar color */
381
    }
382

deuce's avatar
deuce committed
383
384
385
386
387
388
389
390
391
392
393
	blk_scrn_len=api->scrn_width*api->scrn_len*2;
	if((blk_scrn=(char *)MALLOC(blk_scrn_len))==NULL)  {
				cprintf("UIFC line %d: error allocating %u bytes."
					,__LINE__,blk_scrn_len);
				return(-1);
	}
	if((tmp_buffer=(uchar *)MALLOC(blk_scrn_len))==NULL)  {
				cprintf("UIFC line %d: error allocating %u bytes."
					,__LINE__,blk_scrn_len);
				return(-1);
	}
394
395
396
397
398
	if((tmp_buffer2=(uchar *)MALLOC(blk_scrn_len))==NULL)  {
				cprintf("UIFC line %d: error allocating %u bytes."
					,__LINE__,blk_scrn_len);
				return(-1);
	}
deuce's avatar
deuce committed
399
    for(i=0;i<blk_scrn_len;i+=2) {
400
401
402
403
404
405
406
407
408
409
        blk_scrn[i]='';
        blk_scrn[i+1]=cclr|(bclr<<4);
    }

    cursor=_NOCURSOR;
    _setcursortype(cursor);

    return(0);
}

410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
static void hidemouse(void)
{
	if(api->mode&UIFC_MOUSE) {
		#ifdef XCURSES
			mouse_set(0);
		#endif
		#ifdef NCURSES_VERSION_MAJOR
			mousemask(0,NULL);
		#endif
	}
}

static void showmouse(void)
{
	if(api->mode&UIFC_MOUSE) {
		#ifdef XCURSES
			mouse_set(BUTTON1_CLICKED|BUTTON3_CLICKED);
		#endif
		#ifdef NCURSES_VERSION_MAJOR
			mousemask(BUTTON1_CLICKED|BUTTON3_CLICKED,NULL);
		#endif
	}
}

static int uifc_getmouse(struct uifc_mouse_event *mevent)
{
	mevent->x=0;
	mevent->y=0;
	mevent->button=0;
	if(api->mode&UIFC_MOUSE) {
440
441
442
		#ifdef _WIN32
			memcpy(mevent,&last_mouse_click,sizeof(last_mouse_click));
		#endif
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
		#ifdef NCURSES_VERSION_MAJOR
			MEVENT	mevnt;

			if(getmouse(&mevnt)==OK) {
				mevent->x=mevnt.x;
				mevent->y=mevnt.y;
				switch(mevnt.bstate) {
					case BUTTON1_CLICKED:
						mevent->button=1;
						break;
					case BUTTON3_CLICKED:
						mevent->button=2;
						break;
				}
			}
			else
				return(-1);
		#endif
		#ifdef XCURSES
			if(getmouse()==0) {
				mevent->x=Mouse_status.x;
				mevent->y=Mouse_status.y;
				if(Mouse_status.button[1]==BUTTON_CLICKED)
					mevent->button=1;
				if(Mouse_status.button[3]==BUTTON_CLICKED)
					mevent->button=3;
			}
			else
				return(-1);
		#endif
473
474
475

		if(mevent->button==2)
			return(ESC);
476
		if(mevent->y==api->buttony) {
477
			if(mevent->x>=api->exitstart
478
					&& mevent->x<=api->exitend
479
					&& mevent->button==1) {
480
481
482
483
484
485
486
487
488
489
490
491
492
				return(ESC);
			}
			if(mevent->x>=api->helpstart
					&& mevent->x<=api->helpend
					&& mevent->button==1) {
				return(KEY_F(1));
			}
		}
		return(0);
	}
	return(-1);
}

493
494
495
496
void uifcbail(void)
{
	_setcursortype(_NORMALCURSOR);
	textattr(LIGHTGRAY);
497
	hidemouse();
498
499
500
501
502
503
504
	clrscr();
#ifdef __unix__
	nl();
	nocbreak();
	noraw();
	refresh();
	endwin();
505
506
507
#ifdef XCURSES
	XCursesExit();
#endif
508
#endif
deuce's avatar
deuce committed
509
510
	FREE(blk_scrn);
	FREE(tmp_buffer);
511
	FREE(tmp_buffer2);
512
513
514
515
516
517
518
519
520
521
}

/****************************************************************************/
/* Clear screen, fill with background attribute, display application title.	*/
/* Returns 0 on success.													*/
/****************************************************************************/
int uscrn(char *str)
{
    textattr(bclr|(cclr<<4));
    gotoxy(1,1);
522
    clreol();
523
524
525
526
527
    gotoxy(3,1);
	cputs(str);
    if(!puttext(1,2,api->scrn_width,api->scrn_len,blk_scrn))
        return(-1);
    gotoxy(1,api->scrn_len+1);
528
    clreol();
529
530
531
532
533
534
535
536
	reset_dynamic();
    return(0);
}

/****************************************************************************/
/****************************************************************************/
static void scroll_text(int x1, int y1, int x2, int y2, int down)
{
537
	gettext(x1,y1,x2,y2,tmp_buffer2);
538
	if(down)
539
		puttext(x1,y1+1,x2,y2,tmp_buffer2);
540
	else
541
		puttext(x1,y1,x2,y2-1,tmp_buffer2+(((x2-x1)+1)*2));
542
543
544
545
546
547
548
549
550
551
552
553
554
}

/****************************************************************************/
/* Updates time in upper left corner of screen with current time in ASCII/  */
/* Unix format																*/
/****************************************************************************/
static void timedisplay()
{
	static time_t savetime;
	time_t now;

	now=time(NULL);
	if(difftime(now,savetime)>=60) {
555
		uprintf(api->scrn_width-25,1,bclr|(cclr<<4),utimestr(&now));
556
557
558
559
560
561
562
563
564
565
566
567
		savetime=now; 
	}
}

/****************************************************************************/
/* Truncates white-space chars off end of 'str'								*/
/****************************************************************************/
static void truncsp(char *str)
{
	uint c;

	c=strlen(str);
deuce's avatar
deuce committed
568
	while(c && (uchar)str[c-1]<=' ') c--;
569
570
571
572
573
574
575
576
	if(str[c]!=0)	/* don't write to string constants */
		str[c]=0;
}

/****************************************************************************/
/* General menu function, see uifc.h for details.							*/
/****************************************************************************/
int ulist(int mode, int left, int top, int width, int *cur, int *bar
deuce's avatar
deuce committed
577
	, char *initial_title, char **option)
578
{
579
	uchar line[256],shade[256],*ptr,longopt
580
		,search[MAX_OPLN],bline=0,*win;
581
582
583
	int height,y;
	int i,j,opts=0,s=0; /* s=search index into options */
	int	is_redraw=0;
deuce's avatar
deuce committed
584
585
586
587
	uint s_top=SCRN_TOP;
	uint s_left=SCRN_LEFT;
	uint s_right=SCRN_RIGHT;
	uint s_bottom=api->scrn_len-3;
588
589
	uint title_len;
	struct uifc_mouse_event mevnt;
590
	char	*title;
591
	int	a,b,c;
592

593
594
595
596
597
598
	if((title=(char *)MALLOC(strlen(initial_title)+1))==NULL) {
		cprintf("UIFC line %d: error allocating %u bytes."
			,__LINE__,strlen(title)+1);
		return(-1);
	}
	strcpy(title,initial_title);
599
600
601
	hidemouse();

	title_len=strlen(title);
602
603
604

	if(mode&WIN_FAT) {
		s_top=1;
605
		s_left=2;
606
607
		s_right=api->scrn_width-3;  /* Leave space for the shadow */
		s_bottom=api->scrn_len-1;   /* Leave one for the shadow */
608
	}
609
610
611
612
613
614
615
	if(mode&WIN_SAV && api->savnum>=MAX_BUFS-1)
		putch(7);
	if(mode&WIN_INS) bline|=BL_INS;
	if(mode&WIN_DEL) bline|=BL_DEL;
	if(mode&WIN_GET) bline|=BL_GET;
	if(mode&WIN_PUT) bline|=BL_PUT;
	bottomline(bline);
deuce's avatar
deuce committed
616
	while(opts<MAX_OPTS)
617
618
619
		if(option[opts][0]==0)
			break;
		else opts++;
deuce's avatar
deuce committed
620
	if(mode&WIN_XTR && opts<MAX_OPTS)
621
		opts++;
622
	height=opts+4;
623
624
	if(top+height>s_bottom)
		height=(s_bottom)-top;
625
626
	if(!width || width<title_len+6) {
		width=title_len+6;
627
628
629
		for(i=0;i<opts;i++) {
			truncsp(option[i]);
			if((j=strlen(option[i])+5)>width)
630
				width=j;
631
632
		}
	}
633
634
	if(width>(s_right+1)-s_left) {
		width=(s_right+1)-s_left;
635
		if(title_len>(width-4)) {
636
637
638
639
			*(title+width-7)='.';
			*(title+width-6)='.';
			*(title+width-5)='.';
			*(title+width-4)=0;
640
			title_len=strlen(title);
641
		}
642
	}
643
	if(mode&WIN_L2R)
deuce's avatar
deuce committed
644
		left=(s_right-s_left-width+1)/2;
645
	else if(mode&WIN_RHT)
deuce's avatar
deuce committed
646
		left=s_right-(width+4+left);
647
	if(mode&WIN_T2B)
deuce's avatar
deuce committed
648
		top=(api->scrn_len-height+1)/2-2;
649
	else if(mode&WIN_BOT)
650
		top=s_bottom-height-top;
651
652
	if(left<0)
		left=0;
653
654
	if(top<0)
		top=0;
655
656
657

	/* Dynamic Menus */
	if(mode&WIN_DYN
658
659
660
			&& cur != NULL
			&& bar != NULL
			&& last_menu_cur==cur
661
662
663
664
			&& last_menu_bar==bar
			&& save_menu_cur==*cur
			&& save_menu_bar==*bar)
		is_redraw=1;
665
666
667
668
	if(mode&WIN_DYN && mode&WIN_REDRAW)
		is_redraw=1;
	if(mode&WIN_DYN && mode&WIN_NODRAW)
		is_redraw=0;
669
670
671
672
673
674

	if(!is_redraw) {
		if(mode&WIN_SAV && api->savdepth==api->savnum) {
			if((sav[api->savnum].buf=(char *)MALLOC((width+3)*(height+2)*2))==NULL) {
				cprintf("UIFC line %d: error allocating %u bytes."
					,__LINE__,(width+3)*(height+2)*2);
675
				free(title);
676
				return(-1);
677
			}
678
679
680
681
682
683
			gettext(s_left+left,s_top+top,s_left+left+width+1
				,s_top+top+height,sav[api->savnum].buf);
			sav[api->savnum].left=s_left+left;
			sav[api->savnum].top=s_top+top;
			sav[api->savnum].right=s_left+left+width+1;
			sav[api->savnum].bot=s_top+top+height;
684
			api->savdepth++;
685
686
		}
		else if(mode&WIN_SAV
687
688
689
690
			&& (sav[api->savnum].left!=s_left+left
			|| sav[api->savnum].top!=s_top+top
			|| sav[api->savnum].right!=s_left+left+width+1
			|| sav[api->savnum].bot!=s_top+top+height)) { /* dimensions have changed */
691
692
693
694
695
696
			puttext(sav[api->savnum].left,sav[api->savnum].top,sav[api->savnum].right,sav[api->savnum].bot
				,sav[api->savnum].buf);	/* put original window back */
			FREE(sav[api->savnum].buf);
			if((sav[api->savnum].buf=(char *)MALLOC((width+3)*(height+2)*2))==NULL) {
				cprintf("UIFC line %d: error allocating %u bytes."
					,__LINE__,(width+3)*(height+2)*2);
697
				free(title);
698
				return(-1);
699
			}
700
701
702
703
704
705
			gettext(s_left+left,s_top+top,s_left+left+width+1
				,s_top+top+height,sav[api->savnum].buf);	  /* save again */
			sav[api->savnum].left=s_left+left;
			sav[api->savnum].top=s_top+top;
			sav[api->savnum].right=s_left+left+width+1;
			sav[api->savnum].bot=s_top+top+height;
706
		}
707
708
709
710
711
	}

	if(!is_redraw) {
		if(mode&WIN_ORG) { /* Clear around menu */
			if(top)
712
				puttext(1,2,api->scrn_width,s_top+top-1,blk_scrn);
713
			if(s_top+height+top<=api->scrn_len)
deuce's avatar
deuce committed
714
				puttext(1,s_top+height+top,api->scrn_width,api->scrn_len,blk_scrn);
715
			if(left)
deuce's avatar
deuce committed
716
				puttext(1,s_top+top,s_left+left-1,s_top+height+top
717
					,blk_scrn);
718
			if(s_left+left+width<=s_right)
deuce's avatar
deuce committed
719
				puttext(s_left+left+width,s_top+top,/* s_right+2 */api->scrn_width
720
					,s_top+height+top,blk_scrn);
721
		}
deuce's avatar
deuce committed
722
		ptr=tmp_buffer;
723
724
725
		*(ptr++)='';
		*(ptr++)=hclr|(bclr<<4);

726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
		if(api->mode&UIFC_MOUSE) {
			*(ptr++)='[';
			*(ptr++)=hclr|(bclr<<4);
			/* *(ptr++)=''; */
			*(ptr++)='X';
			*(ptr++)=lclr|(bclr<<4);
			*(ptr++)=']';
			*(ptr++)=hclr|(bclr<<4);
			*(ptr++)='[';
			*(ptr++)=hclr|(bclr<<4);
			*(ptr++)='?';
			*(ptr++)=lclr|(bclr<<4);
			*(ptr++)=']';
			*(ptr++)=hclr|(bclr<<4);
			i=6;
			api->buttony=s_top+top-1;
			api->exitstart=s_left+left;
			api->exitend=s_left+left+2;
			api->helpstart=s_left+left+3;
			api->helpend=s_left+left+5;
		}
		else
			i=0;

750
751
		for(;i<width-2;i++) {
			*(ptr++)='';
752
			*(ptr++)=hclr|(bclr<<4);
753
754
755
756
757
		}
		*(ptr++)='';
		*(ptr++)=hclr|(bclr<<4);
		*(ptr++)='';
		*(ptr++)=hclr|(bclr<<4);
758
		a=title_len;
759
760
761
		b=(width-a-1)/2;
		for(i=0;i<b;i++) {
			*(ptr++)=' ';
762
			*(ptr++)=hclr|(bclr<<4);
763
764
765
		}
		for(i=0;i<a;i++) {
			*(ptr++)=title[i];
766
			*(ptr++)=hclr|(bclr<<4);
767
768
769
		}
		for(i=0;i<width-(a+b)-2;i++) {
			*(ptr++)=' ';
770
			*(ptr++)=hclr|(bclr<<4);
771
772
773
774
775
776
777
		}
		*(ptr++)='';
		*(ptr++)=hclr|(bclr<<4);
		*(ptr++)='';
		*(ptr++)=hclr|(bclr<<4);
		for(i=0;i<width-2;i++) {
			*(ptr++)='';
778
			*(ptr++)=hclr|(bclr<<4);
779
780
781
782
783
784
785
786
787
788
		}
		*(ptr++)='';
		*(ptr++)=hclr|(bclr<<4);

		if((*cur)>=opts)
			(*cur)=opts-1;			/* returned after scrolled */

		if(!bar) {
			if((*cur)>height-5)
				(*cur)=height-5;
789
			i=0;
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
		}
		else {
			if((*bar)>=opts)
				(*bar)=opts-1;
			if((*bar)>height-5)
				(*bar)=height-5;
			if((*cur)==opts-1)
				(*bar)=height-5;
			if((*bar)<0)
				(*bar)=0;
			if((*cur)<(*bar))
				(*cur)=(*bar);
			i=(*cur)-(*bar);
			if(i+(height-5)>=opts) {
				i=opts-(height-4);
				(*cur)=i+(*bar);
				}
			}
			if((*cur)<0)
				(*cur)=0;

			j=0;
			if(i<0) i=0;
			longopt=0;
			while(j<height-4 && i<opts) {
				*(ptr++)='';
				*(ptr++)=hclr|(bclr<<4);
				*(ptr++)=' ';
				*(ptr++)=hclr|(bclr<<4);
				*(ptr++)='';
				*(ptr++)=lclr|(bclr<<4);
				if(i==(*cur))
822
					a=lbclr;
823
824
825
826
827
828
829
830
831
832
833
834
835
836
				else
					a=lclr|(bclr<<4);
				b=strlen(option[i]);
				if(b>longopt)
					longopt=b;
				if(b+4>width)
					b=width-4;
				for(c=0;c<b;c++) {
					*(ptr++)=option[i][c];
					*(ptr++)=a; 
				}
				while(c<width-4) {
					*(ptr++)=' ';
					*(ptr++)=a;
837
					c++;
838
839
840
841
842
843
844
845
846
847
848
849
850
				}
				*(ptr++)='';
				*(ptr++)=hclr|(bclr<<4);
				i++;
				j++; 
			}
			*(ptr++)='';
			*(ptr++)=hclr|(bclr<<4);
			for(i=0;i<width-2;i++) {
				*(ptr++)='';
				*(ptr++)=hclr|(bclr<<4); 
			}
			*(ptr++)='';
deuce's avatar
deuce committed
851
			*(ptr)=hclr|(bclr<<4);	/* Not incremented to shut ot BCC */
852
			puttext(s_left+left,s_top+top,s_left+left+width-1
deuce's avatar
deuce committed
853
				,s_top+top+height-1,tmp_buffer);
854
855
856
857
858
859
			if(bar)
				y=top+3+(*bar);
			else
				y=top+3+(*cur);
			if(opts+4>height && ((!bar && (*cur)!=opts-1)
				|| (bar && ((*cur)-(*bar))+(height-4)<opts))) {
860
				gotoxy(s_left+left+1,s_top+top+height-2);
861
862
863
864
865
866
				textattr(lclr|(bclr<<4));
				putch(31);	   /* put down arrow */
				textattr(hclr|(bclr<<4)); 
			}

			if(bar && (*bar)!=(*cur)) {
867
				gotoxy(s_left+left+1,s_top+top+3);
868
869
870
871
872
873
				textattr(lclr|(bclr<<4));
				putch(30);	   /* put the up arrow */
				textattr(hclr|(bclr<<4)); 
			}

			if(bclr==BLUE) {
874
875
				gettext(s_left+left+width,s_top+top+1,s_left+left+width+1
					,s_top+top+height-1,shade);
876
877
				for(i=1;i<height*4;i+=2)
					shade[i]=DARKGRAY;
878
879
880
881
				puttext(s_left+left+width,s_top+top+1,s_left+left+width+1
					,s_top+top+height-1,shade);
				gettext(s_left+left+2,s_top+top+height,s_left+left+width+1
					,s_top+top+height,shade);
882
883
				for(i=1;i<width*2;i+=2)
					shade[i]=DARKGRAY;
884
885
				puttext(s_left+left+2,s_top+top+height,s_left+left+width+1
					,s_top+top+height,shade);
886
887
888
889
890
891
892
893
			}
	}
	else {	/* Is a redraw */
		i=(*cur)-(*bar);
		j=2;

		longopt=0;
		while(j<height-2 && i<opts) {
deuce's avatar
deuce committed
894
			ptr=tmp_buffer;
895
			if(i==(*cur))
896
				a=lbclr;
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
			else
				a=lclr|(bclr<<4);
			b=strlen(option[i]);
			if(b>longopt)
				longopt=b;
			if(b+4>width)
				b=width-4;
			for(c=0;c<b;c++) {
				*(ptr++)=option[i][c];
				*(ptr++)=a; 
			}
			while(c<width-4) {
				*(ptr++)=' ';
				*(ptr++)=a;
				c++; 
			}
			i++;
			j++; 
915
			puttext(s_left+left+3,s_top+top+j,s_left+left+width-2
deuce's avatar
deuce committed
916
				,s_top+top+j,tmp_buffer); 
917
918
919
920
921
922
		}
		if(bar)
			y=top+3+(*bar);
		else
			y=top+3+(*cur);
	}
923
	free(title);
924
925
926

	last_menu_cur=cur;
	last_menu_bar=bar;
927
928
	if(mode&WIN_IMM)
		return(-2);
929
930
931

	showmouse();

932
933
934
935
936
937
938
939
	while(1) {
	#if 0					/* debug */
		gotoxy(30,1);
		cprintf("y=%2d h=%2d c=%2d b=%2d s=%2d o=%2d"
			,y,height,*cur,bar ? *bar :0xff,api->savdepth,opts);
	#endif
		timedisplay();
		i=0;
940
941
		if(kbwait()) {
			i=inkey();
942
943
			if(i==KEY_BACKSPACE || i==BS)
				i=ESC;
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
#ifdef KEY_MOUSE
			if(i==KEY_MOUSE) {
#else
			if(0) {
#endif
				if((i=uifc_getmouse(&mevnt))==0) {
					/* Clicked in menu */
					if(mevnt.x>=s_left+left+2
							&& mevnt.x<=s_left+left+width
							&& mevnt.y>=s_top+top+2
							&& mevnt.y<=(s_top+top+height)-3
							&& mevnt.button==1) {

						(*cur)=(mevnt.y)-(s_top+top+2);
						if(bar)
							(*bar)=(*cur);
						y=top+3+((mevnt.y)-(s_top+top+2));

						if(!opts || (mode&WIN_XTR && (*cur)==opts-1))
							continue;

						if(mode&WIN_ACT) {
							hidemouse();
							if((win=(char *)MALLOC((width+3)*(height+2)*2))==NULL) {
								cprintf("UIFC line %d: error allocating %u bytes."
									,__LINE__,(width+3)*(height+2)*2);
								return(-1);
							}
							gettext(s_left+left,s_top+top,s_left
								+left+width-1,s_top+top+height-1,win);
							for(i=1;i<(width*height*2);i+=2)
								win[i]=lclr|(cclr<<4);
							j=(((y-top)*width)*2)+7+((width-4)*2);
							for(i=(((y-top)*width)*2)+7;i<j;i+=2)
								win[i]=hclr|(cclr<<4);

							puttext(s_left+left,s_top+top,s_left
								+left+width-1,s_top+top+height-1,win);
							free(win);
							showmouse();
						}
						else if(mode&WIN_SAV) {
							hidemouse();
							puttext(sav[api->savnum].left,sav[api->savnum].top
								,sav[api->savnum].right,sav[api->savnum].bot
								,sav[api->savnum].buf);
							showmouse();
							free(sav[api->savnum].buf);
							api->savdepth--;
						}
						return(*cur);
					}
					/* Clicked Scroll Up */
					if(mevnt.x==s_left+left
							&& mevnt.y==s_top+top+2
							&& mevnt.button==1) {
						if(!opts)
							continue;
						*cur -= (height-5);
						if(*cur<0)
							*cur = 0;
						if(bar)
							*bar=0;
						y=s_top+top;
						gotoxy(s_left+left+1,s_top+top+3);
						textattr(lclr|(bclr<<4));
						if(*cur && opts>height-3)  /* Scroll mode */
							putch(30);	   /* put the up arrow */
						else
							putch(' ');    /* delete the up arrow */
						gotoxy(s_left+left+1,s_top+top+height-2);
						if(opts > height-3 && *cur + height - 4 < opts)
							putch(31);	   /* put the down arrow */
						else
							putch(' ');    /* delete the down arrow */
						for(i=*cur,j=0;i<=*cur-5+height;i++,j++)
							uprintf(s_left+left+3,s_top+top+3+j
								,i==*cur ? lbclr
									: lclr|(bclr<<4)
								,"%-*.*s",width-4,width-4,option[i]);
						continue;
					}
					/* Clicked Scroll Down */
					if(mevnt.x=s_left+left
							&& mevnt.y==(s_top+top+height)-3
							&& mevnt.button==1) {
						if(!opts)
							continue;
						*cur += (height-5);
						if(*cur>opts-1)
							*cur = opts-1;
						if(bar)
							*bar = height-5;
						y=height-5+s_top+top;
						gotoxy(s_left+left+1,s_top+top+3);
						textattr(lclr|(bclr<<4));
						if(*cur>height-5)  /* Scroll mode */
							putch(30);	   /* put the up arrow */
						else
							putch(' ');    /* delete the up arrow */
						gotoxy(s_left+left+1,s_top+top+height-2);
						if(*cur < opts-1)
							putch(31);	   /* put the down arrow */
						else
							putch(' ');    /* delete the down arrow */
						for(i=*cur+5-height,j=0;i<=*cur;i++,j++)
							uprintf(s_left+left+3,s_top+top+3+j
								,i==*cur ? lbclr
									: lclr|(bclr<<4)
								,"%-*.*s",width-4,width-4,option[i]);
						continue;
					}
				}
			}
1058
1059
1060
1061
1062
1063
1064
1065
			if(i>255) {
				s=0;
				switch(i) {
					/* ToDo extended keys */
					case KEY_HOME:	/* home */
						if(!opts)
							break;
						if(opts+4>height) {
1066
							gotoxy(s_left+left+1,s_top+top+3);
1067
1068
							textattr(lclr|(bclr<<4));
							putch(' ');    /* Delete the up arrow */
1069
							gotoxy(s_left+left+1,s_top+top+height-2);
1070
							putch(31);	   /* put the down arrow */
1071
							uprintf(s_left+left+3,s_top+top+3
1072
								,lbclr
1073
1074
								,"%-*.*s",width-4,width-4,option[0]);
							for(i=1;i<height-4;i++)    /* re-display options */
1075
								uprintf(s_left+left+3,s_top+top+3+i
1076
1077
1078
1079
1080
1081
1082
1083
									,lclr|(bclr<<4)
									,"%-*.*s",width-4,width-4,option[i]);
							(*cur)=0;
							if(bar)
								(*bar)=0;
							y=top+3;
							break; 
						}
1084
1085
						gettext(s_left+3+left,s_top+y
							,s_left+left+width-2,s_top+y,line);
1086
1087
						for(i=1;i<width*2;i+=2)
							line[i]=lclr|(bclr<<4);
1088
1089
						puttext(s_left+3+left,s_top+y
							,s_left+left+width-2,s_top+y,line);
1090
1091
1092
1093
						(*cur)=0;
						if(bar)
							(*bar)=0;
						y=top+3;
1094
1095
						gettext(s_left+3+left,s_top+y
							,s_left+left+width-2,s_top+y,line);
1096
						for(i=1;i<width*2;i+=2)
1097
							line[i]=lbclr;
1098
1099
						puttext(s_left+3+left,s_top+y
							,s_left+left+width-2,s_top+y,line);
1100
1101
1102
1103
1104
						break;
					case KEY_UP:	/* up arrow */
						if(!opts)
							break;
						if(!(*cur) && opts+4>height) {
1105
							gotoxy(s_left+left+1,s_top+top+3); /* like end */
1106
1107
							textattr(lclr|(bclr<<4));
							putch(30);	   /* put the up arrow */
1108
							gotoxy(s_left+left+1,s_top+top+height-2);
1109
1110
							putch(' ');    /* delete the down arrow */
							for(i=(opts+4)-height,j=0;i<opts;i++,j++)
1111
								uprintf(s_left+left+3,s_top+top+3+j
1112
									,i==opts-1 ? lbclr
1113
1114
1115
1116
1117
1118
1119
1120
										: lclr|(bclr<<4)
									,"%-*.*s",width-4,width-4,option[i]);
							(*cur)=opts-1;
							if(bar)
								(*bar)=height-5;
							y=top+height-2;
							break; 
						}
1121
1122
						gettext(s_left+3+left,s_top+y
							,s_left+left+width-2,s_top+y,line);
1123
1124
						for(i=1;i<width*2;i+=2)
							line[i]=lclr|(bclr<<4);
1125
1126
						puttext(s_left+3+left,s_top+y
							,s_left+left+width-2,s_top+y,line);
1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
						if(!(*cur)) {
							y=top+height-2;
							(*cur)=opts-1;
							if(bar)
								(*bar)=height-5; 
						}
						else {
							(*cur)--;
							y--;
							if(bar && *bar)
								(*bar)--; 
						}
						if(y<top+3) {	/* scroll */
							if(!(*cur)) {
1141
								gotoxy(s_left+left+1,s_top+top+3);
1142
1143
1144
1145
								textattr(lclr|(bclr<<4));
								putch(' '); /* delete the up arrow */
							}  
							if((*cur)+height-4==opts-1) {
1146
								gotoxy(s_left+left+1,s_top+top+height-2);
1147
1148
1149
1150
								textattr(lclr|(bclr<<4));
								putch(31);	/* put the dn arrow */
							}
							y++;
1151
1152
1153
							scroll_text(s_left+left+2,s_top+top+3
								,s_left+left+width-3,s_top+top+height-2,1);
							uprintf(s_left+left+3,s_top+top+3
1154
								,lbclr
1155
1156
1157
								,"%-*.*s",width-4,width-4,option[*cur]);
						}
						else {
1158
1159
							gettext(s_left+3+left,s_top+y
								,s_left+left+width-2,s_top+y,line);
1160
							for(i=1;i<width*2;i+=2)
1161
								line[i]=lbclr;
1162
1163
							puttext(s_left+3+left,s_top+y
								,s_left+left+width-2,s_top+y,line);
1164
1165
						}
						break;
deuce's avatar
deuce committed
1166
1167
					case KEY_PPAGE:	/* PgUp */
						if(!opts)
1168
							break;
deuce's avatar
deuce committed
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
						*cur -= (height-5);
						if(*cur<0)
							*cur = 0;
						if(bar)
							*bar=0;
						y=s_top+top;
						gotoxy(s_left+left+1,s_top+top+3);
						textattr(lclr|(bclr<<4));
						if(*cur && opts>height-3)  /* Scroll mode */
							putch(30);	   /* put the up arrow */
						else
							putch(' ');    /* delete the up arrow */
						gotoxy(s_left+left+1,s_top+top+height-2);
						if(opts > height-3 && *cur + height - 4 < opts)
							putch(31);	   /* put the down arrow */
						else
							putch(' ');    /* delete the down arrow */
						for(i=*cur,j=0;i<=*cur-5+height;i++,j++)
1187
							uprintf(s_left+left+3,s_top+top+3+j
deuce's avatar
deuce committed
1188
1189
								,i==*cur ? lbclr
									: lclr|(bclr<<4)
1190
								,"%-*.*s",width-4,width-4,option[i]);
deuce's avatar
deuce committed
1191
1192
1193
1194
1195
1196
1197
						break;
					case KEY_NPAGE:	/* PgDn */
						if(!opts)
							break;
						*cur += (height-5);
						if(*cur>opts-1)
							*cur = opts-1;
1198
						if(bar)
deuce's avatar
deuce committed
1199
1200
1201
1202
1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
							*bar = height-5;
						y=height-5+s_top+top;
						gotoxy(s_left+left+1,s_top+top+3);
						textattr(lclr|(bclr<<4));
						if(*cur>height-5)  /* Scroll mode */
							putch(30);	   /* put the up arrow */
						else
							putch(' ');    /* delete the up arrow */
						gotoxy(s_left+left+1,s_top+top+height-2);
						if(*cur < opts-1)
							putch(31);	   /* put the down arrow */
						else
							putch(' ');    /* delete the down arrow */
						for(i=*cur+5-height,j=0;i<=*cur;i++,j++)
							uprintf(s_left+left+3,s_top+top+3+j
								,i==*cur ? lbclr
									: lclr|(bclr<<4)
								,"%-*.*s",width-4,width-4,option[i]);
1217
1218
1219
1220
1221
						break;
					case KEY_END:	/* end */
						if(!opts)
							break;
						if(opts+4>height) {	/* Scroll mode */
1222
							gotoxy(s_left+left+1,s_top+top+3);
1223
1224
							textattr(lclr|(bclr<<4));
							putch(30);	   /* put the up arrow */
1225
							gotoxy(s_left+left+1,s_top+top+height-2);
1226
1227
							putch(' ');    /* delete the down arrow */
							for(i=(opts+4)-height,j=0;i<opts;i++,j++)
1228
								uprintf(s_left+left+3,s_top+top+3+j
1229
									,i==opts-1 ? lbclr
1230
1231
1232
1233
1234
1235
1236
1237
										: lclr|(bclr<<4)
									,"%-*.*s",width-4,width-4,option[i]);
							(*cur)=opts-1;
							y=top+height-2;
							if(bar)
								(*bar)=height-5;
							break; 
						}
1238
1239
						gettext(s_left+3+left,s_top+y
							,s_left+left+width-2,s_top+y,line);
1240
1241
						for(i=1;i<width*2;i+=2)
							line[i]=lclr|(bclr<<4);
1242
1243
						puttext(s_left+3+left,s_top+y
							,s_left+left+width-2,s_top+y,line);
1244
1245
1246
1247
						(*cur)=opts-1;
						y=top+height-2;
						if(bar)
							(*bar)=height-5;
1248
1249
						gettext(s_left+3+left,s_top+y
							,s_left+left+width-2,s_top+y,line);
1250
						for(i=1;i<148;i+=2)
1251
							line[i]=lbclr;
1252
1253
						puttext(s_left+3+left,s_top+y
							,s_left+left+width-2,s_top+y,line);
1254
1255
1256
1257
1258
						break;
					case KEY_DOWN:	/* dn arrow */
						if(!opts)
							break;
						if((*cur)==opts-1 && opts+4>height) { /* like home */
1259
							gotoxy(s_left+left+1,s_top+top+3);
1260
1261
							textattr(lclr|(bclr<<4));
							putch(' ');    /* Delete the up arrow */
1262
							gotoxy(s_left+left+1,s_top+top+height-2);
1263
							putch(31);	   /* put the down arrow */
1264
							uprintf(s_left+left+3,s_top+top+3
1265
								,lbclr
1266
1267
								,"%-*.*s",width-4,width-4,option[0]);
							for(i=1;i<height-4;i++)    /* re-display options */
1268
								uprintf(s_left+left+3,s_top+top+3+i
1269
1270
1271
1272
1273
1274
1275
1276
									,lclr|(bclr<<4)
									,"%-*.*s",width-4,width-4,option[i]);
							(*cur)=0;
							y=top+3;
							if(bar)
								(*bar)=0;
							break; 
						}
1277
1278
						gettext(s_left+3+left,s_top+y
							,s_left+left+width-2,s_top+y,line);
1279
1280
						for(i=1;i<width*2;i+=2)
							line[i]=lclr|(bclr<<4);
1281
1282
						puttext(s_left+3+left,s_top+y
							,s_left+left+width-2,s_top+y,line);
1283
1284
1285
1286
1287
1288
						if((*cur)==opts-1) {
							(*cur)=0;
							y=top+3;
							if(bar) {
								/* gotoxy(1,1); cprintf("bar=%08lX ",bar); */
								(*bar)=0; 
deuce's avatar
deuce committed
1289
							}
1290
1291
1292
1293
1294
1295
1296
						}
						else {
							(*cur)++;
							y++;
							if(bar && (*bar)<height-5) {
								/* gotoxy(1,1); cprintf("bar=%08lX ",bar); */
								(*bar)++; 
deuce's avatar
deuce committed
1297
							}
1298
1299
1300
						}
						if(y==top+height-1) {	/* scroll */
							if(*cur==opts-1) {
1301
								gotoxy(s_left+left+1,s_top+top+height-2);
1302
1303
1304
1305
								textattr(lclr|(bclr<<4));
								putch(' ');	/* delete the down arrow */
							}
							if((*cur)+4==height) {
1306
								gotoxy(s_left+left+1,s_top+top+3);
1307
1308
1309
1310
1311
								textattr(lclr|(bclr<<4));
								putch(30);	/* put the up arrow */
							}
							y--;
							/* gotoxy(1,1); cprintf("\rdebug: %4d ",__LINE__); */
1312
1313
							scroll_text(s_left+left+2,s_top+top+3
								,s_left+left+width-3,s_top+top+height-2,0);
1314
							/* gotoxy(1,1); cprintf("\rdebug: %4d ",__LINE__); */
1315
							uprintf(s_left+left+3,s_top+top+height-2
1316
								,lbclr
1317