diff options
| author | Jan Vornberger <jan.vornberger@informatik.uni-oldenburg.de> | 2009-11-29 00:43:10 +0100 |
|---|---|---|
| committer | Jan Vornberger <jan.vornberger@informatik.uni-oldenburg.de> | 2009-11-29 00:43:10 +0100 |
| commit | 1123888c5d395e402e067315800f4e7bf561d023 (patch) | |
| tree | d745de10f73488f58faa8f2e6b16d246165ba428 /XMonad/Layout/Tabbed.hs | |
| parent | c0d896b8c04cce75488395cc679085bbc18b043b (diff) | |
| download | XMonadContrib-1123888c5d395e402e067315800f4e7bf561d023.tar.gz XMonadContrib-1123888c5d395e402e067315800f4e7bf561d023.tar.xz XMonadContrib-1123888c5d395e402e067315800f4e7bf561d023.zip | |
Extended decoration module with more hooks and consolidated some existing ones
Ignore-this: 5a23af3009ecca2feb9a84f8c6f8ac33
darcs-hash:20091128234310-594c5-8b6cd110f95678fd49fa1c20b0d4c69ef0fbeec5.gz
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Layout/Tabbed.hs | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/XMonad/Layout/Tabbed.hs b/XMonad/Layout/Tabbed.hs index 469c5d5..288ea2b 100644 --- a/XMonad/Layout/Tabbed.hs +++ b/XMonad/Layout/Tabbed.hs @@ -155,17 +155,16 @@ data TabbedDecoration a = Tabbed TabbarLocation TabbarShown deriving (Read, Show instance Eq a => DecorationStyle TabbedDecoration a where describeDeco (Tabbed Top _ ) = "Tabbed" describeDeco (Tabbed Bottom _ ) = "Tabbed Bottom" - decorationMouseFocusHook _ ds ButtonEvent { ev_window = ew - , ev_event_type = et - , ev_button = eb } + decorationEventHook _ ds ButtonEvent { ev_window = ew + , ev_event_type = et + , ev_button = eb } | et == buttonPress , Just ((w,_),_) <-findWindowByDecoration ew ds = if eb == button2 then killWindow w else focus w - decorationMouseFocusHook _ _ _ = return () + decorationEventHook _ _ _ = return () - decorationMouseDragHook _ _ _ = return () pureDecoration (Tabbed lc sh) _ ht _ s wrs (w,r@(Rectangle x y wh hh)) = if ((sh == Always && numWindows > 0) || numWindows > 1) then Just $ case lc of |