modules/FvwmScript/Scripts/FvwmScript-Buttons

   1 WindowTitle {Buttons}
   2 WindowSize 548 95               # Taille
   3 WindowPosition 0 0              # Position
   4 ForeColor       {#000000}
   5 BackColor       {#d0d0d0}
   6 ShadowColor     {#858585}
   7 HilightColor    {#FFFFFF}
   8 Font            -adobe-helvetica-bold-r-*-*-12-*
   9
  10 Init
  11  Begin
  12  End
  13
  14 Widget 1
  15 Property
  16  Size 65 65
  17  Position 15 15
  18  Type SwallowExec
  19  Title {xclock}
  20  Value -1
  21  SwallowExec {exec xclock -analog -padding 0 -geometry 70x56-1500-1500 -fg MidnightBlue -hd Blue -hl Blue -bg Grey85 &}
  22 Main
  23  Case message of
  24   SingleClic :
  25   Begin
  26   End
  27 End
  28
  29 Widget 2
  30 Property
  31  Size 40 71
  32  Position 88 12
  33  Type SwallowExec
  34  Title {xload}
  35  SwallowExec {exec xload -nolabel -bg Grey85 -fg Yellow -update 3 -geometry 30x56-1500-1500 &}
  36 Main
  37  Case message of
  38   SingleClic :
  39   Begin
  40   End
  41 End
  42
  43 Widget 3
  44 Property
  45  Size 140 65
  46  Position 136 15
  47  Type SwallowExec
  48  Title {FvwmPager}
  49  Value -1
  50  SwallowExec {Module FvwmPager 0 0}
  51 Main
  52  Case message of
  53   SingleClic :
  54   Begin
  55   End
  56 End
  57
  58 Widget 4
  59 Property
  60  Size 281 85
  61  Position 5 5
  62  Type Rectangle
  63 Main
  64  Case message of
  65   SingleClic :
  66   Begin
  67   End
  68 End
  69
  70 Widget 5
  71 Property
  72  Size 251 85
  73  Position 291 5
  74  Type Rectangle
  75 Main
  76  Case message of
  77   SingleClic :
  78   Begin
  79   End
  80 End
  81
  82
  83 Widget 7
  84 Property
  85  Size 1 1
  86  Position 296 10
  87  Type PushButton
  88  Title {|XV|XPaint|Image Magic|XFig|XMag|Screen Dump}
  89  Icon small.Paint2.xpm
  90 Main
  91  Case message of
  92   SingleClic :
  93   Begin
  94    If (GetValue 7)==1 Then
  95     Do {Exec xv &}
  96    If (GetValue 7)==2 Then
  97     Do {Exec xpaint &}
  98    If (GetValue 7)==3 Then
  99     Do {Exec xterm -geometry -5000-5000 -e display &}
 100    If (GetValue 7)==4 Then
 101     Do {Exec xfig &}
 102    If (GetValue 7)==5 Then
 103     Do {Exec xmag &}
 104    If (GetValue 7)==6 Then
 105     Do {Module FvwmScript ScreenDump}
 106   End
 107 End
 108
 109 Widget 8
 110 Property
 111  Size 1 1
 112  Position 331 10
 113  Type PushButton
 114  Title {|XCalc|HP 48GX}
 115  Icon small.calc.next.xpm
 116 Main
 117  Case message of
 118   SingleClic :
 119   Begin
 120    If (GetValue 8)==1 Then
 121     Do {exec xcalc &}
 122    If (GetValue 8)==2 Then
 123     Do {exec x48 &}
 124   End
 125 End
 126
 127 Widget 9
 128 Property
 129  Size 1 1
 130  Position 366 10
 131  Type PushButton
 132  Title {|TextEdit|MEdit|XEdit|Axe|Netscape|Clipboard|Plan}
 133  Icon small.note.next.xpm
 134 Main
 135  Case message of
 136   SingleClic :
 137   Begin
 138    If (GetValue 9)==1 Then
 139     Do {Exec textedit -En 30 &}
 140    If (GetValue 9)==2 Then
 141     Do {Exec medit &}
 142    If (GetValue 9)==3 Then
 143     Do {Exec xedit &}
 144    If (GetValue 9)==4 Then
 145     Do {Exec coaxe &}
 146    If (GetValue 9)==5 Then
 147     Do {Exec bash -c "netscape" &}
 148    If (GetValue 9)==6 Then
 149     Do {Exec xclipboard &}
 150    If (GetValue 9)==7 Then
 151     Do {Exec plan &}
 152   End
 153 End
 154
 155 Widget 10
 156 Property
 157  Size 1 1
 158  Position 471 10
 159  Type PushButton
 160  Title {|Random|Bat|Blot|Bouboule|Bounce|Flame|Galaxy|Grav|Helix|Hop|Maze}
 161  Icon small.lock.xpm
 162 Main
 163  Case message of
 164   SingleClic :
 165   Begin
 166    If (GetValue 10)==1 Then
 167     Do {Exec xlock -nolock -nice 0 -mode random &}
 168    If (GetValue 10)==2 Then
 169     Do {Exec xlock -nolock -nice 0 -mode bat &}
 170    If (GetValue 10)==3 Then
 171     Do {Exec xlock -nolock -nice 0 -mode blot &}
 172    If (GetValue 10)==4 Then
 173     Do {Exec xlock -nolock -nice 0 -mode bouboule &}
 174    If (GetValue 10)==5 Then
 175     Do {Exec xlock -nolock -nice 0 -mode bounce &}
 176    If (GetValue 10)==6 Then
 177     Do {Exec xlock -nolock -nice 0 -mode flame &}
 178    If (GetValue 10)==7 Then
 179     Do {Exec xlock -nolock -nice 0 -mode galaxy &}
 180    If (GetValue 10)==8 Then
 181     Do {Exec xlock -nolock -nice 0 -mode grav &}
 182    If (GetValue 10)==9 Then
 183     Do {Exec xlock -nolock -nice 0 -mode helix &}
 184    If (GetValue 10)==10 Then
 185     Do {Exec xlock -nolock -nice 0 -mode hop &}
 186    If (GetValue 10)==11 Then
 187     Do {Exec xlock -nolock -nice 0 -mode maze &}
 188   End
 189 End
 190
 191 Widget 11
 192 Property
 193  Size 1 1
 194  Position 506 10
 195  Type PushButton
 196  Icon small.exit.xpm
 197 Main
 198  Case message of
 199   SingleClic :
 200   Begin
 201    Do {Module FvwmScript FvwmScript-Quit}
 202   End
 203 End
 204
 205 Widget 12
 206 Property
 207  Size 1 1
 208  Position 436 10
 209  Type PushButton
 210  Title {|Display|Bell|Keyboard|Pointer|Date|Desktop}
 211  Icon small.tools2_3d.xpm
 212 Main
 213  Case message of
 214   SingleClic :
 215   Begin
 216    If (GetValue 12)==1 Then
 217     Do {Module FvwmScript FvwmScript-ScreenSetup}
 218    If (GetValue 12)==2 Then
 219     Do {Module FvwmScript FvwmScript-BellSetup}
 220    If (GetValue 12)==3 Then
 221     Do {Module FvwmScript FvwmScript-KeyboardSetup}
 222    If (GetValue 12)==4 Then
 223     Do {Module FvwmScript FvwmScript-PointerSetup}
 224    If (GetValue 12)==5 Then
 225     Do {Module FvwmScript FvwmScript-Date}
 226    If (GetValue 12)==6 Then
 227     Do {Module FvwmScript FvwmScript-DeskSetup}
 228   End
 229 End
 230
 231 Widget 13
 232 Property
 233  Size 1 1
 234  Position 401 10
 235  Type PushButton
 236  Title {|TkMan|XMan}
 237  Icon small.man.next.xpm
 238 Main
 239  Case message of
 240   SingleClic :
 241   Begin
 242    If (GetValue 13)==1 Then
 243     Do {Exec tkman &}
 244    If (GetValue 13)==2 Then
 245     Do {Exec xman -notopbox &}
 246   End
 247 End
 248
 249 Widget 6
 250 Property
 251  Size 240 40
 252  Position 296 45
 253  Type SwallowExec
 254  Title {TkDesk Application Bar}
 255  SwallowExec {exec tkdesk &}
 256 Main
 257  Case message of
 258   SingleClic :
 259   Begin
 260   End
 261 End
 262
 263
 264
 265
 266
 267
 268
 269
 270
 271
 272
 273
 274
 275
 276
 277
 278
 279
 280
 281
 282
 283
 284
 285
 286
 287
 288
 289