home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / CADKEY_C.ZIP / CADKEY14.ZIP / CDL / WINMGR.CDL < prev   
Encoding:
Text File  |  1989-06-09  |  751 b   |  44 lines
  1. rem window manager 
  2. :start
  3. getmenu "SELECT WINDOW MANAGER OPTION",\
  4. "ADD",\
  5. "DELETE",\
  6. "INITIAL"
  7.  
  8. on (@key + 3) goto exit, exit, start,,\
  9. add,\
  10. delete,\
  11. initial
  12.  
  13. :add 
  14. getint "ENTER WINDOW TO ADD (%d), F-10 DONE =>",defwin,wincnt
  15. on (@key + 3) goto exit, start,
  16. defwin = defwin + 1
  17. win[wincnt][0] = @view
  18. win[wincnt][1] = @xmin
  19. win[wincnt][2] = @ymin
  20. win[wincnt][3] = @xmax
  21. win[wincnt][4] = @ymax
  22. goto add
  23.  
  24. :delete
  25. getint "ENTER WINDOW TO DELETE =>",windel,windel
  26. on (@key + 3) goto exit, start, delete,
  27. win[windel][0] = 0
  28. win[windel][1] = 0
  29. win[windel][2] = 0
  30. win[windel][3] = 0
  31. win[windel][4] = 0
  32. goto start
  33.  
  34. :initial
  35.   array win[10]  [5]
  36.   defwin = 1
  37.   windel = 1
  38.   wincnt = 1
  39.   goto start
  40.  
  41. :exit
  42.  
  43.   exit
  44.