[sawfish] updated StyleTab/theme.jl
- From: Christopher Bratusek <chrisb src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [sawfish] updated StyleTab/theme.jl
- Date: Thu, 10 Feb 2011 19:10:27 +0000 (UTC)
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]
