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) [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 INCLUDEABORTFLG is non-NIL, the menu will also include an abort key (abt). If the abort key is pressed, RNUMBER returns NIL. 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 FLOATINGPTFLG is non-NIL, the menu will include a decimal point and the value returned may be a floating point number. 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