Go back

# BellSetup

/usr/X11R6/share/afterstep/scripts/BellSetup

Details

Full path :

  /usr/X11R6/share/afterstep/scripts/BellSetup

ASCII text:

    WindowTitle {Bell}
    WindowSize 360 230      # 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} 8 3)
      ChangeTitle 6 (GetOutput  {xset -q } 8 6)
      ChangeTitle 8 (GetOutput  {xset -q} 8 9)
     End

    Widget 1
    Property
     Size 50 30
     Position 100 180
     Type PushButton
     Title {Apply}
    Main
     Case message of
      SingleClic :
      Begin
       Do {Exec "xset" xset b } (GetValue 4) { } (GetTitle 6) { } (GetTitle 8)
      End
    End

    Widget 2
    Property
     Size 50 30
     Position 190 180
     Type PushButton
     Title {OK}
    Main
     Case message of
      SingleClic :
      Begin
       Do {Exec "xset" xset b } (GetValue 4) { } (GetTitle 6) { } (GetTitle 8)
       WriteToFile .xinitrc-fvwm {xset b } (GetValue 4) { } (GetTitle 6) { } (GetTitle 8)
       Quit
      End
    End

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

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

    Widget 5
    Property
     Position 20 53
     Type ItemDraw
     Title {Volume:}
    Main
     Case message of
      SingleClic :
      Begin
      End
    End

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

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

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

    Widget 9
    Property
     Position 190 95
     Type ItemDraw
     Title {Duration(ms):}
    Main
     Case message of
      SingleClic :
      Begin
      End
    End

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

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

AfterStep version 2.00.03