dialog scroll {
title "Scroll bar..."
size -1 -1 178 162
option dbu
scroll "", 1, 2 4 8 156, range 39
edit "", 2, 19 3 50 10, hide
edit "", 3, 19 15 50 10, hide
edit "", 4, 19 27 50 10, hide
edit "", 5, 19 39 50 10, hide
edit "", 6, 19 52 50 10, hide
edit "", 7, 19 64 50 10, hide
edit "", 8, 19 76 50 10, hide
edit "", 9, 19 88 50 10, hide
edit "", 10, 19 101 50 10, hide
edit "", 11, 19 113 50 10, hide
edit "", 12, 19 125 50 10, hide
edit "", 13, 19 137 50 10, hide
edit "", 14, 19 149 50 10, hide
edit "", 15, 71 3 50 10, hide
edit "", 16, 71 15 50 10, hide
edit "", 17, 71 27 50 10, hide
edit "", 18, 71 39 50 10, hide
edit "", 19, 71 52 50 10, hide
edit "", 20, 71 64 50 10, hide
edit "", 21, 71 76 50 10, hide
edit "", 22, 71 88 50 10, hide
edit "", 23, 71 101 50 10, hide
edit "", 24, 71 113 50 10, hide
edit "", 25, 71 125 50 10, hide
edit "", 26, 71 137 50 10, hide
edit "", 27, 71 149 50 10, hide
edit "", 28, 124 3 50 10, hide
edit "", 29, 124 15 50 10, hide
edit "", 30, 124 27 50 10, hide
edit "", 31, 124 39 50 10, hide
edit "", 32, 124 52 50 10, hide
edit "", 33, 124 64 50 10, hide
edit "", 34, 124 76 50 10, hide
edit "", 35, 124 88 50 10, hide
edit "", 36, 124 101 50 10, hide
edit "", 37, 124 113 50 10, hide
edit "", 38, 124 125 50 10, hide
edit "", 39, 124 137 50 10, hide
edit "", 40, 124 149 50 10, hide
}
on 1:dialog:scroll:init:0: {
set %scroll.mnt 1
}
on 1:dialog:scroll:close:0: {
set %scroll.mnt 1
}
on 1:dialog:scroll:scroll:1: {
inc %scroll.mnt
did -v scroll %scroll.mnt
if (%scroll.mnt == 40) { set %scroll.mnt 1 }
}