[Fvwm-crystal-commits] SF.net SVN: fvwm-crystal:[304] fvwm/components/functions

[<dom...@us...>]

Revision: 304
          http://sourceforge.net/p/fvwm-crystal/code/304
Author:   dominique_libre
Date:     2013-04-27 21:57:24 +0000 (Sat, 27 Apr 2013)
Log Message:
-----------
functions/FvwmExpose: make it to work. A little bit flaky. See commented code for a non flaky version. If you know how to archive non flaky transparency, please drop me a mail.

Modified Paths:
--------------
    ChangeLog
    fvwm/components/functions/FvwmExpose

Modified: ChangeLog
===================================================================
--- ChangeLog	2013-04-27 21:51:54 UTC (rev 303)
+++ ChangeLog	2013-04-27 21:57:24 UTC (rev 304)
@@ -4,6 +4,9 @@
   bin/fvwm-crystal.videomodeswitch+: video mode switching usingg xrandr;
   bin/fvwm-crystal.videomodeswitch-: video mode switching usingg xrandr:
   commented debuging function
+  functions/FvwmExpose: make it to work. A little bit flaky. See commented
+  code for a non flaky version. If you know how to archive non flaky transparency,
+  please drop me a mail.
 
 Vendredi 26 Avril 2013 Dominique Michel
 + addons/make_mo: make file for translations

Modified: fvwm/components/functions/FvwmExpose
===================================================================
--- fvwm/components/functions/FvwmExpose	2013-04-27 21:51:54 UTC (rev 303)
+++ fvwm/components/functions/FvwmExpose	2013-04-27 21:57:24 UTC (rev 304)
@@ -1,30 +1,41 @@
-# Expose clone for FVWM
-# Experimental code, needs improvement
+# Expose clone for FVWM-Crystal
+# Original idea from Taviso http://zensites.net/fvwm/guide/advanced_functions.html
+# Modified by Harnir and by me. Dominique Michel <dom...@so...>
+# See ChangeLog
 
+# Raise the wanted window and kill FvwmExpose
 DestroyFunc FvwmExpose-Action
 AddToFunc FvwmExpose-Action
 + I WindowId $* Raise
 + I KillModule FvwmButtons FvwmExpose
- 
- 
+
+# Create 1 picture and 1 FvwmExpose button at a time
+# To use w.name instead of w.class need something like \\\\\"$[w.name]\\\\\"
+# and to filter out or quote the () (they confuse Fvwm-Buttons)
+DestroyFunc FvwmExpose-Thumbnail
+AddToFunc FvwmExpose-Thumbnail
++ I PipeRead \
+    "echo Raise; xwd -id $[w.id] > /tmp/icon.exp.$[w.id].xwd ; convert -scale 300 -quality 0 xwd:/tmp/icon.exp.$[w.id].xwd png:/tmp/icon.exp.$[w.id].png ; \
+     echo '*FvwmExpose: (1x1, Title (Center) $[w.class], Icon /tmp/icon.exp.$[w.id].png, Action FvwmExpose-Action $[w.id] )'"
+# Not flaky, but no transparency:
+#     echo '*FvwmExpose: (1x1, Swallow (UseOld,NoKill) IM:$[w.id] `Exec animate -title IM:$[w.id] /tmp/icon.exp.$[w.id].png &`, Action FvwmExpose-Action $[w.id] )'"
+
+# Bind this
 DestroyFunc FvwmExpose
 AddToFunc FvwmExpose
 + I DestroyModuleConfig FvwmExpose: *
-#+ I PipeRead 'echo "*FvwmExpose: Geometry $[vp.width]x$[vp.height]+0+0"'
-+ I PipeRead 'echo "*FvwmExpose: Geometry $(($[vp.width]-300))x$(($[vp.height]-300))+0+0"'
++ I PipeRead 'echo "*FvwmExpose: Geometry $(($[vp.width]-50))x$(($[vp.height]-300))+25+150"'
 + I *FvwmExpose: BoxSize Fixed
 + I *FvwmExpose: Colorset $[infostore.cs_panel_inactive]
 + I *FvwmExpose: ActiveColorset $[infostore.cs_panel_active]
 + I *FvwmExpose: Padding 4 4
 + I *FvwmExpose: Frame 0
-+ I *FvwmExpose: Font "StringEncoding:UTF-8:xft:Verdana:pixelsize=13"
-+ I All (!Iconic, !FvwmMiniConsoleNeedsUniqueName, !Shaded, CurrentPage, AcceptsFocus) PipeRead \
-    "echo Raise; xwd -silent -id $[w.id] > /tmp/icon.exp.$[w.id].xwd ; convert -scale 300 -quality 0 xwd:/tmp/icon.exp.$[w.id].xwd png:$[FVWM_USERDIR]/icon.exp.$[w.id].png && \
-     echo '*FvwmExpose: (1x1, Title (Center) \"$[w.name]\", Icon $[FVWM_USERDIR]/icon.exp.$[w.id].png, Action FvwmExpose-Action $[w.id] )'"
++ I *FvwmExpose: Font "xft:$[panel_font]:pixelsize=$[panel_font_size]:Bold:Italic:pixelsize=13"
++ I All (!Iconic, !FvwmMiniConsoleNeedsUniqueName, !Shaded, CurrentPage, AcceptsFocus) FvwmExpose-Thumbnail
 + I Module FvwmButtons FvwmExpose
 + I None (FvwmExpose) Wait
 + I All (FvwmExpose) Layer 0 6
 + I All (FvwmExpose) Raise
-+ I Exec exec rm -f $[FVWM_USERDIR]/icon.exp.*
++ I Exec exec rm -f /tmp/icon.exp.*
 
 # vim:ft=fvwm

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.