WindowTitle {FvwmButtons}
WindowSize 548 95		# Taille
WindowPosition 0 0		# Position
ForeColor	{black}
BackColor	{grey85}
ShadowColor	{grey55}
HilightColor	{grey100}
Font		-adobe-helvetica-bold-r-*-*-12-*

Init
 Begin
 End
 
Widget 1
Property
 Size 65 65
 Position 15 15
 Type SwallowExec
 Title {xclock}
 Value -1
 SwallowExec {exec xclock -analog -padding 0 -geometry 70x56-1500-1500 -fg MidnightBlue -hd Blue -hl Blue -bg Grey85 &}
 Icon shutdown.xpm
Main
 Case message of
  UserAction :
  Begin
  End
End

Widget 2
Property
 Size 40 71
 Position 88 12
 Type SwallowExec
 Title {xload}
 SwallowExec {exec xload -nolabel -bg Grey85 -fg Yellow -update 3 -geometry 30x56-1500-1500 &}
 Icon shutdown.xpm
Main
 Case message of
  UserAction :
  Begin
  End
End

Widget 3
Property
 Size 140 65
 Position 136 15
 Type SwallowExec
 Title {FvwmPager}
 Value -1
 SwallowExec {Module FvwmPager 0 0}
 Icon shutdown.xpm
Main
 Case message of
  UserAction :
  Begin
  End
End

Widget 4
Property
 Size 281 85
 Position 5 5
 Type Rectangle
Main
 Case message of
  UserAction :
  Begin
  End
End

Widget 5
Property
 Size 251 85
 Position 291 5
 Type Rectangle
Main
 Case message of
  UserAction :
  Begin
  End
End


Widget 7
Property
 Size 1 1
 Position 296 10
 Type PushButton
 Title {|XV|XPaint|XPixmap|XBitmap}
 Icon small.Paint2.xpm
Main
 Case message of
  UserAction :
  Begin
   If (GetValue 7)==1 Then
   Begin
    Do {Exec xv}
   End
   If (GetValue 7)==2 Then
   Begin
    Do {Exec xpaint}
   End
   If (GetValue 7)==3 Then
   Begin
    Do {Exec xpixmap}
   End
   If (GetValue 7)==4 Then
   Begin
    Do {Exec xbitmap}
   End
  End
End

Widget 8
Property
 Size 1 1
 Position 331 10
 Type PushButton
 Title {|Black on Grey|Black on White|White on Black|Gold on Black|Green on Black}
 Icon small.Shell2.xpm
Main
 Case message of
  UserAction :
  Begin
   If (GetValue 8)==1 Then
   Begin
    Do {exec xterm -sb -ls -geometry 80x25 -fg Black -bg Grey85 &}
   End
   If (GetValue 8)==2 Then
   Begin
    Do {exec color_xterm -sb -ls -geometry 80x25 -fg Black -bg White &}
   End
   If (GetValue 8)==3 Then
   Begin
    Do {exec color_xterm -sb -ls -geometry 80x25 -fg White -bg Black &}
   End
   If (GetValue 8)==4 Then
   Begin
    Do {exec color_xterm -sb -ls -geometry 80x25 -fg gold1 -bg Black &}
   End
   If (GetValue 8)==5 Then
   Begin
    Do {exec color_xterm -sb -ls -geometry 80x25 -fg green2 -bg Black &}
   End
  End
End

Widget 9
Property
 Size 1 1
 Position 366 10
 Type PushButton
 Title {|TextEdit|XEmacs|XEdit|XCoral|Axe|Clipboard}
 Icon small.note.next.xpm
Main
 Case message of
  UserAction :
  Begin
   If (GetValue 9)==1 Then
   Begin
    Do {Exec textedit -En 30}
   End
   If (GetValue 9)==2 Then
   Begin
    Do {Exec xemacs}
   End
   If (GetValue 9)==3 Then
   Begin
    Do {Exec xedit}
   End
   If (GetValue 9)==4 Then
   Begin
    Do {Exec xcoral}
   End
   If (GetValue 9)==5 Then
   Begin
    Do {Exec axe}
   End
   If (GetValue 9)==6 Then
   Begin
    Do {Exec xclipboard}
   End
  End
