xenocara/app/fvwm/extras/FvwmScript/Scripts/KeyboardSetup

WindowTitle {Keyboard}
WindowSize 360 250		# Taille
WindowPosition 191 50		# Position
ForeColor	{black}
BackColor	{grey85}
ShadowColor	{grey55}
HilightColor	{grey100}
Font		-adobe-helvetica-bold-r-*-*-12-*

Init
 Begin
  WarpPointer 2
  ChangeValue 4 (GetOutput  {xset -q} 2 7)
  If (GetOutput  {xset -q } 2 3)==on Then
   ChangeValue 6 1
 End
 
Widget 1
Property
 Size 50 30
 Position 100 200
 Type PushButton
 Title {Apply}
Main
 Case message of
  SingleClic :
  Begin
   Do {Exec xset c } (GetValue 4)
   If (GetValue 6) == 1 Then
    Do {Exec xset r on}
   Else
    Do {Exec xset r off}
  End
End

Widget 2
Property
 Size 50 30
 Position 190 200
 Type PushButton
 Title {OK}
Main
 Case message of
  SingleClic :
  Begin
   Do {Exec xset c } (GetValue 4)
   If (GetValue 6) == 1 Then
   Begin
    Do {Exec xset r on}
    WriteToFile .xinitrc-fvwm {xset r on c } (GetValue 4)
   End
   Else
   Begin
    Do {Exec xset r off}
    WriteToFile .xinitrc-fvwm {xset r off c } (GetValue 4)
   End
   Quit
  End
End

Widget 3
Property
 Size 50 30
 Position 280 200
 Type PushButton
 Title {Cancel}
Main
 Case message of
  SingleClic :
  Begin
   Quit
  End
End

Widget 4
Property
 Size 300 1
 Position 30 120
 Type HScrollBar
 MinValue 0
 MaxValue 100
 Value 0
Main
 Case message of
  SingleClic :
  Begin
  End
End

Widget 5
Property
 Position 130 100
 Type ItemDraw
 Title {Click Volume (%)}
Main
 Case message of
  SingleClic :
  Begin
  End
End

Widget 6
Property
 Position 30 40
 Type CheckBox
 Title {On}
Main
 Case message of
  SingleClic :
  Begin
  End
End

Widget 7
Property
 Position 250 35
 Type PopupMenu
 Title {English|French|German|Italian}
Main
 Case message of
  SingleClic :
  Begin
  End
End

Widget 8
Property
 Position 170 40
 Type ItemDraw
 Title {Nationnality:}
Main
 Case message of
  SingleClic :
  Begin
  End
End

Widget 10
Property
 Size 340 180
 Position 10 10
 Type Rectangle
Main
 Case message of
  SingleClic :
  Begin
  End
End

Widget 11
Property
 Position 15 3
 Type ItemDraw
 Title {Keyboard}
Main
 Case message of
  SingleClic :
  Begin
  End
End