home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / ui_utils / scripit.lzh / SCRIPIT / WIN.DEMO < prev    next >
Encoding:
Text File  |  1991-08-16  |  1.3 KB  |  62 lines
  1. ;; Window Demo
  2. ;; A Scripit script demoing console control facilities in Scripit.
  3. ;;
  4. ;; By: Khalid Aldoseri.
  5. ;;
  6. ;; Requires Scripit 1.00b or higher.
  7.  
  8. ;; Note:  If you have problems with this script.. change all the
  9. ;; wait 10 statements to wait 20. (or more)
  10.  
  11. ;; Open a console window using the provided settings.
  12. con open "CON:25/15/520/130/Scripit Window Demo!"
  13. ;; Turn cursor off
  14. con cursoroff
  15. wait
  16. ;; Select Window to work on.  (The console we just opened)
  17. select window "Scripit Window Demo!"
  18. ;; Move it 10 left, 10 down
  19. window move 10,10
  20. wait 10
  21. window move 10,10
  22. wait 10
  23. window move 10,10
  24. wait 10
  25. window move 10,10
  26. wait 10
  27. ;; Resize it by -20 width, and -10 height
  28. window resize -20,-10
  29. wait 10
  30. window resize -20,-10
  31. wait 10
  32. window resize -20,-10
  33. wait 10
  34. window resize -20,-10
  35. wait 10
  36. window resize -20,-10
  37. wait 25
  38. ;; Shrink window to its minimum size
  39. window minsize
  40. wait 25
  41. ;; Move window to top of screen
  42. window moveto 0,0
  43. wait 25
  44. ;; Expand window to its maximum possible size
  45. window maxsize
  46. wait 25
  47. window minsize
  48. wait
  49. ;; Move window about.  (Scripit will move the window as near as possible
  50. ;; to the requested coordinates.)
  51. window moveto 1000,0
  52. wait 25
  53. window moveto 1000,1000
  54. wait 25
  55. window moveto 0,1000
  56. wait 25
  57. window moveto 250,80
  58. ;; Move console cursor to 3,4
  59. con move 3,4
  60. con echo "Nice, eh?"
  61. wait 100
  62.