X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fui%2Fgadgets%2Fgadgets-tests.factor;h=d7f77d9e549301c9bd19ce58b763ac47165eda80;hp=ade5c8101ebae19ba6f2145adace76f9a15e72e7;hb=3f3d57032bf29190e9bee12d168a4bce6d74653c;hpb=cd1bb8f4c8afba318249c7b756a45aa1c46ea51e diff --git a/basis/ui/gadgets/gadgets-tests.factor b/basis/ui/gadgets/gadgets-tests.factor index ade5c8101e..d7f77d9e54 100644 --- a/basis/ui/gadgets/gadgets-tests.factor +++ b/basis/ui/gadgets/gadgets-tests.factor @@ -78,10 +78,10 @@ TUPLE: mock-gadget < gadget graft-called ungraft-called ; mock-gadget new 0 >>graft-called 0 >>ungraft-called ; M: mock-gadget graft* - [ 1+ ] change-graft-called drop ; + [ 1 + ] change-graft-called drop ; M: mock-gadget ungraft* - [ 1+ ] change-ungraft-called drop ; + [ 1 + ] change-ungraft-called drop ; ! We can't print to output-stream here because that might be a pane ! stream, and our graft-queue rebinding here would be captured @@ -122,7 +122,7 @@ M: mock-gadget ungraft* 3 [ over >>model "g" get over add-gadget drop - swap 1+ number>string set + swap 1 + number>string set ] each ; : status-flags ( -- seq )