UseGettext
WindowLocaleTitle {Bell Setup}
WindowSize 410 190		# Taille
Font "xft:monospace:pixelsize=11;"

Init
 Begin
  WarpPointer 2

  For $i=3 To 7 Do
  Begin
    Do {Exec xcalc &}
  End

  Set $FILE=(GetScriptArgument 1)
  If $FILE=={} Then
   Set $FILE={.xinitrc-fvwm}

  Set $pos=0
  Set $finish=1
  While $finish=={1} Do
  Begin
    Set $pos=(Add $pos 1)
    Set $tmp=(GetOutput {xset -q} $pos 1)
    If $tmp=={bell} Then
      Set $finish=0
    If $pos=={50} Then
      Set $finish=0
  End
  If $pos=={50} Then
  Begin
   Do {Exec sh -c "echo 'BellSetup: uncompatible xset'"}
   Quit
  End
  Set $SAVEDVOL=(GetOutput  {xset -q} $pos 3)
  Set $SAVEDPITCH=(GetOutput  {xset -q} $pos 6)
  Set $SAVEDDURA=(GetOutput  {xset -q} $pos 9)
  ChangeValue 4 $SAVEDVOL
  ChangeTitle 6 $SAVEDPITCH
  ChangeTitle 8 $SAVEDDURA
 End

Widget 1
Property
 Size 85 20
 Position 115 150
 Flags NoReliefString
 Type PushButton
 LocaleTitle {Apply}
Main
 Case message of
  SingleClic :
  Begin
   Do {Exec xset b } (GetValue 4) { } (GetTitle 6) { } (GetTitle 8)
   Set $SAVEDVOL=(GetValue 4)
   Set $SAVEDPITCH=(GetTitle 6)
   Set $SAVEDDURA=(GetTitle 8)
  End
End

Widget 2
Property
 Size 85 20
 Position 210 150
 Flags NoReliefString
 Type PushButton
 LocaleTitle {Save}
Main
 Case message of
  SingleClic :
  Begin
   Do {Exec xset b } (GetValue 4) { } (GetTitle 6) { } (GetTitle 8)
   WriteToFile $FILE {xset b } (GetValue 4) { } (GetTitle 6) { } (GetTitle 8)
   Do {Exec chmod +x ~/} $FILE
   #Quit
  End
End

Widget 3
Property
 Size 85 20
 Position 305 150
 Flags NoReliefString
 Type PushButton
 LocaleTitle {Quit}
Main
 Case message of
  SingleClic :
  Begin
   Quit
  End
End

Widget 12
Property
 Size 85 20
 Position 20 150
 Flags NoReliefString
 Type PushButton
 LocaleTitle {Beep}
Main
  Case message of
  SingleClic :
  Begin
   Set $HOP={xset b } (GetValue 4) { } (GetTitle 6) { } (GetTitle 8)
   Do {Exec } $HOP
   # wait
   Set $dum=(GetOutput $HOP 1 -1)
   Do {Beep}
   Do {Exec xset b } $SAVEDVOL { } $SAVEDPITCH { } $SAVEDDURA
  End
End

Widget 4
Property
 Size 250 1
 Position 120 20
 Flags NoReliefString
 Type HScrollBar
 MinValue 0
 MaxValue 100
 Value 0
Main
 Case message of
  SingleClic :
  Begin
  End
End

Widget 5
Property
 Position 20 43
 Flags NoReliefString NoFocus
 Type ItemDraw
 LocaleTitle {Volume:}
Main
 Case message of
  SingleClic :
  Begin
  End
End

Widget 6
Property
 Size 60 1
 Position 120 90
 Flags NoReliefString
 Type TextField
Main
 Case message of
  SingleClic :
  Begin
  End
End

Widget 7
Property
 Position 20 95
 Flags NoReliefString NoFocus
 Type ItemDraw
 LocaleTitle {Pitch(Hz):}
Main
 Case message of
  SingleClic :
  Begin
  End
End

Widget 8
Property
 Size 60 1
 Position 310 90
 Flags NoReliefString
 Type TextField
Main
 Case message of
  SingleClic :
  Begin
  End
End

Widget 9
Property
 Position 220 95
 Flags NoReliefString NoFocus
 Type ItemDraw
 LocaleTitle {Duration(ms):}
Main
 Case message of
  SingleClic :
  Begin
  End
End

Widget 10
Property
 Size 390 130
 Position 10 10
 Type Rectangle
Main
 Case message of
  SingleClic :
  Begin
  End
End

Widget 11
Property
 Position 15 3
 Flags NoReliefString NoFocus
 Type ItemDraw
 LocaleTitle {Bell}
Main
 Case message of
  SingleClic :
  Begin
  End
End