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

ui.commands: remove unused word

db4
Slava Pestov 2009-09-23 22:50:36 -05:00
parent 7012212708
commit cceae875ad
2 changed files with 1 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
basis/ui/commands/commands-docs.factor
View File

@ -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" 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." "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 } { $subsection define-command }

6
basis/ui/commands/commands.factor
View File

@ -79,9 +79,3 @@ M: word invoke-command ( target command -- )
M: word command-word ; M: word command-word ;
M: f invoke-command ( target command -- ) 2drop ; M: f invoke-command ( target command -- ) 2drop ;
: command-string ( gesture command -- string )
[
command-name %
gesture>string [ " (" % % ")" % ] when*
] "" make ;