From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 8 Nov 2016 22:14:15 +0000 (-0800)
Subject: progress-bars.models: rename <file-progress-display> to <progress-display>.
X-Git-Tag: unmaintained~485
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=ba40af541f50d89ca9b67bb73383eb7f1ab8458d

progress-bars.models: rename <file-progress-display> to <progress-display>.
---

diff --git a/extra/progress-bars/models/models.factor b/extra/progress-bars/models/models.factor
index 9ec5a3d31f..4290d2c440 100644
--- a/extra/progress-bars/models/models.factor
+++ b/extra/progress-bars/models/models.factor
@@ -13,6 +13,11 @@ SYMBOL: progress-bar
 : with-progress-bar ( quot -- )
     [ 0 <model> \ progress-bar ] dip with-variable ; inline
 
+: <progress-display> ( model n -- gadget )
+    [ '[ _ make-progress-bar ] <arrow> <label-control> ] keep
+    [ 0 ] dip make-progress-bar >>string
+    monospace-font >>font ;
+
 SYMBOL: file-size
 
 : update-file-progress ( -- n )
@@ -23,17 +28,12 @@ SYMBOL: file-size
         100 milliseconds sleep file-progress-loop
     ] unless ;
 
-: <file-progress-display> ( model n -- gadget )
-    [ '[ _ make-progress-bar ] <arrow> <label-control> ] keep
-    [ 0 ] dip make-progress-bar >>string
-    monospace-font >>font ;
-
 : with-file-reader-progress ( path encoding quot -- )
     '[
         _ dup file-info size>> file-size set
         _ _ [
             [ file-progress-loop ] "file-reader-progress" spawn drop
-            \ progress-bar get 40 <file-progress-display> gadget. yield
+            \ progress-bar get 40 <progress-display> gadget. yield
         ] prepose
         [ update-file-progress drop ] compose
         with-file-reader