End

Widget 10
Property
 Size 1 1
 Position 471 10
 Type PushButton
 Title {|Random|Bat|Blot|Bouboule|Bounce|Flame|Galaxy|Grav|Helix|Hop|Maze}
 Icon small.lock.xpm
Main
 Case message of
  UserAction :
  Begin
   If (GetValue 10)==1 Then
   Begin
    Do {Exec xlock -nolock -nice 0 -mode random &}
   End
   If (GetValue 10)==2 Then
   Begin
    Do {Exec xlock -nolock -nice 0 -mode bat &}
   End
   If (GetValue 10)==3 Then
   Begin
    Do {Exec xlock -nolock -nice 0 -mode blot &}
   End
   If (GetValue 10)==4 Then
   Begin
    Do {Exec xlock -nolock -nice 0 -mode bouboule &}
   End
   If (GetValue 10)==5 Then
   Begin
    Do {Exec xlock -nolock -nice 0 -mode bounce &}
   End
   If (GetValue 10)==6 Then
   Begin
    Do {Exec xlock -nolock -nice 0 -mode flame &}
   End
   If (GetValue 10)==7 Then
   Begin
    Do {Exec xlock -nolock -nice 0 -mode galaxy &}
   End
   If (GetValue 10)==8 Then
   Begin
    Do {Exec xlock -nolock -nice 0 -mode grav &}
   End
   If (GetValue 10)==9 Then
   Begin
    Do {Exec xlock -nolock -nice 0 -mode helix &}
   End
   If (GetValue 10)==10 Then
   Begin
    Do {Exec xlock -nolock -nice 0 -mode hop &}
   End
   If (GetValue 10)==11 Then
   Begin
    Do {Exec xlock -nolock -nice 0 -mode maze &}
   End
  End
End

Widget 11
Property
 Size 1 1
 Position 506 10
 Type PushButton
 Icon small.exit.xpm
Main
 Case message of
  UserAction :
  Begin
   Do {Module FvwmScript /usr/X11/lib/X11/fvwm/Quit}
  End
End

Widget 12
Property
 Size 1 1
 Position 436 10
 Type PushButton
 Title {|Display Setup|Bell Setup|Keyboard Setup|Pointer Setup|Date}
 Icon small.tools2_3d.xpm
Main
 Case message of
  UserAction :
  Begin
   If (GetValue 12)==1 Then
   Begin
    Do {Module FvwmScript /usr/X11/lib/X11/fvwm/ScreenSetup}
   End
   If (GetValue 12)==2 Then
   Begin
    Do {Module FvwmScript /usr/X11/lib/X11/fvwm/BellSetup}
   End
   If (GetValue 12)==3 Then
   Begin
    Do {Module FvwmScript /usr/X11/lib/X11/fvwm/KeyboardSetup}
   End
   If (GetValue 12)==4 Then
   Begin
    Do {Module FvwmScript /usr/X11/lib/X11/fvwm/PointerSetup}
   End
   If (GetValue 12)==5 Then
   Begin
    Do {Module FvwmScript /usr/X11/lib/X11/fvwm/Date}
   End
  End
End

Widget 13
Property
 Size 1 1
 Position 401 10
 Type PushButton
 Title {|TkMan|XMan}
 Icon small.man.next.xpm
Main
 Case message of
  UserAction :
  Begin
   If (GetValue 13)==1 Then
   Begin
    Do {Exec tkman}
   End
   If (GetValue 13)==2 Then
   Begin
    Do {Exec xman}
   End
  End
End

Widget 6
Property
 Size 240 40
 Position 296 45
 Type SwallowExec
 Title {TkDesk Application Bar}
 SwallowExec {exec tkdesk -fvwm&}
Main
 Case message of
  UserAction :
  Begin
  End
End



























