# 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 ;

    }