Merge pull request #1563 from mkaesemann/feature/limit_progress_indicator_update

Limit Progress Indicator Updates

src/utils/zcl_abapgit_progress.clas.abap

@@ -22,6 +22,9 @@ CLASS zcl_abapgit_progress DEFINITION
       RETURNING
         VALUE(rv_pct) TYPE i .
   PRIVATE SECTION.
+
+    DATA mv_cv_time_next TYPE sy-uzeit .
+    DATA mv_cv_datum_next TYPE sy-datum .
 ENDCLASS.
 
 
@@ -53,6 +56,20 @@ CLASS ZCL_ABAPGIT_PROGRESS IMPLEMENTATION.
   METHOD show.
 
     DATA: lv_pct  TYPE i.
+    DATA: lv_time TYPE t.
+
+    CONSTANTS: c_wait_secs TYPE i VALUE 2.
+
+    GET TIME.
+    lv_time = sy-uzeit.
+    IF mv_cv_time_next IS INITIAL AND mv_cv_datum_next IS INITIAL.
+      mv_cv_time_next  = lv_time.
+      mv_cv_datum_next = sy-datum.
+    ENDIF.
+
+    "We only do a progress indication if enough time has passed
+    IF lv_time  >= mv_cv_time_next  AND sy-datum = mv_cv_datum_next  OR
+       sy-datum >  mv_cv_datum_next.
 
       lv_pct = calc_pct( iv_current ).
 
@@ -60,6 +77,15 @@ CLASS ZCL_ABAPGIT_PROGRESS IMPLEMENTATION.
         EXPORTING
           percentage = lv_pct
           text       = iv_text.
+      mv_cv_time_next = lv_time + c_wait_secs.
+
+    ENDIF.
+    IF sy-datum > mv_cv_datum_next.
+      mv_cv_datum_next = sy-datum.
+    ENDIF.
+    IF mv_cv_time_next < lv_time.
+      mv_cv_datum_next = sy-datum + 1.
+    ENDIF.
 
   ENDMETHOD.
 ENDCLASS.

src/utils/zcl_abapgit_progress.clas.xml

@@ -14,6 +14,20 @@
     <FIXPT>X</FIXPT>
     <UNICODE>X</UNICODE>
    </VSEOCLASS>
+   <DESCRIPTIONS>
+    <SEOCOMPOTX>
+     <CLSNAME>ZCL_ABAPGIT_PROGRESS</CLSNAME>
+     <CMPNAME>MV_CV_DATUM_NEXT</CMPNAME>
+     <LANGU>E</LANGU>
+     <DESCRIPT>Date or Earliest, Next Progress Display</DESCRIPT>
+    </SEOCOMPOTX>
+    <SEOCOMPOTX>
+     <CLSNAME>ZCL_ABAPGIT_PROGRESS</CLSNAME>
+     <CMPNAME>MV_CV_TIME_NEXT</CMPNAME>
+     <LANGU>E</LANGU>
+     <DESCRIPT>Time of Earliest, Next Progress Display</DESCRIPT>
+    </SEOCOMPOTX>
+   </DESCRIPTIONS>
   </asx:values>
  </asx:abap>
 </abapGit>