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

new accessors

db4
Doug Coleman 2008-09-01 18:44:35 -05:00
parent 58487c07e1
commit 9939171977
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
extra/x/widgets/wm/workspace/workspace.factor
View File

@ -1,5 +1,6 @@
USING: kernel namespaces namespaces.lib math sequences vars mortar slot-accessors x ;
USING: kernel namespaces namespaces.lib math sequences vars mortar
accessors slot-accessors x ;
IN: x.widgets.wm.workspace
@ -23,9 +24,9 @@ dpy get $default-root <- children [ <- mapped? ] filter ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: switch-to-workspace ( n -- )
mapped-windows current-workspace> workspaces> nth set-workspace-windows
mapped-windows current-workspace> workspaces> nth (>>windows)
mapped-windows [ <- unmap drop ] each
dup workspaces> nth workspace-windows [ <- map drop ] each
dup workspaces> nth windows>> [ <- map drop ] each
current-workspace set* ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!