Get Size Display Box Command will not work in my For Loop

nikles

I have a For loop that inspects each text box in a V List Box, and is supposed to return the size of each.  For some reason it will not work though:

 

Names Default to Here(1);

dt = Open("$SAMPLE_DATA/Big Class.jmp");
win = New Window("Temp", 
	VLB = VListBox();
);
names = Column("Name") << Get Values;
	
//Write to window
For(j=1, j<=NItems(names), j++,
	tb = TextBox(names[j]);
	VLB << Append(tb);
	text = VLB[j] << Get Text;				//This works...
	width = (VLB[j] << Get Size);		//...but this just returns 0
	Show(j, text, width);
);

//Nor does this work when I run with the script above, but does work if I run as a single line of code afterwards: 
width = (VLB[1] << Get Size);			
Show(width);

As I indicated, the " << Get Text" command works fine, but not the " << Get Size" command.  Also, and even outside the For loop, the " << Get Size" command does not work when I run the whole script.  Only if I run it as a single line of code after I've run the rest of the script will it work.

 

It must have something to do with appending the textboxes to VLB, but I can't understand what it is.

wjlevin

Whenever I have a situation where it works when I run it line-by-line from the script window and doesn't work when I run a block of script (particularly within some kind of loop) I figure there's a need for adding Wait();

 

And it doesn't have to be a long wait. Here's what I did:

 

For(j=1, j<=NItems(names), j++,
tb = TextBox(names[j]);
VLB << Append(tb);
text = VLB[j] << Get Text; //This works...
wait(.01);
width = (VLB[j] << Get Size); //...but this just returns 0
Show(j, text, width);
);

 

 

That did the trick for me.