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

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

Revision: 68
          http://fvwm-crystal.svn.sourceforge.net/fvwm-crystal/?rev=68&view=rev
Author:   dominique_libre
Date:     2011-01-29 20:53:37 +0000 (Sat, 29 Jan 2011)

Log Message:
-----------
Added functions to make panels and buttons

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

Added Paths:
-----------
    fvwm/components/functions/MakePanel

Modified: ChangeLog
===================================================================
--- ChangeLog	2011-01-29 20:51:09 UTC (rev 67)
+++ ChangeLog	2011-01-29 20:53:37 UTC (rev 68)
@@ -14,6 +14,7 @@
   * Icon-Launcher: Added some comment; commented out all the code than can hang the function
     when some partition is not avaible.
   * Icon-Mwm: support for font preference
+  * Added functions to make panels and buttons
   
 Samedi 1 janvier 2011 Dominique Michel
   * Wimdow-Raise-Move-Lover witll focus on a non overlapped window

Added: fvwm/components/functions/MakePanel
===================================================================
--- fvwm/components/functions/MakePanel	                        (rev 0)
+++ fvwm/components/functions/MakePanel	2011-01-29 20:53:37 UTC (rev 68)
@@ -0,0 +1,43 @@
+# Make a panel
+# make a panel in fvwm-crystal
+# Written by: Dominique Michel <dom...@so...>
+
+
+# <Name> is unique and the same for all the functions in this file.
+
+## Make the panel ##
+####################
+
+# MakePanel <Name> <geometry[pixel]> <boxsize> <rows> <columns> <padding> \
+#	<frame>
+AddToFunc MakePanel
+AddToFunc  MakePanel
++ I All (FvwmButtons-$0) Close
++ I DestroyModuleConfig FvwmButtons-$0: *
++ I *FvwmButtons-$0: Geometry $1
++ I *FvwmButtons-$0: BoxSize $2
++ I *FvwmButtons-$0: ActiveColorset $[cs_panel_active]
++ I *FvwmButtons-$0: Colorset $[cs_panel_inactive]
++ I *FvwmButtons-$0: Rows $3
++ I *FvwmButtons-$0: Columns $4
++ I *FvwmButtons-$0: Padding $5
++ I *FvwmButtons-$0: Frame $6
++ I *FvwmButtons-$0: Font "xft:$[panel_font]:pixelsize=$[panel_font_size]:encoding=iso10646-1"
+
+## Make a button ##
+###################
+# MakePanelButton <Name> <geometry[button]> <size> <icon> \
+# "<action>" "<action>" "<action>" "<action>" "<action>
+DestroyFunc  MakePanelButton
+AddToFunc MakePanelButton
++ I *FvwmButtons-$0: ($1, Size $2, Icon "$3", \
+	Action (Mouse 1) "$4", \
+	Action (Mouse 2) "$5", \
+	Action (Mouse 3) "$6", \
+	Action (Mouse 4) "$7", \
+	Action (Mouse 5) "$8")
+
+## Launch the panel ##
+######################
+# Module FvwmButtons FvwmButtons-<Name>
+


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