Merge branch 'master' of http://dharmatech.onigirihouse.com/factor
commit
4d88b8ba2c
|
@ -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
|
|
@ -16,4 +16,4 @@ IN: namespaces.lib
|
|||
|
||||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||
|
||||
: set* ( val var -- ) namestack* set-hash-stack ;
|
||||
: set* ( val var -- ) namestack* set-assoc-stack ;
|
||||
|
|
|
@ -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 ;
|
||||
|
|
Loading…
Reference in New Issue