How can I control Dynamic property?

Question

I wrote a function, name as testingand saved in .m file.

if you evaluate this function, we will get progressBar and corresponding stepNo with in list form.

after that,If you click on Bar,

it checks whether, second argument value is True or not?

if second argument is True, it allows to Action.

if second argument is not equals to True, it doesn't allow anything..

this is my requirement.

for this purposes I wrote the following code.

testing[x_, booleanValue_] :=
  Module[{input = x},
    {EventHandler[Column[{ProgressIndicator[input, {0, 100}]}], 
       {"MouseClicked" :>
         (If[(booleanValue === True), (input = input + 1), ("")])}],
      Dynamic[input]}]  

if you call the above function, we will get output like this.

  testing[3, True]

after that, if you click on the bar, we will get like this.

I call the above function in following code.

 startingNo = 3;
 valuesList = {True, True, True, True, False, True, False, True, False};
 outputValue = {1, 1};
 Dynamic[(
   outputValue = testing[startingNo, Part[valuesList, startingNo]];
   startingNo = Setting[Part[outputValue, 2]];
   Part[outputValue, 1])]

here,startingNo value dynamically change,

whenever we click on the bar, dynamically startingNo value will change, that means automatically barRange also will change. why? because we passing startingNo as a argument. but here barRange doesn't working.

how can I solve this? can anyone help me?

feel free to edit my question.