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

- added a check for the existance of the X-Server 

- added a little startup-message
This commit is contained in:
frese 2004-02-20 15:18:44 +00:00
parent ee9621eb66
commit fa2be30386
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/main.scm
View File

@ -3,6 +3,11 @@
(define (orion-wm . args) (define (orion-wm . args)
(let ((dpy (open-display))) (let ((dpy (open-display)))
(if (not dpy)
(begin
(mdisplay "Default X-Server not found. Please set the environment variable DISPLAY to the name of your X-Server.\n")
(exit)))
(use-x-error-warnings! dpy #t) (use-x-error-warnings! dpy #t)
(synchronize dpy #t) (synchronize dpy #t)
(init-sync-x-events dpy) (init-sync-x-events dpy)
@ -30,6 +35,7 @@
(root-wm-manage-window root-manager window)) (root-wm-manage-window root-manager window))
initial-windows) initial-windows)
(map-window dpy (wm:window (root-wm:initial-manager root-manager))) (map-window dpy (wm:window (root-wm:initial-manager root-manager)))
(display "Orion is up and running...\n")
(wait-for-root-wm root-manager) (wait-for-root-wm root-manager)
(backup-layout root-manager) (backup-layout root-manager)
(display "Orion-wm finished\n")))) (display "Orion finished\n"))))