home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HyperLib 8
/
HYPERLIB-1993-VOL8-CD1.ISO.7z
/
HYPERLIB-1993-VOL8-CD1.ISO
/
Wingz
/
CB
(
.txt
)
next >
Wrap
Wingz Script
|
1993-02-05
|
11KB
|
73 lines
WNGZWZSC0120
dg:doit=0
repaint off dg:doit=1
repaint on5
select range
cell border
cell border style
for 5
cell border fg
for 5
cell border width
for 5
cell border
repaint on
4CB:linesty=ctvalue(3,0) call CB:reline(3) repaint on
BCB:linefg=ctvalue(5,0) CB:linepat = 1 call CB:reline(4) repaint on
DCB:linewid=ctvalue(7,0) CB:linepat = 1 call CB:reline(5) repaint on
[on mousedown call CB:oneselect(9,1) end mousedown
on repaint call CB:drline(9) end repaint
on mousedown if CB:Von call CB:oneselect(10,1) end if end mousedown
on repaint if CB:Von call CB:drline(10) end if end repaint
^on mousedown call CB:oneselect(11,1) end mousedown
on repaint call CB:drline(11) end repaint
]on mousedown call CB:oneselect(12,1) end mousedown
on repaint call CB:drline(12) end repaint
on mousedown if CB:Hon call CB:oneselect(13,1) end if end mousedown
on repaint if CB:Hon call CB:drline(13) end if end repaint
]on mousedown call CB:oneselect(14,1) end mousedown
on repaint call CB:drline(14) end repaint
eon mousedown call CB:outselect(1) end mousedown
on repaint call CB:drline(15) repaint on end repaint
jline fg linefg() line fg linefg() line width linewidth() line pattern linepattern()
call CB:resetline(13)
Don mousedown call CB:oneselect(9,0)
call CB:drline(9) end mousedown
Won mousedown if CB:Von call CB:oneselect(10,0)
call CB:drline(10) end if end mousedown
Fon mousedown call CB:oneselect(11,0)
call CB:drline(11) end mousedown
Fon mousedown call CB:oneselect(12,0) end mousedown
call CB:drline(12)
Uon mousedown if CB:Hon call CB:oneselect(13,0) call CB:drline(13)end if end mousedown
Fon mousedown call CB:oneselect(14,0)
call CB:drline(14) end mousedown
Con mousedown call CB:outselect(0)
call CB:drline(12) end mousedown
&call CB:allselect() call CB:reline(28)
select range
resetline
CBokcan
edit_border
lsselect
linewid+
linefg,
linepat-
linefgw.
linebgw/
linesty0
ccrr6
lineexistU
CBokcan
edit_border:
CBEditBorder
closedg
reline
drline
lsselect
allselectv
outselect;
oneselectJ
resetline
initls