scsh-conservatory
/
orion-wm
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fixed the cursor problem

This commit is contained in:
frese 2005-01-30 14:39:25 +00:00
parent 6d99e01988
commit af7138816e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/split-wm.scm
View File

@ -198,6 +198,7 @@
(let* ((dpy (wm:dpy wm)) (let* ((dpy (wm:dpy wm))
(main-window (wm:window wm)) (main-window (wm:window wm))
(options (wm:options wm)) (options (wm:options wm))
(soptions (wm:special-options wm))
(window (create-simple-window dpy main-window 0 0 1 1 0 (window (create-simple-window dpy main-window 0 0 1 1 0
(white-pixel dpy) (black-pixel dpy))) (white-pixel dpy) (black-pixel dpy)))
(root (window-root dpy window)) (root (window-root dpy window))
@ -208,11 +209,10 @@
(subwindow-mode (subwindow-mode (subwindow-mode (subwindow-mode
include-inferiors))))) include-inferiors)))))
(cursor (create-font-cursor (cursor (create-font-cursor
dpy (if (eq? (get-option-value options 'orientation) dpy (if (eq? (get-option-value soptions 'orientation)
'horizontal) 'horizontal)
xc-sb-h-double-arrow xc-sb-h-double-arrow
xc-sb-v-double-arrow)))) xc-sb-v-double-arrow))))
;; TODO: v-cursor doesn't work anymore?!
(set-window-cursor! dpy window cursor) (set-window-cursor! dpy window cursor)
(spawn* (spawn*
(list 'split-resizer wm) (list 'split-resizer wm)