home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / CLIPPER / CLIPWNDW.ZIP / CWINDOW.PRG < prev   
Encoding:
Text File  |  1990-05-08  |  19.6 KB  |  604 lines
  1. ***********************************************************************
  2. * 
  3. * These are a group of functions that I wrote for Clipper.  They
  4. * enable me to use a very SIMPLE windowing system to approach the
  5. * user. I am letting anyone use this, just mention me in your program.
  6. * I should warn you that the following code is pure Clipper and needs to
  7. * be extended. 
  8. *
  9. * Use, enhance and develop, then buy a good 'C' compiler and do
  10. * your databasing in that. spelled 'see code base 4'.
  11. * You can define GOOD.
  12. *
  13. *
  14. * If you need help or just have a question you can contact me at
  15. * 
  16. *
  17. * Robert Innes
  18. * (701) 293-8739            Home after 6
  19. * innes @ plains            internet address
  20. * rinnes @ extnet.plains.edu
  21. *
  22. *
  23. * If I am not there. 
  24. * Please note the date and remember people do move on. ENJOY !!
  25. ***************************************************************************
  26.  
  27.  
  28.  
  29. *:**********************************************************************:
  30. *:        Program: CWINDOW.PRG
  31. *:
  32. *:         System: Window Library for Clipper
  33. *:         Author: Robert Innes
  34. *:  Last modified: 06/08/89     10:12
  35. *:
  36. *:  Procs & Fncts: WCOLOR()        -       set the colors for a window
  37. *:               : MAKE_WINDOW()   -       build and show a window
  38. *:               : WTITLE()        -       title a window
  39. *:               : WSAYAT()        -       put a string, with clipping in a window
  40. *:               : WMENU()         -       display a windowed' achoice
  41. *:               : REMOVE_WINDOW() -       delete a window, restore if needed
  42. *:               : HOME_CURSOR     -       set the cursor to home
  43. *:               : WTRUNC_STR()    -       internal string truncation
  44. *:               : INRANGE()       -       see if coords are valid internal
  45. *:               : WGOTOXY         -       got to a point in a window
  46. *:               : WMESSAGE        -       pop up a message, various levels
  47. *:
  48. *:*********************************************************************
  49. *               Window Library For Clipper
  50. *
  51. *    DECLARE a Public STRING ARRAY
  52. *
  53. *    window[1] - Top of Window
  54. *    window[2] - Left of Window
  55. *    window[3] - Bottom of Window
  56. *    window[4] - Right of Window
  57. *    window[5] - ForeGround Color of Window
  58. *    window[6] - Background Color of Window
  59. *    window[7] - Title of Window
  60. *    window[8] - Does it Have a Shadow ?
  61. *    window[9] - Current Row of Cursor
  62. *    window[10]- Current Column of Cursor
  63. *    window[11]- Old Row of Cursor
  64. *    window[12]- Old Column of Cursor
  65. *    window[13]- Save contents under window ?
  66. *    window[14] - Window Save Buffer
  67. *
  68.  
  69.  
  70.  
  71. *
  72. *       Public Defines for window Routines
  73. *
  74. * YES, virginia, you need these.  
  75. *
  76.  
  77. PUBLIC shadow, noshadow, shadow_color, saveit, notsave, choic
  78. shadow =  1
  79. noshadow = 0
  80. shadow_color = '+/W'
  81. saveit = 1                                       
  82. notsave = 0
  83.  
  84. *
  85. * Currently all windows have double borders 'cause I was to lazy
  86. * to do any others.
  87. *
  88.  
  89. DOUBLE = CHR(201) + CHR(205) + CHR(187) + CHR(186) + CHR(188) + CHR(205) +;
  90. CHR(200) + CHR(186) + CHR(32)
  91.  
  92. ******************************************************
  93. * 
  94. * The following code is the test procedure. This can
  95. * be taken out when you get the hang of it.
  96. *
  97. * or use the preprocessor you have when you bought
  98. * that GOOD 'C' compiler. ;-)
  99. ******************************************************
  100.  
  101.  
  102.  
  103. PUBLIC win1[14], menu1[20], menuv[20]            && DEFINE PUBLIC VARIABLES
  104.  
  105. menu1[1] = 'Number 1'                            && wpop menu
  106. menu1[2] = 'Number 2'                            && wpop menu
  107. menu1[3] = 'Number 3'                            && wpop menu
  108. menu1[4] = 'Number 4'                            && wpop menu
  109. menu1[5] = 'Number 5'                            && wpop menu
  110. menu1[6] = 'Number 6'                            && wpop menu
  111. menu1[7] = 'Number 7'                            && wpop menu
  112. menu1[8] = 'Number 8'                            && wpop menu
  113. menu1[9] = 'Number 9'                            && wpop menu
  114. menu1[10] = 'Number 10'                          && wpop menu
  115. menu1[11] = 'Number 11'                          && wpop menu
  116. menu1[12] = 'Number 12'                          && wpop menu
  117. menu1[13] = 'Number 13'                          && wpop menu
  118. menu1[14] = 'Number 14'                          && wpop menu
  119. menu1[15] = 'Number 15'                          && wpop menu
  120. menu1[16] = 'Number 16'                          && wpop menu
  121. menu1[17] = 'Number 17'                          && wpop menu
  122. menu1[18] = 'Number 18'                          && wpop menu
  123. menu1[19] = 'Number 19'                          && wpop menu
  124. menu1[20] = 'Number 20'                          && wpop menu
  125.  
  126. *
  127. *  If an option is set to false then it is displayed but not 
  128. *  selectable. See achoice in the clipper manual.
  129. *
  130.  
  131. menuv[1] = .T.                                   && wpop menu
  132. menuv[2] = .T.                                   && wpop menu
  133. menuv[3] = .T.                                   && wpop menu
  134. menuv[4] = .T.                                   && wpop menu
  135. menuv[5] = .F.                                   && wpop menu
  136. menuv[6] = .T.                                   && wpop menu
  137. menuv[7] = .F.                                   && wpop menu
  138. menuv[8] = .T.                                   && wpop menu
  139. menuv[9] = .T.                                   && wpop menu
  140. menuv[10] = .T.                                  && wpop menu
  141. menuv[11] = .T.                                  && wpop menu
  142. menuv[12] = .T.                                  && wpop menu
  143. menuv[13] = .T.                                  && wpop menu
  144. menuv[14] = .T.                                  && wpop menu
  145. menuv[15] = .T.                                  && wpop menu
  146. menuv[16] = .T.                                  && wpop menu
  147. menuv[17] = .T.                                  && wpop menu
  148. menuv[18] = .T.                                  && wpop menu
  149. menuv[19] = .T.                                  && wpop menu
  150. menuv[20] = .T.                                  && wpop menu
  151.  
  152. win1[1] = STR(5)
  153. win1[2] = STR(5)
  154. win1[3] = STR(20)
  155. win1[4] = STR(40)
  156. win1[8] = STR(shadow)
  157. win1[13]= STR(saveit)
  158. wcolor( win1, 'BG', ' ')
  159. win1[14] = make_window( win1 )
  160. wtitle(win1, 'This is window Number 1')
  161. wsayat( win1, 5, 5, 'A String')
  162. wsayat( win1, 6, 5, 'A Very Very Long String That Should Not Print Far' )
  163.  
  164. wmessage(10, 10, 'Just a Note', 1)
  165. wmessage(10, 10, 'Just a Warning, Improper Input', 2)
  166. wmessage(10, 10, 'Error has Occured', 3)
  167. wmessage(10, 10, 'Everything is OK', 9)
  168.  
  169. choic = wpop_menu( 5, 5, 'Choices', 20, menu1, menuv )
  170. wsayat( win1, 7, 5, 'Choice = ' + LTRIM(STR(choic) ) )
  171. INKEY(0)
  172. remove_window( win1 )
  173.  
  174. RETURN                                           && return to calling program
  175.  
  176. *!*********************************************************************
  177. *!
  178. *!       Function: MAKE_WINDOW()
  179. *!
  180. *!      Called by: CWINDOW.PRG
  181. *!               : WMENU()        (function  in CWINDOW.PRG)
  182. *!               : WMESSAGE       (procedure in CWINDOW.PRG)
  183. *!
  184. *!          Calls: HOME_CURSOR    (procedure in CWINDOW.PRG)
  185. *!
  186. *!*********************************************************************
  187. FUNCTION make_window
  188.    PARAMETERS WINDOW
  189.  
  190.    PRIVATE wtop, wright, wbot, wleft, Buffer, shadow_bot, shadow_right, old_color  && DEFINE PRIVATE VARIABLES
  191.    PRIVATE wcolor                                && DEFINE PRIVATE VARIABLES
  192.    PRIVATE TOP, RIGHT, bot, LEFT                 && DEFINE PRIVATE VARIABLES
  193.  
  194.    *
  195.    *       Convert window values to integer
  196.    *
  197.    TOP = VAL(WINDOW[1])
  198.    LEFT = VAL(WINDOW[2])
  199.    bot = VAL(WINDOW[3])
  200.    RIGHT = VAL(WINDOW[4])
  201.  
  202.  
  203.    *
  204.    *       Set up actual window;  inside minus border
  205.    *
  206.    wtop = VAL(WINDOW[1]) + 1
  207.    wleft = VAL(WINDOW[2]) + 1
  208.    wbot = VAL(WINDOW[3]) - 1
  209.    wright = VAL(WINDOW[4]) - 1
  210.  
  211.    *
  212.    *       Save the Window underneath
  213.    *
  214.    IF VAL(WINDOW[13]) == saveit
  215.       IF VAL(WINDOW[8]) == noshadow
  216.          Buffer = Savescreen( TOP, LEFT, bot, RIGHT )
  217.       ELSE                                       && otherwise...
  218.          Buffer = Savescreen( TOP, LEFT, bot+1, RIGHT+2 )
  219.       ENDIF
  220.    ELSE                                          && otherwise...
  221.       Buffer = ""
  222.    ENDIF
  223.  
  224.    *
  225.    *       Make the window
  226.    *
  227.    @ TOP, LEFT, bot, RIGHT BOX DOUBLE
  228.  
  229.    IF VAL(WINDOW[8]) == shadow
  230.       cnt = TOP + 2
  231.       old_color = Setcolor()
  232.       Setcolor(shadow_color)
  233.       @ bot + 1, LEFT + 3  SAY SPACE( (RIGHT - (LEFT + 1)) )
  234.       DO WHILE cnt <= bot + 1
  235.          @ cnt, RIGHT + 1  SAY SPACE( 2 )
  236.          cnt = cnt + 1
  237.       END while
  238.       Setcolor(old_color)
  239.    ENDIF
  240.    wcolor = WINDOW[5] + '/' + WINDOW[6]
  241.    Setcolor(wcolor)
  242.    WINDOW[11] = STR( ROW() )
  243.    WINDOW[12] = STR( COL() )
  244.    home_cursor( WINDOW )
  245. RETURN Buffer                                    && RETURN TO CALLING PROGRAM
  246.  
  247. *!*********************************************************************
  248. *!
  249. *!       Function: REMOVE_WINDOW()
  250. *!
  251. *!      Called by: CWINDOW.PRG
  252. *!               : WMENU()        (function  in CWINDOW.PRG)
  253. *!               : WMESSAGE       (procedure in CWINDOW.PRG)
  254. *!
  255. *!*********************************************************************
  256. PROCEDURE remove_window
  257.    PARAMETER WINDOW
  258.    PRIVATE TOP, RIGHT, bot, LEFT, crow, ccol     && DEFINE PRIVATE VARIABLES
  259.  
  260.    IF VAL( WINDOW[13] ) == saveit
  261.  
  262.       *
  263.       *       Convert window values to integer
  264.       *
  265.       TOP = VAL(WINDOW[1])
  266.       LEFT = VAL(WINDOW[2])
  267.       bot = VAL(WINDOW[3])
  268.       RIGHT = VAL(WINDOW[4])
  269.  
  270.       *
  271.       *       Restore the area under the window
  272.       *
  273.       IF VAL( WINDOW[8] ) == noshadow
  274.          Restscreen( TOP, LEFT, bot, RIGHT, WINDOW[14] )
  275.       ELSE                                       && otherwise...
  276.          Restscreen( TOP, LEFT, bot+1, RIGHT+2, WINDOW[14] )
  277.       ENDIF
  278.    ENDIF
  279.  
  280.    *
  281.    *       Reposition the cursor
  282.    *
  283.    crow = VAL( WINDOW[11] )
  284.    ccol = VAL( WINDOW[12] )
  285.    @ crow, ccol SAY ""
  286.  
  287. RETURN                                           && return to calling program
  288.  
  289. *!*********************************************************************
  290. *!
  291. *!       Function: WTITLE()
  292. *!
  293. *!      Called by: CWINDOW.PRG
  294. *!               : WMENU()        (function  in CWINDOW.PRG)
  295. *!               : WMESSAGE       (procedure in CWINDOW.PRG)
  296. *!
  297. *!          Calls: HOME_CURSOR    (procedure in CWINDOW.PRG)
  298. *!
  299. *!*********************************************************************
  300. PROCEDURE wtitle
  301.    PARAMETER WINDOW, TITLE
  302.    PRIVATE TOP, RIGHT, bot, LEFT                 && DEFINE PRIVATE VARIABLES
  303.  
  304.    *
  305.    *       Convert window values to integer
  306.    *
  307.    TOP = VAL(WINDOW[1])
  308.    LEFT = VAL(WINDOW[2])
  309.    bot = VAL(WINDOW[3])
  310.    RIGHT = VAL(WINDOW[4])
  311.    WINDOW[7] = '[' + TITLE + ']'
  312.  
  313.    *
  314.    *       Title the window in the upper left corner
  315.    *
  316.    @ TOP, LEFT + 1  SAY WINDOW[7]
  317.    home_cursor( WINDOW )
  318. RETURN                                           && return to calling program
  319.  
  320. *!*********************************************************************
  321. *!
  322. *!      Procedure: HOME_CURSOR
  323. *!
  324. *!      Called by: MAKE_WINDOW()  (function  in CWINDOW.PRG)
  325. *!               : WTITLE()       (function  in CWINDOW.PRG)
  326. *!
  327. *!*********************************************************************
  328. PROCEDURE home_cursor
  329.    PARAMETER WINDOW
  330.    PRIVATE wtop, wleft                           && DEFINE PRIVATE VARIABLES
  331.  
  332.    wtop = VAL(WINDOW[1]) + 1
  333.    wleft = VAL(WINDOW[2]) + 1
  334.    WINDOW[9] = STR(wtop)
  335.    WINDOW[10] = STR(wleft)
  336.    @ wtop, wleft SAY ""
  337. RETURN                                           && return to calling program
  338.  
  339. *!*********************************************************************
  340. *!
  341. *!       Function: WTRUNC_STR()
  342. *!
  343. *!      Called by: WSAYAT()       (function  in CWINDOW.PRG)
  344. *!
  345. *!*********************************************************************
  346. FUNCTION wtrunc_str
  347.    PARAMETERS WINDOW, string, X
  348.    PRIVATE substring, wleft                      && DEFINE PRIVATE VARIABLES
  349.  
  350.    wright = VAL(WINDOW[4]) + 1
  351.  
  352.    IF (X + LEN(string)) > wright
  353.       substring = LEFT( string, wright - X )
  354.       string = substring
  355.    ENDIF
  356.  
  357. RETURN string                                    && RETURN TO CALLING PROGRAM
  358.  
  359.  
  360. *!*********************************************************************
  361. *!
  362. *!       Function: INRANGE()
  363. *!
  364. *!      Called by: WSAYAT()       (function  in CWINDOW.PRG)
  365. *!               : WGOTOXY        (procedure in CWINDOW.PRG)
  366. *!
  367. *!*********************************************************************
  368. FUNCTION inrange
  369.    PARAMETERS WINDOW, X, y
  370.  
  371.    IF X > VAL(WINDOW[1]) .AND. X < VAL(WINDOW[3])
  372.       IF  y > VAL(WINDOW[2]) .AND. y < VAL(WINDOW[4])
  373.       RETURN .T.                                 && RETURN TO CALLING PROGRAM
  374.    ELSE                                          && otherwise...
  375.       RETURN .F.                                 && RETURN TO CALLING PROGRAM
  376.    ENDIF
  377. ENDIF
  378.  
  379. RETURN .F.                                       && RETURN TO CALLING PROGRAM
  380.  
  381.  
  382. *!*********************************************************************
  383. *!
  384. *!      Procedure: WGOTOXY
  385. *!
  386. *!          Calls: INRANGE()      (function  in CWINDOW.PRG)
  387. *!
  388. *!*********************************************************************
  389. PROCEDURE wgotoxy
  390.    PARAMETERS WINDOW, X, y
  391.    PRIVATE wtop, wleft                           && DEFINE PRIVATE VARIABLES
  392.  
  393.    wtop = VAL(WINDOW[1]) + 1
  394.    wleft = VAL(WINDOW[2]) + 1
  395.  
  396.    X = wtop + X
  397.    y = wleft + X
  398.  
  399.    IF inrange( WINDOW, X, y )
  400.       WINDOW[9] = STR(X)
  401.       WINDOW[10] = STR(y)
  402.       @ X, y SAY ""
  403.    ENDIF
  404.  
  405. RETURN                                           && return to calling program
  406.  
  407. *!*********************************************************************
  408. *!
  409. *!       Function: WSAYAT()
  410. *!
  411. *!      Called by: CWINDOW.PRG
  412. *!               : WMESSAGE       (procedure in CWINDOW.PRG)
  413. *!
  414. *!          Calls: INRANGE()      (function  in CWINDOW.PRG)
  415. *!               : WTRUNC_STR()   (function  in CWINDOW.PRG)
  416. *!
  417. *!*********************************************************************
  418. PROCEDURE wsayat
  419.    PARAMETERS WINDOW, X, y, string
  420.    PRIVATE wtop, wleft, substring                && DEFINE PRIVATE VARIABLES
  421.  
  422.    wtop = VAL(WINDOW[1]) + 1
  423.    wleft = VAL(WINDOW[2]) + 1
  424.  
  425.    X = wtop + X
  426.    y = wleft + y
  427.  
  428.    IF inrange( WINDOW, X, y )
  429.       WINDOW[9] = STR(X)
  430.       WINDOW[10] = STR(y)
  431.       substring = wtrunc_str( WINDOW, string, X)
  432.       @ X, y SAY substring
  433.    ENDIF
  434.  
  435. RETURN                                           && return to calling program
  436.  
  437.  
  438. *!*********************************************************************
  439. *!
  440. *!       Function: WCOLOR()
  441. *!
  442. *!      Called by: CWINDOW.PRG
  443. *!               : WMENU()        (function  in CWINDOW.PRG)
  444. *!               : WMESSAGE       (procedure in CWINDOW.PRG)
  445. *!
  446. *!*********************************************************************
  447. PROCEDURE wcolor
  448.    PARAMETERS WINDOW, fcolor, bcolor
  449.    PRIVATE COLOR                                 && DEFINE PRIVATE VARIABLES
  450.  
  451.    WINDOW[5] = fcolor
  452.    WINDOW[6] = bcolor
  453.    COLOR = fcolor + '/' + bcolor
  454.  
  455.    Setcolor(COLOR)
  456.  
  457. RETURN                                           && return to calling program
  458.  
  459.  
  460. ***********************************************
  461. * 
  462. * Wow, an undocumenetd function. 8-) (* GRIN *)
  463. *
  464. ***********************************************
  465.  
  466.  
  467.  
  468. Procedure hline
  469.    Parameters  x, y, val, len, fcolor, bcolor
  470.  
  471.    Private color, width, str                     && DEFINE PRIVATE VARIABLES
  472.  
  473.    color = setcolor()
  474.    width = len - x
  475.    str = REPLICATE( val, width)
  476.  
  477.    setcolor(fcolor, bcolor)
  478.    @ x, y SAY str
  479.  
  480.    setcolor(color)
  481.  
  482. RETURN                                           && return to calling program
  483.  
  484.  
  485. *!*********************************************************************
  486. *!
  487. *!      Procedure: WMESSAGE
  488. *!
  489. *!          Calls: WCOLOR()       (function  in CWINDOW.PRG)
  490. *!               : MAKE_WINDOW()  (function  in CWINDOW.PRG)
  491. *!               : WTITLE()       (function  in CWINDOW.PRG)
  492. *!               : WSAYAT()       (function  in CWINDOW.PRG)
  493. *!               : REMOVE_WINDOW()(function  in CWINDOW.PRG)
  494. *!
  495. *!*********************************************************************
  496. PROCEDURE wmessage
  497.    PARAMETERS X, y, MESSAGE, level
  498.    PRIVATE wtop, wleft, wbot, wright, mwindow[14], wait_msg  && DEFINE PRIVATE VARIABLES
  499.  
  500.    wait_msg = "Press any Key ..."                && wait for one character
  501.    mwindow[1] = STR(X)
  502.    mwindow[2] = STR(y)
  503.    mwindow[3] = STR(X + 2)
  504.  
  505.    IF LEN( MESSAGE ) >  (79 - y)
  506.       MESSAGE = LEFT( MESSAGE, 3 )
  507.    ENDIF
  508.  
  509.    IF LEN( MESSAGE )  > LEN( wait_msg )
  510.       mwindow[4] = STR( X + LEN(MESSAGE) + 3)
  511.    ELSE                                          && otherwise...
  512.       mwindow[4] = STR( X + LEN( wait_msg) + 3)
  513.    ENDIF
  514.    mwindow[8] = STR(noshadow)
  515.    mwindow[13]= STR(saveit)
  516.  
  517.    DO CASE
  518.  
  519.       CASE level = 1                             && Informational Message
  520.          wcolor(mwindow,'N','G')
  521.          mwindow[14] = make_window( mwindow )
  522.          wtitle( mwindow, wait_msg)
  523.          wsayat(mwindow, 0, 0, MESSAGE)
  524.          INKEY(0)
  525.          remove_window( mwindow )
  526.  
  527.       CASE level = 2                             && Warning Message
  528.          wcolor(mwindow,'N','GR+')
  529.          mwindow[14] = make_window( mwindow )
  530.          wtitle( mwindow, wait_msg)
  531.          wsayat(mwindow, 0, 0, MESSAGE)
  532.          INKEY(0)
  533.          remove_window( mwindow )
  534.  
  535.       CASE level = 3                             && Error Message
  536.          wcolor(mwindow,'N','R')
  537.          mwindow[14] = make_window( mwindow )
  538.          wtitle( mwindow, wait_msg)
  539.          wsayat(mwindow, 0, 0, MESSAGE)
  540.          INKEY(0)
  541.          remove_window( mwindow )
  542.  
  543.       OTHERWISE                                  && Anything Else
  544.          wcolor(mwindow,'N','I')
  545.          mwindow[14] = make_window( mwindow )
  546.          wtitle( mwindow, wait_msg)
  547.          wsayat(mwindow, 0, 0, MESSAGE)
  548.          INKEY(0)
  549.          remove_window( mwindow )
  550.  
  551.    ENDCASE
  552.  
  553. RETURN                                           && return to calling program
  554.  
  555. *!*********************************************************************
  556. *!
  557. *!       Function: WMENU()
  558. *!
  559. *!      Called by: CWINDOW.PRG
  560. *!
  561. *!          Calls: WCOLOR()       (function  in CWINDOW.PRG)
  562. *!               : MAKE_WINDOW()  (function  in CWINDOW.PRG)
  563. *!               : WTITLE()       (function  in CWINDOW.PRG)
  564. *!               : REMOVE_WINDOW()(function  in CWINDOW.PRG)
  565. *!
  566. *!*********************************************************************
  567. FUNCTION wpop_menu
  568.    PARAMETERS X, y, TITLE, num_choice, choices, choice_selectable
  569.    PRIVATE wtop, wleft, wbot, wright, cwindow[14], cnt, LEN, curlen, VAL, oldcolor  && DEFINE PRIVATE VARIABLES
  570.  
  571.  
  572.    cnt = 1
  573.    LEN = 1
  574.    DO WHILE cnt <= num_choice
  575.       curlen = LEN( choices[cnt])
  576.       LEN = IIF( curlen > LEN, curlen, LEN )
  577.       cnt = cnt + 1
  578.    ENDDO                                         && loop back again
  579.  
  580.    cwindow[1] = STR(X)
  581.    cwindow[2] = STR(y)
  582.    cwindow[3] = STR( IIF( X + num_choice + 2 > 24, 24, X + num_choice + 1) )
  583.    cwindow[4] = STR( IIF( y + LEN + 2 > 79, 79, y + LEN + 1 ) )
  584.    cwindow[8] = STR(noshadow)
  585.    cwindow[13]= STR(saveit)
  586.  
  587.    oldcolor = Setcolor()
  588.    wcolor( cwindow, 'N', 'BG')
  589.    cwindow[14] = make_window( cwindow )
  590.    wtitle( cwindow, TITLE)
  591.  
  592.    wtop = VAL(cwindow[1]) + 1
  593.    wleft = VAL(cwindow[2]) + 1
  594.    wbot = VAL(cwindow[3]) - 1
  595.    wright = VAL(cwindow[4]) - 1
  596.  
  597.    VAL = Achoice(wtop, wleft, wbot, wright, choices, choice_selectable)
  598.    remove_window( cwindow )
  599.    Setcolor(oldcolor)
  600.  
  601. RETURN VAL                                       && RETURN TO CALLING PROGRAM
  602.  
  603. *: EOF: CWINDOW.PRG
  604.