1WindowTitle {Bell} 2WindowSize 360 230 # Taille 3WindowPosition 191 50 # Position 4ForeColor {black} 5BackColor {grey85} 6ShadowColor {grey55} 7HilightColor {grey100} 8Font -adobe-helvetica-bold-r-*-*-12-* 9 10Init 11 Begin 12 WarpPointer 2 13 ChangeValue 4 (GetOutput {xset -q} 8 3) 14 ChangeTitle 6 (GetOutput {xset -q } 8 6) 15 ChangeTitle 8 (GetOutput {xset -q} 8 9) 16 End 17 18Widget 1 19Property 20 Size 50 30 21 Position 100 180 22 Type PushButton 23 Title {Apply} 24Main 25 Case message of 26 SingleClic : 27 Begin 28 Do {Exec "xset" xset b } (GetValue 4) { } (GetTitle 6) { } (GetTitle 8) 29 End 30End 31 32Widget 2 33Property 34 Size 50 30 35 Position 190 180 36 Type PushButton 37 Title {OK} 38Main 39 Case message of 40 SingleClic : 41 Begin 42 Do {Exec "xset" xset b } (GetValue 4) { } (GetTitle 6) { } (GetTitle 8) 43 WriteToFile .xinitrc-fvwm {xset b } (GetValue 4) { } (GetTitle 6) { } (GetTitle 8) 44 Quit 45 End 46End 47 48Widget 3 49Property 50 Size 50 30 51 Position 280 180 52 Type PushButton 53 Title {Cancel} 54Main 55 Case message of 56 SingleClic : 57 Begin 58 Quit 59 End 60End 61 62Widget 4 63Property 64 Size 250 1 65 Position 90 30 66 Type HScrollBar 67 MinValue 0 68 MaxValue 100 69 Value 0 70Main 71 Case message of 72 SingleClic : 73 Begin 74 End 75End 76 77Widget 5 78Property 79 Position 20 53 80 Type ItemDraw 81 Title {Volume:} 82Main 83 Case message of 84 SingleClic : 85 Begin 86 End 87End 88 89Widget 6 90Property 91 Size 60 1 92 Position 90 90 93 Type TextField 94Main 95 Case message of 96 SingleClic : 97 Begin 98 End 99End 100 101Widget 7 102Property 103 Position 20 95 104 Type ItemDraw 105 Title {Pitch(Hz):} 106Main 107 Case message of 108 SingleClic : 109 Begin 110 End 111End 112 113Widget 8 114Property 115 Size 60 1 116 Position 280 90 117 Type TextField 118Main 119 Case message of 120 SingleClic : 121 Begin 122 End 123End 124 125Widget 9 126Property 127 Position 190 95 128 Type ItemDraw 129 Title {Duration(ms):} 130Main 131 Case message of 132 SingleClic : 133 Begin 134 End 135End 136 137Widget 10 138Property 139 Size 340 130 140 Position 10 10 141 Type Rectangle 142Main 143 Case message of 144 SingleClic : 145 Begin 146 End 147End 148 149Widget 11 150Property 151 Position 15 3 152 Type ItemDraw 153 Title {Bell} 154Main 155 Case message of 156 SingleClic : 157 Begin 158 End 159End 160 161 162 163 164 165 166 167 168 169 170