Go back

# KeyboardSetup

/usr/X11R6/share/afterstep/scripts/KeyboardSetup

Details

Full path :

  /usr/X11R6/share/afterstep/scripts/KeyboardSetup

ASCII text:

    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" xset c } (GetValue 4)
       If (GetValue 6) == 1 Then
        Do {Exec "xset" xset r on}
       Else
        Do {Exec "xset" 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" xset c } (GetValue 4)
       If (GetValue 6) == 1 Then
       Begin
        Do {Exec "xset" xset r on}
        WriteToFile .xinitrc-fvwm {xset r on c } (GetValue 4)
       End
       Else
       Begin
        Do {Exec "xset" 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

AfterStep version 2.1.2