Slava Pestov 2008-01-30 02:05:16 -06:00
commit 4d88b8ba2c
3 changed files with 10 additions and 5 deletions

View File

@ -2,14 +2,15 @@
! See http://factorcode.org/license.txt for BSD license.
IN: io.unix.linux
USING: io.backend io.unix.backend io.unix.launcher io.unix.select
namespaces kernel assocs unix.process ;
namespaces kernel assocs unix.process init ;
TUPLE: linux-io ;
INSTANCE: linux-io unix-io
M: linux-io init-io ( -- )
<select-mx> mx set-global
start-wait-thread ;
<select-mx> mx set-global ;
T{ linux-io } set-io-backend
[ start-wait-thread ] "io.unix.linux" add-init-hook

View File

@ -16,4 +16,4 @@ IN: namespaces.lib
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: set* ( val var -- ) namestack* set-hash-stack ;
: set* ( val var -- ) namestack* set-assoc-stack ;

View File

@ -69,7 +69,11 @@ M: gadget tool-scroller drop f ;
[ find-workspace hide-popup ] <debugger>
"Error" show-titled-popup ;
M: workspace pref-dim* drop { 600 700 } ;
SYMBOL: workspace-dim
{ 600 700 } workspace-dim set-global
M: workspace pref-dim* drop workspace-dim get ;
M: workspace focusable-child*
dup workspace-popup [ ] [ workspace-listener ] ?if ;