How do I display a value in a Rollout?

The following script is a test bed for value display in different User Interface elements. It is intended to show how to update UI properties to give feedback to the user.

Copy the code into a new Script Editor, press Ctrl+E to evaluate and press the "Generate New RANDOM Value" multiple times to see different methods to display the value in the Rollout.

SCRIPT

   rollout test_digits "Display Values"
   (
     group "Display"
     (
       spinner spinner_item "The Value:" range:[0,1000,0] align:#center fieldwidth:50
       edittext edit_text_item "The Value:" text:""width:100 align:#center
       button button_item "No Value" width:100 align:#center
       label label_item "No Value" align:#center
       progressbar progress_bar_item height:10 width:180 color:(color 255 100 100) orient:#horizontal
       listbox list_box_item items:#()
     )
     button start_test "Generate New RANDOM Value..."
     progressbar progress_bar2_item height:90 width:10 color:(color 255 100 100) orient:#vertical pos:[12,20]

     on start_test pressed do
     (
       minValue = 0
       maxValue = 100
       theValue = random minValue maxValue
       sliderTime = theValue

       spinner_item.value = theValue
       edit_text_item.text = theValue as string
       button_item.text = theValue as string
       label_item.text = theValue as string
       progress_bar_item.value = 100.0*theValue/maxValue
       progress_bar_item.color = color (255.0*theValue/maxValue) 128 0
       progress_bar2_item.value = 100.0*theValue/maxValue
       list_box_item.items = append list_box_item.items ("Value is now "+theValue as string)
       list_box_item.selection = list_box_item.items.count
     )--end on
   )--end rollout
   createDialog test_digits 200 300