[sawfish] updated StyleTab/theme.jl



commit efbe3aad4c5635fb0e8d28bf09ff73c4eba4095a
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Thu Feb 10 20:09:57 2011 +0100

    updated StyleTab/theme.jl

 themes/StyleTab/theme.jl |  313 +++++++++++++++++++++++-----------------------
 1 files changed, 159 insertions(+), 154 deletions(-)
---
diff --git a/themes/StyleTab/theme.jl b/themes/StyleTab/theme.jl
index 1d097dd..8e8b124 100644
--- a/themes/StyleTab/theme.jl
+++ b/themes/StyleTab/theme.jl
@@ -472,150 +472,152 @@
    tabbar-horizontal-left-edge-keymap "Button1-Off"
    '(call-command
      (lambda ()
-       (if (not (window-get (current-event-window) 'title-position))
+       (require 'sawfish.wm.tabs.tabgroup)
+       (setq w (current-event-window))
+       (if (not (window-get w 'title-position))
            (case styletab:titlebar-place
                  ((top) (setq current-title 'top))
                  ((bottom) (setq current-title 'bottom))
                  ((left) (setq current-title 'left))
                  ((right) (setq current-title 'right)))
-         (setq current-title (window-get (current-event-window) 'title-position)))
-       (unshade-window (current-event-window))
-       (setq pos-x (car (window-position (current-event-window))))
-       (setq pos-y (cdr (window-position (current-event-window))))
-       (setq dim (window-dimensions (current-event-window)))
-       (setq fdim (window-frame-dimensions (current-event-window)))
+         (setq current-title (window-get w 'title-position)))
+       (unshade-window w)
+       (setq pos-x (car (window-position w)))
+       (setq pos-y (cdr (window-position w)))
+       (setq dim (window-dimensions w))
+       (setq fdim (window-frame-dimensions w))
        (setq framew (/ (- (+ (car fdim) (cdr fdim)) (+ (car dim) (cdr dim) styletab:title-dimension)) 3))
        (if (eq current-title 'right)
            (setq framehigh 0)
-         (if (or (eq (window-get (current-event-window)
+         (if (or (eq (window-get w
                                  'type) 'default)
-                 (eq (window-get (current-event-window)
+                 (eq (window-get w
                                  'type) 'transient))
              (setq framehigh (+ (- styletab:title-dimension (* styletab:borders-dimension 2)) framew))
            (setq framehigh (+ styletab:title-dimension framew))))
-       (setq dim-x (- (car (window-dimensions (current-event-window)))
+       (setq dim-x (- (car (window-dimensions w))
                       framehigh))
-       (setq dim-y (+ (cdr (window-dimensions (current-event-window)))
+       (setq dim-y (+ (cdr (window-dimensions w))
                       framehigh))
        (if (<= pos-x 0) (setq pos-x 0))
-       (map-window-group 
-        (lambda (x)
-          (window-put x 'title-position 'left)) (current-event-window))
-       (call-window-hook 'window-state-change-hook (current-event-window) (list '(title-position)))
-       (map-window-group (lambda (x) (reframe-window x)) (current-event-window))
-       (move-window-to (current-event-window) pos-x pos-y)
-       (resize-window-to (current-event-window) dim-x dim-y))))
+       (window-put w 'title-position 'left)
+       (tab-refresh-group w 'title-position)
+       (call-window-hook 'window-state-change-hook w (list '(title-position)))
+       (tab-refresh-group w 'reframe)
+       (move-window-to w pos-x pos-y)
+       (resize-window-to w dim-x dim-y))))
   (bind-keys
    tabbar-horizontal-left-edge-keymap "Button2-Off"
    '(call-command
      (lambda ()
-       (if (not (window-get (current-event-window) 'title-position))
+       (require 'sawfish.wm.tabs.tabgroup)
+       (setq w (current-event-window))
+       (if (not (window-get w 'title-position))
            (case styletab:titlebar-place
                  ((top) (setq current-title 'top))
                  ((bottom) (setq current-title 'bottom))
                  ((left) (setq current-title 'left))
                  ((right) (setq current-title 'right)))
-         (setq current-title (window-get (current-event-window) 'title-position)))
-       (unshade-window (current-event-window))
-       (setq pos-x (car (window-position (current-event-window))))
-       (setq pos-y (cdr (window-position (current-event-window))))
-       (setq dim-x (car (window-dimensions (current-event-window))))
-       (setq dim-y (cdr (window-dimensions (current-event-window))))
-       (setq fdim (window-frame-dimensions (current-event-window)))
+         (setq current-title (window-get w 'title-position)))
+       (unshade-window w)
+       (setq pos-x (car (window-position w)))
+       (setq pos-y (cdr (window-position w)))
+       (setq dim-x (car (window-dimensions w)))
+       (setq dim-y (cdr (window-dimensions w)))
+       (setq fdim (window-frame-dimensions w))
        (setq framew (/ (- (+ (car fdim) (cdr fdim)) (+ dim-x dim-y styletab:title-dimension)) 3))
-
-       (setq type (window-get (current-event-window) 'type))
-
+       (setq type (window-get w 'type))
        (if (>= (+ pos-y dim-y styletab:title-dimension framew) (screen-height))
            (setq pos-y (- (screen-height) dim-y styletab:title-dimension framew)))
        (if (<= pos-y 0) (setq pos-y 0))
        (if (eq current-title 'top)
-           (map-window-group
-            (lambda (x)
-              (window-put x 'title-position 'bottom)) (current-event-window))
-         (map-window-group
-          (lambda (x)
-            (window-put x 'title-position 'top)) (current-event-window)))
-       (call-window-hook 'window-state-change-hook (current-event-window) (list '(title-position)))
-       (map-window-group (lambda (x) (reframe-window x)) (current-event-window))
-       (move-window-to (current-event-window) pos-x pos-y)
-       (resize-window-to (current-event-window) dim-x dim-y))))
+           (window-put w 'title-position 'bottom)      
+         (window-put w 'title-position 'top))
+       (if (eq current-title 'top)
+           (tab-refresh-group w 'title-position)
+         (tab-refresh-group w 'title-position))
+       (call-window-hook 'window-state-change-hook w (list '(title-position)))
+       (tab-refresh-group w 'reframe)
+       (move-window-to w pos-x pos-y)
+       (resize-window-to w dim-x dim-y))))
   (bind-keys
    tabbar-horizontal-left-edge-keymap "Button3-Off"
    '(call-command
      (lambda ()
-       (if (not (window-get (current-event-window) 'title-position))
+       (require 'sawfish.wm.tabs.tabgroup)
+       (setq w (current-event-window))
+       (if (not (window-get w 'title-position))
            (case styletab:titlebar-place
                  ((top) (setq current-title 'top))
                  ((bottom) (setq current-title 'bottom))
                  ((left) (setq current-title 'left))
                  ((right) (setq current-title 'right)))
-         (setq current-title (window-get (current-event-window) 'title-position)))
-       (unshade-window (current-event-window))
-       (setq pos-x (car (window-position (current-event-window))))
-       (setq pos-y (cdr (window-position (current-event-window))))
-       (setq dim (window-dimensions (current-event-window)))
-       (setq fdim (window-frame-dimensions (current-event-window)))
+         (setq current-title (window-get w 'title-position)))
+       (unshade-window w)
+       (setq pos-x (car (window-position w)))
+       (setq pos-y (cdr (window-position w)))
+       (setq dim (window-dimensions w))
+       (setq fdim (window-frame-dimensions w))
        (setq framew (/ (- (+ (car fdim) (cdr fdim)) (+ (car dim) (cdr dim) styletab:title-dimension)) 3))
        (if (eq current-title 'left)
            (setq framehigh 0)
-         (if (or (eq (window-get (current-event-window)
+         (if (or (eq (window-get w
                                  'type) 'default)
-                 (eq (window-get (current-event-window)
+                 (eq (window-get w
                                  'type) 'transient))
              (setq framehigh (+ (- styletab:title-dimension (* styletab:borders-dimension 2)) framew))
            (setq framehigh (+ styletab:title-dimension framew))))
-       (setq dim-x (- (car (window-dimensions (current-event-window)))
+       (setq dim-x (- (car (window-dimensions w))
                       framehigh))
-       (setq dim-y (+ (cdr (window-dimensions (current-event-window)))
+       (setq dim-y (+ (cdr (window-dimensions w))
                       framehigh))
        (if (>= (+ pos-x dim-x framehigh framew framew) (screen-width))
            (setq pos-x (- (screen-width) dim-x styletab:title-dimension framew)))
-       (map-window-group
-        (lambda (x)
-          (window-put x 'title-position 'right)) (current-event-window))
-       (call-window-hook 'window-state-change-hook (current-event-window) (list '(title-position)))
-       (map-window-group (lambda (x) (reframe-window x)) (current-event-window))
-       (move-window-to (current-event-window) pos-x pos-y)
-       (resize-window-to (current-event-window) dim-x dim-y)))))
+       (window-put w 'title-position 'right)
+       (tab-refresh-group w 'title-position)
+       (call-window-hook 'window-state-change-hook w (list '(title-position)))
+       (tab-refresh-group w 'reframe)
+       (move-window-to w pos-x pos-y)
+       (resize-window-to w dim-x dim-y)))))
 
 (def-frame-class tabbar-vertical-top-edge ()
   (bind-keys
    tabbar-vertical-top-edge-keymap "Button1-Off"
    '(call-command
      (lambda ()
-       (if (not (window-get (current-event-window) 'title-position))
+       (require 'sawfish.wm.tabs.tabgroup)
+       (setq w (current-event-window))
+       (if (not (window-get w 'title-position))
            (case styletab:titlebar-place
                  ((top) (setq current-title 'top))
                  ((bottom) (setq current-title 'bottom))
                  ((left) (setq current-title 'left))
                  ((right) (setq current-title 'right)))
-         (setq current-title (window-get (current-event-window) 'title-position)))
-       (unshade-window (current-event-window))
-       (setq pos-x (car (window-position (current-event-window))))
-       (setq pos-y (cdr (window-position (current-event-window))))
-       (setq dim-x (car (window-dimensions (current-event-window))))
-       (setq dim-y (cdr (window-dimensions (current-event-window))))
-       (setq dim (window-dimensions (current-event-window)))
-       (setq fdim (window-frame-dimensions (current-event-window)))
+         (setq current-title (window-get w 'title-position)))
+       (unshade-window w)
+       (setq pos-x (car (window-position w)))
+       (setq pos-y (cdr (window-position w)))
+       (setq dim-x (car (window-dimensions w)))
+       (setq dim-y (cdr (window-dimensions w)))
+       (setq dim (window-dimensions w))
+       (setq fdim (window-frame-dimensions w))
        (when (not (eq current-title 'left))
          (setq framew (/ (- (+ (car fdim) (cdr fdim)) (+ (car dim) (cdr dim) styletab:title-dimension)) 3))
          (if (eq current-title 'right)
              (setq framehigh 0)
            (setq framehigh (+ (- styletab:title-dimension (* styletab:borders-dimension 2)) framew)))
-         (setq dim-x (- (car (window-dimensions (current-event-window)))
+         (setq dim-x (- (car (window-dimensions w))
                         framehigh))
-         (setq dim-y (+ (cdr (window-dimensions (current-event-window)))
+         (setq dim-y (+ (cdr (window-dimensions w))
                         framehigh))
          (if (<= pos-x 0) (setq pos-x 0))
-         (map-window-group
-          (lambda (x)
-            (window-put x 'title-position 'left)) (current-event-window)))
+         (window-put w 'title-position 'left)
+         (tab-refresh-group w 'title-position))
        (when (eq current-title 'left)
          (setq framew (/ (- (+ (car fdim) (cdr fdim)) (+ dim-x dim-y styletab:title-dimension)) 3))
-         (if (or (eq (window-get (current-event-window)
+         (if (or (eq (window-get w
                                  'type) 'default)
-                 (eq (window-get (current-event-window)
+                 (eq (window-get w
                                  'type) 'transient))
              (setq framehigh (- styletab:title-dimension (* styletab:borders-dimension 2)))
            (setq framehigh styletab:title-dimension))
@@ -624,34 +626,35 @@
          (if (>= (+ pos-y dim-y styletab:title-dimension framew) (screen-height))
              (setq pos-y (- (screen-height) dim-y styletab:title-dimension framew)))
          (if (<= pos-y 0) (setq pos-y 0))
-         (map-window-group
-          (lambda (x)
-            (window-put x 'title-position 'bottom)) (current-event-window)))
-       (call-window-hook 'window-state-change-hook (current-event-window) (list '(title-position)))
-       (map-window-group (lambda (x) (reframe-window x)) (current-event-window))
-       (move-window-to (current-event-window) pos-x pos-y)
-       (resize-window-to (current-event-window) dim-x dim-y))))
+         (window-put w 'title-position 'bottom)
+         (tab-refresh-group w 'title-position))
+       (call-window-hook 'window-state-change-hook w (list '(title-position)))
+       (tab-refresh-group w 'reframe)
+       (move-window-to w pos-x pos-y)
+       (resize-window-to w dim-x dim-y))))
   (bind-keys
    tabbar-vertical-top-edge-keymap "Button2-Off"
    '(call-command
      (lambda ()
-       (if (not (window-get (current-event-window) 'title-position))
+       (require 'sawfish.wm.tabs.tabgroup)
+       (setq w (current-event-window))
+       (if (not (window-get w 'title-position))
            (case styletab:titlebar-place
                  ((top) (setq current-title 'top))
                  ((bottom) (setq current-title 'bottom))
                  ((left) (setq current-title 'left))
                  ((right) (setq current-title 'right)))
-         (setq current-title (window-get (current-event-window) 'title-position)))
-       (unshade-window (current-event-window))
-       (setq pos-x (car (window-position (current-event-window))))
-       (setq pos-y (cdr (window-position (current-event-window))))
-       (setq dim-x (car (window-dimensions (current-event-window))))
-       (setq dim-y (cdr (window-dimensions (current-event-window))))
-       (setq fdim (window-frame-dimensions (current-event-window)))
+         (setq current-title (window-get w 'title-position)))
+       (unshade-window w)
+       (setq pos-x (car (window-position w)))
+       (setq pos-y (cdr (window-position w)))
+       (setq dim-x (car (window-dimensions w)))
+       (setq dim-y (cdr (window-dimensions w)))
+       (setq fdim (window-frame-dimensions w))
        (setq framew (/ (- (+ (car fdim) (cdr fdim)) (+ dim-x dim-y styletab:title-dimension)) 3))
-       (if (or (eq (window-get (current-event-window)
+       (if (or (eq (window-get w
                                'type) 'default)
-               (eq (window-get (current-event-window)
+               (eq (window-get w
                                'type) 'transient))
            (setq framehigh (- styletab:title-dimension (* styletab:borders-dimension 2)))
          (setq framehigh styletab:title-dimension))
@@ -660,50 +663,50 @@
        (if (>= (+ pos-y dim-y styletab:title-dimension framew) (screen-height))
            (setq pos-y (- (screen-height) dim-y styletab:title-dimension framew)))
        (if (<= pos-y 0) (setq pos-y 0))
-       (map-window-group
-        (lambda (x)
-          (window-put x 'title-position 'top)) (current-event-window))
-       (call-window-hook 'window-state-change-hook (current-event-window) (list '(title-position)))
-       (map-window-group (lambda (x) (reframe-window x)) (current-event-window))
-       (move-window-to (current-event-window) pos-x pos-y)
-       (resize-window-to (current-event-window) dim-x dim-y))))
+       (window-put w 'title-position 'top)
+       (tab-refresh-group w 'title-position)
+       (call-window-hook 'window-state-change-hook w (list '(title-position)))
+       (tab-refresh-group w 'reframe)
+       (move-window-to w pos-x pos-y)
+       (resize-window-to w dim-x dim-y))))
   (bind-keys
    tabbar-vertical-top-edge-keymap "Button3-Off"
    '(call-command
      (lambda ()
-       (if (not (window-get (current-event-window) 'title-position))
+       (require 'sawfish.wm.tabs.tabgroup)
+       (setq w (current-event-window))
+       (if (not (window-get w 'title-position))
            (case styletab:titlebar-place
                  ((top) (setq current-title 'top))
                  ((bottom) (setq current-title 'bottom))
                  ((left) (setq current-title 'left))
                  ((right) (setq current-title 'right)))
-         (setq current-title (window-get (current-event-window) 'title-position)))
-       (unshade-window (current-event-window))
-       (setq pos-x (car (window-position (current-event-window))))
-       (setq pos-y (cdr (window-position (current-event-window))))
-       (setq dim-x (car (window-dimensions (current-event-window))))
-       (setq dim-y (cdr (window-dimensions (current-event-window))))
-       (setq dim (window-dimensions (current-event-window)))
-       (setq fdim (window-frame-dimensions (current-event-window)))
+         (setq current-title (window-get w 'title-position)))
+       (unshade-window w)
+       (setq pos-x (car (window-position w)))
+       (setq pos-y (cdr (window-position w)))
+       (setq dim-x (car (window-dimensions w)))
+       (setq dim-y (cdr (window-dimensions w)))
+       (setq dim (window-dimensions w))
+       (setq fdim (window-frame-dimensions w))
        (when (not (eq current-title 'right))
          (setq framew (/ (- (+ (car fdim) (cdr fdim)) (+ (car dim) (cdr dim) styletab:title-dimension)) 3))
          (if (eq current-title 'left)
              (setq framehigh 0)
            (setq framehigh (+ (- styletab:title-dimension (* styletab:borders-dimension 2)) framew)))
-         (setq dim-x (- (car (window-dimensions (current-event-window)))
+         (setq dim-x (- (car (window-dimensions w))
                         framehigh))
-         (setq dim-y (+ (cdr (window-dimensions (current-event-window)))
+         (setq dim-y (+ (cdr (window-dimensions w))
                         framehigh))
          (if (>= (+ pos-x dim-x) (screen-width))
              (setq pos-x (- (screen-width) dim-x styletab:title-dimension framew)))
-         (map-window-group
-          (lambda (x)
-            (window-put x 'title-position 'right)) (current-event-window)))
+         (window-put w 'title-position 'right)
+         (tab-refresh-group w 'title-position))
        (when (eq current-title 'right)
          (setq framew (/ (- (+ (car fdim) (cdr fdim)) (+ dim-x dim-y styletab:title-dimension)) 3))
-         (if (or (eq (window-get (current-event-window)
+         (if (or (eq (window-get w
                                  'type) 'default)
-                 (eq (window-get (current-event-window)
+                 (eq (window-get w
                                  'type) 'transient))
              (setq framehigh (- styletab:title-dimension (* styletab:borders-dimension 2)))
            (setq framehigh styletab:title-dimension))
@@ -712,13 +715,12 @@
          (if (>= (+ pos-y dim-y styletab:title-dimension framew) (screen-height))
              (setq pos-y (- (screen-height) dim-y styletab:title-dimension framew)))
          (if (<= pos-y 0) (setq pos-y 0))
-         (map-window-group
-          (lambda (x)
-            (window-put x 'title-position 'bottom)) (current-event-window)))
-       (call-window-hook 'window-state-change-hook (current-event-window) (list '(title-position)))
-       (map-window-group (lambda (x) (reframe-window x)) (current-event-window))
-       (move-window-to (current-event-window) pos-x pos-y)
-       (resize-window-to (current-event-window) dim-x dim-y)))))
+         (window-put w 'title-position 'bottom)
+         (tab-refresh-group w 'title-position))
+       (call-window-hook 'window-state-change-hook w (list '(title-position)))
+       (tab-refresh-group w 'reframe)
+       (move-window-to w pos-x pos-y)
+       (resize-window-to w dim-x dim-y)))))
 
 (defvar prev-button-keymap
   (bind-keys (make-keymap)
@@ -737,18 +739,19 @@
    frame-typ-button-keymap "Button1-Off"
    '(call-command
      (lambda ()
-       (if (not (window-get (current-event-window) 'title-position))
+       (setq w (current-event-window))
+       (if (not (window-get w 'title-position))
            (case styletab:titlebar-place
                  ((top) (setq current-title 'top))
                  ((bottom) (setq current-title 'bottom))
                  ((left) (setq current-title 'left))
                  ((right) (setq current-title 'right)))
-         (setq current-title (window-get (current-event-window) 'title-position)))
-       (setq pos-x (car (window-position (current-event-window))))
-       (setq pos-y (cdr (window-position (current-event-window))))
-       (setq dim-x (car (window-dimensions (current-event-window))))
-       (setq dim-y (cdr (window-dimensions (current-event-window))))
-       (setq type (window-get (current-event-window) 'type))
+         (setq current-title (window-get w 'title-position)))
+       (setq pos-x (car (window-position w)))
+       (setq pos-y (cdr (window-position w)))
+       (setq dim-x (car (window-dimensions w)))
+       (setq dim-y (cdr (window-dimensions w)))
+       (setq type (window-get w 'type))
        (if (eq type 'default)
            (setq typ 'transient)
          (setq typ 'default))
@@ -771,25 +774,26 @@
                       (eq current-title 'bottom)))
            (setq dim-x (+ dim-x styletab:borders-dimension))
            (setq dim-y (- dim-y styletab:borders-dimension))))
-       (set-window-type (current-event-window) typ)
-       (move-resize-window-to (current-event-window) pos-x pos-y dim-x dim-y))))
+       (set-window-type w typ)
+       (move-resize-window-to w pos-x pos-y dim-x dim-y))))
 
   (bind-keys
    frame-typ-button-keymap "Button2-Off"
    '(call-command
      (lambda ()
-       (if (eq (window-get (current-event-window) 'title-position) nil)
+       (setq w (current-event-window))
+       (if (eq (window-get w 'title-position) nil)
            (case styletab:titlebar-place
                  ((top) (setq current-title 'top))
                  ((bottom) (setq current-title 'bottom))
                  ((left) (setq current-title 'left))
                  ((right) (setq current-title 'right)))
-         (setq current-title (window-get (current-event-window) 'title-position)))
-       (setq pos-x (car (window-position (current-event-window))))
-       (setq pos-y (cdr (window-position (current-event-window))))
-       (setq dim-x (car (window-dimensions (current-event-window))))
-       (setq dim-y (cdr (window-dimensions (current-event-window))))
-       (setq type (window-get (current-event-window) 'type))
+         (setq current-title (window-get w 'title-position)))
+       (setq pos-x (car (window-position w)))
+       (setq pos-y (cdr (window-position w)))
+       (setq dim-x (car (window-dimensions w)))
+       (setq dim-y (cdr (window-dimensions w)))
+       (setq type (window-get w 'type))
        (when (or (eq type 'default)
                  (eq type 'transient))
          (setq typ 'shaped)
@@ -809,25 +813,26 @@
                  (eq current-title 'bottom))
              (setq dim-y (+ dim-y styletab:title-dimension))
            (setq dim-x (+ dim-x styletab:title-dimension))))
-       (set-window-type (current-event-window) 'unframed)
-       (move-resize-window-to (current-event-window) pos-x pos-y dim-x dim-y))))
+       (set-window-type w 'unframed)
+       (move-resize-window-to w pos-x pos-y dim-x dim-y))))
   
   (bind-keys
    frame-typ-button-keymap "Button3-Off"
    '(call-command
      (lambda ()
-       (if (not (window-get (current-event-window) 'title-position))
+       (setq w (current-event-window))
+       (if (not (window-get w 'title-position))
            (case styletab:titlebar-place
                  ((top) (setq current-title 'top))
                  ((bottom) (setq current-title 'bottom))
                  ((left) (setq current-title 'left))
                  ((right) (setq current-title 'right)))
-         (setq current-title (window-get (current-event-window) 'title-position)))
-       (setq pos-x (car (window-position (current-event-window))))
-       (setq pos-y (cdr (window-position (current-event-window))))
-       (setq dim-x (car (window-dimensions (current-event-window))))
-       (setq dim-y (cdr (window-dimensions (current-event-window))))
-       (setq type (window-get (current-event-window) 'type))
+         (setq current-title (window-get w 'title-position)))
+       (setq pos-x (car (window-position w)))
+       (setq pos-y (cdr (window-position w)))
+       (setq dim-x (car (window-dimensions w)))
+       (setq dim-y (cdr (window-dimensions w)))
+       (setq type (window-get w 'type))
        (if (or (eq type 'shaped)
                (eq type 'utility))
            (setq typ 'shaped-transient)
@@ -850,8 +855,8 @@
                       (eq current-title 'bottom)))
            (setq dim-x (- dim-x styletab:borders-dimension))
            (setq dim-y (+ dim-y styletab:borders-dimension))))
-       (set-window-type (current-event-window) typ)
-       (move-resize-window-to (current-event-window) pos-x pos-y dim-x dim-y)))))
+       (set-window-type w typ)
+       (move-resize-window-to w pos-x pos-y dim-x dim-y)))))
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; make images ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -2366,13 +2371,13 @@
 (add-frame-style theme-name
                  (lambda (w type)
                    (case type
-                         ((default)				normal-frame)
-                         ((shaped)				shaped-frame)
-                         ((transient)			transient-frame)
-                         ((shaped-transient)	shaped-transient-frame)
-                         ((utility)			    normal-frame)
-                         ((shaded-utility)	    normal-frame)
-                         ((unframed)			nil-frame))))
+                         ((default)             normal-frame)
+                         ((shaped)              shaped-frame)
+                         ((transient)           transient-frame)
+                         ((shaped-transient)    shaped-transient-frame)
+                         ((utility)             normal-frame)
+                         ((shaded-utility)      normal-frame)
+                         ((unframed)            nil-frame))))
 
 (define (current-title-w w)
   (if (not (window-get w 'title-position))



[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]