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

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

Revision: 35
          http://fvwm-crystal.svn.sourceforge.net/fvwm-crystal/?rev=35&view=rev
Author:   dominique_libre
Date:     2010-12-22 19:44:03 +0000 (Wed, 22 Dec 2010)

Log Message:
-----------
Added Amiga style icon functions

Modified Paths:
--------------
    ChangeLog

Added Paths:
-----------
    fvwm/components/desktop/Icon-Amiga
    fvwm/components/functions/Icon-Amiga
    fvwm/components/functions/Icon-Basic-SingleClick

Modified: ChangeLog
===================================================================
--- ChangeLog	2010-12-22 19:24:23 UTC (rev 34)
+++ ChangeLog	2010-12-22 19:44:03 UTC (rev 35)
@@ -4,6 +4,7 @@
   * New Amiga focus policy : click to focus without raise,
     icons are move to focus :), its not AmigaOS behaviour but I like it that
     way for now, may change in the future
+  * Added Amiga style icon functions
   * Fixed Window-Remember-*, State 2 initialisation was using old syntax
   * Added some application styles
   * Fixed the style order loading causing non wanted effect after restart.

Added: fvwm/components/desktop/Icon-Amiga
===================================================================
--- fvwm/components/desktop/Icon-Amiga	                        (rev 0)
+++ fvwm/components/desktop/Icon-Amiga	2010-12-22 19:44:03 UTC (rev 35)
@@ -0,0 +1,6 @@
+# Nice, thumbnailed icons on the desktop
+Include components/functions/Icon-Basic-SingleClick
+Include components/functions/Icon-Amiga
+Include components/bindings/Icon-Basic
+
+# vim:ft=fvwm

Added: fvwm/components/functions/Icon-Amiga
===================================================================
--- fvwm/components/functions/Icon-Amiga	                        (rev 0)
+++ fvwm/components/functions/Icon-Amiga	2010-12-22 19:44:03 UTC (rev 35)
@@ -0,0 +1,19 @@
+# Icons - Amiga style
+
+Style * IconTitle
+Style * IconTitleColorset $[cs_icon_active]
+Style * HilightIconTitleColorset $[cs_menu_active]
+Style * IconBackgroundColorset $[cs_icon_active]
+Style * IconTitleRelief 0
+Style * IconBackgroundRelief 0
+Style * IconBackgroundPadding 0
+Style * IconFont "xft:$[title_font]:pixelsize=$[title_font_size]:encoding=iso10646-1"
+Style * IndexedIconName
+Style * StickyIcon
+Style * IconSize 68 68
+Style * !StickyStippledIconTitle
+
+# Icons can be moved around
+AddToFunc Icon-Restore-CurrentDesk M Move
+
+# vim:ft=fvwm

Added: fvwm/components/functions/Icon-Basic-SingleClick
===================================================================
--- fvwm/components/functions/Icon-Basic-SingleClick	                        (rev 0)
+++ fvwm/components/functions/Icon-Basic-SingleClick	2010-12-22 19:44:03 UTC (rev 35)
@@ -0,0 +1,20 @@
+DestroyFunc Icon-Restore-CurrentDesk
+AddToFunc Icon-Restore-CurrentDesk
++ C Iconify False
++ M Move
++ C MoveToPage $[page.nx] $[page.ny]
++ C FlipFocus
++ C Raise
++ C Layer default
+
+DestroyFunc Icon-Restore-DefaultDesk
+AddToFunc Icon-Restore-DefaultDesk
++ D Iconify False
++ D FlipFocus
++ D Raise
+
+DestroyFunc Icon-Close
+AddToFunc Icon-Close
++ D Close
+
+# vim:ft=fvwm


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