home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 8 / HYPERLIB-1993-VOL8-CD1.ISO.7z / HYPERLIB-1993-VOL8-CD1.ISO / Wingz / CB (.txt) next >
Wingz Script  |  1993-02-05  |  11KB  |  73 lines
  1. WNGZWZSC0120
  2.     dg:doit=0
  3. repaint off dg:doit=1 
  4.  repaint on5
  5. select range 
  6. cell border  
  7. cell border style 
  8.  for 5
  9. cell border fg 
  10.  for 5
  11. cell border width 
  12.  for 5
  13. cell border 
  14. repaint on
  15. 4CB:linesty=ctvalue(3,0) call CB:reline(3) repaint on
  16. BCB:linefg=ctvalue(5,0) CB:linepat = 1 call CB:reline(4) repaint on
  17. DCB:linewid=ctvalue(7,0) CB:linepat = 1  call CB:reline(5) repaint on
  18. [on mousedown call CB:oneselect(9,1) end mousedown
  19.     on repaint call CB:drline(9) end repaint
  20. on mousedown if CB:Von call CB:oneselect(10,1) end if end mousedown
  21.     on repaint if CB:Von call CB:drline(10) end if end repaint
  22. ^on mousedown call CB:oneselect(11,1)  end mousedown
  23.     on repaint call CB:drline(11) end repaint
  24. ]on mousedown call CB:oneselect(12,1) end mousedown
  25.     on repaint call CB:drline(12) end repaint
  26. on mousedown if CB:Hon call CB:oneselect(13,1) end if end mousedown
  27.     on repaint if CB:Hon call CB:drline(13) end if end repaint
  28. ]on mousedown call CB:oneselect(14,1) end mousedown
  29.     on repaint call CB:drline(14) end repaint
  30. eon mousedown call CB:outselect(1) end mousedown
  31.     on repaint call CB:drline(15) repaint on end repaint
  32. jline fg linefg() line fg linefg() line width linewidth() line pattern linepattern()
  33.     call CB:resetline(13)
  34. Don mousedown call CB:oneselect(9,0)
  35.     call CB:drline(9) end mousedown
  36. Won mousedown if CB:Von call CB:oneselect(10,0)
  37.     call CB:drline(10) end if end mousedown
  38. Fon mousedown call CB:oneselect(11,0)
  39.     call CB:drline(11) end mousedown
  40. Fon mousedown call CB:oneselect(12,0) end mousedown
  41.     call CB:drline(12)
  42. Uon mousedown if CB:Hon call CB:oneselect(13,0) call CB:drline(13)end if end mousedown
  43. Fon mousedown call CB:oneselect(14,0)
  44.     call CB:drline(14) end mousedown
  45. Con mousedown call CB:outselect(0)
  46.     call CB:drline(12) end mousedown
  47. &call CB:allselect() call CB:reline(28)
  48. select range 
  49. resetline
  50. CBokcan
  51.     edit_border
  52. lsselect
  53. linewid+
  54. linefg,
  55. linepat-
  56. linefgw.
  57. linebgw/
  58. linesty0
  59. ccrr6
  60. lineexistU    
  61. CBokcan
  62.     edit_border:
  63. CBEditBorder
  64. closedg
  65. reline
  66. drline
  67. lsselect
  68. allselectv
  69. outselect;
  70. oneselectJ
  71. resetline
  72. initls
  73.