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

ui.gadgets: use identity-hashcode instead of counter

db4
Slava Pestov 2009-11-10 21:27:33 -06:00
parent 064c00f78d
commit f121961fa4
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/ui/gadgets/gadgets.factor
View File

@ -11,7 +11,6 @@ CONSTANT: horizontal { 1 0 }
CONSTANT: vertical { 0 1 } CONSTANT: vertical { 0 1 }
TUPLE: gadget < rect TUPLE: gadget < rect
id
pref-dim pref-dim
parent parent
children children
@ -29,7 +28,7 @@ model ;
M: gadget equal? 2drop f ; M: gadget equal? 2drop f ;
M: gadget hashcode* nip [ [ \ gadget counter ] unless* ] change-id id>> ; M: gadget hashcode* nip identity-hashcode ;
M: gadget model-changed 2drop ; M: gadget model-changed 2drop ;