1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
# Function Bling bling for FVWM-Crystal
#
# Version: 0.9.1
# Licence: GPL 2
#
# Author: Dominique Michel <dominique_libre@users.sourceforge.net>
#
# Created: 15/05/2013
# Changed: 18/05/2013
#
# Description: This function will change the windows translucency
# with focus change. Original idea: Gronono on the gentoo forum
# http://forums.gentoo.org/viewtopic-t-606068.html?sid=5dea73ee0b5eeda5a75999520455e577
#
# Warning: Translucency is not supported by FVWM.
# Keap this file version below 1.0.0 because of that.
# Set last focused window translucent, and focused window opaque
DestroyFunc FvwmTranslucensyChange
AddToFunc FvwmTranslucencyChange
+ I ThisWindow (!FvwmButtons*, !ApplicationPanel, !FvwmPager*, !FvwmIconMan*, !Iconic) Exec $[FVWM_SYSTEMDIR]/scripts/SetTranslucency $[LastFocus] $[w.id]
+ I ThisWindow (!FvwmButtons*, !ApplicationPanel, !FvwmPager*, !FvwmIconMan*, !Iconic) SetEnv LastFocus $[w.id]
# FvwmEvent config
DestroyModuleConfig FvwmTranslucencyChangeEvent: *
*FvwmTranslucencyChangeEvent: focus_change FvwmTranslucencyChange
# Start it, from the menu for now.
#AddToFunc StartFunction
#+ I Module FvwmEvent FvwmTranslucencyChangeEvent
# vim:ft=fvwm
|
