gui/interface/ProgressBox.tcl


@interface ProgressBox : Box {
  {
    canvas @items
    value @timer
  }

  - value: aValueFrom0To100 ;
  - value ;

  - reset ;

  - timer: aTimeValueInSecond ;
  - timer ;

  - timerStep: aTimeValueInMilliSeconds ;
  - timerStep ;

  - run ;
  - start ;
  - stop ;

  - onChange: aCallback ;
  - onEnd: aCallback ;

}