: text-changed? ( editor -- ? ) dup [ model>> value>> dup ] [ last-value>> ] bi = [ >>last-value drop ] dip ;