new accessors
parent
e9d298b3ed
commit
c87d6be1a5
|
@ -6,7 +6,7 @@ IN: models.delay
|
|||
TUPLE: delay < model model timeout alarm ;
|
||||
|
||||
: update-delay-model ( delay -- )
|
||||
[ delay-model model-value ] keep set-model ;
|
||||
[ model>> value>> ] keep set-model ;
|
||||
|
||||
: <delay> ( model timeout -- delay )
|
||||
f delay new-model
|
||||
|
@ -15,7 +15,7 @@ TUPLE: delay < model model timeout alarm ;
|
|||
[ add-dependency ] keep ;
|
||||
|
||||
: cancel-delay ( delay -- )
|
||||
delay-alarm [ cancel-alarm ] when* ;
|
||||
alarm>> [ cancel-alarm ] when* ;
|
||||
|
||||
: start-delay ( delay -- )
|
||||
dup
|
||||
|
|
|
@ -14,7 +14,7 @@ TUPLE: history < model back forward ;
|
|||
reset-history ;
|
||||
|
||||
: (add-history) ( history to -- )
|
||||
swap model-value dup [ swap push ] [ 2drop ] if ;
|
||||
swap value>> dup [ swap push ] [ 2drop ] if ;
|
||||
|
||||
: go-back/forward ( history to from -- )
|
||||
dup empty?
|
||||
|
@ -22,11 +22,11 @@ TUPLE: history < model back forward ;
|
|||
[ >r dupd (add-history) r> pop swap set-model ] if ;
|
||||
|
||||
: go-back ( history -- )
|
||||
dup history-forward over history-back go-back/forward ;
|
||||
dup [ forward>> ] [ back>> ] bi go-back/forward ;
|
||||
|
||||
: go-forward ( history -- )
|
||||
dup history-back over history-forward go-back/forward ;
|
||||
dup [ back>> ] [ forward>> ] bi go-back/forward ;
|
||||
|
||||
: add-history ( history -- )
|
||||
dup history-forward delete-all
|
||||
dup history-back (add-history) ;
|
||||
dup forward>> delete-all
|
||||
dup back>> (add-history) ;
|
||||
|
|
Loading…
Reference in New Issue