From 32f477a7c72e475048373a76c81a90b06166b60b Mon Sep 17 00:00:00 2001 From: slava Date: Mon, 28 Aug 2006 05:05:31 +0000 Subject: [PATCH] Fix delegation issue --- library/ui/gadgets/books.factor | 2 +- library/ui/text/interactor.factor | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/library/ui/gadgets/books.factor b/library/ui/gadgets/books.factor index 25ceb4570b..d8276610a0 100644 --- a/library/ui/gadgets/books.factor +++ b/library/ui/gadgets/books.factor @@ -14,7 +14,7 @@ M: book model-changed ( book -- ) [ control-model model-value ] keep [ gadget-child unparent ] keep [ get-page ] keep - [ add-gadget ] keep + [ control-self add-gadget ] keep request-focus ; C: book ( pages -- book ) diff --git a/library/ui/text/interactor.factor b/library/ui/text/interactor.factor index 25c4892af7..87996d8d60 100644 --- a/library/ui/text/interactor.factor +++ b/library/ui/text/interactor.factor @@ -77,8 +77,8 @@ interactor { { f "Evaluate" T{ key-down f f "RETURN" } [ interactor-commit ] } { f "History" T{ key-down f { C+ } "h" } [ dup [ interactor-history. ] curry swap interactor-call ] } { f "Send EOF" T{ key-down f { C+ } "d" } [ f swap interactor-eval ] } - { f "Stack effect" T{ key-down f { C+ } "i" } [ "infer ." quot-action ] } - { f "Single step" T{ key-down f { C+ } "w" } [ "walk" quot-action ] } + { f "Stack effect" T{ key-down f { C+ A+ } "i" } [ "infer ." quot-action ] } + { f "Single step" T{ key-down f { C+ A+ } "w" } [ "walk" quot-action ] } { f "See" T{ key-down f { A+ } "s" } [ [ search see ] word-action ] } { f "Help" T{ key-down f { A+ } "h" } [ [ search help ] word-action ] } { f "Callers" T{ key-down f { A+ } "u" } [ [ search usage. ] word-action ] }