Forums Scripts & Popups Dialog Listbox Help

How can I make numbers appear unsorted in a list box after doing a while loop? I have a dialog that has a list box, and when I click on the "Loop" button, it will generate a number list from 1 - 9999, then it displays the numbers in the list box. That works fine, but I want the numbers to appear in random order in the listbox instead of in numeric order.


Here's my code:

You can randomize it by again looping through the lines and moving them to a hidden window, then filtering that window to the dialog list:

alias loop {
if ($window(@Loop)) { window -c @Loop }
window -h @Loop
var %r,%x = 9999
while (%x) {
%r = $r(1,$did(loop,1).lines)
echo @Loop $did(loop,1,%r)
did -d loop 1 %r
dec %x
}
filter -cwo @Loop loop 1
}

Ensure that in your options you allow at least 9999 lines for a buffer capacity so the custom window can hold all the lines of the dialog list

Isn't there a possibility of numbers being repeated by using the $r() identifier? I thought I remember reading before that $r() is not always random. I am also not trying to generate random numbers, I am just trying to generate a list of numbers from 1 - 9999, no repeats. And I don't want the numbers to appear in numeric order...

$r() in the script isn't the <text> part, it's the <position> parameter, ie it tells /did -i where to insert %i, which is the <text>. So all numbers from 1 to 9999 get to be added, by a series of insertions at a random position. Btw, the syntax of the command is
/did -i <dname> <id> <pos> <text>


$rand() has been fixed since v 6.1, so this isn't true anymore. Even in versions prior to 6.1 though, that particular $rand bug in this particular script would affect the 'randomness' of the distribution VERY little (explaining that would require a lengthy analysis, which I won't get into here).

Hey, u can use this:


dialog loop {
title "Loop test"
size -1 -1 79 104
option dbu
list 1, 3 3 72 83, size
button "Loop", 2, 21 89 37 12
button "", 3, 0 0 0 0, hide cancel
}
on *:dialog:loop:sclick:2:{
while ($did($dname,1).lines < 9999) {
var %a $r(1,9999)
if (!$didwm($dname,1,%a)) { did -a $dname 1 %a }
}
}


but the speed.. is sucks