[XWEM]: Re: xwem-frames are broken

[Steve Youngs]

* Steve Youngs <address@hidden> writes:

  > I think the problem is that there is no longer any way to _NOT_ create
  > the initial frame.  So instead of just getting my "dumped-config"
  > frames, I am getting the "dumped config" frames _plus_ an initial
  > frame.

Confirmed.

This fixes it...

--- xwem-frame.el.orig  2004-11-29 09:43:27.000000000 +1000
+++ xwem-frame.el       2004-11-29 17:37:32.000000000 +1000
@@ -155,6 +155,11 @@
       xwem-frame-iresize-mode
     xwem-frame-imove-mode))
   
+(defcustom xwem-frame-omit-init-frame nil
+  "Non-nil mean no frames will be created on startup."
+  :type 'boolean
+  :group 'xwem-frame)
+
 (defcustom xwem-frame-rolling-switch t
   "*Non-nil mean that \\<xwem-global-map>\\[xwem-frame-next] and
 \\<xwem-global-map>\\[xwem-frame-previous] will always switch, even if
@@ -572,22 +577,23 @@
       ;; Create frames from saved configuration
       (xwem-frame-config-restore1)
 
-    ;; Xinerama stuff
-    (let ((xin (X-XIneramaQueryScreens (xwem-dpy)))
-          frame frame-old)
-      (if (car xin)
-          ;; XInerama enabled, so construct frames linkage
-          (while (setq xin (cdr xin))
-            (setq frame (xwem-init-frame-at-rect (car xin)))
-            (when frame-old
-              (xwem-frame-link-insert-after frame-old frame))
-            (setq frame-old frame))
+    (unless xwem-frame-omit-init-frame
+      ;; Xinerama stuff
+      (let ((xin (X-XIneramaQueryScreens (xwem-dpy)))
+           frame frame-old)
+       (if (car xin)
+           ;; XInerama enabled, so construct frames linkage
+           (while (setq xin (cdr xin))
+             (setq frame (xwem-init-frame-at-rect (car xin)))
+             (when frame-old
+               (xwem-frame-link-insert-after frame-old frame))
+             (setq frame-old frame))
 
-        ;; No XInerama, crate just one frame
-        (xwem-init-frame-at-rect (X-Geom-to-X-Rect (xwem-rootgeom)))))
+         ;; No XInerama, crate just one frame
+         (xwem-init-frame-at-rect (X-Geom-to-X-Rect (xwem-rootgeom)))))
 
-    ;; Select very first frame
-    (xwem-select-frame (car (xwem-frames-list)))))
+      ;; Select very first frame
+      (xwem-select-frame (car (xwem-frames-list))))))
 
 ;;;###xwem-autoload
 (defun xwem-frames-init ()



-- 
|---<Steve Youngs>---------------<GnuPG KeyID: A94B3003>---|
|                   Te audire no possum.                   |
|             Musa sapientum fixa est in aure.             |
|----------------------------------<address@hidden>---|

pgp8RhY_67ljq.pgp
Description: PGP signature