From cceae875adeef2dee28c295ae7eaf2d0a759418c Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Wed, 23 Sep 2009 22:50:36 -0500 Subject: [PATCH] ui.commands: remove unused word --- basis/ui/commands/commands-docs.factor | 13 ------------- basis/ui/commands/commands.factor | 8 +------- 2 files changed, 1 insertion(+), 20 deletions(-) diff --git a/basis/ui/commands/commands-docs.factor b/basis/ui/commands/commands-docs.factor index b576f173b6..fe2ce145f5 100644 --- a/basis/ui/commands/commands-docs.factor +++ b/basis/ui/commands/commands-docs.factor @@ -106,19 +106,6 @@ HELP: define-command } } ; -HELP: command-string -{ $values { "gesture" "a gesture" } { "command" "a command" } { "string" string } } -{ $description "Outputs a string containing the command name followed by the gesture." } -{ $examples - { $unchecked-example - "USING: io ui.commands ui.gestures ;" - "IN: scratchpad" - ": com-my-command ;" - "T{ key-down f { C+ } \"s\" } \\ com-my-command command-string write" - "My Command (C+s)" - } -} ; - ARTICLE: "ui-commands" "Commands" "Commands are an abstraction layered on top of gestures. Their main advantage is that they are identified by words and can be organized into " { $emphasis "command maps" } ". This allows easy construction of buttons and tool bars for invoking commands." { $subsection define-command } diff --git a/basis/ui/commands/commands.factor b/basis/ui/commands/commands.factor index f45c3f8b05..7988432676 100644 --- a/basis/ui/commands/commands.factor +++ b/basis/ui/commands/commands.factor @@ -78,10 +78,4 @@ M: word invoke-command ( target command -- ) M: word command-word ; -M: f invoke-command ( target command -- ) 2drop ; - -: command-string ( gesture command -- string ) - [ - command-name % - gesture>string [ " (" % % ")" % ] when* - ] "" make ; \ No newline at end of file +M: f invoke-command ( target command -- ) 2drop ; \ No newline at end of file