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

use MAIN-WINDOW: for key-caps

db4
Joe Groff 2010-01-16 12:00:00 -08:00
parent 47bdab6603
commit ab2a61bfa4
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 M: key-caps-gadget handle-gesture
drop [ key-down? ] [ key-up? ] bi or not ; drop [ key-down? ] [ key-up? ] bi or not ;
: key-caps ( -- ) MAIN-WINDOW: key-caps { { title "Key Caps" } }
[ <key-caps-gadget> { 5 5 } <border> >>gadgets ;
<key-caps-gadget> { 5 5 } <border> "Key Caps" open-window
] with-ui ;
MAIN: key-caps