Re: Only for germans ;)

diff -urNad sawfish.orgi/themes/StyleTab/theme.jl sawfish/themes/StyleTab/theme.jl
--- sawfish.orgi/themes/StyleTab/theme.jl
+++ sawfish/themes/StyleTab/theme.jl
@@ -60,19 +60,19 @@
   :options (Default Reduce Glass WixDa Smoothly Brown Darkblue Blue Pink Green)
   :after-set (lambda () (color-changed)))
 
-(defcustom styletab-c:tabbar-marked t "Customize tabbar color if window marked to add as tab."
+(defcustom styletab-c:tabbar-marked t "Colorize tab/titelbar if it is to be added as a tab."
   :group (appearance StyleTab:group)
   :type boolean
   :after-set (lambda () (botton-color-changed recolor-tab)))
 
 (defcustom styletab-c:tabbar-marked-color (get-color "#DF0000")
-  "Color of tabbar if window marked to add as tab."
+  "Color of tab/titelbar when it was marked."
   :group (appearance StyleTab:group)
   :type color
   :depends styletab-c:tabbar-marked
   :after-set (lambda () (botton-color-changed recolor-tab)))
 
-(defcustom styletab-c:hightlight-tabbar nil "Also hightlighted tabbars."
+(defcustom styletab-c:hightlight-tabbar nil "Also hightlighted tab/titelbar."
   :group (appearance StyleTab:group)
   :type boolean
   :after-set (lambda () (botton-color-changed recolor-tab)))
@@ -118,156 +118,156 @@
   :after-set (lambda () (bright-changed)))
 
 (defcustom styletab-c:hightlight-close nil
-  "Hightlighted close button."
+  "Colorize the close button."
   :group (appearance StyleTab:group)
   :type (optional color)
   :after-set (lambda () (botton-color-changed recolor-close-button)))
 
-(defcustom styletab-c:hightlight-close-all nil "Always use."
+(defcustom styletab-c:hightlight-close-all nil "Always colorize."
   :group (appearance StyleTab:group)
   :type boolean
   :depends styletab-c:hightlight-close
   :after-set (lambda () (botton-color-changed recolor-close-button)))
 
 (defcustom styletab-c:hightlight-maximize nil
-  "Hightlighted maximize button."
+  "Colorize the maximize button."
   :group (appearance StyleTab:group)
   :type (optional color)
   :after-set (lambda () (botton-color-changed recolor-maximize-button)))
 
-(defcustom styletab-c:hightlight-maximize-all nil "Always use."
+(defcustom styletab-c:hightlight-maximize-all nil "Always colorize."
   :group (appearance StyleTab:group)
   :type boolean
   :depends styletab-c:hightlight-maximize
   :after-set (lambda () (botton-color-changed recolor-maximize-button)))
 
 (defcustom styletab-c:hightlight-iconify nil
-  "Hightlighted minimize button."
+  "Colorize the minimize button."
   :group (appearance StyleTab:group)
   :type (optional color)
   :after-set (lambda () (botton-color-changed recolor-iconify-button)))
 
-(defcustom styletab-c:hightlight-iconify-all nil "Always use."
+(defcustom styletab-c:hightlight-iconify-all nil "Always colorize."
   :group (appearance StyleTab:group)
   :type boolean
   :depends styletab-c:hightlight-iconify
   :after-set (lambda () (botton-color-changed recolor-iconify-button)))
 
 (defcustom styletab-c:hightlight-shade nil
-  "Hightlighted shade button."
+  "Colorize the shade button."
   :group (appearance StyleTab:group)
   :type (optional color)
   :after-set (lambda () (botton-color-changed recolor-shade-button)))
 
-(defcustom styletab-c:hightlight-shade-all nil "Always use."
+(defcustom styletab-c:hightlight-shade-all nil "Always colorize."
   :group (appearance StyleTab:group)
   :type boolean
   :depends styletab-c:hightlight-shade
   :after-set (lambda () (botton-color-changed recolor-shade-button)))
 
 (defcustom styletab-c:hightlight-sticky nil
-  "Hightlighted sticky button."
+  "Colorize the sticky button."
   :group (appearance StyleTab:group)
   :type (optional color)
   :after-set (lambda () (botton-color-changed recolor-sticky-button)))
 
-(defcustom styletab-c:hightlight-sticky-all nil "Always use."
+(defcustom styletab-c:hightlight-sticky-all nil "Always colorize."
   :group (appearance StyleTab:group)
   :type boolean
   :depends styletab-c:hightlight-sticky
   :after-set (lambda () (botton-color-changed recolor-sticky-button)))
 
 (defcustom styletab-c:hightlight-menu nil
-  "Hightlighted menu button."
+  "Colorize the menu button."
   :group (appearance StyleTab:group)
   :type (optional color)
   :after-set (lambda () (botton-color-changed recolor-menu-button)))
 
-(defcustom styletab-c:hightlight-menu-all nil "Always use."
+(defcustom styletab-c:hightlight-menu-all nil "Always colorize."
   :group (appearance StyleTab:group)
   :type boolean
   :depends styletab-c:hightlight-menu
   :after-set (lambda () (botton-color-changed recolor-menu-button)))
 
 (defcustom styletab-c:hightlight-frame-type nil
-  "Hightlighted frame type button."
+  "Colorize the frame type button."
   :group (appearance StyleTab:group)
   :type (optional color)
   :after-set (lambda () (botton-color-changed recolor-frame-type-button)))
 
-(defcustom styletab-c:hightlight-frame-type-all nil "Always use."
+(defcustom styletab-c:hightlight-frame-type-all nil "Always colorize."
   :group (appearance StyleTab:group)
   :type boolean
   :depends styletab-c:hightlight-frame-type
   :after-set (lambda () (botton-color-changed recolor-frame-type-button)))
 
 (defcustom styletab-c:hightlight-lock nil
-  "Hightlighted lock button."
+  "Colorize the lock button."
   :group (appearance StyleTab:group)
   :type (optional color)
   :after-set (lambda () (botton-color-changed recolor-lock-button)))
 
-(defcustom styletab-c:hightlight-lock-all nil "Always use."
+(defcustom styletab-c:hightlight-lock-all nil "Always colorize."
   :group (appearance StyleTab:group)
   :type boolean
   :depends styletab-c:hightlight-lock
   :after-set (lambda () (botton-color-changed recolor-lock-button)))
 
 (defcustom styletab-c:hightlight-move-resize nil
-  "Hightlighted move/resize button."
+  "Colorize the move/resize button."
   :group (appearance StyleTab:group)
   :type (optional color)
   :after-set (lambda () (botton-color-changed recolor-move-resize-button)))
 
-(defcustom styletab-c:hightlight-move-resize-all nil "Always use."
+(defcustom styletab-c:hightlight-move-resize-all nil "Always colorize."
   :group (appearance StyleTab:group)
   :type boolean
   :depends styletab-c:hightlight-move-resize
   :after-set (lambda () (botton-color-changed recolor-move-resize-button)))
 
 (defcustom styletab-c:hightlight-raise-lower nil
-  "Hightlighted raise/lower button."
+  "Colorize the raise/lower button."
   :group (appearance StyleTab:group)
   :type (optional color)
   :after-set (lambda () (botton-color-changed recolor-raise-lower-button)))
 
-(defcustom styletab-c:hightlight-raise-lower-all nil "Always use."
+(defcustom styletab-c:hightlight-raise-lower-all nil "Always colorize."
   :group (appearance StyleTab:group)
   :type boolean
   :depends styletab-c:hightlight-raise-lower
   :after-set (lambda () (botton-color-changed recolor-raise-lower-button)))
 
 (defcustom styletab-c:hightlight-next nil
-  "Hightlighted next workspace button."
+  "Colorize the next workspace button."
   :group (appearance StyleTab:group)
   :type (optional color)
   :after-set (lambda () (botton-color-changed recolor-next-button)))
 
-(defcustom styletab-c:hightlight-next-all nil "Always use."
+(defcustom styletab-c:hightlight-next-all nil "Always colorize."
   :group (appearance StyleTab:group)
   :type boolean
   :depends styletab-c:hightlight-next
   :after-set (lambda () (botton-color-changed recolor-next-button)))
 
 (defcustom styletab-c:hightlight-prev nil
-  "Hightlighted previous workspace button."
+  "Colorize the previous workspace button."
   :group (appearance StyleTab:group)
   :type (optional color)
   :after-set (lambda () (botton-color-changed recolor-prev-button)))
 
-(defcustom styletab-c:hightlight-prev-all nil "Always use."
+(defcustom styletab-c:hightlight-prev-all nil "Always colorize."
   :group (appearance StyleTab:group)
   :type boolean
   :depends styletab-c:hightlight-prev
   :after-set (lambda () (botton-color-changed recolor-prev-button)))
 
 (defcustom styletab-c:hightlight-rename nil
-  "Hightlighted rename button."
+  "Colorize the rename button."
   :group (appearance StyleTab:group)
   :type (optional color)
   :after-set (lambda () (botton-color-changed recolor-rename-button)))
 
-(defcustom styletab-c:hightlight-rename-all nil "Always use."
+(defcustom styletab-c:hightlight-rename-all nil "Always colorize."
   :group (appearance StyleTab:group)
   :type boolean
   :depends styletab-c:hightlight-rename
@@ -283,7 +283,7 @@
                              ;; crashes.
                              (list 'h-and '(choice \(none\) close menu maximize minimize shade sticky space send-to-prev
                                                    send-to-next lock raise-lower move-resize rename frame-type)
-                                   '(boolean "Also show in transients"))))))
+                                   '(boolean "Also show in transients."))))))
      (eval
       (macroexpand
        `(defcustom ,(car arg) ;; name
@@ -297,35 +297,35 @@
  '( ;; list to pass to mapc
    (styletab-c:top-left-buttons
     '((menu t) (sticky nil) (shade nil))
-    "Top Titlebar Left Buttons (from left to right) \\top"
+    "Top Titlebar Left Buttons (from left to right). \\top"
     StyleTab:top-buttons-group)
    (styletab-c:top-right-buttons
     '((close t) (maximize t) (minimize nil))
-    "Top Titlebar Right Buttons (from right to left) \\top"
+    "Top Titlebar Right Buttons (from right to left). \\top"
     StyleTab:top-buttons-group)
    (styletab-c:bottom-left-buttons
     '((menu t) (sticky nil) (shade nil))
-    "Bottom Titlebar Left Buttons (from left to right) \\top"
+    "Bottom Titlebar Left Buttons (from left to right). \\top"
     StyleTab:bottom-buttons-group)
    (styletab-c:bottom-right-buttons
     '((close t) (maximize t) (minimize nil))
-    "Bottom Titlebar Right Buttons (from right to left) \\top"
+    "Bottom Titlebar Right Buttons (from right to left). \\top"
     StyleTab:bottom-buttons-group)
    (styletab-c:left-top-buttons
     '((close t) (maximize t) (minimize nil))
-    "Left Titlebar Top Buttons (from top to bottom) \\top"
+    "Left Titlebar Top Buttons (from top to bottom). \\top"
     StyleTab:left-buttons-group)
    (styletab-c:left-bottom-buttons
     '((menu t) (sticky nil) (shade nil))
-    "Left Titlebar Bottom Buttons (from bottom to top) \\top"
+    "Left Titlebar Bottom Buttons (from bottom to top). \\top"
     StyleTab:left-buttons-group)
    (styletab-c:right-top-buttons
     '((close t) (maximize t) (minimize nil))
-    "Right Titlebar Top Buttons (from top to bottom) \\top"
+    "Right Titlebar Top Buttons (from top to bottom). \\top"
     StyleTab:right-buttons-group)
    (styletab-c:right-bottom-buttons
     '((menu t) (sticky nil) (shade nil))
-    "Right Titlebar Bottom Buttons (from bottom to top) \\top"
+    "Right Titlebar Bottom Buttons (from bottom to top). \\top"
     StyleTab:right-buttons-group)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
@@ -522,8 +522,8 @@
       (resize-window-to w dim-x dim-y)
       (tab-refresh-group w 'move))))
 
-(define (tabbartotop)
-  "Move tab-bar to top."
+(define (tab/titelbartotop)
+  "Move tab/titelbar to top, with resize (StyleTab Option)."
   (let ((w (current-event-window)))
     (if (not (window-get w 'title-position))
         (window-put w 'title-position styletab-c:titlebar-place))
@@ -533,8 +533,8 @@
     (if (eq (window-get w 'title-position) 'bottom)
         (rotate-tab 'horiz 'opposite))))
 
-(define (tabbartobottom)
-  "Move tab-bar to bottom."
+(define (tab/titelbartobottom)
+  "Move tab/titelbar to bottom, with resize (StyleTab Option)."
   (let ((w (current-event-window)))
     (if (not (window-get w 'title-position))
         (window-put w 'title-position styletab-c:titlebar-place))
@@ -544,8 +544,8 @@
     (if (eq (window-get w 'title-position) 'top)
         (rotate-tab 'horiz 'opposite))))
 
-(define (tabbartoleft)
-  "Move tab-bar to left."
+(define (tab/titelbartoleft)
+  "Move tab/titelbar to left, with resize (StyleTab Option)."
   (let ((w (current-event-window)))
     (if (not (window-get w 'title-position))
         (window-put w 'title-position styletab-c:titlebar-place))
@@ -555,8 +555,8 @@
     (if (eq (window-get w 'title-position) 'right)
         (rotate-tab 'vert 'opposite))))
 
-(define (tabbartoright)
-  "Move tab-bar to right."
+(define (tab/titelbartoright)
+  "Move tab/titelbar to right, with resize (StyleTab Option)."
   (let ((w (current-event-window)))
     (if (not (window-get w 'title-position))
         (window-put w 'title-position styletab-c:titlebar-place))
@@ -566,8 +566,8 @@
     (if (eq (window-get w 'title-position) 'left)
         (rotate-tab 'vert 'opposite))))
 
-(define (tabbartoggle)
-  "Move tab-bar to the opposite side. (Swap top & bottom, or left & right)"
+(define (tab/titelbartoggle)
+  "Move tab/titelbar to the opposite side, with resize (StyleTab Option)."
   (let ((w (current-event-window)))
     (if (not (window-get w 'title-position))
         (window-put w 'title-position styletab-c:titlebar-place))
@@ -576,23 +576,23 @@
         (rotate-tab 'horiz 'opposite)
       (rotate-tab 'vert 'opposite))))
 
-(define-command-gaol 'tabbar-toggle tabbartoggle)
-(define-command-gaol 'tabbar-to-top tabbartotop)
-(define-command-gaol 'tabbar-to-bottom tabbartobottom)
-(define-command-gaol 'tabbar-to-left tabbartoleft)
-(define-command-gaol 'tabbar-to-right tabbartoright)
+(define-command-gaol 'tab/titelbar-toggle tab/titelbartoggle)
+(define-command-gaol 'tab/titelbar-to-top tab/titelbartotop)
+(define-command-gaol 'tab/titelbar-to-bottom tab/titelbartobottom)
+(define-command-gaol 'tab/titelbar-to-left tab/titelbartoleft)
+(define-command-gaol 'tab/titelbar-to-right tab/titelbartoright)
 
 (def-frame-class tabbar-horizontal-left-edge ()
   (bind-keys tabbar-horizontal-left-edge-keymap
-             "Button1-Off" 'tabbar-to-left
-             "Button2-Off" 'tabbar-toggle
-             "Button3-Off" 'tabbar-to-right))
+             "Button1-Off" 'tab/titelbar-to-left
+             "Button2-Off" 'tab/titelbar-toggle
+             "Button3-Off" 'tab/titelbar-to-right))
 
 (def-frame-class tabbar-vertical-top-edge ()
   (bind-keys tabbar-vertical-top-edge-keymap
-             "Button1-Off" 'tabbar-to-top
-             "Button2-Off" 'tabbar-toggle
-             "Button3-Off" 'tabbar-to-bottom))
+             "Button1-Off" 'tab/titelbar-to-top
+             "Button2-Off" 'tab/titelbar-toggle
+             "Button3-Off" 'tab/titelbar-to-bottom))
 
 (define (f-type dest)
   (let ((w (current-event-window))
@@ -707,15 +707,15 @@
       (tab-refresh-group w 'move))))
 
 (define (set-frame-default-and-default/transient)
-  "Set frametype to `default' and toggle transient-ness with resize."
+  "Set frametype to `default' and toggle transient-ness, with resize (StyleTab Option)."
   (f-type 'def-tra))
 
 (define (set-frame-unframed-and-unframed/shaped-transient)
-  "Set frametype to 'unframed' and toggle transient-ness with resize"
+  "Set frametype to 'unframed' and toggle transient-ness, with resize (StyleTab Option)."
   (f-type 'unf-def))
 
 (define (set-frame-shaped-and-shaped/shaped-transient)
-  "Set frametype to shaped and toggle transient-ness with resize"
+  "Set frametype to shaped and toggle transient-ness, with resize (StyleTab Option)."
   (f-type 'sha-tra))
 
 (define-command-gaol 'set-frame-default-and-default/transient-toggle set-frame-default-and-default/transient)

diff -urNad po.orig/de.po po/de.po
--- po.orig/de.po
+++ po/de.po
@@ -20,7 +20,7 @@
 "Project-Id-Version: Sawfish WM\n"
 "Report-Msgid-Bugs-To: http://sawfish.tuxfamily.org/flyspray/\n"
 "POT-Creation-Date: 2011-06-23 11:00+0200\n"
-"PO-Revision-Date: 2013-10-02 23:25+0200\n"
+"PO-Revision-Date: 2013-10-04 22:42+0200\n"
 "Last-Translator: fuchur <[email protected]>\n"
 "Language-Team: German <me@home>\n"
 "MIME-Version: 1.0\n"
@@ -167,17 +167,17 @@
 msgstr "Farbvorschläge."
 
 #. ../themes/StyleTab/theme.jl
-msgid "Customize tabbar color if window marked to add as tab."
+msgid "Colorize tab/titelbar if it is to be added as a tab."
 msgstr ""
 "Reiter/Titelleiste einfärben wenn sie als Reiter hinzugefügt werden soll."
 
 #. ../themes/StyleTab/theme.jl
-msgid "Color of tabbar if window marked to add as tab."
+msgid "Color of tab/titelbar when it was marked."
 msgstr "Farbe des Reiters/Titelleiste wenn sie markiert wurde."
 
 #. ../themes/StyleTab/theme.jl
-msgid "Also hightlighted tabbars."
-msgstr "Reiter/Titelleiste aufhellen bei Mauskontakt. "
+msgid "Also hightlighted tab/titelbar."
+msgstr "Reiter/Titelleiste aufhellen bei Mauskontakt."
 
 #. ../themes/StyleTab/theme.jl
 msgid "Customize frame color/brightness (Don't use color proposals)."
@@ -206,59 +206,59 @@
 msgstr "Helligkeit der Knöpfe bei inaktiven Fenstern beim Mauskontakt."
 
 #. ../themes/StyleTab/theme.jl
-msgid "Hightlighted close button."
+msgid "Colorize the close button."
 msgstr "Einfärben der Schließknöpfe beim Mauskontakt."
 
 #. ../themes/StyleTab/theme.jl
-msgid "Always use."
-msgstr "Immer einfärben (nicht nur bei Mauskontakt)."
+msgid "Always colorize."
+msgstr "Immer einfärben."
 
 #. ../themes/StyleTab/theme.jl
-msgid "Hightlighted maximize button."
+msgid "Colorize the maximize button."
 msgstr "Einfärben der Maximierenknöpfe beim Mauskontakt."
 
 #. ../themes/StyleTab/theme.jl
-msgid "Hightlighted minimize button."
+msgid "Colorize the minimize button."
 msgstr "Einfärben der Minimierenknöpfe beim Mauskontakt."
 
 #. ../themes/StyleTab/theme.jl
-msgid "Hightlighted shade button."
+msgid "Colorize the shade button."
 msgstr "Einfärben der Einrollknöpfe beim Mauskontakt."
 
 #. ../themes/StyleTab/theme.jl
-msgid "Hightlighted sticky button."
+msgid "Colorize the sticky button."
 msgstr "Einfärben der Anheftenknöpfe beim Mauskontakt."
 
 #. ../themes/StyleTab/theme.jl
-msgid "Hightlighted menu button."
+msgid "Colorize the menu button."
 msgstr "Einfärben der Menüknöpfe beim Mauskontakt."
 
 #. ../themes/StyleTab/theme.jl
-msgid "Hightlighted frame type button."
+msgid "Colorize the frame type button."
 msgstr "Einfärben der Rahmentypknöpfe beim Mauskontakt."
 
 #. ../themes/StyleTab/theme.jl
-msgid "Hightlighted lock button."
+msgid "Colorize the lock button."
 msgstr "Einfärben der Sperrknöpfe beim Mauskontakt."
 
 #. ../themes/StyleTab/theme.jl
-msgid "Hightlighted move/resize button."
+msgid "Colorize the move/resize button."
 msgstr "Einfärben der Verschieben/Größe-ändernknöpfe beim Mauskontakt."
 
 #. ../themes/StyleTab/theme.jl
-msgid "Hightlighted raise/lower button."
+msgid "Colorize the raise/lower button."
 msgstr "Einfärben der Anheben/Absenkenknöpfe beim Mauskontakt."
 
 #. ../themes/StyleTab/theme.jl
-msgid "Hightlighted next workspace button."
+msgid "Colorize the next workspace button."
 msgstr "Einfärben der Nächste-Arbeitsflächeknöpfe beim Mauskontakt."
 
 #. ../themes/StyleTab/theme.jl
-msgid "Hightlighted previous workspace button."
+msgid "Colorize the previous workspace button."
 msgstr "Einfärben der Vorherige-Arbeitsflächeknöpfe beim Mauskontakt."
 
 #. ../themes/StyleTab/theme.jl
-msgid "Hightlighted rename button."
+msgid "Colorize the rename button."
 msgstr "Einfärben der Umbenennenknöpfe beim Mauskontakt."
 
 #. ../themes/gradient-tabbed/theme.jl
@@ -6133,59 +6133,59 @@
 msgstr "Sawfish-Fehler"
 
 #. ../themes/StyleTab/theme.jl
-msgid "Tabbar to bottom"
+msgid "Tab/titelbar to bottom"
 msgstr "Titelleiste zum »Unterem Fensterrand« verschieben"
 
 #. ../themes/StyleTab/theme.jl
-msgid "Tabbar to left"
+msgid "Tab/titelbar to left"
 msgstr "Titelleiste zum »Linken Fensterrand« verschieben"
 
 #. ../themes/StyleTab/theme.jl
-msgid "Tabbar to right"
+msgid "Tab/titelbar to right"
 msgstr "Titelleiste zum »Rechten Fensterrand« verschieben"
 
 #. ../themes/StyleTab/theme.jl
-msgid "Tabbar to top"
+msgid "Tab/titelbar to top"
 msgstr "Titelleiste zum »Oberen Fensterrand« verschieben"
 
 #. ../themes/StyleTab/theme.jl
-msgid "Tabbar toggle"
+msgid "Tab/titelbar toggle"
 msgstr "Titelleiste zum »Gegenüber liegendem Fensterrand« verschieben"
 
 #. ../themes/StyleTab/theme.jl
 msgid "Set frame default and default/transient toggle"
-msgstr "Rahmentyp umschalten »Normal« und »Nur Rahmen«"
+msgstr "Rahmentyp »Normal« und »Nur Rahmen« ein-/ausschalten"
 
 #. ../themes/StyleTab/theme.jl
 msgid "Set frame unframed and unframed/shaped transient toggle"
-msgstr "Rahmentyp umschalten »Keinen Rahmen« und »Nur Rahmen«"
+msgstr "Rahmentyp »Keinen Rahmen« und »Nur Rahmen« ein-/ausschalten"
 
 #. ../themes/StyleTab/theme.jl
 msgid "Set frame shaped and shaped/shaped transient toggle"
-msgstr "Rahmentyp umschalten »Nur Titel« und »Oberen Rahmen«"
+msgstr "Rahmentyp »Nur Titel« und »Oberen Rahmen« ein-/ausschalten"
 
 #. ../themes/StyleTab/theme.jl
 msgid "Set frame default"
-msgstr "Rahmentyp »Normal«, mit Größenanpassung (StyleTab Option)"
+msgstr "Rahmentyp »Normal«"
 
 #. ../themes/StyleTab/theme.jl
 msgid "Set frame shaped"
-msgstr "Rahmentyp »Nur Titel«, mit Größenanpassung (StyleTab Option)"
+msgstr "Rahmentyp »Nur Titel«"
 
 #. ../themes/StyleTab/theme.jl
 msgid "Set frame shaped transient"
-msgstr "Rahmentyp »Oberer Rahmen«, mit Größenanpassung (StyleTab Option)"
+msgstr "Rahmentyp »Oberer Rahmen«"
 
 #. ../themes/StyleTab/theme.jl
 msgid "Set frame transient"
-msgstr "Rahmentyp »Nur Rahmen«, mit Größenanpassung (StyleTab Option)"
+msgstr "Rahmentyp »Nur Rahmen«"
 
 #. ../themes/StyleTab/theme.jl
 msgid "Set frame unframed"
-msgstr "Rahmentyp »Kein Rahmen«, mit Größenanpassung (StyleTab option)"
+msgstr "Rahmentyp »Kein Rahmen«"
 
 #. ../themes/StyleTab/theme.jl
-msgid "Also show in transients"
+msgid "Also show in transients."
 msgstr "Auch in Dialogen anzeigen."
 
 #. ../themes/StyleTab/theme.jl
@@ -6249,83 +6249,89 @@
 msgstr "Rahmentyp"
 
 #. ../themes/StyleTab/theme.jl
-msgid "Top Titlebar Left Buttons (from left to right) \\top"
+msgid "Top Titlebar Left Buttons (from left to right). \\top"
 msgstr "Obere Titelleiste »Linke Knöpfe« (von links nach rechts). \\top"
 
 #. ../themes/StyleTab/theme.jl
-msgid "Top Titlebar Right Buttons (from right to left) \\top"
+msgid "Top Titlebar Right Buttons (from right to left). \\top"
 msgstr "Obere Titelleiste »Rechte Knöpfe« (von rechts nach links). \\top"
 
 #. ../themes/StyleTab/theme.jl
-msgid "Bottom Titlebar Left Buttons (from left to right) \\top"
+msgid "Bottom Titlebar Left Buttons (from left to right). \\top"
 msgstr "Untere Titelleiste »Linke Knöpfe« (von links nach rechts). \\top"
 
 #. ../themes/StyleTab/theme.jl
-msgid "Bottom Titlebar Right Buttons (from right to left) \\top"
+msgid "Bottom Titlebar Right Buttons (from right to left). \\top"
 msgstr "Untere Titelleiste »Rechte Knöpfe« (von rechts nach links). \\top"
 
 #. ../themes/StyleTab/theme.jl
-msgid "Left Titlebar Top Buttons (from top to bottom) \\top"
+msgid "Left Titlebar Top Buttons (from top to bottom). \\top"
 msgstr "Linke Titelleiste »Oberen Knöpfe« (von Oben nach Unten). \\top"
 
 #. ../themes/StyleTab/theme.jl
-msgid "Left Titlebar Bottom Buttons (from bottom to top) \\top"
+msgid "Left Titlebar Bottom Buttons (from bottom to top). \\top"
 msgstr "Linke Titelleiste »Unteren Knöpfe« (von Unten nach Oben). \\top"
 
 #. ../themes/StyleTab/theme.jl
-msgid "Right Titlebar Top Buttons (from top to bottom) \\top"
+msgid "Right Titlebar Top Buttons (from top to bottom). \\top"
 msgstr "Rechte Titelleiste »Oberen Knöpfe« (von Oben nach Unten). \\top"
 
 #. ../themes/StyleTab/theme.jl
-msgid "Right Titlebar Bottom Buttons (from bottom to top) \\top"
+msgid "Right Titlebar Bottom Buttons (from bottom to top). \\top"
 msgstr "Rechte Titelleiste »Unteren Knöpfe« (von Unten nach Oben). \\top"
 
 #. ../themes/StyleTab/theme.jl
-msgid "Set frametype to `default' and toggle transient-ness with resize."
+msgid ""
+"Set frametype to `default' and toggle transient-ness, with resize (StyleTab "
+"Option)."
 msgstr ""
-"Umschalten des Rahmentype zwischen »Normal« und »Nur Rahmen«, "
+"Umschalten des Rahmentypes zu/zwischen »Normal« und »Nur Rahmen«, "
 "mit Größenanpassung (StyleTab Option)."
 
 #. ../themes/StyleTab/theme.jl
-msgid "Set frametype to shaped and toggle transient-ness with resize"
+msgid ""
+"Set frametype to shaped and toggle transient-ness, with resize (StyleTab "
+"Option)."
 msgstr ""
-"Umschalten des Rahmentype zwischen »Nur Titel« und »Oberen Rahmen«, "
+"Umschalten des Rahmentypes zu/zwischen »Nur Titel« und »Oberen Rahmen«, "
 "mit Größenanpassung (StyleTab Option)."
 
 #. ../themes/StyleTab/theme.jl
-msgid "Set frametype to 'unframed' and toggle transient-ness with resize"
+msgid ""
+"Set frametype to 'unframed' and toggle transient-ness, with resize (StyleTab "
+"Option)."
 msgstr ""
-"Umschalten des Rahmentype zwischen »Keinen Rahmen« und »Nur Rahmen«, "
+"Umschalten des Rahmentypes zu/zwischen »Keinen Rahmen« und »Nur Rahmen«, "
 "mit Größenanpassung (StyleTab Option)."
 
 #. ../themes/StyleTab/theme.jl
-msgid "Move tab-bar to bottom."
+msgid "Move tab/titelbar to bottom, with resize (StyleTab Option)."
 msgstr ""
-"Verschieben Reiter/Titelleiste zum unterem Fensterrand, mit "
+"Verschiebt Reiter/Titelleiste zum unterem Fensterrand, mit "
 "Größenanpassung (StyleTab Option)."
 
 #. ../themes/StyleTab/theme.jl
-msgid "Move tab-bar to left."
+msgid "Move tab/titelbar to left, with resize (StyleTab Option)."
 msgstr ""
-"Verschieben Reiter/Titelleiste zum linken Fensterrand, mit "
+"Verschiebt Reiter/Titelleiste zum linken Fensterrand, mit "
 "Größenanpassung (StyleTab Option)."
 
 #. ../themes/StyleTab/theme.jl
-msgid "Move tab-bar to right."
+msgid "Move tab/titelbar to right, with resize (StyleTab Option)."
 msgstr ""
-"Verschieben Reiter/Titelleiste zum rechten Fensterrand, mit "
+"Verschiebt Reiter/Titelleiste zum rechten Fensterrand, mit "
 "Größenanpassung (StyleTab Option)."
 
 #. ../themes/StyleTab/theme.jl
-msgid "Move tab-bar to top."
+msgid "Move tab/titelbar to top, with resize (StyleTab Option)."
 msgstr ""
-"Verschieben Reiter/Titelleiste zum oberen Fensterrand, mit "
+"Verschiebt Reiter/Titelleiste zum oberen Fensterrand, mit "
 "Größenanpassung (StyleTab Option)."
 
 #. ../themes/StyleTab/theme.jl
-msgid "Move tab-bar to the opposite side. (Swap top & bottom, or left & right)"
+msgid "Move tab/titelbar to the opposite side, with resize (StyleTab Option)."
 msgstr ""
-"Verschieben Reiter/Titelleiste zum gegenüber liegendem Fensterrand, mit "
+"Verschiebt Reiter/Titelleiste zum gegenüber liegendem Fensterrand, mit "
 "Größenanpassung (StyleTab Option)."
 
 msgid "Apropos Funktion"

diff -urNad sawfish.orgi/lisp/sawfish/wm/keymaps.jl sawfish/lisp/sawfish/wm/keymaps.jl
--- sawfish.orgi/lisp/sawfish/wm/keymaps.jl
+++ sawfish/lisp/sawfish/wm/keymaps.jl
@@ -121,8 +121,8 @@
 				     "Button3-Move" 'move-window-interactively
 				     "Button3-Click" 'tab-release-window
 				     "Button2-Move" 'resize-window-interactively
-				     "Button2-Off" 'tab-add-to-group
-				     "C-Button2-Off" 'tabgroup-add-to-group
+				     "Button2-Off" 'tab-window-add-to-tabgroup
+				     "C-Button2-Off" 'tab-tabgroup-add-to-tabgroup
 				     "Button1-Off2" 'toggle-window-shaded
 				     "Button1-Move" 'move-window-interactively)
     "Keymap of window title bar. Mouse-bindings only."
@@ -132,8 +132,8 @@
   (defcustom tabbar-keymap (bind-keys (make-keymap)
 				      "Button3-Move" 'move-window-interactively
 				      "Button3-Click" 'tab-release-window
-				      "Button2-Off" 'tab-add-to-group
-				      "C-Button2-Off" 'tabgroup-add-to-group
+				      "Button2-Off" 'tab-window-add-to-tabgroup
+				      "C-Button2-Off" 'tab-tabgroup-add-to-tabgroup
 				      "Button1-Off2" 'toggle-window-shaded
 				      "Button1-Move" 'move-window-interactively)
     "Keymap of window tabbar. Mouse-bindings only."
diff -urNad sawfish.orgi/lisp/sawfish/wm/tabs/tab.jl sawfish/lisp/sawfish/wm/tabs/tab.jl
--- sawfish.orgi/lisp/sawfish/wm/tabs/tab.jl
+++ sawfish/lisp/sawfish/wm/tabs/tab.jl
@@ -68,7 +68,7 @@
       (tab-pos group tabnum win)))
 
   (define (tab-pos group tabnum win)
-    "find the left and right pixel offsets of a tab"
+    "Find the left and right pixel offsets of a tab"
     (let* ((dim-x (car (window-dimensions win)))
            (dim-y (cdr (window-dimensions win)))
            (margin-l
@@ -174,8 +174,8 @@
     (call-window-hook 'window-state-change-hook w (list '(marked))))
 
   ;; This function is for interactive use. Use tab-group-window for lisp.
-  (define (tab-add-to-group win)
-    "Add a window to a tabgroup. Apply this command on a window, then
+  (define (tab-window-add-to-tabgroup win)
+    "Add a window WIN to a tabgroup. Apply this command on a window, then
 on another. The first window will be added to the tabgroup containig
 the second."
     (when (net-wm-window-type-normal-p win)
@@ -193,9 +193,9 @@
         (setq marked-window (cons win)))
       (emit-marked-hook win)))
 
-  (define-command 'tab-add-to-group tab-add-to-group #:spec "%W")
+  (define-command 'tab-window-add-to-tabgroup tab-window-add-to-tabgroup #:spec "%W")
 
-  (define (tabgroup-add-to-group win)
+  (define (tab-tabgroup-add-to-tabgroup win)
     "Add a tabgroup to a tabgroup. Apply this command on a window
 from the tabgroup, then on another. The tabgroup will be added to
 the tabgroup containig the second."
@@ -210,9 +210,10 @@
                   (window-put w 'marked t)
                   (emit-marked-hook w)) marked-window))))
 
-  (define-command 'tabgroup-add-to-group tabgroup-add-to-group #:spec "%W")
+  (define-command 'tab-tabgroup-add-to-tabgroup tab-tabgroup-add-to-tabgroup #:spec "%W")
 
   (define (check-win)
+    "Check if a window that was marked as tab is destroy"
     (if (car marked-window)
         (let ((m-list marked-window))
           (setq marked-window nil)
diff -urNad sawfish.orgi/lisp/sawfish/wm/tabs/tabgroup.jl sawfish/lisp/sawfish/wm/tabs/tabgroup.jl
--- sawfish.orgi/lisp/sawfish/wm/tabs/tabgroup.jl
+++ sawfish/lisp/sawfish/wm/tabs/tabgroup.jl
@@ -73,11 +73,14 @@
     (window-get w 'tabbed))
 
   (define (frame-style-tabs-support-p w)
+    "Returns t if the framestyle from W supports tabs.
+Also need the currect settings in the theme.jl from the theme."
     (setq tab-theme-name nil)
     (call-window-hook 'window-state-change-hook w (list '(tab-theme-name)))
     (eq (window-get w 'current-frame-style) tab-theme-name))
   
   (define (net-wm-window-type-normal-p w)
+    "Returns t if _NET_WM_WINDOW_TYPE by W is true or W has window-property 'force-tab"
     (or (window-get w 'force-tab)
         (if (get-x-property w '_NET_WM_WINDOW_TYPE)
             (equal (aref (nth 2 (get-x-property w '_NET_WM_WINDOW_TYPE)) 0) '_NET_WM_WINDOW_TYPE_NORMAL))))
@@ -106,7 +109,7 @@
       group))
 
   (define (tab-find-window win)
-    "Return the group containing win."
+    "Return the group containing WIN."
     (let loop ((gr tab-groups))
       (cond
        ((null gr)
@@ -118,7 +121,7 @@
         (loop (cdr gr))))))
 
   (define (tab-window-group-index win)
-    "Return the index of the group containing win."
+    "Return the index of the group containing WIN."
     (let loop ((index 0))
       (cond
        ((eq index (length tab-groups))
@@ -130,7 +133,7 @@
         (loop (+ index 1))))))
 
   (define (tab-group-window-index win)
-    "Return the windows of the group containing win."
+    "Return the windows of the group containing WIN."
     (let* ((index (tab-window-group-index win))
            (wins (tab-group-window-list (nth index tab-groups))))
       wins))
@@ -288,6 +291,7 @@
     ;; don't add a window as tab, if it already
     ;; exists on another workspace or window type
     ;; is not a "normal" window (e.g. dock panel ...)
+    ;; and framestyle supported tabs
     (when (and (not (cdr (window-get win 'workspaces)))
                (net-wm-window-type-normal-p w)
                (net-wm-window-type-normal-p win)
@@ -371,7 +375,7 @@
           (window-put w 'tabbed t)))))
   
   (define (tab-release-window w)
-    "Release the window from its group."
+    "Release the window W from its group."
     (setq release-window nil)
     (tab-delete-window-from-tab-groups w)
     (tab-make-new-group w))
@@ -417,7 +421,7 @@
       (before-move-resize win)))
 
   (define (before-move-resize win)
-    "Releas win from the tabgroup and iconify the rest from the group."
+    "Releas WIN from the tabgroup and iconify the rest from the group."
     (let* ((default-window-animator 'none)
            (index (tab-window-group-index win))
            (wins (tab-group-window-index win))
@@ -434,7 +438,7 @@
     (setq tab-refresh-lock t))
 
   (define (after-move-resize win)
-    "Add all tabs to the tabgroup from win. (Releas and iconify by before-move-resize)"
+    "Add all tabs to the tabgroup from WIN. (Releas and iconify by before-move-resize)"
     (setq tab-refresh-lock nil)
     (let* ((default-window-animator 'none)
            (wins all-wins)
@@ -467,7 +471,7 @@
     (setq last-unmap-id (window-id win)))
 
   (define (in-tab-group win)
-    "Add a new window as tab if have one (the first created if more as one)
+    "Add a new window WIN as tab if have one (the first created if more as one)
 of the windows the same 'tab-group property"
      (when (window-get win 'tab-group)
        (setq in-tab-group-name (append in-tab-group-name (cons (cons (window-id win) (window-get win 'tab-group)))))
@@ -483,7 +487,7 @@
           (in-tab-group win)))))
 
   (define (remove-from-tab-group win)
-    "Remove window from in-tab-group-name alist if it have a 'tab-group property"
+    "Remove WIN from in-tab-group-name alist if it have a 'tab-group property"
     (when (window-get win 'tab-group)
       (setq in-tab-group-name (remove (assoc last-unmap-id in-tab-group-name) in-tab-group-name))))

diff -urNad po.orig/de.po po/de.po
--- po.orig/de.po
+++ po/de.po
@@ -6001,7 +6001,7 @@
 msgstr "Zeiger via Mousetrap bewegen und rechte Taste klicken"
 
 #. ../lisp/sawfish/wm/tabs/tab.jl
-msgid "Tab add to group"
+msgid "Tab window add to tabgroup"
 msgstr "Fenster »Als Reiter« hinzufügen"
 
 #. ../lisp/sawfish/wm/tabs/tab.jl
@@ -6015,7 +6015,7 @@
 "Reitergruppe zugeordnet, der das zweite bereits angehört."
 
 #. ../lisp/sawfish/wm/tabs/tab.jl
-msgid "Tabgroup add to group"
+msgid "Tab tabgroup add to tabgroup"
 msgstr "Reitergruppe zur einer »Zweiten Reitergruppe« hinzufügen"
 
 #. ../lisp/sawfish/wm/tabs/tab.jl

diff -urNad sawfish.orgi/lisp/sawfish/wm/tabs/tab.jl sawfish/lisp/sawfish/wm/tabs/tab.jl
--- sawfish.orgi/lisp/sawfish/wm/tabs/tab.jl
+++ sawfish/lisp/sawfish/wm/tabs/tab.jl
@@ -175,7 +175,7 @@
 
   ;; This function is for interactive use. Use tab-group-window for lisp.
   (define (tab-window-add-to-tabgroup win)
-    "Add a window WIN to a tabgroup. Apply this command on a window, then
+    "Add a window to a tabgroup. Apply this command on a window, then
 on another. The first window will be added to the tabgroup containig
 the second."
     (when (net-wm-window-type-normal-p win)
diff -urNad sawfish.orgi/lisp/sawfish/wm/tabs/tabgroup.jl sawfish/lisp/sawfish/wm/tabs/tabgroup.jl
--- sawfish.orgi/lisp/sawfish/wm/tabs/tabgroup.jl
+++ sawfish/lisp/sawfish/wm/tabs/tabgroup.jl
@@ -375,7 +375,7 @@
           (window-put w 'tabbed t)))))
   
   (define (tab-release-window w)
-    "Release the window W from its group."
+    "Release the window from its group."
     (setq release-window nil)
     (tab-delete-window-from-tab-groups w)
     (tab-make-new-group w))

diff -urNad sawfish.orgi/lisp/sawfish/wm/tabs/tab.jl sawfish/lisp/sawfish/wm/tabs/tab.jl
--- sawfish.orgi/lisp/sawfish/wm/tabs/tab.jl
+++ sawfish/lisp/sawfish/wm/tabs/tab.jl
@@ -203,7 +203,7 @@
       (if marked-window
           (progn
             (setq marked-window (tab-group-window-index (car marked-window)))
-            (tab-add-to-group win))
+            (tab-window-add-to-tabgroup win))
         (default-cursor (get-cursor 'clock))
         (setq marked-window (tab-group-window-index win))
         (mapcar (lambda (w)

diff -urNad sawfish.orgi/lisp/sawfish/wm/commands/move-resize.jl sawfish/lisp/sawfish/wm/commands/move-resize.jl
--- sawfish.orgi/lisp/sawfish/wm/commands/move-resize.jl
+++ sawfish/lisp/sawfish/wm/commands/move-resize.jl
@@ -91,6 +91,16 @@
     :tooltip "When moving a window, this option lets you align one of \
 its edges with an edge of another window.")
 
+  (defcustom marked-cursor-shape 'clock
+    "Cursor shape if a window is marked to added as tab."
+    :type (choice arrow box_spiral center_ptr circle cross cross_reverse
+                  crosshair diamond_cross dotbox clock double_arrow draped_box
+                  fleur hand1 hand2 iron_cross left_ptr ll_angle mouse
+                  pencil pirate plus question_arrow right_ptr sb_left_arrow
+                  sb_right_arrow sb_down_arrow sb_up_arrow spider star
+                  target tcross watch xterm X_cursor)
+    :group move)
+
   (defvar move-snap-mode 'resistance
     "How to snap together window edges, one of `magnetism', `resistance', or
 `attraction'.")
diff -urNad sawfish.orgi/lisp/sawfish/wm/prg/compton.jl sawfish/lisp/sawfish/wm/prg/compton.jl
--- sawfish.orgi/lisp/sawfish/wm/prg/compton.jl
+++ sawfish/lisp/sawfish/wm/prg/compton.jl
@@ -90,55 +90,55 @@
       :type boolean
       :after-set (lambda () (switch-opacity)))
 
-    (defcustom shadows-crop-maximized nil "Crop shadows by maximized Windows (xinerama support):"
+    (defcustom shadows-crop-maximized nil "Crop shadows by maximized Windows (xinerama support)."
       :depends opacity-enable
       :group (appearance window-effects)
       :type boolean
       :after-set (lambda () (switch-opacity)))
 
-    (defcustom top-offset -15 "The top offset for shadows. (Default -15)"
+    (defcustom top-offset -15 "The top offset for shadows (Default -15)."
       :depends opacity-enable
       :group (appearance window-effects)
       :type symbol
       :options (25 20 15 10 5 0 -05 -10 -15 -20 -25 -30 -35 -40 -45 -50)
       :after-set (lambda () (switch-opacity)))
 
-    (defcustom left-offset -15 "The left offset for shadows. (Default -15)"
+    (defcustom left-offset -15 "The left offset for shadows (Default -15)."
       :depends opacity-enable
       :group (appearance window-effects)
       :type symbol
       :options (25 20 15 10 5 0 -05 -10 -15 -20 -25 -30 -35 -40 -45 -50)
       :after-set (lambda () (switch-opacity)))
 
-    (defcustom translucency 80 "The translucency for shadows. (Default 80)"
+    (defcustom translucency 80 "The translucency for shadows (Default 80)."
       :depends opacity-enable
       :group (appearance window-effects)
       :type symbol
       :options (10 20 30 40 50 60 70 80 90 100)
       :after-set (lambda () (switch-opacity)))
 
-    (defcustom blur-radius 12 "The blur radius for shadows. (Default 12)"
+    (defcustom blur-radius 12 "The blur radius for shadows (Default 12)."
       :depends opacity-enable
       :group (appearance window-effects)
       :type symbol
       :options (1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24)
       :after-set (lambda () (switch-opacity)))
 
-    (defcustom shadow-red 0 "Red color value of shadow. (Default 0)"
+    (defcustom shadow-red 0 "Red color value of shadow (Default 0)."
       :depends opacity-enable
       :group (appearance window-effects)
       :type symbol
       :options (0 1 2 3 4 5 6 7 8 9 10)
       :after-set (lambda () (switch-opacity)))
 
-    (defcustom shadow-green 0 "Green color value of shadow. (Default 0)"
+    (defcustom shadow-green 0 "Green color value of shadow (Default 0)."
       :depends opacity-enable
       :group (appearance window-effects)
       :type symbol
       :options (0 1 2 3 4 5 6 7 8 9 10)
       :after-set (lambda () (switch-opacity)))
 
-    (defcustom shadow-blue 0 "Blue color value of shadow. (Default 0)"
+    (defcustom shadow-blue 0 "Blue color value of shadow (Default 0)."
       :depends opacity-enable
       :group (appearance window-effects)
       :type symbol
@@ -157,21 +157,21 @@
       :type boolean
       :after-set (lambda () (switch-opacity)))
 
-    (defcustom fade-in 28 "Opacity change between steps while fading in. (Default 28)"
+    (defcustom fade-in 28 "Opacity change between steps while fading in (Default 28)."
       :depends opacity-enable
       :group (appearance window-effects)
       :type symbol
       :options (1 7 14 21 28 35 42 49 56)
       :after-set (lambda () (switch-opacity)))
 
-    (defcustom fade-out 28 "Opacity change between steps while fading out. (Default 28)"
+    (defcustom fade-out 28 "Opacity change between steps while fading out (Default 28)."
       :depends opacity-enable
       :group (appearance window-effects)
       :type symbol
       :options (1 7 14 21 28 35 42 49 56)
       :after-set (lambda () (switch-opacity)))
 
-    (defcustom fade-time 10 "The time between steps in a fade in milliseconds. (Default 10)"
+    (defcustom fade-time 10 "The time between steps in a fade in milliseconds (Default 10)."
       :depends opacity-enable
       :group (appearance window-effects)
       :type symbol
@@ -184,60 +184,60 @@
       :type boolean
       :after-set (lambda () (switch-opacity)))
 
-    (defcustom menu-opacity 10 "The opacity for menus. (Default 10)"
+    (defcustom menu-opacity 10 "The opacity for menus (Default 10)."
       :depends opacity-enable
       :group (appearance window-effects)
       :type symbol
       :options (5 6 7 8 9 10)
       :after-set (lambda () (switch-opacity)))
 
-    (defcustom opacity-by-move 75 "Opacity by move. (Default 75)"
+    (defcustom opacity-by-move 75 "Opacity by move (Default 75)."
       :depends opacity-enable
       :group (appearance window-effects)
       :type (number 0 100 75 1))
 
-    (defcustom opacity-by-resize 75 "Opacity by resize. (Default 75)"
+    (defcustom opacity-by-resize 75 "Opacity by resize (Default 75)."
       :depends opacity-enable
       :group (appearance window-effects)
       :type (number 0 100 75 1))
 
-    (defcustom opacity-normal-i 90 "Opacity normal windows inactive. (Default 90)"
+    (defcustom opacity-normal-i 90 "Opacity normal windows inactive (Default 90)."
       :depends opacity-enable
       :group (appearance window-effects)
       :type (number 0 100 90 1)
       :after-set (lambda () (update-opacity 'normal)))
 
-    (defcustom opacity-dialog-i 85 "Opacity dialog windows inactive. (Default 85)"
+    (defcustom opacity-dialog-i 85 "Opacity dialog windows inactive (Default 85)."
       :depends opacity-enable
       :group (appearance window-effects)
       :type (number 0 100 85 1)
       :after-set (lambda () (update-opacity 'dialog)))
 
-    (defcustom opacity-tabbed-i 95 "Opacity tabbed windows inactive. (Default 95)"
+    (defcustom opacity-tabbed-i 95 "Opacity tabbed windows inactive (Default 95)."
       :depends opacity-enable
       :group (appearance window-effects)
       :type (number 0 100 95 1)
       :after-set (lambda () (update-opacity 'tabbed)))
 
-    (defcustom opacity-desktop-i 75 "Opacity desktop windows inactive. (Default 75)"
+    (defcustom opacity-desktop-i 75 "Opacity desktop windows inactive (Default 75)."
       :depends opacity-enable
       :group (appearance window-effects)
       :type (number 0 100 75 1)
       :after-set (lambda () (update-opacity 'desktop)))
 
-    (defcustom opacity-dock-a 100 "Opacity dock windows active. (Default 100)"
+    (defcustom opacity-dock-a 100 "Opacity dock windows active (Default 100)."
       :depends opacity-enable
       :group (appearance window-effects)
       :type (number 50 100 100 1)
       :after-set (lambda () (update-opacity 'dock)))
 
-    (defcustom opacity-dock-i 80 "Opacity dock windows inactive. (Default 80)"
+    (defcustom opacity-dock-i 80 "Opacity dock windows inactive (Default 80)."
       :depends opacity-enable
       :group (appearance window-effects)
       :type (number 0 100 80 1)
       :after-set (lambda () (update-opacity 'dock)))
 
-    (defcustom opacity-notify-i 85 "Opacity notify. (Default 85)"
+    (defcustom opacity-notify-i 85 "Opacity notify (Default 85)."
       :depends opacity-enable
       :group (appearance window-effects)
       :type (number 0 100 85 1)
diff -urNad sawfish.orgi/lisp/sawfish/wm/tabs/tab.jl sawfish/lisp/sawfish/wm/tabs/tab.jl
--- sawfish.orgi/lisp/sawfish/wm/tabs/tab.jl
+++ sawfish/lisp/sawfish/wm/tabs/tab.jl
@@ -189,7 +189,7 @@
             (window-put win 'marked nil)
             (setq marked-window nil))
         (window-put win 'marked t)
-        (default-cursor (get-cursor 'clock))
+        (default-cursor (get-cursor marked-cursor-shape))
         (setq marked-window (cons win)))
       (emit-marked-hook win)))
 
@@ -204,7 +204,7 @@
           (progn
             (setq marked-window (tab-group-window-index (car marked-window)))
             (tab-window-add-to-tabgroup win))
-        (default-cursor (get-cursor 'clock))
+        (default-cursor (get-cursor marked-cursor-shape))
         (setq marked-window (tab-group-window-index win))
         (mapcar (lambda (w) 
                   (window-put w 'marked t)

diff -urNad po.orgi/de.po po/de.po
--- po.orgi/de.po
+++ po/de.po
@@ -3221,36 +3221,36 @@
 msgstr "Erzwingen von Schatten auch bei Fenstern mit Reitern."
 
 #. ../lisp/sawfish/wm/prg/compton.jl
-msgid "Crop shadows by maximized Windows (xinerama support):"
-msgstr "Keine Schatten bei maximierten Fenstern. (Xinerama Unterstützung)"
+msgid "Crop shadows by maximized Windows (xinerama support)."
+msgstr "Keine Schatten bei maximierten Fenstern (Xinerama Unterstützung)."
 
 #. ../lisp/sawfish/wm/prg/compton.jl
-msgid "The top offset for shadows. (Default -15)"
-msgstr "Oberer Schattenversatz. (Vorgabe -15)"
+msgid "The top offset for shadows (Default -15)."
+msgstr "Oberer Schattenversatz (Vorgabe -15)."
 
 #. ../lisp/sawfish/wm/prg/compton.jl
-msgid "The left offset for shadows. (Default -15)"
-msgstr "Linker Schattenversatz. (Vorgabe -15)"
+msgid "The left offset for shadows (Default -15)."
+msgstr "Linker Schattenversatz (Vorgabe -15)."
 
 #. ../lisp/sawfish/wm/prg/compton.jl
-msgid "The translucency for shadows. (Default 80)"
-msgstr "Transparenz der Schatten. (Vorgabe 80)"
+msgid "The translucency for shadows (Default 80)."
+msgstr "Transparenz der Schatten (Vorgabe 80)."
 
 #. ../lisp/sawfish/wm/prg/compton.jl
-msgid "The blur radius for shadows. (Default 12)"
-msgstr "Unschärfe Radius bei Schatten. (Vorgabe 12)"
+msgid "The blur radius for shadows (Default 12)."
+msgstr "Unschärfe Radius bei Schatten (Vorgabe 12)."
 
 #. ../lisp/sawfish/wm/prg/compton.jl
-msgid "Red color value of shadow. (Default 0)"
-msgstr "Rote Farbintensität in den Schatten. (Vorgabe 0)"
+msgid "Red color value of shadow (Default 0)."
+msgstr "Rote Farbintensität in den Schatten (Vorgabe 0)."
 
 #. ../lisp/sawfish/wm/prg/compton.jl
-msgid "Green color value of shadow. (Default 0)"
-msgstr "Grüne Farbintensität in den Schatten. (Vorgabe 0)"
+msgid "Green color value of shadow (Default 0)."
+msgstr "Grüne Farbintensität in den Schatten. (Vorgabe 0)."
 
 #. ../lisp/sawfish/wm/prg/compton.jl
-msgid "Blue color value of shadow. (Default 0)"
-msgstr "Blaue Farbintensität in den Schatten. (Vorgabe 0)"
+msgid "Blue color value of shadow (Default 0)."
+msgstr "Blaue Farbintensität in den Schatten (Vorgabe 0)."
 
 #. ../lisp/sawfish/wm/prg/compton.jl
 msgid "Avoid drawing shadows on dock/panel windows."
@@ -3259,67 +3259,67 @@
 #. ../lisp/sawfish/wm/prg/compton.jl
 msgid "Fade windows in/out when opening/closing and when opacity changes."
 msgstr ""
-"Animieren der Fenster. (Fokus an/aus, Öffne/Schließen, Minimieren/Maximieren "
-"...)"
+"Animieren der Fenster (Fokus an/aus, Öffne/Schließen, Minimieren/Maximieren "
+"...)."
 
 #. ../lisp/sawfish/wm/prg/compton.jl
-msgid "Opacity change between steps while fading in. (Default 28)"
+msgid "Opacity change between steps while fading in (Default 28)."
 msgstr ""
-"Deckkraft Veränderung zwischen den Schritten beim Einblenden. (Vorgabe 28)"
+"Deckkraft Veränderung zwischen den Schritten beim Einblenden (Vorgabe 28)."
 
 #. ../lisp/sawfish/wm/prg/compton.jl
-msgid "Opacity change between steps while fading out. (Default 28)"
+msgid "Opacity change between steps while fading out (Default 28)."
 msgstr ""
-"Deckkraft Veränderung zwischen den Schritten beim Ausblenden. (Vorgabe 28)"
+"Deckkraft Veränderung zwischen den Schritten beim Ausblenden (Vorgabe 28)."
 
 #. ../lisp/sawfish/wm/prg/compton.jl
-msgid "The time between steps in a fade in milliseconds. (Default 10)"
+msgid "The time between steps in a fade in milliseconds (Default 10)."
 msgstr ""
-"Die Zeit zwischen den einzelnen Schritten in Millisekunden. (Vorgabe 10)"
+"Die Zeit zwischen den einzelnen Schritten in Millisekunden (Vorgabe 10)."
 
 #. ../lisp/sawfish/wm/prg/compton.jl
 msgid "Zero the part of the shadow's mask behind the window (experimental)."
-msgstr "Entfernen der Schatten hinter den Fenstern. (Experimentell)"
+msgstr "Entfernen der Schatten hinter den Fenstern (Experimentell)."
 
 #. ../lisp/sawfish/wm/prg/compton.jl
-msgid "The opacity for menus. (Default 10)"
-msgstr "Transparenz bei den Menüs. (Vorgabe 10)"
+msgid "The opacity for menus (Default 10)."
+msgstr "Transparenz bei den Menüs (Vorgabe 10)."
 
 #. ../lisp/sawfish/wm/prg/compton.jl
-msgid "Opacity by move. (Default 75)"
-msgstr "Transparenz wenn Fenster verschoben wird. (Vorgabe 75)"
+msgid "Opacity by move (Default 75)."
+msgstr "Transparenz wenn Fenster verschoben wird (Vorgabe 75)."
 
 #. ../lisp/sawfish/wm/prg/compton.jl
-msgid "Opacity by resize. (Default 75)"
-msgstr "Transparenz wenn die Größe der Fenster verändert wird. (Vorgabe 75)"
+msgid "Opacity by resize (Default 75)."
+msgstr "Transparenz wenn die Größe der Fenster verändert wird (Vorgabe 75)."
 
 #. ../lisp/sawfish/wm/prg/compton.jl
-msgid "Opacity normal windows inactive. (Default 90)"
-msgstr "Transparenz bei inaktiven normalen Fenstern. (Vorgabe 90)"
+msgid "Opacity normal windows inactive (Default 90)."
+msgstr "Transparenz bei inaktiven normalen Fenstern (Vorgabe 90)."
 
 #. ../lisp/sawfish/wm/prg/compton.jl
-msgid "Opacity dialog windows inactive. (Default 85)"
-msgstr "Transparenz bei inaktiven Dialogen. (Vorgabe 85)"
+msgid "Opacity dialog windows inactive (Default 85)."
+msgstr "Transparenz bei inaktiven Dialogen (Vorgabe 85)."
 
 #. ../lisp/sawfish/wm/prg/compton.jl
-msgid "Opacity tabbed windows inactive. (Default 95)"
-msgstr "Transparenz bei inaktiven Fenstern mit Reitern. (Vorgabe 95)"
+msgid "Opacity tabbed windows inactive (Default 95)."
+msgstr "Transparenz bei inaktiven Fenstern mit Reitern (Vorgabe 95)."
 
 #. ../lisp/sawfish/wm/prg/compton.jl
-msgid "Opacity desktop windows inactive. (Default 75)"
-msgstr "Transparenz der inaktiven Arbeitsfläche. (Vorgabe 75)"
+msgid "Opacity desktop windows inactive (Default 75)."
+msgstr "Transparenz der inaktiven Arbeitsfläche (Vorgabe 75)."
 
 #. ../lisp/sawfish/wm/prg/compton.jl
-msgid "Opacity dock windows active. (Default 100)"
-msgstr "Transparenz bei fokussierten Docks. (Vorgabe 100)"
+msgid "Opacity dock windows active (Default 100)."
+msgstr "Transparenz bei fokussierten Docks (Vorgabe 100)."
 
 #. ../lisp/sawfish/wm/prg/compton.jl
-msgid "Opacity dock windows inactive. (Default 80)"
-msgstr "Transparenz bei inaktiven Docks. (Vorgabe 80)"
+msgid "Opacity dock windows inactive (Default 80)."
+msgstr "Transparenz bei inaktiven Docks (Vorgabe 80)."
 
 #. ../lisp/sawfish/wm/prg/compton.jl
-msgid "Opacity notify. (Default 85)"
-msgstr "Transparenz bei Benachrichtigungen. (Vorgabe 85)"
+msgid "Opacity notify (Default 85)."
+msgstr "Transparenz bei Benachrichtigungen (Vorgabe 85)."
 
 #. ../lisp/sawfish/wm/prg/xmodmap.jl
 msgid "Whether to start xmodmap with Sawfish."
@@ -3599,6 +3599,10 @@
 msgstr "Schriftfarbe für angeklickte hervorgehobene Rahmen."
 
 #. ../lisp/sawfish/wm/frames.jl
+msgid "Cursor shape if a window is marked to added as tab."
+msgstr "Mauszeiger wenn ein Fenster als Reiter hinzugefügt werden soll."
+
+#. ../lisp/sawfish/wm/frames.jl
 msgid "Whether to change the cursor shape for frame buttons."
 msgstr "Benutzerdefinierte Mauszeiger bei den verschiedenen Rahmenknöpfen."
 
@@ -3631,6 +3635,10 @@
 msgid "diamond_cross"
 msgstr "Diamanten Kreuz "
 
+#. ../lisp/sawfish/wm/commands/move-resize.jl
+msgid "clock"
+msgstr "Uhr "
+
 #. ../lisp/sawfish/wm/frames.jl
 msgid "dotbox"
 msgstr "Punkt Box"
@@ -3726,6 +3734,10 @@
 msgid "tcross"
 msgstr "T Kreuz"
 
+#. ../lisp/sawfish/wm/commands/move-resize.jl
+msgid "watch"
+msgstr "Armbanduhr"
+
 #. ../lisp/sawfish/wm/frames.jl
 msgid "xterm"
 msgstr "Prompt"
@@ -6001,7 +6013,7 @@
 msgstr "Zeiger via Mousetrap bewegen und rechte Taste klicken"
 
 #. ../lisp/sawfish/wm/tabs/tab.jl
-msgid "Tab window add to tabgroup"
+msgid "Window add to tabgroup"
 msgstr "Fenster »Als Reiter« hinzufügen"
 
 #. ../lisp/sawfish/wm/tabs/tab.jl
@@ -6015,7 +6027,7 @@
 "Reitergruppe zugeordnet, der das zweite bereits angehört."
 
 #. ../lisp/sawfish/wm/tabs/tab.jl
-msgid "Tab tabgroup add to tabgroup"
+msgid "Tabgroup add to tabgroup"
 msgstr "Reitergruppe zur einer »Zweiten Reitergruppe« hinzufügen"
 
 #. ../lisp/sawfish/wm/tabs/tab.jl

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v2.0.20 (GNU/Linux)

iEYEARECAAYFAlJQYTQACgkQ5bxw1bjXsrBtiACgukx9qZW4Od2OYC352KXESOx0
M7gAn2cs2tKvNQZ99sdlM+QfIkGhIFEQ
=lQoM
-----END PGP SIGNATURE-----