173 lines
2.0 KiB
Plaintext
173 lines
2.0 KiB
Plaintext
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
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|