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

use MAIN-WINDOW: for key-caps

Joe Groff 2010-01-16 12:00:00 -08:00
parent 2d74afa2a1
commit f3210de8c1
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/key-caps/key-caps.factor
View File

@ -173,9 +173,5 @@ M: key-caps-gadget ungraft*
M: key-caps-gadget handle-gesture
drop [ key-down? ] [ key-up? ] bi or not ;
: key-caps ( -- )
[
<key-caps-gadget> { 5 5 } <border> "Key Caps" open-window
] with-ui ;
MAIN: key-caps
MAIN-WINDOW: key-caps { { title "Key Caps" } }
<key-caps-gadget> { 5 5 } <border> >>gadgets ;