steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

char-rename
John Benediktsson 2016-11-08 14:14:15 -08:00
parent e22e0dfef5
commit ba40af541f
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
extra/progress-bars/models/models.factor
View File

@ -13,6 +13,11 @@ SYMBOL: progress-bar
: with-progress-bar ( quot -- ) : with-progress-bar ( quot -- )
[ 0 <model> \ progress-bar ] dip with-variable ; inline [ 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 SYMBOL: file-size
: update-file-progress ( -- n ) : update-file-progress ( -- n )
@ -23,17 +28,12 @@ SYMBOL: file-size
100 milliseconds sleep file-progress-loop 100 milliseconds sleep file-progress-loop
] unless ; ] 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 -- ) : with-file-reader-progress ( path encoding quot -- )
'[ '[
_ dup file-info size>> file-size set _ dup file-info size>> file-size set
_ _ [ _ _ [
[ file-progress-loop ] "file-reader-progress" spawn drop [ 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 ] prepose
[ update-file-progress drop ] compose [ update-file-progress drop ] compose
with-file-reader with-file-reader