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

8
library/ui/incremental.factor
View File

@ -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
M: incremental pref-dim ( incremental -- dim )
dup gadget-relayout? [
dup delegate pref-dim over set-incremental-cursor
delegate layout* ;
] when incremental-cursor ;
: next-cursor ( gadget incremental -- cursor )
[