From da134d62d862d89b9ffb1679b7e360ad80c4e01b Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Mon, 26 Sep 2005 01:27:29 +0000 Subject: [PATCH] incremental layout love --- library/ui/incremental.factor | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/library/ui/incremental.factor b/library/ui/incremental.factor index 1c164ccb99..354075131b 100644 --- a/library/ui/incremental.factor +++ b/library/ui/incremental.factor @@ -18,12 +18,10 @@ C: incremental ( pack -- incremental ) [ set-delegate ] keep @{ 0 0 0 }@ over set-incremental-cursor ; -M: incremental pref-dim incremental-cursor ; - -M: incremental layout* - global [ "hi" print ] bind - dup delegate pref-dim over set-incremental-cursor - delegate layout* ; +M: incremental pref-dim ( incremental -- dim ) + dup gadget-relayout? [ + dup delegate pref-dim over set-incremental-cursor + ] when incremental-cursor ; : next-cursor ( gadget incremental -- cursor ) [