1 LISP LIBRARY PACKAGES MANUAL 1 LISP LIBRARY PACKAGES MANUAL READNUMBER 1 INPUT/OUTPUT 1 READNUMBER 6 READNUMBER contains functions for implementing a calculator-type menu for getting numbers from the user. (RNUMBER MSG POSITION MSGFONT DIGITFONT INCLUDEABORTFLG FLOATINGPTFLG POSITIVEONLYFLG ACCEPTTYPEINFLG ) [Function] brings up a menu that looks like a calculator number pad. The user's selections on the digits are accumulated in a displayed total. The number pad includes a backspace key (bs), a clear key (clr), and a +/- key (-). When ййok'' is selected, the total is returned. If MSG is given, it is printed at the top of the menu. If POSITION is a position, the menu will be put there; otherwise it will be put under the cursor. If MSGFONT is a font, MSG will be printed in it. If MSGFONT is NIL, DEFAULTFONT is used. If DIGITFONT is a font, the labels on the number pad keys will be printed in it. If DIGITFONT is NIL, BOLDFONT is used. If INCLUDEABORTFLG is non-NIL, the menu will also include an abort key (abt). If the abort key is pressed, RNUMBER returns NIL. If FLOATINGPTFLG is non-NIL, the menu will include a decimal point and the value returned may be a floating point number. If POSITIVEONLYFLG is non-NIL, the menu will also include not include a +/- key (-) and the user will only be able to input positive number (but see ACCEPTTYPEINFLG below). If ACCEPTTYPEINFLG is non-NIL, the menu will also respond to user typed input. In this mode, carriage return corresponds to ok. If the user types in a decimal point (.) or a minus sign (-), they will be accepted, even though they are not options in the numberpad menu. If the user closes the number pad window, the action taken by RNUMBER depends upon the value of INCLUDEABORTFLG. If INCLUDEABORTFLG is NIL, RNUMBER generates an error (i.e., calls (ERROR!)). If INCLUDEABORTFLG is non-NIL, RNUMBER returns NIL (the same thing it does if the abort key is pressed). Examples of use: (RNUMBER '(How many WIDGITS would you like?) will result in the following menu being popped up: Вk └А@А@С"8Ёс╟╟@С"ЙБА@СD▒┼ИА*ЙБА@Я"DP&HА*ЙБ@С"TQфHА*ЙpБ@С"TR$EЙБА@С"(R$EЙБА@С(QфB8Ёс┴@А@А@А@А@Аp8А@А@@СD╨Gq!─@@С"D0HСB А@Х"DHСГс@Х"DИСB@К"L0ИУ"!@К4╨ ┴@А@А@А@А @А @А@А@А@А@А@А═є@АЁm│@АЁ Г@А Г@АmГ@А═Г@А@А@А@А@А@А@А@А`x@Ар╠3@Ар@А`@А`0@Г ├``3@Г ├`└3@Г├`№@Г├@Г<├@Гf├@Гf├@Гf├@Гf├@Гf├@Гf├р|@Г<├р`3@Г├``0@Г├`°>@Г├`╠3@Г ├Ё3@Г ├`╠3@А`x@А@А@А@А@А@А@А@АЁx@А0╠3@А`╠3@А`x3@А└╠@А└╠@АА╠3@ААx@А@А@А@А@А@А@А@Аx@А╠@А╠цc@А▓╠6├@А╕╠7Г@АО╠6├@Аж╠6c@А<xц3@А@А@А@А@А @А @А@ └ (RNUMBER '(How far to the left?) NIL '(CLASSIC 12) '(MODERN 14) T T) will result in the following menu being popped up: Хf °АААЬр0└АИ@P@B@B@И@@@B@B@ИC7`с├└ёАЄ┴АC8Ё@П─Т@B!@B@C"@DР@АИDКА@сB@B#└GРAИDКАA!B@B"DAИDЕBaR@R"@DРPЬус│АaАgqАу8aАААА шА шАhА▐zhАRJ