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

incremental layout love

cvs
Slava Pestov 2005-09-26 01:27:29 +00:00
parent 55a2ac9b33
commit da134d62d8
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
library/ui/incremental.factor
View File

@ -18,12 +18,10 @@ C: incremental ( pack -- incremental )
[ set-delegate ] keep [ set-delegate ] keep
@{ 0 0 0 }@ over set-incremental-cursor ; @{ 0 0 0 }@ over set-incremental-cursor ;
M: incremental pref-dim incremental-cursor ; M: incremental pref-dim ( incremental -- dim )
dup gadget-relayout? [
M: incremental layout* dup delegate pref-dim over set-incremental-cursor
global [ "hi" print ] bind ] when incremental-cursor ;
dup delegate pref-dim over set-incremental-cursor
delegate layout* ;
: next-cursor ( gadget incremental -- cursor ) : next-cursor ( gadget incremental -- cursor )
[ [