dialog test {
title test
option pixel
size -1 -1 400 400
list 1, 0 0 200 200,
list 2, 200 0 200 200, vsbar
list 3, 0 200 200 200, hsbar
list 4, 200 200 200 200, vsbar hsbar
}
on *:DIALOG:test:Init:0:{
var %x = 1
while (%x <= 20) {
did -a $dname 1 $str(This is list:1,10)
inc %x
}
var %x = 1
while (%x <= 20) {
did -a $dname 2 $str(This is list:2,10)
inc %x
}
var %x = 1
while (%x <= 20) {
did -a $dname 3 $str(This is list:3,10)
inc %x
}
var %x = 1
while (%x <= 20) {
did -a $dname 4 $str(This is list:4,10)
inc %x
}
}