tests/purify/purify.fvwm2rc

   1 # This is a work in progress.
   2 # Anyone adding functionality should make sure they update these
   3 # tests to test that functionality.
   4
   5 # The original purpose of these tests was to find bounds violations and
   6 # memory leaks.  These tests are the closest thing fvwm has to a regresssion
   7 # test.  Its hard to tell whether the tests are actually working.
   8 # Some of the menu prompts guide the tester thru the process.
   9 # I've also attempted to lay out some xterms in a recognizable pattern.
  10 # Some of the tests move the xterms around, or destroy them and then
  11 # try to get them back into the recognizable pattern.  The idea being
  12 # if the windows aren't arranged as they should be, something is wrong.
  13 # On my last full test, this didn't seem to work, although each individual
  14 # test seemed to work.
  15 # Somewhere around the PlaceAgain test the windows loose their arrangement.
  16 # The CloseDeleteDestroy test fails to delete some of the windows.
  17
  18 # All tests are defined as functions, added to a menu and added to
  19 # the function that can run all tests.
  20
  21 # Destroy/AddTo in 1 line:
  22 DestroyFunc CreateFunc
  23 AddToFunc CreateFunc
  24  + I DestroyFunc $0
  25  + I AddToFunc $0
  26
  27 # Log:
  28 CreateFunc Log
  29  + I Exec echo "### `date`: $0 ###"
  30
  31 CreateFunc RootTail
  32  + I Exec xsetroot -solid black
  33  + I Exec root-tail -g 80x50+300+0 -color red -font lucidasanstypewriter-12 ~/.X.err
  34
  35 # Init TestMenu and all tests function TestFunc:
  36 DestroyMenu TestMenu
  37 AddToMenu TestMenu "=== TestMenu ===" Title
  38 AddToMenu TestMenu "Run root tail" Function RootTail
  39 AddToMenu TestMenu "FvwmConsole" FvwmConsole
  40 AddToMenu TestMenu "Xterm" Exec xterm
  41 AddToMenu TestMenu "Quit Fvwm" Quit
  42 AddToMenu TestMenu "Restart Fvwm" Restart
  43 AddToMenu TestMenu "Some Setup" Popup TestSetupMenu
  44 + "" Nop
  45 AddToMenu TestMenu "Run all tests" function TestFunc
  46 # Give the TestMenu a distinctive Style:
  47 MenuStyle TMS fvwm, background cornflowerblue, foreground white, Hilight3DThick
  48 MenuStyle TMS AutomaticHotkeys, BorderWidth 5, Font 9x15bold
  49 ChangeMenuStyle TMS TestMenu
  50 DestroyFunc TestFunc
  51
  52 # Setup
  53
  54 DestroyFunc TestQuitFunc
  55 AddToFunc   TestQuitFunc I Nop
  56
  57 DestroyFunc SetupTestQuitFunc
  58 AddToFunc   SetupTestQuitFunc
  59 + I DestroyFunc TestQuitFunc
  60 + I AddToFunc   TestQuitFunc I Quit
  61
  62 DestroyFunc TestTransitionFunc
  63 AddToFunc   TestTransitionFunc I Nop
  64
  65 DestroyFunc SetupTestTransitionFunc
  66 AddToFunc   SetupTestTransitionFunc
  67 + I DestroyFunc TestTransitionFunc
  68 + I AddToFunc   TestTransitionFunc I Pick
  69
  70 AddToMenu TestSetupMenu "Setup" Title
  71 + "Quit at the end of Test" SetupTestQuitFunc
  72 + "Bloc on Pick after each test" SetupTestTransitionFunc
  73
  74
  75
  76 # Function to define a test:
  77 # Arg 0 Menu Entry/Logged test name
  78 # Arg 1 Function that runs the test
  79 # Note: In normal use, After AddTest, theres another
  80 # "AddToFunc" even though this
  81 # function could supply it.  (I think.)
  82 CreateFunc AddTest
  83  + I AddToMenu TestMenu "$0" function $1
  84  + I AddToFunc TestFunc I Function Log "$0"
  85  + I DestroyFunc $1
  86  + I AddToFunc TestFunc I Function $1
  87  + I AddToFunc TestFunc I TestTransitionFunc
  88
  89 # Now start defining test functions:
  90
  91 AddTest "Test AddToFunc" AddToFunc-Func
  92 AddToFunc AddToFunc-Func
  93 + I nop
  94 + Immediate nop
  95 + C nop
  96 + ClickTime
  97 + H nop
  98 + Hold nop
  99 + X nop
 100 + XorPixmap nop
 101 + Xyzzy nop
 102 + D nop
 103 + Desk 0 0
 104 + M nop
 105 + Menu nop nop nop
 106 AddToFunc AddToFunc-Func I nop
 107 AddToFunc AddToFunc-Func Immediate nop
 108 AddToFunc AddToFunc-Func C nop
 109 AddToFunc AddToFunc-Func ClickTime
 110 AddToFunc AddToFunc-Func H nop
 111 AddToFunc AddToFunc-Func Hold nop
 112 AddToFunc AddToFunc-Func X nop
 113 AddToFunc AddToFunc-Func D nop
 114 AddToFunc AddToFunc-Func Desk 0 0
 115 AddToFunc AddToFunc-Func M nop
 116 AddToFunc AddToFunc-Func Menu nop nop nop
 117
 118
 119 # This one has to be first, other tests use it.
 120 AddTest "Test ImagePath and SetEnv" ImagePath-Func
 121 AddToFunc ImagePath-Func
 122  + I ImagePath
 123  + I ImagePath
 124  + I ImagePath /usr/lib/X11/icons/pixmaps:+
 125  + I SetEnv ImagePath foo:bar
 126  + I SetEnv
 127  + I SetEnv FOO
 128  + I SetEnv   BAR bar
 129  + I SetEnv             FOOBAR          barfoo
 130  + I SetEnv "   FOO     " x
 131  + I SetEnv FOO "   ""ölwäökkü"''
 132  + I SetEnv FOO "   ""ölwäökkasdfsdü"''
 133  + I SetEnv a1 1
 134  + I SetEnv a2 2
 135  + I SetEnv a3 3
 136  + I SetEnv a4 4
 137  + I SetEnv a5 5
 138  + I SetEnv a6 6
 139  + I SetEnv a7 7
 140  + I SetEnv a8 8
 141  + I SetEnv a9 9
 142  + I SetEnv a10 10
 143  + I SetEnv a11 11
 144  + I SetEnv a12 12
 145  + I ImagePath          /usr/lib/X11/icons/pixmaps:+
 146  + I SetEnv ImagePath foo:bar:baz
 147  + I ImagePath /home/tim/pics/xpm/16:/home/tim/pics/xbm/16:/home/tim/pics/xpm/21:/home/tim/pics/xpm/32:/home/tim/pics/xpm/46:/home/tim/pics/xpm/48:/home/tim/pics/xpm:/home/tim/pics/tiles:+
 148  + I ImagePath /root/icons:/usr/X11R6/include/X11/pixmaps:/usr/X11R6/include/X11/bitmaps:/root/pixmaps:/root/gifs:/opt/kde/share/icons:+
 149  + I ImagePath /home/tim/pics/xpm/16:/home/tim/pics/xbm/16:/home/tim/pics/xpm/21:/home/tim/pics/xpm/32:/home/tim/pics/xpm/46:/home/tim/pics/xpm/48:/home/tim/pics/xpm:/home/tim/pics/tiles:+
 150  + I ImagePath /usr/X11R6/include/X11/3dpixmaps/small:/usr/X11R6/include/X11/susexpm/small:/usr/X11R6/include/X11/susexpm/normal:/usr/X11R6/include/X11/susexpm/mini:/usr/X11R6/include/X11/3dpixmaps/normal:/usr/X11R6/include/X11/pixmaps:/etc/dtpixmaps:+
 151  + I ImagePath /tmp:/usr/X11R6/include/X11/3dpixmaps/small:/usr/X11R6/include/X11/susexpm/small:/usr/X11R6/include/X11/susexpm/normal:/usr/X11R6/include/X11/susexpm/mini:/usr/X11R6/include/X11/3dpixmaps/normal:/usr/X11R6/include/X11/pixmaps:/etc/dtpixmaps:+
 152
 153  + I ImagePath +
 154  + I ImagePath +:+
 155  + I ImagePath /usr/local/share/icons/wm-icons:/usr/share/icons/wm-icons:+:/usr/include/X11/bitmaps:/usr/include/X11/pixmaps
 156  + I ImagePath $HOME/.wm-icons:+
 157  + I ImagePath +:/usr/share/icons/mini
 158  + I ImagePath +::::/opt/kde/share/icons:/opt/kde/share/apps/kappfinder/pics:
 159  + I ImagePath /tmp
 160
 161 # Starting ManPage Order
 162 AddTest "Test ChangeMenuStyle" ChangeMenuStyle-Func
 163 AddToFunc ChangeMenuStyle-Func
 164 # Create new menu using the default style and show it.
 165 # Add Line to menu and pop it up.
 166  + I DestroyMenu Menu-ChangeMenuStyle
 167  + I MenuStyle * Background lightblue, Foreground black, ActiveFore Maroon,
 168  + I MenuStyle * Fvwm, Font 6x13bold
 169  + I AddToMenu Menu-ChangeMenuStyle "ChangeMenuStyle test menu, using default style"
 170  + I AddToMenu Menu-ChangeMenuStyle "Press Escape to continue" Echo "Tester selected item on menu to proceed"
 171  + I Popup Menu-ChangeMenuStyle
 172 # Create a new MenuStyle, do ChangeMenuStyle to the new menu and show it
 173  + I MenuStyle NewStyle Background white, Foreground black, ActiveFore cyan
 174  + I MenuStyle NewStyle Win, Font 9x15bold
 175  + I ChangeMenuStyle NewStyle Menu-ChangeMenuStyle
 176  + I AddToMenu Menu-ChangeMenuStyle "ChangeMenuStyle: Menu now white/black/cyan, 9x15bold"
 177  + I AddToMenu Menu-ChangeMenuStyle "Press Escape to continue" Echo "Tester selected item on menu to proceed"
 178  + I Popup Menu-ChangeMenuStyle
 179 # Syntax tests:
 180  + I Echo Start intentional errors
 181  + I ChangeMenuStyle
 182  + I ChangeMenuStyle none_such
 183  + I ChangeMenuStyle not_at_all same_here
 184  + I ChangeMenuStyle same_here same_here
 185  + I ChangeMenuStyle NewStyle
 186  + I ChangeMenuStyle NewStyle no_such_style
 187  + I ChangeMenuStyle NewStyle NewStyle
 188  + I ChangeMenuStyle " a large quoted arg with spaces at the front, middle, end"
 189  + I Echo End intentional errors
 190
 191 AddTest "Test CopyMenuStyle" CopyMenuStyle-Func
 192 AddToFunc CopyMenuStyle-Func
 193 # create 2 menus styles
 194  + I CopyMenuStyle * FirstMenuStyle
 195  + I CopyMenuStyle TMS SecondMenuStyle
 196 # create a menu
 197  + I DestroyMenu Menu-CopyMenuStyle
 198  + I AddToMenu Menu-CopyMenuStyle "CopyMenuStyle test menu" Title
 199  + I AddToMenu Menu-CopyMenuStyle "Press Escape to continue" Echo "Tester selected item on menu to proceed"
 200  + I AddToMenu Menu-CopyMenuStyle "First we use TMS style"
 201  + I ChangeMenuStyle SecondMenuStyle Menu-CopyMenuStyle
 202  + I Popup Menu-CopyMenuStyle
 203  + I MenuStyle SecondMenuStyle mwm, Background red, Foreground blue
 204  + I MenuStyle SecondMenuStyle ActiveFore yellow, Font fixed
 205  + I MenuStyle SecondMenuStyle ItemFormat "%.2|%4.3<%6i%6l%6l%6r%6i%2|%5s"
 206  + I MenuStyle SecondMenuStyle SidePic /tmp/test1.xpm, SideColor green
 207  + I CopyMenuStyle SecondMenuStyle tmpMenuStyle
 208  + I DestroyMenuStyle tmpMenuStyle
 209  + I ChangeMenuStyle * Menu-CopyMenuStyle
 210  + I ChangeMenuStyle SecondMenuStyle Menu-CopyMenuStyle
 211  + I AddToMenu Menu-CopyMenuStyle "Menu now red/blue/yellow, mwm, fixed, ..."
 212  + I Popup Menu-CopyMenuStyle
 213  + I CopyMenuStyle SecondMenuStyle tmpMenuStyle
 214  + I MenuStyle FirstMenuStyle MenuFace DGradient 128 2 lightgrey 50 blue 50 white
 215  + I MenuStyle FirstMenuStyle Font -adobe-helvetica-bold-r-*-*-14-*-*
 216  + I MenuStyle FirstMenuStyle ItemFormat
 217  + I CopyMenuStyle FirstMenuStyle SecondMenuStyle
 218  + I CopyMenuStyle SecondMenuStyle FirstMenuStyle
 219  + I CopyMenuStyle FirstMenuStyle SecondMenuStyle
 220  + I DestroyMenuStyle FirstMenuStyle
 221  + I AddToMenu Menu-CopyMenuStyle "Menu now as default + a gradient + a font"
 222  + I Popup Menu-CopyMenuStyle
 223  + I CopyMenuStyle tmpMenuStyle SecondMenuStyle
 224  + I AddToMenu Menu-CopyMenuStyle "Menu again red/blue/yellow, mwm, fixed, ..."
 225  + I Popup Menu-CopyMenuStyle
 226  + I CopyMenuStyle * FirstMenuStyle
 227  + I MenuStyle FirstMenuStyle MenuFace TiledPixmap /tmp/test3.xpm
 228  + I CopyMenuStyle FirstMenuStyle SecondMenuStyle
 229  + I CopyMenuStyle * SecondMenuStyle
 230  + I CopyMenuStyle FirstMenuStyle SecondMenuStyle
 231  + I DestroyMenuStyle FirstMenuStyle
 232  + I AddToMenu Menu-CopyMenuStyle "Menu now as default + tiled Pixmap"
 233  + I Popup Menu-CopyMenuStyle
 234  + I CopyMenuStyle tmpMenuStyle SecondMenuStyle
 235  + I CopyMenuStyle * FirstMenuStyle
 236  + I CopyMenuStyle FirstMenuStyle SecondMenuStyle
 237  + I CopyMenuStyle * SecondMenuStyle
 238  + I CopyMenuStyle FirstMenuStyle SecondMenuStyle
 239  + I DestroyMenuStyle FirstMenuStyle
 240  + I CopyMenuStyle tmpMenuStyle SecondMenuStyle
 241  + I DestroyMenuStyle tmpMenuStyle
 242  + I CopyMenuStyle SecondMenuStyle FirstMenuStyle
 243  + I DestroyMenuStyle SecondMenuStyle
 244  + I CopyMenuStyle FirstMenuStyle SecondMenuStyle
 245  + I CopyMenuStyle TMS SecondMenuStyle
 246  + I CopyMenuStyle * FirstMenuStyle
 247  + I CopyMenuStyle FirstMenuStyle tmpMenuStyle
 248  + I DestroyMenuStyle tmpMenuStyle
 249  + I CopyMenuStyle SecondMenuStyle FirstMenuStyle
 250  + I CopyMenuStyle * FirstMenuStyle
 251  + I DestroyMenuStyle SecondMenuStyle
 252  + I DestroyMenuStyle FirstMenuStyle
 253  + I AddToMenu Menu-CopyMenuStyle "Finally as default"
 254  + I Popup Menu-CopyMenuStyle
 255 # Syntax tests:
 256  + I Echo Start intentional errors
 257  + I CopyMenuStyle FirstMenuStyle *
 258  + I CopyMenuStyle
 259  + I CopyMenuStyle none_such
 260  + I CopyMenuStyle not_at_all same_here
 261  + I CopyMenuStyle FirstMenuStyle
 262  + I CopyMenuStyle no_such_style FirstMenuStyle
 263  + I CopyMenuStyle FirstMenuStyle FirstMenuStyle
 264  + I CopyMenuStyle * FirstMenuStyle to_many
 265  + I CopyMenuStyle " a large quoted arg with spaces at the front, middle, end"
 266  + I Echo End intentional errors
 267
 268 AddTest "Test DestroyMenu - needs ChangeMenuStyle" DestroyMenuStyle-Func
 269 AddToFunc DestroyMenuStyle-Func
 270  + I Echo "The next test attempts to popup a menu thats been destroyed w. recreate"
 271  + I AddToMenu Menu-ChangeMenuStyle "ChangeMenuStyle: Attempt to pop destroyed menu"
 272  + I AddToMenu Menu-ChangeMenuStyle "Press Escape to continue" Echo "Tester selected item on menu to proceed"
 273  + I DestroyMenu recreate Menu-ChangeMenuStyle
 274  + I Popup Menu-ChangeMenuStyle
 275  + I AddToMenu Menu-ChangeMenuStyle "ChangeMenuStyle: Same Menu recreated" Title
 276  + I AddToMenu Menu-ChangeMenuStyle "Press Escape to continue" Echo "Tester selected item on menu to proceed"
 277  + I Echo "The next test attempts to popup a menu thats been destroyed w/o recreate"
 278  + I AddToMenu Menu-ChangeMenuStyle "ChangeMenuStyle: Second Attempt to pop destroyed menu"
 279  + I AddToMenu Menu-ChangeMenuStyle "Press Escape to continue" Echo "Tester selected item on menu to proceed"
 280  + I DestroyMenu Menu-ChangeMenuStyle
 281  + I Popup Menu-ChangeMenuStyle
 282  + I # Syntax tests (note, doesn't produce errors):
 283  + I Echo Start intentional errors (note, doesn't produce message)
 284  + I DestroyMenu
 285  + I DestroyMenu MenuDoesntExist
 286  + I DestroyMenu MenuDoesntExist MenuDoesntExist
 287  + I DestroyMenu MenuDoesntExist MenuDoesntExistEither
 288  + I Echo End intentional errors (note, doesn't produce message)
 289
 290 AddTest "Test DestroyMenuStyle" AddMenuStyle-Func
 291 AddToFunc AddMenuStyle-Func
 292  + I DestroyMenu Menu-DestroyMenuStyle
 293  + I AddToMenu Menu-DestroyMenuStyle "Menu for testing DestroyMenuStyle" Title
 294  + I AddToMenu Menu-DestroyMenuStyle "First shown using non-default style" Echo "Tester selected item on menu to proceed"
 295  + I AddToMenu Menu-DestroyMenuStyle "Press Escape to see it in default style" Echo "Tester selected item on menu to proceed"
 296  + I MenuStyle Menu_DestroyMenuStyle Foreground Black, BackGround CornFlowerBlue
 297  + I MenuStyle Menu_DestroyMenuStyle Font 9x15bold
 298  + I ChangeMenuStyle Menu_DestroyMenuStyle Menu-DestroyMenuStyle
 299  + I Popup Menu-DestroyMenuStyle
 300  + I AddToMenu Menu-DestroyMenuStyle "Now shown in the current default style" Echo "Tester selected item on menu to proceed"
 301  + I AddToMenu Menu-DestroyMenuStyle "Press Escape to continue" Echo "Tester selected item on menu to proceed"
 302  + I DestroyMenuStyle Menu_DestroyMenuStyle
 303  + I PopUp Menu-DestroyMenuStyle
 304  + I Echo Start intentional errors
 305  + I DestroyMenuStyle
 306  + I DestroyMenuStyle MenuStyleDoesntExist
 307  + I DestroyMenuStyle MenuStyleDoesntExist MenuStyleDoesntExist
 308  + I DestroyMenuStyle MenuStyleDoesntExist MenuStyleDoesntExistEither
 309  + I Echo "Attempt to destroy the same menu style twice"
 310  + I DestroyMenuStyle Menu_DestroyMenuStyle
 311  + I Echo "Attempt to destroy the default menu style"
 312  + I DestroyMenuStyle *
 313  + I Echo End intentional errors
 314
 315 AddTest "Test Menu Positioning" MenuPositioning-Func
 316 AddToFunc MenuPositioning-Func
 317  + I DestroyMenu Menu-Position
 318  + I AddToMenu Menu-Position "Menu Position tests" Title
 319  + I AddToMenu Menu-Position "Position Root 0p 0p"
 320  + I Menu Menu-Position Root 0p 0p
 321  + I AddToMenu Menu-Position "Position Root 100p 100p"
 322  + I Menu Menu-Position Root 100p 100p
 323  + I AddToMenu Menu-Position "Position Root 100 100"
 324  + I Menu Menu-Position Root 100 100
 325  + I AddToMenu Menu-Position "Position Root 50 100"
 326  + I Menu Menu-Position Root 50 100
 327 #   Purposely more than 100%:
 328  + I AddToMenu Menu-Position "Position Root 150 10"
 329  + I Menu Menu-Position Root 150 10
 330  + I AddToMenu Menu-Position "Position Mouse -150p -50p"
 331  + I Menu Menu-Position Mouse -150p -50p
 332  + I AddToMenu Menu-Position "Position Root c c"
 333  + I Menu Menu-Position Root c c
 334  + I Next (window0) Focus
 335  + I AddToMenu Menu-Position "Position window -100m c+0"
 336  + I All (purify) Menu Menu-Position window -100m c+0
 337  + I AddToMenu Menu-Position "Position Button1 50+10p 50+10m"
 338  + I All (purify) Menu Menu-Position Button1 50+10p 50+10m
 339  + I AddToMenu Menu-Position "Position Mouse c -100m-8p"
 340  + I Menu Menu-Position Mouse c -100m-8p
 341  + I AddToMenu Menu-Position "Position rectangle 512x384+1+1 +0 +0"
 342  + I Menu Menu-Position rectangle 512x384+1+1 +0 +0
 343 # There are lots more of these...and lots more options for the menu command.
 344 # Need to add "menu command syntax errors...
 345  + I AddToMenu Menu-Position "Position pouf +0 +0"
 346  + I Menu Menu-Position pouf +0 +0
 347  + I AddToMenu Menu-Position "Position root +0k u+10"
 348  + I Menu Menu-Position root +0k u+10
 349
 350 AddTest "Test MenuStyle" MenuStyle-Func
 351 AddToFunc MenuStyle-Func
 352 # Attempt to use every option:
 353  + I MenuStyle FvwmStyle Fvwm, BorderWidth 10, Foreground black, Background Gray
 354  + I MenuStyle FvwmStyle Greyed blue,  HilightBack, ActiveFore, Hilight3DThick
 355  + I MenuStyle FvwmStyle VerticalMargins 0 0
 356  + I MenuStyle FvwmStyle Animation, Font "xft:monospace;9x15bold/iso8859-1"
 357  + I MenuStyle FvwmStyle VerticalMargins -1 1
 358  + I MenuStyle FvwmStyle PopupOffset 2 2, TitleWarp, DoubleClickTime 500
 359  + I MenuStyle FvwmStyle VerticalMargins 1 -1
 360  + I MenuStyle FvwmStyle PopupImmediately, PopdownImmediately
 361  + I MenuStyle FvwmStyle VerticalMargins -1 -1
 362  + I MenuStyle FvwmStyle TitleUnderlines0, SeparatorsLong, TrianglesSolid
 363  + I MenuStyle FvwmStyle AutomaticHotkeys, PopupAsRootMenu, RemoveSubmenus
 364  + I MenuStyle FvwmStyle SubmenusRight, SelectOnRelease Alt, VerticalItemSpacing -2
 365
 366  + I MenuStyle MwmStyle Mwm, HilightBackOff, ActiveForeOff, Hilight3DThin
 367  + I MenuStyle MwmStyle AnimationOff, PopupDelayed, PopupDelay 26, TitleWarpOff
 368  + I MenuStyle MwmStyle PopupDelayed, PopupDelay 26, DoubleClickTime
 369  + I MenuStyle MwmStyle PopdownDelayed, PopdownDelay 100
 370  + I MenuStyle MwmStyle Font -*-*-*-*-normal--*-160-75-75-m-50-iso8859-*
 371  + I MenuStyle MwmStyle TitleUnderlines1, SeparatorsShort, TrianglesRelief
 372  + I MenuStyle MwmStyle AutomaticHotkeysOff, PopupAsSubmenu, HoldSubmenus
 373  + I MenuStyle MwmStyle SubmenusLeft, VerticalTitleSpacing 5
 374
 375  + I MenuStyle WinStyle MenuColorset 0, ActiveColorset 0, GreyedColorset 0
 376  + I MenuStyle WinStyle Hilight3DOff, PopupImmediately
 377  + I MenuStyle WinStyle PopdownDelayed, PopdownDelay 100
 378  + I MenuStyle WinStyle Font "shadow=2 all:-*-fixed-*-*-normal--*-*-*-*-*-*-*-*"
 379
 380  + I MenuStyle XStyle Hilight3DThickness -3, MenuFace Solid Maroon
 381  + I MenuStyle XStyle TitleUnderlines2, SidePic xtrek_fed_e.xbm, SideColor cyan
 382 # I have no idea what this will do but its in the man page:
 383  + I MenuStyle XStyle ItemFormat "%.1|%3.2<%5i%5l%5l%5r%5i%1|%4s"
 384
 385  + I MenuStyle * PopupDelay 12, DoubleClickTime 2
 386  + I MenuStyle * PopupDelay 0
 387  + I MenuStyle * PopdownDelay 12, PopdownDelayed
 388  + I MenuStyle * PopupDelay 0, PopdownImmediately
 389  + I DestroyMenu Main
 390  + I AddToMenu Main "Main menu - Test MenuStyles"
 391  + I AddToMenu Main "%test1.xpm%Popup FvwmStyle" Popup FvwmStyle
 392  + I AddToMenu Main "Popup MwmStyle%test.png%" Popup MwmStyle
 393  + I AddToMenu Main "Popup WinStyle%xtrek_fed_e.xbm%" Popup WinStyle
 394  + I AddToMenu Main "Popup XStyle" Popup XStyle item +0 -100m
 395  + I AddToMenu Main "To complete this test, Popup all the sub-menus"
 396  + I DestroyMenu FvwmStyle
 397  + I AddToMenu FvwmStyle "FvwmStyle Menu" Title
 398  + I AddToMenu FvwmStyle "An item in the menu"
 399  + I ChangeMenuStyle FvwmStyle FvwmStyle
 400  + I DestroyMenu MwmStyle
 401  + I AddToMenu MwmStyle "MwmStyle Menu" Title
 402  + I AddToMenu MwmStyle "An item in the menu"
 403  + I ChangeMenuStyle MwmStyle MwmStyle
 404  + I DestroyMenu WinStyle
 405  + I AddToMenu WinStyle "WinStyle Menu" Title
 406  + I AddToMenu WinStyle "An item in the menu"
 407  + I ChangeMenuStyle WinStyle WinStyle
 408  + I DestroyMenu XStyle
 409  + I AddToMenu XStyle "XStyle Menu" Title
 410  + I AddToMenu XStyle "An item in the menu"
 411  + I ChangeMenuStyle XStyle XStyle
 412  + I Menu Main
 413 # Need to add a bunch of MenuStyle syntax errors.
 414
 415 AddTest "Test Popup" Popup-Func
 416 AddToFunc Popup-Func
 417  + I Popup Main
 418  + I Popup "I don't know"
 419
 420 # End of "Menu oriented commands. The "title" menu command is already
 421 # tested.
 422
 423 # For now, skip testing of the BugOpts command.
 424 # Log "Test BugOpts"
 425 AddTest "Test BugOpts" BugOpts-Func
 426 AddToFunc BugOpts-Func
 427  + I BugOpts FlickeringMoveWorkaround True
 428  + I BugOpts FlickeringMoveWorkaround False
 429  + I BugOpts FlickeringMoveWorkaround toggle
 430  + I BugOpts FlickeringMoveWorkaround what ever
 431  + I BugOpts FlickeringMoveWorkaround
 432  + I BugOpts MixedVisualWorkaround True
 433  + I BugOpts MixedVisualWorkaround False
 434  + I BugOpts MixedVisualWorkaround toggle
 435  + I BugOpts MixedVisualWorkaround what ever
 436  + I BugOpts MixedVisualWorkaround
 437  + I BugOpts ModalityIsEvil True
 438  + I BugOpts ModalityIsEvil False
 439  + I BugOpts ModalityIsEvil toggle
 440  + I BugOpts ModalityIsEvil what ever
 441  + I BugOpts ModalityIsEvil
 442  + I BugOpts RaiseOverNativeWindows True
 443  + I BugOpts RaiseOverNativeWindows False
 444  + I BugOpts RaiseOverNativeWindows toggle
 445  + I BugOpts RaiseOverNativeWindows what ever
 446  + I BugOpts RaiseOverNativeWindows
 447  + I BugOpts RaiseOverUnmanaged True
 448  + I BugOpts RaiseOverUnmanaged False
 449  + I BugOpts RaiseOverUnmanaged toggle
 450  + I BugOpts RaiseOverUnmanaged what ever
 451  + I BugOpts RaiseOverUnmanaged False
 452  + I BugOpts FlickeringQtDialogsWorkaround True
 453  + I BugOpts FlickeringQtDialogsWorkaround False
 454  + I BugOpts FlickeringQtDialogsWorkaround toggle
 455  + I BugOpts FlickeringQtDialogsWorkaround what ever
 456  + I BugOpts FlickeringQtDialogsWorkaround
 457  + I BugOpts EWMHIconicStateWorkaround True
 458  + I BugOpts EWMHIconicStateWorkaround False
 459  + I BugOpts EWMHIconicStateWorkaround toggle
 460  + I BugOpts EWMHIconicStateWorkaround what ever
 461  + I BugOpts EWMHIconicStateWorkaround
 462 #
 463  + I BugOpts
 464  + I BugOpts FooBugs True
 465  + I BugOpts EWMHIconicStateWorkaround, FooBugs
 466  + I BugOpts ExplainWindowPlacement on
 467  + I BugOpts ExplainWindowPlacement off
 468
 469 AddTest "Test BusyCursor" BusyCursor-Func
 470 AddToFunc BusyCursor-Func
 471 # These are the defaults:
 472  + I BusyCursor DynamicMenu False, ModuleSynchronous False, Read False
 473  + I BusyCursor Wait False
 474 # Turn all on:
 475  + I BusyCursor * True
 476 # Turn all off:
 477  + I BusyCursor * False
 478 # Set the opposite of the defaults:
 479  + I BusyCursor DynamicMenu True, ModuleSynchronous True, Read True
 480  + I BusyCursor Wait True
 481 # Back to the defaults:
 482  + I BusyCursor DynamicMenu False, ModuleSynchronous False, Read False
 483  + I BusyCursor Wait False
 484  + I BusyCursor * True
 485 #
 486  + I BusyCursor blabla
 487
 488 AddTest "Test ClickTime" ClickTime-Func
 489 AddToFunc ClickTime-Func
 490  + I ClickTime
 491  + I ClickTime 0
 492  + I ClickTime    0 # blah
 493  + I ClickTime          0
 494  + I ClickTime -1
 495  + I ClickTime 150
 496  + I ClickTime 150
 497  + I ClickTime 200
 498 # This resets the default:
 499  + I ClickTime
 500
 501 AddTest "Test ColormapFocus" ColormapFocus-Func
 502 AddToFunc ColormapFocus-Func
 503  + I ColormapFocus
 504  + I ColormapFocus    FollowsFocus
 505  + I ColormapFocus              FollowsFocus
 506  + I ColormapFocus FollowsMouse
 507  + I ColormapFocus FollowsFocus
 508  + I ColormapFocus FollowsFocus
 509  + I ColormapFocus FollowsMouse
 510  + I Refresh
 511
 512 AddTest "Test CursorStyle" CursorStyle-Func
 513 AddToFunc CursorStyle-Func
 514  + I CursorStyle
 515  + I CursorStyle liewud
 516  + I CursorStyle BOTTOM 132
 517  + I CursorStyle BOTTOM_LEFT 133
 518  + I CursorStyle BOTTOM_RIGHT 134
 519  + I CursorStyle DEFAULT 64
 520  + I CursorStyle DEFAULT 68
 521  + I CursorStyle DEFAULT 68
 522  + I CursorStyle DESTROY 88
 523  + I CursorStyle DESTROY 88
 524  + I CursorStyle DESTROY 99
 525  + I CursorStyle DESTROY
 526  + I CursorStyle DEFAULT
 527  + I CursorStyle MENU fleur yellow blue
 528  + I CursorStyle MENU fleur invalid_color_name another_invalid_name
 529  + I CursorStyle MENU fleur black white
 530  + I CursorStyle MENU test1.xpm black white
 531 # These are the defaults from the man page:
 532  + I CursorStyle POSITION top_left_corner
 533  + I CursorStyle TITLE top_left_arrow
 534  + I CursorStyle SYS hand2
 535  + I CursorStyle MOVE fleur
 536  + I CursorStyle RESIZE sizing
 537  + I CursorStyle WAIT watch
 538  + I CursorStyle MENU top_left_arrow
 539  + I CursorStyle SELECT crosshair
 540  + I CursorStyle DESTROY pirate
 541  + I CursorStyle TOP top_side
 542  + I CursorStyle RIGHT right_side
 543  + I CursorStyle BOTTOM bottom_side
 544  + I CursorStyle LEFT left_side
 545  + I CursorStyle TOP_LEFT top_left_corner
 546  + I CursorStyle TOP_RIGHT top_right_corner
 547  + I CursorStyle BOTTOM_LEFT bottom_left_corner
 548  + I CursorStyle BOTTOM_RIGHT bottom_right_corner
 549  + I CursorStyle TOP_EDGE top_side
 550  + I CursorStyle RIGHT_EDGE right_side
 551  + I CursorStyle BOTTOM_EDGE bottom_side
 552  + I CursorStyle LEFT_EDGE left_side
 553  + I CursorStyle ROOT left_ptr
 554  + I CursorStyle STROKE plus
 555
 556 AddTest "Test DefaultColors" DefaultColors-Func
 557 AddToFunc DefaultColors-Func
 558  + I DefaultColors Pink Blue
 559  + I DefaultColors NotValid "On purpose"
 560  + I DefaultColors Pink "Also on purpose (second arg)"
 561  + I DefaultColors *
 562  + I DefaultColors
 563  + I Refresh
 564
 565 AddTest "Test DefaultColorset" DefaultColorset-Func
 566 AddToFunc DefaultColorset-Func
 567  + I DefaultColorset
 568  + I DefaultColorset junk
 569  + I DefaultColorset 0
 570 # whoa! fvwm will have to send over a million colour sets to the modules!
 571 #+ I DefaultColorset 1236789
 572  + I DefaultColorset -1
 573  + I Refresh
 574
 575 AddTest "Test DefaultFont" DefaultFont-Func
 576 AddToFunc DefaultFont-Func
 577  + I DefaultFont
 578  + I DefaultFont 9x15bold
 579  + I DefaultFont -adobe-courier-bold-r-normal--10-100-75-75-m-60-ISO8859-1
 580  + I DefaultFont -adobe-courier-bold-r-normal--10-*
 581  + I DefaultFont *-fixed-medium-o-normal--14-*-ISO8859-15
 582  + I DefaultFont *-fixed-medium-o-normal--14-*-ISO8859-6
 583  + I DefaultFont -adobe-courier-bold-r-normal--10-*
 584  + I DefaultFont -adobe-courier-bold-r-normal--14-*,-*-courier-medium-r-normal--14-*
 585  + I DefaultFont -adobe-courier-bold-r-normal--14-*-foo,-*-courier-medium-r-normal--14-*
 586  + I DefaultFont "xft:Luxi Mono"
 587  + I DefaultFont "xft:Luxi Mono:Medium:Roman:size=14:encoding=iso8859-1"
 588  + I DefaultFont xft:Verdana:pixelsize=14;-adobe-courier-bold-r-normal--14-*
 589  + I DefaultFont StringEncoding=jisx0208.1983-0:-*-fixed-medium-r-*-ja-*-iso10646-1
 590  + I DefaultFont "StringEncoding=jisx0208.1983-0:xft:Bitstream Cyberbit"
 591  + I DefaultFont *-fixed-medium-r-*-ja-*-iso10646-1
 592  + I DefaultFont "StringEncoding=UTF-8:xft:Bitstream Cyberbit"
 593  + I DefaultFont "xft:Bitstream Cyberbit:encoding=iso10646-1"
 594  + I DefaultFont "StringEncoding=UTF-8:-*-pretty_font-*-12-*"
 595  + I DefaultFont -misc-fixed-*--20-*/iso10646-1
 596  + I DefaultFont -misc-fixed-*--14-*-iso8859-1/*/latin1
 597  + I DefaultFont misc-fixed-*--14-*-local8859-6/iso8859-6/local_iso8859_6_iconv
 598  + I DefaultFont "shadow=2:StringEncoding=iso8859-15:xft:monospace;-adobe-courier-bold-r-normal--14-*/iso8859-1/iso8859-1"
 599  + I DefaultFont "shadow=2 all:StringEncoding=iso8859-15:xft:monospace;-adobe-courier-bold-r-normal--14-*/iso8859-1/iso8859-1"
 600  + I DefaultFont "shadow=2 c:StringEncoding=iso8859-15:xft:monospace;-adobe-courier-bold-r-normal--14-*/iso8859-1/iso8859-1"
 601  + I DefaultFont "shadow=2 sn:StringEncoding=iso8859-15:xft:monospace;-adobe-courier-bold-r-normal--14-*/iso8859-1/iso8859-1"
 602  + I DefaultFont "shadow=2 sn:xft:monospace;shadow=2 sn:-adobe-courier-bold-r-normal--14-*"
 603  + I DefaultFont "shadow=2 foo:-adobe-courier-bold-r-normal--14-*"
 604  + I DefaultFont "shadow=-2:-adobe-courier-bold-r-normal--14-*"
 605  + I DefaultFont "shadow=:-adobe-courier-bold-r-normal--14-*"
 606  + I DefaultFont "shadow=ghgh:-adobe-courier-bold-r-normal--14-*"
 607  + I DefaultFont "shadowwwwwwwwwwwwww=2:-adobe-courier-bold-r-normal--14-*"
 608  + I DefaultFont badnameforafont
 609  + I DefaultFont "another bad name"
 610  + I DefaultFont two args
 611  + I DefaultFont
 612  + I Refresh
 613
 614 AddTest "Test DefaultIcon" DefaultIcon-Func
 615 AddToFunc DefaultIcon-Func
 616  + I DefaultIcon
 617  + I DefaultIcon test1.xpm
 618  + I DefaultIcon xtrek_fed_e.xbm
 619  + I DefaultIcon test.png
 620  + I DefaultIcon
 621  + I Refresh
 622
 623 AddTest "Test DefaultLayers" DefaultLayers-Func
 624 AddToFunc DefaultLayers-Func
 625  + I DefaultLayers
 626  + I DefaultLayers junk three times
 627  + I DefaultLayers 2 4 6
 628  + I Refresh
 629
 630 #FIXME: Deschedule (and Schedule)
 631
 632 AddTest "Test Emulate" Emulate-Func
 633 AddToFunc Emulate-Func
 634  + I Emulate Fvwm
 635  + I Emulate Mwm
 636  + I Emulate Win
 637  + I Emulate badname
 638  + I Emulate
 639
 640 # Note, there is no test for EscapeFunc
 641
 642 # Need a FakeClick test.
 643
 644 # Note, there is no test for HilightColor, its obsolete
 645 # Note, there is no test for HilightColorset, its obsolete
 646 # Note, there is no test for IconFont, its obsolete
 647 # Note, there is no test for IconPath, its obsolete
 648 # Note, the ImagePath test is not in ManPage order, look elsewhere
 649
 650 AddTest "Test LocalePath" LocalePath-Func
 651 AddToFunc LocalePath-Func
 652 + I Echo $[gt.Restart]
 653 + I LocalePath ";fvwm-themes:+"
 654 + I Echo $[gt.Restart]
 655 + I LocalePath "/tmp;hop"
 656 + I Echo $[gt.Restart]
 657 + I LocalePath "+:;fvwm-themes"
 658 + I Echo $[gt.Restart]
 659 + I LocalePath +:+:,vs,vnnsv:+:+
 660 + I LocalePath sdkjvbfsjkvbu/dj;nsfdvnsjkv__;,sdfnvjdsnvvn:+
 661 + I LocalePath /qdsbcdjc/njdcdjcn;sjkdcnbszcjksdcb
 662 + I LocalePath /qdsbcdjc/njdcdjcn;sjkdcnbszcjksdcb:+
 663 + I LocalePath /qdsbcdjc/njdcdjcn;sjkdcnbszcjksdcb:/shhdh/dsggdh;dhhdh:;shhdfh:/dffdg/dggdf/;:+
 664 + I LocalePath :/qdsbcdjc/njdcdjcn;sjkdcnbszcjksdcb:/shhdh/dsggdh;dhhdh:;shhdfh:/dffdg/dggdf/;:+
 665 + I LocalePath +:/qdsbcdjc/njdcdjcn;sjkdcnbszcjksdcb:/shhdh/dsggdh;dhhdh:;shhdfh:/dffdg/dggdf/;:
 666 + I LocalePath +:/qdsbcdjc/njdcdjcn;sjkdcnbszcjksdcb:/shhdh/dsggdh;dhhdh:;shhdfh:/dffdg/dggdf/;
 667 + I LocalePath :/qdsbcdjc/njdcdjcn;sjkdcnbszcjksdcb:/shhdh/dsggdh;dhhdh:;shhdfh:/dffdg/dggdf/;:
 668 + I LocalePath /qdsbcdjc/njdcdjcn;sjkdcnbszcjksdcb:/shhdh/dsggdh;dhhdh:;shhdfh:/dffdg/dggdf/;
 669 + I LocalePath None
 670 + I Echo $[gt.Restart]
 671 + I LocalePath
 672 + I Echo $[gt.Restart]
 673
 674
 675 # Note, there is no test for PixmapPath, its obsolete
 676
 677 AddTest "Test PrintInfo" PrintInfo-Func
 678 AddToFunc PrintInfo-Func
 679 + I PrintInfo Colors
 680 + I PrintInfo Colors 3
 681 + I PrintInfo locale
 682 + I PrintInfo locale 3
 683 + I PrintInfo locale dffgsg
 684 + I PrintInfo
 685 + I PrintInfo nls
 686 + I PrintInfo nls 3
 687 + I PrintInfo dffdghhq 4
 688
 689 # FIXME: Schedule (see DeSchedule above)
 690
 691 # This test tests "Exec" and "Wait" but also creates some windows
 692 # used in tests afterward.
 693 # The windows are named so the tests can access them
 694 AddTest "Test CreateWindows" CreateWindows-Func
 695 AddToFunc CreateWindows-Func
 696  + I Style "*" TileCascadePlacement
 697  + I AddToFunc makewindows
 698  + I AddToFunc makewindows I Exec xterm -geometry 10x5+0+0 -T window1 -n window1 -e sleep 1000
 699  + I AddToFunc makewindows I Wait window1
 700  + I AddToFunc makewindows I Exec xterm -geometry 10x5+25+25 -T window2 -n window2 -e sleep 1000
 701  + I AddToFunc makewindows I Wait window2
 702  + I AddToFunc makewindows I Exec xterm -geometry 10x5+50+50 -T window3 -n window3 -e sleep 1000
 703  + I AddToFunc makewindows I Wait window3
 704  + I AddToFunc makewindows I Exec xterm -geometry 10x5+75+75 -T window4 -n window4 -e sleep 1000
 705  + I AddToFunc makewindows I Wait window4
 706  + I AddToFunc makewindows I Exec xterm -geometry 10x5+100+100 -T window5 -n window5 -e sleep 1000
 707  + I AddToFunc makewindows I Wait window5
 708  + I AddToFunc makewindows I Exec xterm -geometry 10x5-0-0 -T window6 -n window6 -e sleep 1000
 709  + I AddToFunc makewindows I Wait window6
 710  + I AddToFunc makewindows I Exec xterm -iconic -geometry 10x5+125+125 -T window_iconic -n window_iconic -e sleep 1000
 711  + I AddToFunc makewindows I Wait window_iconic
 712  + I AddToFunc makewindows I Exec xterm -geometry 50x20-0+0 -T window_shaded -n window_shaded -e sleep 1000
 713  + I AddToFunc makewindows I Wait window_shaded
 714  + I AddToFunc makewindows I Next (window_shaded) WindowShade On
 715  + I function makewindows
 716 # Move to main page, move the pointer to the lower right corner near window6
 717  + I GotoPage 0 0
 718  + I CursorMove -1000 -1000
 719  + I CursorMove 95 95
 720
 721 AddTest "Test State" State-Func
 722 AddToFunc State-Func
 723  + I State 1
 724  + I State 1 True
 725  + I State 1 False
 726 #
 727  + I State 1234
 728  + I State -10
 729  + I State
 730  + I State sdncfekndf klfdvclkfev klfnvfekvflkv,fv,
 731
 732 # Note, there is no test for WindowFont, its obsolete
 733
 734 # FIXME: add new options in 2.6
 735 AddTest "Test WindowList" WindowList-Func
 736 AddToFunc WindowList-Func
 737  + I WindowList
 738  + I WindowList
 739 # 2 windowlists, each using all the options, opposite options:
 740  + I WindowList NoGeometry, Function nonexistent, Desk 0, NoIcons, NoNormal,   NoSticky,   NoOnTop, NoOnBottom, UseIconName, Alphabetic, NotAlphabetic, UseListSkip, NoDeskSort, NoHotKeys, SelectOnRelease, Layer 0
 741  + I WindowList Geometry,   Function nonexistent, Desk 0, Icons, OnlyNormal, OnlySticky, OnlyOnTop, OnlyOnBottom, UseIconName, Alphabetic, NotAlphabetic, OnlyListSkip, Layer 9
 742  + I WindowList Geometry,   Function nonexistent, Desk 0, OnlyIcons, Normal,     Sticky,     OnTop, OnBottom, UseIconName, Alphabetic, NotAlphabetic, NoGeometryWithInfo, CurrentDesk
 743 # Condition and placement test
 744  + I WindowList (win*) Root 12p 12p CurrentDesk
 745 # Could use a test where the "WindowList MenuStyle" is redone.
 746  + I Refresh
 747
 748 AddTest "Test Moves" Moves-Func
 749 AddToFunc Moves-Func
 750 # AnimatedMove:
 751  + I Next (window2) WarpToWindow 50 50
 752  + I Next (window2) AnimatedMove 50 50 warp
 753  + I Next (window2) AnimatedMove 100 100 warp
 754  + I Next (window2) AnimatedMove 100 0 warp
 755  + I Next (window2) AnimatedMove 0 100 warp
 756  + I Next (window2) AnimatedMove -50 -50 warp
 757  + I Next (window2) AnimatedMove 25p 25p warp
 758  + I Next (window_iconic) AnimatedMove 50 50 warp
 759  + I Next (window_shaded) AnimatedMove 25p 25p warp
 760  + I Next (window_shaded) AnimatedMove -0p 0p warp
 761 # Need some HideGeometryWindow tests (need interaction).
 762  + I HideGeometryWindow Move
 763  + I HideGeometryWindow Resize
 764  + I HideGeometryWindow Never
 765  + I HideGeometryWindow dsqncbd
 766  + I HideGeometryWindow
 767 # Layer
 768  + I Next (window3) Layer 0 6
 769  + I Next (window3) Layer 0 1
 770  + I Next (window3) Layer 0 -1
 771  + I Next (window3) Layer 0 afafd
 772  + I Next (window3) Layer afafd 34
 773  + I Next (window3) Layer
 774  + I Next (window3) Layer 1
 775  + I Next (window3) Layer -2
 776  + I Next (window3) Layer 0 6
 777  + I Next (window2) Layer 0 2
 778 # Lower
 779  + I Next (window5) Lower
 780  + I Next (window4) Lower
 781  + I Next (window3) Lower
 782  + I Next (window2) Lower
 783  + I Next (window1) Lower
 784  + I Next (window_iconic) Lower
 785  + I Next (window_shaded) Lower
 786 # Move
 787  + I Next (window1) Move   w+10    w+10
 788  + I Next (window1) Move                w-10            w-10
 789  + I Next (window1) Move Keep w+20
 790  + I Next (window1) Move Keep w-20
 791  + I Next (window1) Move 30p Keep
 792  + I Next (window1) Move -30p Keep
 793 # This may cause paging, depending on the mouse pointer position:
 794  + I Next (window1) Move m+0 m+0
 795 # Test absolute positioning:
 796  + I Next (window1) Move 10 10
 797  + I Next (window1) Move -10 -10
 798 # Put window1 back where it started:
 799  + I Next (window1) Move 0 0 warp
 800  + I Next (window_iconic) Move w+10 w+10
 801  + I Next (window_iconic) Move 50 50
 802 # MoveToDesk
 803 # This seems to be undocumented, no arg moves to main desk:
 804  + I Next (window3) MoveToDesk
 805  + I Next (window3) MoveToDesk    2
 806  + I Next (window3) MoveToDesk          +3
 807  + I Next (window3) MoveToDesk -2
 808  + I Next (window3) MoveToDesk 0 1
 809  + I Next (window3) MoveToDesk   0    3
 810  + I Next (window3) MoveToDesk          0               1923874
 811  + I Next (window3) MoveToDesk +1 0 10
 812  + I Next (window3) MoveToDesk -1 0 10
 813  + I Next (window3) MoveToDesk 0 0 5 7
 814  + I Next (window3) MoveToDesk 0 -11111 5 7
 815  + I Next (window3) MoveToDesk dhcdshcb
 816  + I Next (window3) MoveToDesk 0 0
 817  + I Next (window_iconic) MoveToDesk +1 0 10
 818  + I Next (window_shaded) MoveToDesk -1 0 10
 819  + I Next (window_iconic) MoveToDesk 0 0
 820  + I Next (window_shaded) MoveToDesk  0 0
 821  + I MoveThreshold 0
 822  + I MoveThreshold -3
 823  + I MoveThreshold 99
 824  + I MoveThreshold ,hhqxbcjq
 825  + I MoveThreshold
 826  + I MoveThreshold 3
 827  + I Next (window1) MoveToPage
 828  + I Next (window1) MoveToPage
 829  + I Next (window1) MoveToPage 1 1
 830  + I Next (window1) MoveToPage 10000 -12312
 831  + I Next (window1) MoveToPage 0 0
 832  + I Next (window_iconic) MoveToPage 1 1
 833  + I Next (window_shaded) MoveToPage 10000 -12312
 834  + I Next (window_iconic) MoveToPage 0 0
 835  + I Next (window_shaded) MoveToPage 0 0
 836  + I Next (window3) MoveToScreen p
 837  + I Next (window3) MoveToScreen c
 838  + I Next (window3) MoveToScreen g
 839  + I Next (window3) MoveToScreen 1
 840  + I Next (window3) MoveToScreen u
 841  + I Next (window3) MoveToScreen
 842  + I Next (window3) MoveToScreen 0
 843  + I Refresh
 844
 845 AddTest "Test OpaqueMoveSize" OpaqueMoveSize-Func
 846 AddToFunc OpaqueMoveSize-Func
 847  + I OpaqueMoveSize
 848  + I OpaqueMoveSize    50
 849  + I OpaqueMoveSize             50
 850  + I OpaqueMoveSize 0
 851  + I OpaqueMoveSize 0
 852  + I OpaqueMoveSize -1
 853  + I OpaqueMoveSize 100
 854  + I OpaqueMoveSize 200
 855  + I OpaqueMoveSize 75
 856  + I OpaqueMoveSize 75
 857  + I OpaqueMoveSize 0
 858
 859 AddTest "Test PlaceAgain" PlaceAgain-Func
 860 AddToFunc PlaceAgain-Func
 861  + I Next (window1) move 10 10
 862  + I Next (window2) move 10 10
 863  + I Next (window3) move 10 10
 864  + I Next (window4) move 10 10
 865  + I Next (window5) move 10 10
 866  + I Next (window1) PlaceAgain
 867  + I Next (window2) PlaceAgain Anim
 868  + I Next (window3) PlaceAgain
 869  + I Next (window4) PlaceAgain Anim
 870  + I Next (window5) PlaceAgain Anim
 871  + I Next (window_iconic) PlaceAgain Anim
 872  + I Next (window_shaded) PlaceAgain Anim
 873  + I Style * MinOverlapPlacement
 874  + I UpdateStyles
 875  + I All (!Sticky) PlaceAgain Anim
 876
 877 AddTest "Test Raise_RaiseLower_Lower" Raise_RaiseLower_Lower-Func
 878 AddToFunc Raise_RaiseLower_Lower-Func
 879  + I Next (window1) Raise
 880  + I Next (window1) Lower
 881  + I Next (window1) RaiseLower
 882  + I Next (window2) RaiseLower
 883  + I Next (window3) Raise
 884  + I Next (window3) Lower
 885  + I Next (window3) RaiseLower
 886  + I Next (window3) RaiseLower
 887  + I Next (window3) Raise asöpoi
 888  + I Next (window3) Lower asöpoi
 889  + I Next (window3) RaiseLower asöpoi
 890  + I Next (window3) RaiseLower asöpoi
 891  + I Next (window_iconic) RaiseLower
 892  + I Next (window_shaded) RaiseLower
 893  + I Refresh
 894
 895 AddTest "Test Resize" Resize-Func
 896 AddToFunc Resize-Func
 897  + I Next (window1) Resize 50 50
 898  + I Next (window5) Resize   80c    24c
 899  + I Next (window2) Resize              40p             60p
 900  + I Next (window3) Resize 0 keep
 901  + I Next (window3) Resize keep 0
 902  + I Next (window6) Resize 20p 20p br
 903  + I Next (window_iconic) Resize 20p 20p br
 904  + I Next (window_shaded) Resize 20p 20p br
 905  + I Next (window_shaded) Resize 20c 10c
 906  + I Next (window1) Resize 10c 5c
 907  + I Next (window2) Resize 10c 5c
 908  + I Next (window3) Resize 10c 5c
 909  + I Next (window4) Resize 10c 5c
 910  + I Next (window5) Resize 10c 5c
 911
 912 AddTest "Test ResizeMaximize" ResizeMaximize-Func
 913 AddToFunc Resize-Func
 914  + I Next (window1) ResizeMaximize 50 50
 915  + I Next (window1) ResizeMaximize 50 50
 916  + I Next (window1) Maximize
 917  + I Next (window5) ResizeMaximize   80c    24c
 918  + I Next (window5) ResizeMaximize   80c    24c
 919  + I Next (window5) Maximize
 920  + I Next (window2) ResizeMaximize              40p             60p
 921  + I Next (window2) ResizeMaximize              40p             60p
 922  + I Next (window2) Maximize
 923  + I Next (window3) ResizeMaximize 0 keep
 924  + I Next (window3) ResizeMaximize 0 keep
 925  + I Next (window3) Maximize
 926  + I Next (window3) ResizeMaximize keep 0
 927  + I Next (window3) ResizeMaximize keep 0
 928  + I Next (window3) Maximize
 929  + I Next (window6) ResizeMaximize 20p 20p br
 930  + I Next (window6) ResizeMaximize 20p 20p br
 931  + I Next (window6) Maximize
 932  + I Next (window_iconic) ResizeMaximize 20p 20p br
 933  + I Next (window_iconic) ResizeMaximize 20p 20p br
 934  + I Next (window_iconic) Maximize
 935  + I Next (window_shaded) ResizeMaximize 20p 20p br
 936  + I Next (window_shaded) ResizeMaximize 20p 20p br
 937  + I Next (window_shaded) Maximize
 938
 939 AddTest "Test ResizeMove" ResizeMove-Func
 940 AddToFunc ResizeMove-Func
 941  + I Next (window1) ResizeMove 50 50 30 30
 942  + I Next (window1) ResizeMove 10c 5c 0 0
 943  + I Next (window3) ResizeMove 10c 5c
 944  + I Next (window4) ResizeMove 10c 5c
 945  + I Next (window5) ResizeMove 10c 5c
 946  + I Next (window_iconic) ResizeMove 10c 5c
 947  + I Next (window_shaded) ResizeMove 50 50 30 30
 948  + I Next (window_shaded) ResizeMove 20c 10c
 949
 950 AddTest "Test ResizeMoveMaximize" ResizeMoveMaximize-Func
 951 AddToFunc ResizeMoveMaximize-Func
 952  + I Next (window1) ResizeMoveMaximize 50 50 30 30
 953  + I Next (window1) ResizeMoveMaximize 50 50 30 30
 954  + I Next (window1) Maximize
 955  + I Next (window1) ResizeMoveMaximize 10c 5c 0 0
 956  + I Next (window1) ResizeMoveMaximize 10c 5c 0 0
 957  + I Next (window1) Maximize
 958  + I Next (window_iconic) ResizeMoveMaximize 10c 5c 0 0
 959  + I Next (window_iconic) Maximize
 960  + I Next (window_shaded) ResizeMoveMaximize 20c 10c 0 0
 961  + I Next (window_shaded) Maximize
 962
 963 # FIXME: RestackTransients
 964
 965 AddTest "Test SetAnimation" SetAnimation-Func
 966 AddToFunc SetAnimation-Func
 967  + I SetAnimation
 968  + I SetAnimation  10  -.01 0 .01 .03 .08 .18 .3 .45 .6 .75 .85 .90 .94 .97 .99 1.0
 969  + I SetAnimation 10     -.01 0  .01 .03 .08 .18 .3 .45 .6 .75 .85 .90 .94 .97 .99 1.0
 970  + I SetAnimation 0 -.01 0 .01 .03 .08 .18 .3 .45 .6 .75 .85 .90 .94 .97 .99 1.0
 971  + I SetAnimation 20 -.01 0 .01 .03 .08
 972  + I SetAnimation 1000 -.01 0 .01 .03 .08
 973  + I SetAnimation 10 -.01 0 .01 .03 .08 .18 .3 .45 .6 .75 .85 .90 .94 .97 .99 1.0
 974
 975 AddTest "Test SnapAttraction" SnapAttraction-Func
 976 AddToFunc SnapAttraction-Func
 977  + I SnapAttraction 0 All
 978  + I SnapAttraction -1 SameType
 979  + I SnapAttraction 15 Windows
 980  + I SnapAttraction 8 Icons Screen
 981  + I SnapAttraction
 982
 983 AddTest "Test SnapGrid" SnapGrid-Func
 984 AddToFunc SnapGrid-Func
 985  + I SnapGrid 0 0
 986  + I SnapGrid 1 1
 987  + I SnapGrid 15 15
 988  + I SnapGrid 8 Icons Screen
 989  + I SnapGrid
 990
 991 # No test for command WindowsDesk, its obsolete
 992
 993 AddTest "Test XorPixmap" XorPixmap-Func
 994 AddToFunc XorPixmap-Func
 995  + I XORPixmap test1.xpm
 996  + I XORPixmap test2.xpm
 997  + I XORPixmap
 998
 999 AddTest "Test XorValue" XorValue-Func
1000 AddToFunc XorValue-Func
1001  + I XORValue
1002  + I XORValue     1
1003  + I XORValue           1
1004  + I XORValue 0
1005  + I XORValue 0
1006  + I XORValue 255
1007  + I XORValue 255
1008  + I XORValue 128
1009  + I XORValue 0
1010
1011 AddTest "Test CursorMove" CursorMove-Func
1012 AddToFunc CursorMove-Func
1013 # Need an 11x11 desktop to make the 1000% cursor move work predictably:
1014  + I DesktopSize 11 11
1015  + I CursorMove   10p   10p
1016  + I CursorMove   -10p  -10p
1017  + I CursorMove 70 70
1018  + I CursorMove                 -50             +50
1019  + I CursorMove                 50              -50
1020  + I CursorMove -70 -70
1021  + I CursorMove -0 +0
1022  + I CursorMove 50p 50p
1023  + I CursorMove -50p -50p
1024  + I CursorMove 1000 1000
1025  + I CursorMove -1000 -1000
1026  + I Echo "Start CursorMove syntax errors"
1027  + I CursorMove
1028  + I CursorMove 50p
1029  + I CursorMove 50p
1030  + I Echo "End CursorMove syntax errors"
1031
1032 AddTest "Test FlipFocus" FlipFocus-Func
1033 AddToFunc FlipFocus-Func
1034  + I Next (window6) FlipFocus
1035  + I Next (window1) FlipFocus NoWarp
1036  + I Next (window1) FlipFocus JUNK
1037  + I Next (window_iconic) FlipFocus
1038  + I Next (window_shaded) FlipFocus
1039
1040 AddTest "Test Focus" Focus-Func
1041 AddToFunc Focus-Func
1042  + I Next (window2) Focus
1043  + I Next (window3) Focus NoWarp
1044  + I Next (window_iconic) Focus
1045  + I Next (window_shaded) FlipFocus
1046  + I Next (window1) Focus JUNK
1047
1048 AddTest "Test WarpToWindow" WarpToWindow-Func
1049 AddToFunc WarpToWindow-Func
1050  + I Next (window1) WarpToWindow
1051  + I Next (window2) WarpToWindow    10     10
1052  + I Next (window3) WarpToWindow                50p             75
1053  + I Next (window_iconic) WarpToWindow          50p             75
1054  + I Next (window_shaded) WarpToWindow          50p             75
1055  + I Next (window1) WarpToWindow 50 50
1056  + I Refresh
1057
1058 # This test destroys the test windows and then brings them back
1059 AddTest "Test Close_Delete_Destroy" Close_Delete_Destroy-Func
1060 AddToFunc Close_Delete_Destroy-Func
1061  + I All (window0) Close
1062  + I All (window1) Close
1063  + I All (window2) Close #älök.,nm-öp93m-öki 0 <F3>üß8
1064  + I All (window3) Delete
1065  + I All (window4) Delete .mwq.-l km<F3>noi
1066  + I All (window5) Destroy .mwq.-l km<F3>noiDestroy .mwq.-l km<F3>noi
1067  + I All (window6) Destroy
1068  + I All (window_iconic) Close
1069  + I All (window_shaded) Close
1070  + I CreateWindows-Func
1071  + I Refresh
1072
1073 # Starts with all windows open, leaves them that way.
1074 AddTest "Test Iconify" Iconify-Func
1075 AddToFunc Iconify-Func
1076  + I Next (window1) Iconify
1077  + I Next (window2) Iconify   0 üpikü
1078  + I Next (window3) Iconify             0
1079  + I Next (window4) Iconify -1
1080  + I Next (window5) Iconify 1
1081  + I Next (window6) Iconify on
1082  + I Next (window6) Iconify -102973
1083  + I Next (window4) Iconify off
1084  + I Next (window6) Iconify False
1085  + I Next (window1) Iconify "False"
1086  + I Next (window2) Iconify  0 "True" üpikü
1087  + I Next (window3) Iconify
1088  + I Next (window5) Iconify
1089  + I Next (window6) Iconify toggle
1090  + I Next (window6) Iconify toggle
1091  + I Next (window_iconic) Iconify
1092  + I Next (window_iconic) Iconify
1093  + I Next (window_shaded) Iconify
1094  + I Next (window_shaded) Iconify
1095 # This next part disabled, windows seem to have a toggling limit,
1096 # dje 12/22/00.
1097 # + I Next (window6) Iconify toggle
1098 # + I Next (window6) Iconify toggle
1099
1100 AddTest "Test Maximize" Maximize-Func
1101 AddToFunc Maximize-Func
1102  + I Next (window1) Maximize
1103  + I Next (window2) Maximize   100     100
1104  + I Next (window1) Maximize toggle
1105  + I Next (window6) Maximize            0       100
1106  + I Next (window5) Maximize 50 50
1107  + I Next (window2) Maximize False
1108  + I Next (window6) Maximize False
1109  + I Next (window5) Maximize False
1110  + I Next (window_iconic) Maximize
1111  + I Next (window_shaded) Maximize
1112 # Back to normal, pause...
1113  + I PipeRead 'sleep 2'
1114  + I Next (window1) Maximize 180p 400p
1115  + I Next (window1) Maximize false
1116  + I Next (window6) Maximize grow grow
1117  + I Next (window6) Maximize
1118  + I Next (window6) Maximize growleft growup
1119  + I Next (window6) Maximize
1120  + I Next (window5) Maximize 0 growdown
1121  + I Next (window5) Maximize
1122  + I Next (window4) Maximize growright 0
1123  + I Next (window4) Maximize
1124  + I Next (window3) Maximize growright growdown
1125  + I Next (window3) Maximize
1126  + I Next (window2) Maximize growleft growup
1127  + I Next (window2) Maximize
1128  + I Next (window_iconic) Maximize
1129  + I Next (window_shaded) Maximize
1130
1131 AddTest "Test Recapture_Refresh" Recapture_Refresh-Func
1132 AddToFunc Recapture_Refresh-Func
1133  + I Recapture
1134  + I Recapture
1135  + I Recapture .-QW,ÖKcäük,.-qköcli qopiuw
1136  + I Next (window1) RecaptureWindow
1137  + I Refresh
1138  + I Refresh
1139  + I Refresh .-3mölp 9 n a.d.ök3qj0
1140  + I Next (window1) RefreshWindow
1141  + I Next (window1) RefreshWindow
1142  + I Next (window_iconic) RefreshWindow
1143  + I Next (window_shaded) RefreshWindow
1144  + I Next (window3) RefreshWindow wäepik-ö .-,poci32
1145
1146 AddTest "Test Stick" Stick-Func
1147 AddToFunc Stick-Func
1148 # Stick all windows and take them to page 1/1
1149  + I All (window*) Stick
1150  + I GotoPage 1 1
1151 # Unstick 1,3,5 and go to another page
1152  + I Next (window1) Stick toggle
1153  + I Next (window3) Stick off
1154  + I Next (window5) Stick false
1155  + I Next (window_iconic) Stick false
1156  + I Next (window_shaded) Stick false
1157  + I GotoPage 0 1
1158 # Now stick 1,3,5 again and return to main page
1159  + I Next (window1) Stick toggle
1160  + I Next (window3) Stick on
1161  + I Next (window5) Stick true
1162  + I Next (window_iconic) Stick true
1163  + I Next (window_shaded) Stick true
1164  + I GotoPage 0 0
1165 # Now unstick everyting:
1166  + I All (window*) Stick off
1167 # There are no syntax errors:
1168  + I Next (window2) Stick öäpqewikrpü8.,.-kl-.294
1169  + I Next (window2) Stick öäpqewikrpü8.,.-kl-.294
1170 # StickAcrossPages
1171  + I All (window*) StickAcrossPages
1172  + I GotoPage 1 1
1173 # Unstick 1,3,5 and go to another page
1174  + I Next (window1) StickAcrossPages toggle
1175  + I Next (window3) StickAcrossPages off
1176  + I Next (window5) StickAcrossPages false
1177  + I Next (window_iconic) StickAcrossPages false
1178  + I GotoPage 0 1
1179 # Now stick 1,3,5 again and return to main page
1180  + I Next (window1) StickAcrossPages toggle
1181  + I Next (window3) StickAcrossPages on
1182  + I Next (window5) StickAcrossPages true
1183  + I Next (window_iconic) StickAcrossPages true
1184  + I GotoPage 0 0
1185 # Now unstick everyting:
1186  + I All (window*) StickAcrossPages off
1187  + I Next (window2) StickAcrossPages öäpqewikrpü8.,.-kl-.294
1188  + I Next (window2) StickAcrossPages öäpqewikrpü8.,.-kl-.294
1189 # StickAcrossDesks
1190  + I All (window*) StickAcrossDesks
1191  + I GotoPage 1 1
1192 # Unstick 1,3,5 and go to another page
1193  + I Next (window1) StickAcrossDesks toggle
1194  + I Next (window3) StickAcrossDesks off
1195  + I Next (window5) StickAcrossDesks false
1196  + I Next (window_iconic) StickAcrossDesks false
1197  + I GotoPage 0 1
1198 # Now stick 1,3,5 again and return to main page
1199  + I Next (window1) StickAcrossDesks toggle
1200  + I Next (window3) StickAcrossDesks on
1201  + I Next (window5) StickAcrossDesks true
1202  + I Next (window_iconic) StickAcrossDesks true
1203  + I GotoPage 0 0
1204 # Now unstick everyting:
1205  + I All (window*) StickAcrossDesks off
1206  + I Next (window2) StickAcrossDesks öäpqewikrpü8.,.-kl-.294
1207  + I Next (window2) StickAcrossDesks öäpqewikrpü8.,.-kl-.294
1208
1209 AddTest "Test WindowShade" WindowShade-Func
1210 AddToFunc WindowShade-Func
1211 # This is/was exactly the same as the Iconify test, consider a common macro:
1212  + I Style (window1) TitleAtTop
1213  + I Style (window2) TitleAtBottom
1214  + I Style (window3) TitleAtLeft
1215  + I Style (window4) TitleAtRight
1216  + I Style (window5) NoTitle, BorderWidth 7, HandleWidth 7
1217  + I Style (window6) NoTitle, BorderWidth 0, HandleWidth 0
1218  + I UpdateStyles
1219  + I Next (window1) WindowShade
1220  + I Next (window2) WindowShade   0 üpikü
1221  + I Next (window3) WindowShade         0
1222  + I Next (window4) WindowShade -1
1223  + I Next (window5) WindowShade 1
1224  + I Next (window6) WindowShade on
1225  + I Next (window_iconic) WindowShade on
1226  + I Next (window6) WindowShade -102973
1227  + I Next (window_iconic) WindowShade -102973
1228  + I Next (window4) WindowShade off
1229  + I Next (window6) WindowShade False
1230  + I Next (window_iconic) WindowShade False
1231  + I Next (window1) WindowShade "False"
1232  + I Next (window2) WindowShade  0 "True" üpikü
1233  + I Next (window3) WindowShade
1234  + I Next (window5) WindowShade
1235  + I Next (window6) WindowShade toggle
1236  + I Next (window6) WindowShade toggle
1237  + I Next (window_iconic) WindowShade toggle
1238  + I Next (window_iconic) WindowShade toggle
1239  + I Next (window_shaded) WindowShade toggle
1240  + I Next (window_shaded) WindowShade toggle
1241
1242 #AddTest "Run windowshade.pl" windowshade.pl-Func
1243 #AddToFunc windowshade.pl
1244 #+ I FvwmCommandS
1245 #+ I Exec perl /tmp/windowshade.pl
1246
1247 AddTest "Test IgnoreModifiers" IgnoreModifiers-Func
1248 AddToFunc IgnoreModifiers-Func
1249  + I IgnoreModifers L25
1250  + I IgnoreModifers
1251
1252 AddTest "Test Key" Key-Func
1253 AddToFunc Key-Func
1254  + I Key
1255  + I Key f12
1256  + I Key f12 t
1257  + I key f12 t cs
1258  + I key                f12             t               cs
1259  + I Key                f12             a               a               Nop
1260  + I Key  f12     a  a     function nonexistent
1261  + I Key f12 a a function nonexistent
1262  + I Key f12 t a function nonexistent
1263  + I Key f12 t a -
1264  + I Key f12 t a -
1265  + I Key f12 a a -
1266
1267 AddTest "Test Mouse" Mouse-Func
1268 AddToFunc Mouse-Func
1269  + I Mouse
1270  + I Mouse 2
1271  + I Mouse 2 t
1272  + I Mouse 2 t cs
1273  + I Mouse              2               t               cs
1274  + I Mouse              2               a               a               Nop
1275  + I Mouse  2     a  a     function nonexistent
1276  + I Mouse 2 a a function nonexistent
1277  + I Mouse 2 t a function nonexistent
1278  + I Mouse 2 t a -
1279  + I Mouse 2 t a -
1280  + I Mouse 2 a a -
1281  + I Mouse 1 M N Not allowed
1282  + I Mouse 1 M N TearOff
1283  + I Mouse 1 M N -
1284  + I Mouse 1 M A TearOff
1285  + I Mouse 1 M 2 TearOff
1286
1287 AddTest "Test PointerKey" PointerKey-Func
1288 AddToFunc PointerKey-Func
1289  + I PointerKey
1290  + I PointerKey f12
1291  + I PointerKey f12 t
1292  + I pointerKey f12 t cs
1293  + I pointerKey         f12             t               cs
1294  + I PointerKey         f12             a               a               Nop
1295  + I PointerKey  f12     a  a     function nonexistent
1296  + I PointerKey f12 a a function nonexistent
1297  + I PointerKey f12 t a function nonexistent
1298  + I PointerKey f12 t a -
1299  + I PointerKey f12 t a -
1300  + I PointerKey f12 a a -
1301
1302 # Need Stroke test written by someone with stroke support.
1303
1304 # Need StrokeFunc test written by someone with stroke support.
1305
1306 AddTest "Test UpdateStyles" UpdateStyles-Func
1307 AddToFunc UpdateStyles-Func
1308  + I UpdateStyles
1309  + I UpdateStyles ÖLq- ö.qljüpßi+123
1310
1311 # Style command tests start here:
1312 # There are a lot of style options.
1313 # The order here matches the overall list of options that comes before the
1314 # detailed descriptions.
1315 AddTest "Test StyleOldGlobalOptions" StyleOldGlobalOptions-Func
1316 AddToFunc StyleOldGlobalOptions-Func
1317  + I Style "*"  CleverPlacement, SmartPlacement
1318  + I Style "*"  ClickToFocusPassesClickOff, CLICKTOFOCUSPASSESCLICK
1319  + I Style "*"  ClickToFocusRaisesOff, CLICKTOFOCUSRAISES, MouseFocusClickRaisesOff, MOUSEFOCUSCLICKRAISES, StippledTitleOff, StippledTitle, STARTSONPAGEMODIFIESUSPOSITION, STARTSONPAGEHONORSUSPOSITION, CAPTUREHONORSSTARTSONPAGE, CAPTUREIGNORESSTARTSONPAGE, RECAPTUREHONORSSTARTSONPAGE, RECAPTUREIGNORESSTARTSONPAGE, ACTIVEPLACEMENTHONORSSTARTSONPAGE, ACTIVEPLACEMENTIGNORESSTARTSONPAGE
1320 # Really long arg:
1321  + I Style "*"  äöwwwkjfd, 2wäeöqdpefoeqopweäöööööööööcöäowäjafewjäoäajopfdewjpoafdsjpoafsdäjopfdsjopfdasäjopdfsäjopfdsajpoafds, jäwpouef, päu3pä9, upä43owu, päfoopu, 43päuo, 4w3fuop, af, 4wawä4opufwuä4f, 4wp, apwöejaeäwfpöojwoäpfoejäwpajoeäjopfwejp\aawehoiöoaihöwhawepjpewfpjewfajopäefwjopewfjopajeopfwajopefwajpoewfajpoewfajpoaefwjopaewfjpoeafwjopaefwjopaewfjopafewjopfewajpoafewjfaewihoöwhöfohzfw4öof4whoiaf4ihoaf4ihofa, apwöejaeäwfpöojwoäpfoejäwpajoeäjopfwejp\aawehoiöoaihöwhawepjpewfpjewfajopäefwjopewfjopajeopfwajopefwajpoewfajpoewfajpoaefwjopaewfjpoeafwjopaefwjopaewfjopafewjopfewajpoafewjfaewihoöwhöfohzfw4öof4whoiaf4ihoaf4ihofa
1322
1323 DestroyFunc StyleAndUpdate
1324 AddToFunc StyleAndUpdate I Echo Style $*
1325 + I Style $*
1326 + I UpdateStyles
1327
1328 # This group is in the same order that args are listed on the man page:
1329 AddTest "Test Style" Style-Func
1330 AddToFunc Style-Func
1331  + I StyleAndUpdate "window*" BorderWidth
1332  + I StyleAndUpdate "window*" BorderWidth  3
1333  + I StyleAndUpdate "window*" BorderWidth       5
1334  + I StyleAndUpdate "window*" BorderWidth       5
1335  + I StyleAndUpdate "window*" HandleWidth
1336  + I StyleAndUpdate "window*" HandleWidth  3
1337  + I StyleAndUpdate "window*" HandleWidth               7
1338  + I StyleAndUpdate "window*" HandleWidth               7
1339  + I All (window*) Iconify
1340  + I StyleAndUpdate "window*" NoIcon
1341  + I StyleAndUpdate "window*" NoIcon
1342  + I StyleAndUpdate "window*" Icon
1343  + I StyleAndUpdate "window*" Icon
1344  + I StyleAndUpdate "window*" Icon klcxvndk
1345  + I StyleAndUpdate "window*" Icon jdncjdsnc jdnvcjdfnv jkdvjqdsvn
1346  + I StyleAndUpdate "window*" Icon test1.xpm
1347  + I StyleAndUpdate "window*" Icon test1.xpm
1348  + I StyleAndUpdate "window1" Icon test.png
1349  + I StyleAndUpdate "window1" Icon test.png
1350  + I StyleAndUpdate "window2" Icon xtrek_fed_e.xbm
1351  + I StyleAndUpdate "window2" Icon xtrek_fed_e.xbm
1352  + I StyleAndUpdate IconSize 56 56
1353  + I StyleAndUpdate IconSize 10 10 120 120
1354  + I StyleAndUpdate IconSize 10 10
1355  + I StyleAndUpdate IconSize 10 -1
1356  + I StyleAndUpdate IconSize
1357  + I All (window*) Iconify
1358  + I ButtonStyle 1 MiniIcon
1359  + I StyleAndUpdate "window*" MiniIcon
1360  + I StyleAndUpdate "window*" MiniIcon
1361  + I StyleAndUpdate "window*" MiniIcon -
1362  + I StyleAndUpdate "window*" MiniIcon -
1363  + I StyleAndUpdate "window*" MiniIcon klcxvndk
1364  + I StyleAndUpdate "window*" MiniIcon jdncjdsnc jdnvcjdfnv jkdvjqdsvn
1365  + I StyleAndUpdate "window*" MiniIcon test1.xpm
1366  + I StyleAndUpdate "window*" MiniIcon test1.xpm
1367  + I StyleAndUpdate "window1" MiniIcon test.png
1368  + I StyleAndUpdate "window1" MiniIcon test.png
1369  + I StyleAndUpdate "window2" MiniIcon xtrek_fed_e.xbm
1370  + I StyleAndUpdate "window2" MiniIcon xtrek_fed_e.xbm
1371  + I StyleAndUpdate "window*" IconBox 1 5 100 500, IconGrid -10 10, IconFill
1372  + I StyleAndUpdate "window*" IconBox 1 5 100 500, IconGrid -0 10
1373  + I StyleAndUpdate "window*" IconBox 400 300 100 500, IconGrid -0 10
1374  + I StyleAndUpdate "window*" NoTitle
1375  + I StyleAndUpdate "window*" NoTitle
1376  + I StyleAndUpdate "window*" Title
1377  + I StyleAndUpdate "window*" Title
1378  + I StyleAndUpdate "window*" TitleAtBottom
1379  + I StyleAndUpdate "window*" TitleAtTop
1380  + I StyleAndUpdate "window*" TitleAtLef
1381  + I StyleAndUpdate "window*" TitleAtRight
1382  + I StyleAndUpdate "window*" TitleAtTop
1383  + I StyleAndUpdate "window1" TitleAtBottom
1384  + I StyleAndUpdate "window2" TitleAtTop
1385  + I StyleAndUpdate "window3" TitleAtLef
1386  + I StyleAndUpdate "window4" TitleAtRight
1387  + I StyleAndUpdate "window*" LeftTitleRotatedCW
1388  + I StyleAndUpdate "window*" LeftTitleRotatedCCW
1389  + I StyleAndUpdate "window*" RightTitleRotatedCCW
1390  + I StyleAndUpdate "window*" RightTitleRotatedCW
1391  + I StyleAndUpdate "window*" TopTitleRotated
1392  + I StyleAndUpdate "window*" TopTitleNotRotated
1393  + I StyleAndUpdate "window*" BottomTitleRotated
1394  + I StyleAndUpdate "window*" BottomTitleNotRotated
1395  + I StyleAndUpdate "window*" !UseTitleDecorRotation
1396  + I StyleAndUpdate "window*" UseTitleDecorRotation
1397  + I StyleAndUpdate "window*" StippledTitle
1398  + I StyleAndUpdate "window*" StippledTitleOff
1399  + I StyleAndUpdate "window*" IndexedWindowName
1400  + I StyleAndUpdate "window*" ExactWindowName
1401  + I StyleAndUpdate "window*" IndexedIconName
1402  + I StyleAndUpdate "window*" ExactIconName
1403  + I StyleAndUpdate "window*" !Borders
1404  + I StyleAndUpdate "window*" Borders
1405  + I StyleAndUpdate "window*" NoHandles
1406  + I StyleAndUpdate "window*" NoHandles
1407  + I StyleAndUpdate "window*" Handles
1408  + I StyleAndUpdate "window*" Handles
1409  + I StyleAndUpdate "window*" WindowListSkip
1410  + I StyleAndUpdate "window*" WindowListSkip
1411  + I StyleAndUpdate "window*" WindowListHit
1412  + I StyleAndUpdate "window*" WindowListHit
1413  + I StyleAndUpdate "window*" CirculateSkip
1414  + I StyleAndUpdate "window*" CirculateSkip
1415  + I StyleAndUpdate "window*" CirculateHit
1416  + I StyleAndUpdate "window*" CirculateHit
1417  + I StyleAndUpdate "window*" CirculateSkipShaded
1418  + I StyleAndUpdate "window*" CirculateHitShaded
1419  + I StyleAndUpdate "window*" StaysOnTop
1420  + I StyleAndUpdate "window*" StaysOnTop
1421  + I StyleAndUpdate "window*" StaysOnBottom
1422  + I StyleAndUpdate "window*" StaysOnBottom
1423  + I StyleAndUpdate "window*" StaysPut
1424  + I StyleAndUpdate "window*" StaysPut
1425  + I StyleAndUpdate "window*" Sticky
1426  + I StyleAndUpdate "window*" Sticky
1427  + I StyleAndUpdate "window*" Slippery
1428  + I StyleAndUpdate "window*" Slippery
1429  + I StyleAndUpdate "window*" StickyAcrossPages
1430  + I StyleAndUpdate "window*" !StickyAcrossPages
1431  + I StyleAndUpdate "window*" StickyAcrossDesks
1432  + I StyleAndUpdate "window*" !StickyAcrossDesks
1433  + I StyleAndUpdate "window*" StartIconic
1434  + I StyleAndUpdate "window*" StartIconic
1435  + I Exec xterm -geometry 10x5 -T window7 -n window7 -e sleep 1000
1436  + I Wait window7
1437  + I All (window7) Close
1438  + I StyleAndUpdate "window*" StartNormal
1439  + I StyleAndUpdate "window*" StartNormal
1440
1441 AddTest "Test Colors Style" ColorsStyle-Func
1442 AddToFunc ColorsStyle-Func
1443  + I Next (window1) Focus
1444  + I StyleAndUpdate "window*" Color
1445  + I StyleAndUpdate "window*" Color blue/red
1446  + I StyleAndUpdate "window*" ForeColor
1447  + I StyleAndUpdate "window*" ForeColor green
1448  + I StyleAndUpdate "window*" BackColor
1449  + I StyleAndUpdate "window*" BackColor brown
1450  + I StyleAndUpdate "*" HilightFore , HilightBack
1451  + I StyleAndUpdate "*" HilightFore blue, HilightBack
1452  + I StyleAndUpdate "*" HilightFore green, HilightBack
1453  + I StyleAndUpdate "*" HilightFore black, HilightBack yellow
1454  + I StyleAndUpdate "*" HilightFore black, HilightBack yellow
1455  + I StyleAndUpdate "*" HilightFore gold2, HilightBack SteelBlue
1456  + I StyleAndUpdate "*" HilightFore gold2, HilightBack SteelBlue
1457  + I StyleAndUpdate "*" HilightFore , HilightBack
1458  + I StyleAndUpdate "*" HilightFore gold2, HilightBack SteelBlue
1459  + I Colorset 1 fg gold2, bg SteelBlue
1460  + I Colorset 2 fg gold2, bg green
1461  + I Colorset 3 fg gold2, bg red
1462  + I Colorset 4 bg average, fg contrast, TiledPixmap test.png
1463  + I Colorset 5 bg average, fg contrast, TiledPixmap test1.xpm
1464  + I Colorset 6 fg gold2, bg red, HGradient 40 darkblue blue
1465  + I StyleAndUpdate "window*" Colorset 0
1466  + I StyleAndUpdate "window*" HilightColorset 1
1467  + I StyleAndUpdate "window*" BorderColorset 2
1468  + I StyleAndUpdate "window*" HilightBorderColorset 3
1469  + I StyleAndUpdate "window*" Colorset 0
1470  + I StyleAndUpdate "window*" HilightColorset 1
1471  + I StyleAndUpdate "window*" BorderColorset 2
1472  + I StyleAndUpdate "window*" HilightBorderColorset 3
1473  + I StyleAndUpdate "window*" Colorset
1474  + I StyleAndUpdate "window*" HilightColorset
1475  + I StyleAndUpdate "window*" BorderColorset
1476  + I StyleAndUpdate "window*" HilightBorderColorset
1477  + I StyleAndUpdate "window*" Colorset -1
1478  + I StyleAndUpdate "window*" HilightColorset -1
1479  + I StyleAndUpdate "window*" BorderColorset -1
1480  + I StyleAndUpdate "window*" HilightBorderColorset -1
1481  + I StyleAndUpdate "window*" Colorset kjdsbckjsd
1482  + I StyleAndUpdate "window*" HilightColorset ndscbkjds bkjdbcjd
1483  + I StyleAndUpdate "window*" BorderColorset nsdc
1484  + I StyleAndUpdate "window*" HilightBorderColorset dsncsdcé
1485  + I StyleAndUpdate "window*" Colorset 0
1486  + I StyleAndUpdate "window*" HilightColorset 1
1487  + I StyleAndUpdate "window*" BorderColorset 2
1488  + I StyleAndUpdate "window*" HilightBorderColorset 3
1489  + I All (window*) Iconify
1490  + I Next (window1) Focus
1491  + I StyleAndUpdate "window*" IconTitleColorset 4
1492  + I StyleAndUpdate "window*" HilightIconTitleColorset 5
1493  + I StyleAndUpdate "window*" IconBackgroundColorset 6
1494  + I StyleAndUpdate "window*" IconTitleColorset
1495  + I StyleAndUpdate "window*" HilightIconTitleColorset
1496  + I StyleAndUpdate "window*" IconBackgroundColorset
1497  + I StyleAndUpdate "window*" IconTitleColorset -1
1498  + I StyleAndUpdate "window*" HilightIconTitleColorset -1
1499  + I StyleAndUpdate "window*" IconBackgroundColorset -1
1500  + I StyleAndUpdate "window*" IconTitleColorset -1aaaaaaa
1501  + I StyleAndUpdate "window*" HilightIconTitleColorset -1zzzzzzzzzz
1502  + I StyleAndUpdate "window*" IconBackgroundColorset -1eeeeeeeeee
1503  + I StyleAndUpdate "window*" IconTitleColorset 4
1504  + I StyleAndUpdate "window*" HilightIconTitleColorset 5
1505  + I StyleAndUpdate "window*" IconBackgroundColorset 6
1506  + I StyleAndUpdate "window*" IconTitleRelief
1507  + I StyleAndUpdate "window*" IconTitleRelief -2
1508  + I StyleAndUpdate "window*" IconTitleRelief 10
1509  + I StyleAndUpdate "window*" IconTitleRelief ZTTE
1510  + I StyleAndUpdate "window*" IconTitleRelief
1511  + I StyleAndUpdate "window*" IconBackgroundRelief
1512  + I StyleAndUpdate "window*" IconBackgroundRelief -2
1513  + I StyleAndUpdate "window*" IconBackgroundRelief 10
1514  + I StyleAndUpdate "window*" IconBackgroundRelief ZTTE
1515  + I StyleAndUpdate "window*" IconBackgroundRelief
1516  + I StyleAndUpdate "window*" IconBackgroundPadding
1517  + I StyleAndUpdate "window*" IconBackgroundPadding -2
1518  + I StyleAndUpdate "window*" IconBackgroundPadding 10
1519  + I StyleAndUpdate "window*" IconBackgroundPadding ZTTE
1520  + I StyleAndUpdate "window*" IconBackgroundPadding
1521  + I All (window*) Iconify
1522
1523 AddTest "Test StyleFont" StyleFont-Func
1524 AddToFunc StyleFont-Func
1525  + I StyleAndUpdate "*" Font
1526  + I StyleAndUpdate "*" Font 9x15
1527  + I StyleAndUpdate "*" Font 9x15
1528  + I StyleAndUpdate "*" Font /nonexistent/foo/bar
1529  + I StyleAndUpdate "*" Font -adobe-helvetica-bold-r-*-*-*-140-*-*-*-*-*-*
1530  + I StyleAndUpdate "*" Font
1531
1532 AddTest "Test StyleIconFont" StyleIconFont-Func
1533 AddToFunc StyleIconFont-Func
1534  + I StyleAndUpdate * IconFont
1535  + I StyleAndUpdate * IconFont     9x15
1536  + I StyleAndUpdate * IconFont          9x15
1537  + I StyleAndUpdate * IconFont /nonexistent/foo/bar
1538  + I StyleAndUpdate * IconFont -adobe-helvetica-bold-r-*-*-*-140-*-*-*-*-*-*
1539  + I StyleAndUpdate * IconFont -adobe-helvetica-bold-r-*-*-*-140-*-*-*-*-*-*
1540  + I StyleAndUpdate * IconFont
1541
1542 # Just arbitrary break in style tests:
1543 AddTest "Test Style2" Style2-Func
1544 AddToFunc Style2-Func
1545  + I StyleAndUpdate "window*" StartsOnDesk
1546  + I StyleAndUpdate "window*" StartsOnDesk   0
1547  + I StyleAndUpdate "window*" StartsOnDesk              0
1548  + I StyleAndUpdate "window*" StartsOnDesk              0
1549  + I StyleAndUpdate "window*" StartsOnDesk 1
1550  + I StyleAndUpdate "window*" SkipMapping
1551  + I Exec xterm -geometry 10x5 -T window7 -n window7 -e sleep 1000
1552  + I Wait window7
1553  + I All (window7) Close
1554  + I StyleAndUpdate "window*" StartsOnPage
1555  + I StyleAndUpdate "window*" StartsOnPage  0
1556  + I StyleAndUpdate "window*" StartsOnPage  0   0
1557  + I StyleAndUpdate "window*" StartsOnPage      0       0
1558  + I StyleAndUpdate "window*" StartsOnPage      1
1559  + I Exec xterm -geometry 10x5 -T window7 -n window7 -e sleep 1000
1560  + I Wait window7
1561  + I All (window7) Close
1562  + I StyleAndUpdate "window*" StartsAnyWhere
1563  + I StyleAndUpdate "window*" StartsAnyWhere
1564
1565  + I StyleAndUpdate "window1" ActivePlacementHonorsStartsOnPage
1566  + I StyleAndUpdate "window2" ActivePlacementIgnoresStartsOnPage
1567  + I StyleAndUpdate "window3" CaptureHonorsStartsOnPage
1568  + I StyleAndUpdate "window4" CaptureIgnoresStartsOnPage
1569  + I StyleAndUpdate "window5" RecaptureHonorsStartsOnPage
1570  + I StyleAndUpdate "window6" RecaptureIgnoresStartsOnPage
1571  + I StyleAndUpdate "window1" StartsOnPageIncludesTransients
1572  + I StyleAndUpdate "window2" StartsOnPageIgnoresTransients
1573
1574  + I StyleAndUpdate "window*" IconTitle
1575  + I StyleAndUpdate "window*" IconTitle
1576  + I StyleAndUpdate "window*" NoIconTitle
1577  + I StyleAndUpdate "window*" NoIconTitle
1578  + I StyleAndUpdate "window_iconic" IconTitle
1579  + I StyleAndUpdate "window*" MWMButtons
1580  + I StyleAndUpdate "window*" MWMButtons
1581  + I StyleAndUpdate "window*" FvwmButtons
1582  + I StyleAndUpdate "window*" FvwmButtons
1583  + I StyleAndUpdate "window*" MWMBorder
1584  + I StyleAndUpdate "window*" MWMBorder
1585  + I StyleAndUpdate "window*" FvwmBorder
1586  + I StyleAndUpdate "window*" FvwmBorder
1587  + I StyleAndUpdate "window*" MWMDecor
1588  + I StyleAndUpdate "window*" MWMDecor
1589  + I StyleAndUpdate "window*" NoDecorHint
1590  + I StyleAndUpdate "window*" NoDecorHint
1591  + I StyleAndUpdate "window*" MWMFunctions
1592  + I StyleAndUpdate "window*" MWMFunctions
1593  + I StyleAndUpdate "window*" NoFuncHint
1594  + I StyleAndUpdate "window*" NoFuncHint
1595  + I StyleAndUpdate "window*" HintOverride
1596  + I StyleAndUpdate "window*" HintOverride
1597  + I StyleAndUpdate "window*" NoOverride
1598  + I StyleAndUpdate "window*" NoOverride
1599  + I StyleAndUpdate "window*" NoButton
1600  + I StyleAndUpdate "window*" NoButton  1
1601  + I StyleAndUpdate "window*" NoButton          2
1602  + I StyleAndUpdate "window*" Button
1603  + I StyleAndUpdate "window*" Button  3
1604  + I StyleAndUpdate "window*" Button            0
1605  + I StyleAndUpdate "window*" Button 2
1606  + I StyleAndUpdate "window*" Button 1
1607  + I StyleAndUpdate "window*" ReizeHintOverride
1608  + I StyleAndUpdate "window*" NoResizeOverride
1609  + I StyleAndUpdate "window*" OLDecor
1610  + I StyleAndUpdate "window*" OLDecor
1611  + I StyleAndUpdate "window*" NoOLDecor
1612  + I StyleAndUpdate "window*" NoOLDecor
1613  + I StyleAndUpdate "window*" GNOMEUseHints
1614  + I StyleAndUpdate "window*" GNOMEIgnoreHints
1615  + I StyleAndUpdate "window*" StickyIcon
1616  + I StyleAndUpdate "window*" StickyIcon
1617  + I StyleAndUpdate "window*" SlipperyIcon
1618  + I StyleAndUpdate "window*" SlipperyIcon
1619  + I StyleAndUpdate "window*" StickyAcrossPagesIcon
1620  + I StyleAndUpdate "window*" StickyAcrossPagesIcon
1621  + I StyleAndUpdate "window*" !StickyAcrossPagesIcon
1622  + I StyleAndUpdate "window*" !StickyAcrossPagesIcon
1623  + I StyleAndUpdate "window*" StickyAcrossDesksIcon
1624  + I StyleAndUpdate "window*" StickyAcrossDesksIcon
1625  + I StyleAndUpdate "window*" !StickyAcrossDesksIcon
1626  + I StyleAndUpdate "window*" !StickyAcrossDesksIcon
1627 # old names for placement
1628  + I StyleAndUpdate "window*" SmartPlacement
1629  + I StyleAndUpdate "window*" SmartPlacement
1630  + I Exec xterm -geometry 10x5 -T window7 -n window7 -e sleep 1000
1631  + I Wait window7
1632  + I All (window7) Close
1633  + I StyleAndUpdate "window*" CleverPlacement
1634  + I StyleAndUpdate "window*" DumbPlacement
1635  + I StyleAndUpdate "window*" DumbPlacement
1636  + I StyleAndUpdate "window*" RandomPlacement
1637  + I StyleAndUpdate "window*" RandomPlacement
1638  + I StyleAndUpdate "window*" ActivePlacement
1639  + I StyleAndUpdate "window*" ActivePlacement
1640 # new one's
1641  + I StyleAndUpdate "window*" CascadePlacement
1642  + I StyleAndUpdate "window*" CascadePlacement
1643  + I Exec xterm -geometry 10x5 -T window7 -n window7 -e sleep 1000
1644  + I Wait window7
1645  + I All (window7) Close
1646  + I StyleAndUpdate "window*" ManualPlacement
1647  + I StyleAndUpdate "window*" ManualPlacement
1648 # + I Exec xterm -geometry 10x5 -T window7 -n window7 -e sleep 1000
1649 # + I Wait window7
1650 # + I All (window7) Close
1651  + I StyleAndUpdate "window*" TileCascadePlacement
1652  + I StyleAndUpdate "window*" TileCascadePlacement
1653  + I Exec xterm -geometry 10x5 -T window7 -n window7 -e sleep 1000
1654  + I Wait window7
1655  + I All (window7) Close
1656  + I StyleAndUpdate "window*" TileManualPlacement
1657  + I StyleAndUpdate "window*" TileManualPlacement
1658 # + I Exec xterm -geometry 10x5 -T window7 -n window7 -e sleep 1000
1659 # + I Wait window7
1660 # + I All (window7) Close
1661  + I StyleAndUpdate "window*" MinOverlapPlacement
1662  + I StyleAndUpdate "window*" MinOverlapPlacement
1663  + I Exec xterm -geometry 10x5 -T window7 -n window7 -e sleep 1000
1664  + I Wait window7
1665  + I All (window7) Close
1666
1667  + I StyleAndUpdate "window*" MinOverlapPercentPlacement
1668  + I StyleAndUpdate "window*" MinOverlapPercentPlacement
1669  + I Exec xterm -geometry 10x5 -T window7 -n window7 -e sleep 1000
1670  + I Wait window7
1671  + I All (window7) Close
1672  + I StyleAndUpdate "window*" CenterPlacement
1673  + I StyleAndUpdate "window*" centerplacement
1674  + I Exec xterm -geometry 10x5 -T window7 -n window7 -e sleep 1000
1675  + I Wait window7
1676  + I All (window7) Close
1677  + I StyleAndUpdate "window*" MinOverlapPlacementPenalties 1 10 5 3 0.2 50000
1678  + I StyleAndUpdate "window*" MinOverlapPlacementPenalties -1 aa 0 16 kk
1679  + I StyleAndUpdate "window*" MinOverlapPlacementPenalties
1680  + I Exec xterm -geometry 10x5 -T window7 -n window7 -e sleep 1000
1681  + I Wait window7
1682  + I All (window7) Close
1683  + I StyleAndUpdate "window*" MinOverlapPlacementPenalties
1684  + I StyleAndUpdate "window*" MinOverlapPercentPlacementPenalties 12 6 4 1
1685  + I StyleAndUpdate "window*" MinOverlapPercentPlacementPenalties -1 aa 0 16
1686  + I Exec xterm -geometry 10x5 -T window7 -n window7 -e sleep 1000
1687  + I Wait window7
1688  + I All (window7) Close
1689  + I StyleAndUpdate "window*" MinOverlapPercentPlacementPenalties
1690  + I StyleAndUpdate "window*" DecorateTransient
1691  + I StyleAndUpdate "window*" DecorateTransient
1692 # need to map or has a transient window
1693  + I StyleAndUpdate "window*" NakedTransient
1694  + I StyleAndUpdate "window*" NakedTransient
1695  + I StyleAndUpdate "window*" RaiseTransient
1696  + I StyleAndUpdate "window*" DontRaiseTransient
1697  + I StyleAndUpdate "window*" LowerTransient
1698  + I StyleAndUpdate "window*" DontLowerTransient
1699  + I StyleAndUpdate "window*" StackTransientParent
1700  + I StyleAndUpdate "window*" DontStackTransientParent
1701  + I StyleAndUpdate "window*" SkipMapping
1702  + I StyleAndUpdate "window*" SkipMapping
1703  + I StyleAndUpdate "window*" ShowMapping
1704  + I StyleAndUpdate "window*" ShowMapping
1705  + I StyleAndUpdate "window*" ScatterWindowGroups
1706  + I StyleAndUpdate "window*" KeepWindowGroupsOnDesk
1707  + I StyleAndUpdate "window*" UseDecor
1708  + I StyleAndUpdate "window*" UseDecor
1709  + I StyleAndUpdate "*indo*" UseStyle window*
1710  + I StyleAndUpdate "*indo*" UseStyle *
1711  + I StyleAndUpdate "*indo*" NoPPosition
1712  + I StyleAndUpdate "*indo*" NoPPosition
1713 # mapping test
1714  + I StyleAndUpdate "*indo*" UsePPosition
1715  + I StyleAndUpdate "*indo*" UsePPosition
1716  + I StyleAndUpdate "*indo*" NoUSPosition
1717 # mapping test
1718  + I StyleAndUpdate "*indo*" UseUSPosition
1719  + I StyleAndUpdate "*indo*" NoTransientPPosition
1720 # transient mapping test
1721  + I StyleAndUpdate "*indo*" UseTransientPPosition
1722  + I StyleAndUpdate "*indo*" NoTransientUSPosition
1723 # transient mapping test
1724  + I StyleAndUpdate "*indo*" UseTransientUSPosition,
1725  + I StyleAndUpdate "window*" UseIconPosition
1726 # Map Eterm?
1727  + I StyleAndUpdate "window*" NoIconPosition
1728  + I StyleAndUpdate "*indo*" Lenience
1729  + I StyleAndUpdate "*indo*" Lenience
1730  + I StyleAndUpdate "*indo*" NoLenience
1731  + I StyleAndUpdate "*indo*" NoLenience
1732  + I StyleAndUpdate "*indo*" ClickToFocus
1733  + I StyleAndUpdate "*indo*" ClickToFocus
1734  + I StyleAndUpdate "*indo*" SloppyFocus
1735  + I StyleAndUpdate "*indo*" SloppyFocus
1736  + I StyleAndUpdate "*indo*" MouseFocus
1737  + I StyleAndUpdate "*indo*" MouseFocus
1738  + I StyleAndUpdate "*indo*" FocusFollowsMouse
1739  + I StyleAndUpdate "*indo*" FocusFollowsMouse
1740  + I StyleAndUpdate "window2" NeverFocus
1741  + I StyleAndUpdate "window*" ClickToFocusPassesClickOff
1742  + I StyleAndUpdate "window*" ClickToFocusPassesClick
1743  + I StyleAndUpdate "window*" ClickToFocusRaisesOff
1744  + I StyleAndUpdate "window*" ClickToFocusRaises
1745  + I StyleAndUpdate "window*" MouseFocusClickRaises
1746  + I StyleAndUpdate "window*" MouseFocusClickRaisesOff
1747  + I StyleAndUpdate "window*" StartsLowered
1748  + I StyleAndUpdate "window*" StartsRaised
1749  + I StyleAndUpdate "window*" GrabFocus
1750  + I StyleAndUpdate "window*" GrabFocusOff
1751  + I StyleAndUpdate "window*" GrabFocusTransient
1752  + I StyleAndUpdate "window*" GrabFocusTransientOff
1753
1754  + I StyleAndUpdate "window*" FPFocusClickButtons
1755  + I StyleAndUpdate "window*" FPFocusClickModifiers
1756  + I StyleAndUpdate "window*" !FPSortWindowlistByFocus
1757  + I StyleAndUpdate "window*" FPSortWindowlistByFocus
1758  + I StyleAndUpdate "window*" FPClickRaisesFocused
1759  + I StyleAndUpdate "window*" !FPClickRaisesFocused
1760  + I StyleAndUpdate "window*" FPClickDecorRaisesFocused
1761  + I StyleAndUpdate "window*" !FPClickDecorRaisesFocused
1762  + I StyleAndUpdate "window*" FPClickIconRaisesFocused
1763  + I StyleAndUpdate "window*" !FPClickIconRaisesFocused
1764  + I StyleAndUpdate "window*" !FPClickRaisesUnfocused
1765  + I StyleAndUpdate "window*" FPClickRaisesUnfocused
1766  + I StyleAndUpdate "window*" FPClickDecorRaisesUnfocused
1767  + I StyleAndUpdate "window*" !FPClickDecorRaisesUnfocused
1768  + I StyleAndUpdate "window*" FPClickIconRaisesUnfocused
1769  + I StyleAndUpdate "window*" !FPClickIconRaisesUnfocused
1770  + I StyleAndUpdate "window*" FPClickToFocus
1771  + I StyleAndUpdate "window*" !FPClickToFocus
1772  + I StyleAndUpdate "window*" FPClickDecorToFocus
1773  + I StyleAndUpdate "window*" !FPClickDecorToFocus
1774  + I StyleAndUpdate "window*" FPClickIconToFocus
1775  + I StyleAndUpdate "window*" !FPClickIconToFocus
1776  + I StyleAndUpdate "window*" !FPEnterToFocus
1777  + I StyleAndUpdate "window*" FPEnterToFocus
1778  + I StyleAndUpdate "window*" !FPLeaveToUnfocus
1779  + I StyleAndUpdate "window*" FPLeaveToUnfocus
1780  + I StyleAndUpdate "window*" !FPFocusByProgram
1781  + I StyleAndUpdate "window*" FPFocusByProgram
1782  + I StyleAndUpdate "window*" !FPFocusByFunction
1783  + I StyleAndUpdate "window*" FPFocusByFunction
1784  + I StyleAndUpdate "window*" FPFocusByFunctionWarpPointer
1785  + I StyleAndUpdate "window*" !FPFocusByFunctionWarpPointer
1786  + I StyleAndUpdate "window*" FPLenient
1787  + I StyleAndUpdate "window*" !FPLenient
1788  + I StyleAndUpdate "window*" !FPPassFocusClick
1789  + I StyleAndUpdate "window*" FPPassFocusClick
1790  + I StyleAndUpdate "window*" !FPPassRaiseClick
1791  + I StyleAndUpdate "window*" FPPassRaiseClick
1792  + I StyleAndUpdate "window*" FPIgnoreFocusClickMotion
1793  + I StyleAndUpdate "window*" !FPIgnoreFocusClickMotion
1794  + I StyleAndUpdate "window*" FPIgnoreRaiseClickMotion
1795  + I StyleAndUpdate "window*" !FPIgnoreRaiseClickMotion
1796  + I StyleAndUpdate "window*" !FPAllowFocusClickFunction
1797  + I StyleAndUpdate "window*" FPAllowFocusClickFunction
1798  + I StyleAndUpdate "window*" !FPAllowRaiseClickFunction
1799  + I StyleAndUpdate "window*" FPAllowRaiseClickFunction
1800  + I StyleAndUpdate "window*" FPGrabFocus
1801  + I StyleAndUpdate "window*" !FPGrabFocus
1802  + I StyleAndUpdate "window*" !FPGrabFocusTransient
1803  + I StyleAndUpdate "window*" FPGrabFocusTransient
1804  + I StyleAndUpdate "window*" FPOverrideGrabFocus
1805  + I StyleAndUpdate "window*" !FPOverrideGrabFocus
1806  + I StyleAndUpdate "window*" FPReleaseFocus
1807  + I StyleAndUpdate "window*" !FPReleaseFocus
1808  + I StyleAndUpdate "window*" !FPReleaseFocusTransient
1809  + I StyleAndUpdate "window*" FPReleaseFocusTransient
1810  + I StyleAndUpdate "window*" FPOverrideReleaseFocus
1811  + I StyleAndUpdate "window*" !FPOverrideReleaseFocus
1812  + I StyleAndUpdate "window*" StartsLowered
1813  + I StyleAndUpdate "window*" StartsRaised
1814  + I StyleAndUpdate "window*" IgnoreRestack
1815  + I StyleAndUpdate "window*" AllowRestack
1816  + I StyleAndUpdate "window*" FixedPosition
1817  + I StyleAndUpdate "window*" VariablePosition
1818  + I StyleAndUpdate "window*" FixedUSPosition
1819  + I StyleAndUpdate "window*" VariableUSPosition
1820  + I StyleAndUpdate "window*" FixedPPosition
1821  + I StyleAndUpdate "window*" VariablePPosition
1822  + I StyleAndUpdate "window*" FixedSize
1823  + I StyleAndUpdate "window*" VariableSize
1824  + I StyleAndUpdate "window*" FixedUSSize
1825  + I StyleAndUpdate "window*" VariableUSSize
1826  + I StyleAndUpdate "window*" FixedPSize
1827  + I StyleAndUpdate "window*" VariablePSize
1828  + I StyleAndUpdate "window*" !Closable
1829  + I StyleAndUpdate "window*" Closable
1830  + I StyleAndUpdate "window*" !Iconifiable
1831  + I StyleAndUpdate "window*" Iconifiable
1832  + I StyleAndUpdate "window*" !Maximizable
1833  + I StyleAndUpdate "window*" Maximizable
1834  + I StyleAndUpdate "window*" !AllowMaximizeFixedSize
1835  + I StyleAndUpdate "window*" AllowMaximizeFixedSize
1836  + I StyleAndUpdate "window*" IconOverride
1837  + I StyleAndUpdate "window*" NoIconOverride
1838  + I StyleAndUpdate "window*" NoActiveIconOverride
1839  + I StyleAndUpdate "window1" DepressableBorder
1840  + I StyleAndUpdate "window2" FirmBorder
1841  + I StyleAndUpdate "window3" MaxWindowSize 10p 10p
1842  + I StyleAndUpdate "window3" MaxWindowSize 200p 2000000p
1843  + I StyleAndUpdate "window3" MaxWindowSize 100 100
1844  + I StyleAndUpdate "window3" MaxWindowSize 0 0
1845  + I StyleAndUpdate "window3" MaxWindowSize
1846  + I StyleAndUpdate "window*" IconifyWindowGroups
1847  + I StyleAndUpdate "window*" IconifyWindowGroupsOff
1848  + I StyleAndUpdate "window*" ResizeOpaque
1849  + I StyleAndUpdate "window*" ResizeOutline
1850  + I StyleAndUpdate "window*" BackingStore
1851  + I StyleAndUpdate "window*" BackingStoreOff
1852  + I StyleAndUpdate "window*" BackingStoreWindowDefault
1853  + I StyleAndUpdate "window*" Opacity
1854  + I StyleAndUpdate "window*" ParentalRelativity
1855  + I StyleAndUpdate "window*" Opacity
1856  + I StyleAndUpdate "window*" SaveUnder
1857  + I StyleAndUpdate "window*" SaveUnderOff
1858  + I StyleAndUpdate "window*" WindowShadeShrinks
1859  + I StyleAndUpdate "window*" WindowShadeScrolls
1860  + I StyleAndUpdate "window*" WindowShadeSteps 0
1861  + I StyleAndUpdate "window*" WindowShadeSteps 2
1862  + I StyleAndUpdate "window*" WindowShadeSteps 2p
1863  + I StyleAndUpdate "window*" WindowShadeAlwaysLazy
1864  + I StyleAndUpdate "window*" WindowShadeBusy
1865  + I StyleAndUpdate "window*" WindowShadeLazy
1866  + I StyleAndUpdate "window*" EWMHDonateIcon
1867  + I StyleAndUpdate "window*" EWMHDontDonateIcon
1868  + I StyleAndUpdate "window*" EWMHDonateMiniIcon
1869  + I StyleAndUpdate "window*" EWMHDontDonateMiniIcon
1870  + I StyleAndUpdate "window*" EWMHMiniIconOverride
1871  + I StyleAndUpdate "window*" EWMHNoMiniIconOverride
1872  + I StyleAndUpdate "window*" EWMHUseStackingOrderHints
1873  + I StyleAndUpdate "window*" EWMHIgnoreStackingOrderHints
1874  + I StyleAndUpdate "window*" EWMHIgnoreStateHints
1875  + I StyleAndUpdate "window*" EWMHUseStateHints
1876  + I StyleAndUpdate "window*" EWMHIgnoreStrutHints
1877  + I StyleAndUpdate "window*" EWMHUseStrutHints
1878  + I StyleAndUpdate "window*" EWMHMaximizeIgnoreWorkingArea
1879  + I StyleAndUpdate "window*" EWMHMaximizeUseWorkingArea
1880  + I StyleAndUpdate "window*" EWMHMaximizeUseDynamicWorkingArea
1881  + I StyleAndUpdate "window*" EWMHPlacementIgnoreWorkingArea
1882  + I StyleAndUpdate "window*" EWMHPlacementUseWorkingArea
1883  + I StyleAndUpdate "window*" EWMHPlacementUseDynamicWorkingArea
1884  + I PrintInfo style 36
1885  + I All (window7) Close
1886
1887 AddTest "Test DestroyStyle" DestroyStyle
1888 AddToFunc DestroyStyle-Func
1889  + I StyleAndUpdate "destroyme" IconBox 1 1 2 2, font 10x20, lenience
1890  + I DestroyStyle "destroyme"
1891  + I DestroyStyle "destroyme"
1892  + I StyleAndUpdate "destroyme" IconBox -80x240-1-1, IconFill b r, mwmdecor
1893  + I DestroyStyle "destroyme"
1894  + I DestroyStyle "destroyme"
1895 # The man page says not to do this, to-do-2.4 #130
1896  + I DestroyStyle *
1897
1898 DestroyFunc WindowStyleAndUpdate
1899 AddToFunc CommandAndUpdate I Echo $*
1900 + I $*
1901 + I UpdateStyles
1902
1903 AddTest "Test WindowStyle" WindowStyle-Func
1904 AddToFunc WindowStyle-Func
1905 + I CommandAndUpdate Next (window*) WindowStyle BorderWidth 5, HandleWidth 5
1906 + I CommandAndUpdate Next (window*) WindowStyle NoTitle
1907 + I CommandAndUpdate Next (window*) WindowStyle NoTitle
1908 + I CommandAndUpdate Next (window*) WindowStyle NoTitle, gffgghf
1909 + I CommandAndUpdate All (window*)  WindowStyle Sticky
1910 + I CommandAndUpdate All (window*)  WindowStyle Sticky
1911 + I CommandAndUpdate All (window*)  WindowStyle Slippery
1912 + I CommandAndUpdate All (window*)  WindowStyle Slippery
1913 + I CommandAndUpdate Next (window*) WindowStyle
1914 + I CommandAndUpdate Next (window*) WindowStyle
1915 + I CommandAndUpdate Next (window*) WindowStyle nvhjvhjvhvhv jbjhbjkbjb
1916 + I CommandAndUpdate Next (window*) DestroyWindowStyle
1917 + I CommandAndUpdate Next (window*) DestroyWindowStyle pouf
1918 + I CommandAndUpdate All (window*) DestroyWindowStyle
1919 + I CommandAndUpdate All (window*) DestroyWindowStyle
1920
1921 DestroyFunc AddButtonStyleAndUpdate
1922 AddToFunc AddButtonStyleAndUpdate I Echo AddButtonStyle $*
1923 + I AddButtonStyle $*
1924 + I UpdateStyles
1925
1926 DestroyFunc AddTitleStyleAndUpdate
1927 AddToFunc AddTitleStyleAndUpdate I Echo AddTitleStyle $*
1928 + I AddTitleStyle $*
1929 + I UpdateStyles
1930
1931 AddTest "Test AddButtonStyleMisc" AddButtonStyleMisc-Func
1932 AddToFunc AddButtonStyleMisc-Func
1933 # Need to add a buttonstyle command to get the buttons
1934 # in a known state.
1935 # Look at putting all these styles in a decor as shown in the man page.
1936 # The "Toggled" feature needs to be tested, need shaded/maximized/sticky
1937 # windows with corresponding mwmdecors set.
1938  + I AddButtonStyleAndUpdate
1939  + I AddButtonStyleAndUpdate Reset
1940  + I AddButtonStyleAndUpdate All -- raisED
1941  + I AddButtonStyleAndUpdate All -- SUNk
1942  + I AddButtonStyleAndUpdate Left -- flat
1943  + I AddButtonStyleAndUpdate Left -- flat
1944  + I AddButtonStyleAndUpdate Right -- !flat
1945  + I AddButtonStyleAndUpdate Left Activeup -- raised
1946  + I AddButtonStyleAndUpdate Left Activeup -- raised
1947  + I AddButtonStyleAndUpdate Left activeDOWN -- sunk
1948  + I AddButtonStyleAndUpdate Left inactive -- flat
1949  + I AddButtonStyleAndUpdate Left inactive -- flat
1950  + I AddButtonStyleAndUpdate Left Activeup -- sunk
1951  + I AddButtonStyleAndUpdate 1 simple
1952  + I AddButtonStyleAndUpdate 1 simple
1953  + I AddButtonStyleAndUpdate 1 default 3
1954  + I AddButtonStyleAndUpdate 1 default 3
1955  + I AddButtonStyleAndUpdate 1 solid blaCK
1956  + I AddButtonStyleAndUpdate 1 solid blaCK
1957  + I AddButtonStyleAndUpdate 1 simple
1958
1959 AddTest "Test AddButtonStyleGradients" AddButtonStyleGradients-Func
1960 AddToFunc AddButtonStyleGradients-Func
1961  + I AddButtonStyleAndUpdate 2 hgradient 16 green red
1962  + I AddButtonStyleAndUpdate 2 hgradient 16 green red
1963  + I AddButtonStyleAndUpdate 2 hgradient 16 red blue
1964  + I AddButtonStyleAndUpdate 2 hgradient 32 red blue
1965  + I AddButtonStyleAndUpdate 2 hgradient 128 red blue
1966  + I AddButtonStyleAndUpdate 2 hgradient 2 red blue
1967  + I AddButtonStyleAndUpdate 2 vgradient 16 green red
1968  + I AddButtonStyleAndUpdate 2 vgradient 16 green red
1969  + I AddButtonStyleAndUpdate 2 vgradient 16 red blue
1970  + I AddButtonStyleAndUpdate 2 vgradient 32 red blue
1971  + I AddButtonStyleAndUpdate 2 vgradient 128 red blue
1972  + I AddButtonStyleAndUpdate 2 vgradient 2 red blue
1973  + I AddButtonStyleAndUpdate 3 VGradient 16 3 Red 20 Blue 30 Black 50 Grey
1974  + I AddButtonStyleAndUpdate 3 VGradient 16 3 Red 20 Blue 30 Black 50 Grey
1975  + I AddButtonStyleAndUpdate 3 VGradient 16 4 Red 20 Blue 30 Black 20 Grey 30 yellow
1976  + I AddButtonStyleAndUpdate 3 VGradient 16 2 Red 20 Blue 80
1977  + I AddButtonStyleAndUpdate 3 VGradient 128 2 Red 20 Blue 80
1978  + I AddButtonStyleAndUpdate 3 VGradient 2 2 Red 20 Blue 80
1979  + I AddButtonStyleAndUpdate 3 hGradient 16 3 Red 20 Blue 30 Black 50 Grey
1980  + I AddButtonStyleAndUpdate 3 hGradient 16 3 Red 20 Blue 30 Black 50 Grey
1981  + I AddButtonStyleAndUpdate 3 hGradient 16 4 Red 20 Blue 30 Black 20 Grey 30 yellow
1982  + I AddButtonStyleAndUpdate 3 hGradient 16 2 Red 20 Blue 80
1983  + I AddButtonStyleAndUpdate 3 hGradient 128 2 Red 20 Blue 80
1984  + I AddButtonStyleAndUpdate 3 hGradient 2 2 Red 20 Blue 80
1985  + I AddButtonStyleAndUpdate ToggledActiveDown VGradient 55
1986  + I AddButtonStyleAndUpdate ToggledActiveUp VGradient 55 b
1987  + I AddButtonStyleAndUpdate ToggledInactive VGradient 55 blue
1988  + I AddButtonStyleAndUpdate ActiveDown VGradient 55 blue
1989  + I AddButtonStyleAndUpdate ActiveUp VGradient 55 blue r
1990  + I AddButtonStyleAndUpdate Inactive VGradient 55 blue red
1991  + I AddButtonStyleAndUpdate ActiveDown VGradient 20 3 blue 45 green
1992  + I AddButtonStyleAndUpdate ActiveDown VGradient 20 3 blue 45 green 55 red
1993  + I AddButtonStyleAndUpdate ActiveDown VGradient 20 3 blue 45 green 55 red 21
1994  + I AddButtonStyleAndUpdate ActiveDown VGradient 20 3 blue 45 green 55 red 21 yellow
1995  + I AddButtonStyleAndUpdate ActiveDown VGradient 20 3 blue 45 green 55 red 21 yellow 25
1996  + I AddButtonStyleAndUpdate ActiveDown VGradient 20 2 blue 45 green -10 red
1997
1998 AddTest "Test AddButtonStyleVectors" AddButtonStyleVectors-Func
1999 AddToFunc AddButtonStyleVectors-Func
2000  + I AddButtonStyleAndUpdate Reset
2001  + I AddButtonStyleAndUpdate 1 Vector 5 45x60@0 80x60@0 80x80@1 45x80@1 45x60@0
2002  + I AddButtonStyleAndUpdate 1 Vector 5 45x60@0 80x60@0 80x80@1 45x80@1 45x60@0
2003  + I AddButtonStyleAndUpdate 1 4 50x35@1 65x65@0 35x65@0 50x35@1
2004  + I AddButtonStyleAndUpdate 1 4 50x65@1 35x35@1 65x35@1 50x65@0
2005  + I AddButtonStyleAndUpdate 1 5 40x40@1 60x40@1 60x60@0 40x60@0 40x40@1
2006  + I AddButtonStyleAndUpdate 1 5
2007  + I AddButtonStyleAndUpdate 1 5 40x40@1 60x40@1 60x60@0 40x60@0 40x40@1
2008  + I AddButtonStyleAndUpdate Reset
2009
2010 AddTest "Test AddButtonStylePixmaps" AddButtonStylePixmaps-Func
2011 AddToFunc AddButtonStylePixmaps-Func
2012  + I AddButtonStyleAndUpdate 1 Pixmap test1.xpm
2013  + I AddButtonStyleAndUpdate 1 Pixmap test2.xpm
2014  + I AddButtonStyleAndUpdate 1 Pixmap test.png
2015  + I AddButtonStyleAndUpdate 1 Pixmap xtrek_fed_e.xbm
2016  + I AddButtonStyleAndUpdate 1 TiledPixmap test2.xpm
2017  + I AddButtonStyleAndUpdate 1 TiledPixmap test2.xpm
2018  + I AddButtonStyleAndUpdate 1 TiledPixmap test1.xpm
2019  + I AddButtonStyleAndUpdate 1 TiledPixmap test.png
2020  + I AddButtonStyleAndUpdate 1 TiledPixmap xtrek_fed_e.xbm
2021  + I AddButtonStyleAndUpdate 1 ActiveUp (Pixmap test3.xpm) ActiveDown (Pixmap test2.xpm)
2022  + I AddButtonStyleAndUpdate 1 Inactive Pixmap nonexistent.xpm
2023  + I AddButtonStyleAndUpdate 1 Inactive Pixmap test3.xpm
2024  + I AddButtonStyleAndUpdate 1 Inactive Pixmap test3.xpm
2025  + I AddButtonStyleAndUpdate 1 Inactive Pixmap
2026  + I AddButtonStyleAndUpdate 1 MiniIcons
2027  + I AddButtonStyleAndUpdate 1 miniicons
2028
2029 AddTest "Test AddTitleStyle" AddTitleStyle-Func
2030 AddToFunc AddTitleStyle-Func
2031 # Need a "toggled" test
2032 # The TitleStyle should first be cleared with "TitleStyle"
2033  + I AddTitleStyleAndUpdate
2034  + I AddTitleStyleAndUpdate -- raisED
2035  + I AddTitleStyleAndUpdate -- SUNk
2036  + I AddTitleStyleAndUpdate -- flat
2037  + I AddTitleStyleAndUpdate -- flat
2038  + I AddTitleStyleAndUpdate -- !flat
2039  + I AddTitleStyleAndUpdate Activeup -- raised
2040  + I AddTitleStyleAndUpdate Activeup -- raised
2041  + I AddTitleStyleAndUpdate activeDOWN -- sunk
2042  + I AddTitleStyleAndUpdate inactive -- flat
2043  + I AddTitleStyleAndUpdate inactive -- flat
2044  + I AddTitleStyleAndUpdate Activeup -- sunk
2045  + I AddTitleStyleAndUpdate simple
2046  + I AddTitleStyleAndUpdate simple
2047  + I AddTitleStyleAndUpdate default 3
2048  + I AddTitleStyleAndUpdate default 3
2049  + I AddTitleStyleAndUpdate solid blaCK
2050  + I AddTitleStyleAndUpdate solid blaCK
2051  + I AddTitleStyleAndUpdate simple
2052
2053 AddTest "Test AddTitleStyleGradients" AddTitleStyleGradients-Func
2054 AddToFunc AddTitleStyleGradients-Func
2055  + I AddTitleStyleAndUpdate hgradient 16 green red
2056  + I AddTitleStyleAndUpdate hgradient 16 green red
2057  + I AddTitleStyleAndUpdate hgradient 16 red blue
2058  + I AddTitleStyleAndUpdate hgradient 32 red blue
2059  + I AddTitleStyleAndUpdate hgradient 128 red blue
2060  + I AddTitleStyleAndUpdate hgradient 2 red blue
2061  + I AddTitleStyleAndUpdate vgradient 16 green red
2062  + I AddTitleStyleAndUpdate vgradient 16 green red
2063  + I AddTitleStyleAndUpdate vgradient 16 red blue
2064  + I AddTitleStyleAndUpdate vgradient 32 red blue
2065  + I AddTitleStyleAndUpdate vgradient 128 red blue
2066  + I AddTitleStyleAndUpdate vgradient 2 red blue
2067  + I AddTitleStyleAndUpdate VGradient 16 3 Red 20 Blue 30 Black 50 Grey
2068  + I AddTitleStyleAndUpdate VGradient 16 3 Red 20 Blue 30 Black 50 Grey
2069  + I AddTitleStyleAndUpdate VGradient 16 4 Red 20 Blue 30 Black 20 Grey 30 yellow
2070  + I AddTitleStyleAndUpdate VGradient 16 2 Red 20 Blue 80
2071  + I AddTitleStyleAndUpdate VGradient 128 2 Red 20 Blue 80
2072  + I AddTitleStyleAndUpdate VGradient 2 2 Red 20 Blue 80
2073  + I AddTitleStyleAndUpdate hGradient 16 3 Red 20 Blue 30 Black 50 Grey
2074  + I AddTitleStyleAndUpdate hGradient 16 3 Red 20 Blue 30 Black 50 Grey
2075  + I AddTitleStyleAndUpdate hGradient 16 4 Red 20 Blue 30 Black 20 Grey 30 yellow
2076  + I AddTitleStyleAndUpdate hGradient 16 2 Red 20 Blue 80
2077  + I AddTitleStyleAndUpdate hGradient 128 2 Red 20 Blue 80
2078  + I AddTitleStyleAndUpdate hGradient 2 2 Red 20 Blue 80
2079
2080 AddTest "Test AddTitleStyleVectorButtons" AddTitleStyleVectorButtons-Func
2081 AddToFunc AddTitleStyleVectorButtons-Func
2082  + I AddTitleStyleAndUpdate Vector 5 45x60@0 80x60@0 80x80@1 45x80@1 45x60@0
2083  + I AddTitleStyleAndUpdate Vector 5 45x60@0 80x60@0 80x80@1 45x80@1 45x60@0
2084  + I AddTitleStyleAndUpdate 4 50x35@1 65x65@0 35x65@0 50x35@1
2085  + I AddTitleStyleAndUpdate 4 50x65@1 35x35@1 65x35@1 50x65@0
2086  + I AddTitleStyleAndUpdate 5 40x40@1 60x40@1 60x60@0 40x60@0 40x40@1
2087  + I AddTitleStyleAndUpdate 5 40x40@1 60x40@1 60x60@0 40x60@0 40x40@1
2088
2089 AddTest "Test AddTitleStylePixmaps" AddTitleStylePixmaps-Func
2090 AddToFunc AddTitleStylePixmaps-Func
2091  + I AddTitleStyleAndUpdate Pixmap test1.xpm
2092  + I AddTitleStyleAndUpdate Pixmap test2.xpm
2093  + I AddTitleStyleAndUpdate Pixmap test.png
2094  + I AddTitleStyleAndUpdate Pixmap xtrek_fed_e.xbm
2095  + I AddTitleStyleAndUpdate TiledPixmap test2.xpm
2096  + I AddTitleStyleAndUpdate TiledPixmap test2.xpm
2097  + I AddTitleStyleAndUpdate TiledPixmap test.png
2098  + I AddTitleStyleAndUpdate TiledPixmap xtrek_fed_e.xbm
2099  + I AddTitleStyleAndUpdate TiledPixmap test1.xpm
2100  + I AddTitleStyleAndUpdate ActiveUp (Pixmap test3.xpm) ActiveDown (Pixmap test2.xpm)
2101  + I AddTitleStyleAndUpdate Inactive Pixmap nonexistent.xpm
2102  + I AddTitleStyleAndUpdate Inactive Pixmap test3.xpm
2103  + I AddTitleStyleAndUpdate Inactive Pixmap test3.xpm
2104  + I AddTitleStyleAndUpdate Inactive Pixmap
2105  + I AddTitleStyleAndUpdate MiniIcons
2106  + I AddTitleStyleAndUpdate miniicons
2107
2108 AddTest "Test AddToDecor" AddToDecor-Func
2109 AddToFunc AddToDecor-Func
2110  + I AddToDecor
2111 # This test needs to apply the Decor to some windows using "UseDecor".
2112  + I DestroyDecor bar
2113  + I AddToDecor bar
2114  + I AddToDecor bar AddButtonStyle All ActiveUp (-- flat) Inactive (-- flat)
2115  + I AddToDecor bar ButtonStyle All ActiveUp (-- flat) Inactive (-- flat)
2116  + I AddToDecor bar AddTitleStyle -- flat
2117  + I AddToDecor bar TitleStyle -- flat
2118  + I AddToDecor bar BorderStyle -- HiddenHandles NoInset
2119  + I DestroyDecor foo
2120  + I AddToDecor foo
2121  + I AddToDecor foo AddButtonStyle All ActiveUp (-- flat) Inactive (-- flat)
2122  + I AddToDecor foo ButtonStyle All ActiveUp (-- flat) Inactive (-- flat)
2123  + I AddToDecor foo AddTitleStyle -- flat
2124  + I AddToDecor foo TitleStyle -- flat
2125  + I AddToDecor foo BorderStyle -- HiddenHandles NoInset
2126  + I Echo "Testing a removed command, will generate a message"
2127  + I AddToDecor foo HilightColor white navy
2128  + I AddToDecor foo
2129  + I AddToDecor foo AddButtonStyle All ActiveUp (-- flat) Inactive (-- flat)
2130  + I AddToDecor foo ButtonStyle All ActiveUp (-- flat) Inactive (-- flat)
2131  + I AddToDecor foo AddTitleStyle -- flat
2132  + I AddToDecor foo TitleStyle -- flat
2133  + I AddToDecor foo BorderStyle -- HiddenHandles NoInset
2134
2135 DestroyFunc ButtonStyleAndUpdate
2136 AddToFunc ButtonStyleAndUpdate I Echo ButtonStyle $*
2137 + I ButtonStyle $*
2138 + I UpdateStyles
2139
2140 DestroyFunc TitleStyleAndUpdate
2141 AddToFunc TitleStyleAndUpdate I Echo TitleStyle $*
2142 + I TitleStyle $*
2143 + I UpdateStyles
2144
2145 DestroyFunc BorderStyleAndUpdate
2146 AddToFunc BorderStyleAndUpdate I Echo BorderStyle $*
2147 + I BorderStyle $*
2148 + I UpdateStyles
2149
2150 AddTest "Test BorderStyle" BorderStyle-Func
2151 AddToFunc BorderStyle-Func
2152 # Need a test with args in parens
2153 # Need a ! (negated) test
2154 # Need a raised/sunk/flat test
2155  + I BorderStyleAndUpdate
2156  + I BorderStyleAndUpdate -- HiddenHandles
2157  + I BorderStyleAndUpdate Active -- !HiddenHandles
2158  + I BorderStyleAndUpdate Active -- !HiddenHandles
2159 # Clear all states
2160  + I BorderStyleAndUpdate Simple
2161 # Clear Active state
2162  + I BorderStyleAndUpdate Active Simple
2163  + I BorderStyleAndUpdate Inactive -- HiddenHandles NoInset
2164 # Clear NoInset flag
2165  + I BorderStyleAndUpdate Inactive -- !NoInset
2166  + I BorderStyleAndUpdate Active TiledPixmap test.png
2167  + I BorderStyleAndUpdate Inactive TiledPixmap xtrek_fed_e.xbm
2168  + I BorderStyleAndUpdate Active TiledPixmap test.png
2169  + I BorderStyleAndUpdate Inactive TiledPixmap xtrek_fed_e.xbm
2170  + I BorderStyleAndUpdate Active TiledPixmap test1.xpm
2171  + I BorderStyleAndUpdate Inactive TiledPixmap test2.xpm
2172  + I BorderStyleAndUpdate Active -- HiddenHandles NoInset
2173
2174 AddTest "Test ButtonState" ButtonState-Func
2175 AddToFunc ButtonState-Func
2176 + I ButtonState ActiveDown true Inactive f
2177 + I ButtonState
2178 + I Echo "Intentional error, ButtonState with a long arg:"
2179 + I ButtonState "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
2180
2181 # Note to self, resume here, check these to the man page. dje
2182 AddTest "Test ButtonStyle" ButtonStyle-Func
2183 AddToFunc ButtonStyle-Func
2184  + I ButtonStyleAndUpdate
2185  + I ButtonStyleAndUpdate All -- UseBorderStyle
2186  + I ButtonStyleAndUpdate All -- UseTitleStyle
2187  + I ButtonStyleAndUpdate Reset
2188  + I ButtonStyleAndUpdate All -- raisED
2189  + I ButtonStyleAndUpdate All -- SUNk
2190  + I ButtonStyleAndUpdate Left -- flat
2191  + I ButtonStyleAndUpdate Left -- flat
2192  + I ButtonStyleAndUpdate Right -- !flat
2193  + I ButtonStyleAndUpdate Left Activeup -- raised
2194  + I ButtonStyleAndUpdate Left Activeup -- raised
2195  + I ButtonStyleAndUpdate Left activeDOWN -- sunk
2196  + I ButtonStyleAndUpdate Left inactive -- flat
2197  + I ButtonStyleAndUpdate Left inactive -- flat
2198  + I ButtonStyleAndUpdate Left Activeup -- sunk
2199  + I ButtonStyleAndUpdate 1 simple
2200  + I ButtonStyleAndUpdate 1 simple
2201  + I ButtonStyleAndUpdate 1 default 3
2202  + I ButtonStyleAndUpdate 1 default 3
2203  + I ButtonStyleAndUpdate 1 solid blaCK
2204  + I ButtonStyleAndUpdate 1 solid blaCK
2205  + I ButtonStyleAndUpdate 1 simple
2206
2207 AddTest "Test ButtonStyleGradients" ButtonStyleGradients-Func
2208 AddToFunc ButtonStyleGradients-Func
2209  + I ButtonStyleAndUpdate 2 hgradient 16 green red
2210  + I ButtonStyleAndUpdate 2 hgradient 16 green red
2211  + I ButtonStyleAndUpdate 2 hgradient 16 red blue
2212  + I ButtonStyleAndUpdate 2 hgradient 32 red blue
2213  + I ButtonStyleAndUpdate 2 hgradient 128 red blue
2214  + I ButtonStyleAndUpdate 2 hgradient 2 red blue
2215  + I ButtonStyleAndUpdate 2 vgradient 16 green red
2216  + I ButtonStyleAndUpdate 2 vgradient 16 green red
2217  + I ButtonStyleAndUpdate 2 vgradient 16 red blue
2218  + I ButtonStyleAndUpdate 2 vgradient 32 red blue
2219  + I ButtonStyleAndUpdate 2 vgradient 128 red blue
2220  + I ButtonStyleAndUpdate 2 vgradient 2 red blue
2221  + I ButtonStyleAndUpdate 3 VGradient 16 3 Red 20 Blue 30 Black 50 Grey
2222  + I ButtonStyleAndUpdate 3 VGradient 16 3 Red 20 Blue 30 Black 50 Grey
2223  + I ButtonStyleAndUpdate 3 VGradient 16 4 Red 20 Blue 30 Black 20 Grey 30 yellow
2224  + I ButtonStyleAndUpdate 3 VGradient 16 2 Red 20 Blue 80
2225  + I ButtonStyleAndUpdate 3 VGradient 128 2 Red 20 Blue 80
2226  + I ButtonStyleAndUpdate 3 VGradient 2 2 Red 20 Blue 80
2227  + I ButtonStyleAndUpdate 3 hGradient 16 3 Red 20 Blue 30 Black 50 Grey
2228  + I ButtonStyleAndUpdate 3 hGradient 16 3 Red 20 Blue 30 Black 50 Grey
2229  + I ButtonStyleAndUpdate 3 hGradient 16 4 Red 20 Blue 30 Black 20 Grey 30 yellow
2230  + I ButtonStyleAndUpdate 3 hGradient 16 2 Red 20 Blue 80
2231  + I ButtonStyleAndUpdate 3 hGradient 128 2 Red 20 Blue 80
2232  + I ButtonStyleAndUpdate 3 hGradient 2 2 Red 20 Blue 80
2233
2234 AddTest "Test ButtonStyleVectors" ButtonStyleVectors-Func
2235 AddToFunc ButtonStyleVectors-Func
2236  + I ButtonStyleAndUpdate Reset
2237  + I ButtonStyleAndUpdate 1 Vector 5 45x60@0 80x60@0 80x80@1 45x80@1 45x60@0
2238  + I ButtonStyleAndUpdate 1 Vector 5 45x60@0 80x60@0 80x80@1 45x80@1 45x60@0
2239  + I ButtonStyleAndUpdate 1 4 50x35@1 65x65@0 35x65@0 50x35@1
2240  + I ButtonStyleAndUpdate 1 4 50x65@1 35x35@1 65x35@1 50x65@0
2241  + I ButtonStyleAndUpdate 1 5 40x40@1 60x40@1 60x60@0 40x60@0 40x40@1
2242  + I ButtonStyleAndUpdate 1 5
2243  + I ButtonStyleAndUpdate 1 5 40x40@1 60x40@1 60x60@0 40x60@0 40x40@1
2244  + I ButtonStyleAndUpdate Reset
2245
2246 AddTest "Test ButtonStylePixmaps" ButtonStylePixmaps-Func
2247 AddToFunc ButtonStylePixmaps-Func
2248  + I ButtonStyleAndUpdate 1 Pixmap test1.xpm
2249  + I ButtonStyleAndUpdate 1 Pixmap test2.xpm
2250  + I ButtonStyleAndUpdate 1 Pixmap test.png
2251  + I ButtonStyleAndUpdate 1 Pixmap xtrek_fed_e.xbm
2252  + I ButtonStyleAndUpdate 1 TiledPixmap test2.xpm
2253  + I ButtonStyleAndUpdate 1 TiledPixmap test2.xpm
2254  + I ButtonStyleAndUpdate 1 TiledPixmap test.png
2255  + I ButtonStyleAndUpdate 1 TiledPixmap xtrek_fed_e.xbm
2256  + I ButtonStyleAndUpdate 1 TiledPixmap test1.xpm
2257  + I ButtonStyleAndUpdate 1 ActiveUp (Pixmap test3.xpm) ActiveDown (Pixmap test2.xpm)
2258  + I ButtonStyleAndUpdate 1 Inactive Pixmap nonexistent.xpm
2259  + I ButtonStyleAndUpdate 1 Inactive Pixmap test3.xpm
2260  + I ButtonStyleAndUpdate 1 Inactive Pixmap test3.xpm
2261  + I ButtonStyleAndUpdate 1 Inactive Pixmap
2262  + I ButtonStyleAndUpdate 1 MiniIcons
2263  + I ButtonStyleAndUpdate 1 miniicons
2264
2265 AddTest "Test ButtonStyleDash" ButtonStyleDash-Func
2266 AddToFunc ButtonStyleDash-Func
2267  + I ButtonStyleAndUpdate 1 - MWMDecorMenu MWMDecorMin MWMDecorMax MWMDecorMenu
2268  + I ButtonStyleAndUpdate 1 - MWMDecorMenu MWMDecorMin MWMDecorMax MWMDecorMenu
2269  + I ButtonStyleAndUpdate 1 - MWMDecorMax
2270  + I ButtonStyleAndUpdate 1 - MWMDecorMin
2271  + I ButtonStyleAndUpdate 1 -
2272
2273 # ChangeDecor, DestroyDecor, UpdateDecor
2274 AddTest "Test DecorCommands" DecorCommands-Func
2275 AddToFunc DecorCommands-Func
2276  + I DestroyDecor
2277  + I DestroyDecor bar
2278  + I DestroyDecor bar
2279  + I UpdateDecor
2280  + I UpdateDecor foo
2281  + I UpdateDecor foo
2282  + I Style "testw" UseDecor foo, Color white/grey40,HandleWidth 4
2283  + I ChangeDecor
2284  + I ChangeDecor foo
2285  + I DestroyDecor
2286  + I DestroyDecor bar
2287  + I DestroyDecor bar
2288  + I UpdateDecor
2289  + I UpdateDecor foo
2290  + I UpdateDecor foo
2291  + I Style "testw" UseDecor foo, Color white/grey40,HandleWidth 4
2292  + I ChangeDecor
2293  + I ChangeDecor foo
2294  + I DestroyDecor recreate
2295  + I DestroyDecor recreate bar
2296  + I DestroyDecor recreate bar
2297  + I UpdateDecor
2298  + I UpdateDecor foo
2299  + I UpdateDecor foo
2300  + I Style "testw" UseDecor foo, Color white/grey40,HandleWidth 4
2301  + I ChangeDecor
2302  + I ChangeDecor foo
2303
2304 AddTest "Test TitleStyle_justify" TitleStyle_justify-Func
2305 AddToFunc TitleStyle_justify-Func
2306  + I TitleStyleAndUpdate
2307  + I TitleStyleAndUpdate LEFtJusTiFied
2308  + I TitleStyleAndUpdate LEFtJusTiFied
2309  + I TitleStyleAndUpdate   centered
2310  + I TitleStyleAndUpdate                rightjustified
2311  + I TitleStyleAndUpdate heIGht 20
2312  + I TitleStyleAndUpdate heIGht 20
2313  + I TitleStyleAndUpdate leftjustified height 37
2314  + I TitleStyleAndUpdate leftjustified height 24
2315
2316 AddTest "Test TitleStyles" TitleStyles-Func
2317 AddToFunc TitleStyles-Func
2318  + I TitleStyleAndUpdate -- raisED
2319  + I TitleStyleAndUpdate -- SUNk
2320  + I TitleStyleAndUpdate -- flat
2321  + I TitleStyleAndUpdate -- flat
2322  + I TitleStyleAndUpdate -- !flat
2323  + I TitleStyleAndUpdate Activeup -- raised
2324  + I TitleStyleAndUpdate Activeup -- raised
2325  + I TitleStyleAndUpdate activeDOWN -- sunk
2326  + I TitleStyleAndUpdate inactive -- flat
2327  + I TitleStyleAndUpdate inactive -- flat
2328  + I TitleStyleAndUpdate Activeup -- sunk
2329  + I TitleStyleAndUpdate simple
2330  + I TitleStyleAndUpdate simple
2331  + I TitleStyleAndUpdate default 3
2332  + I TitleStyleAndUpdate default 3
2333  + I TitleStyleAndUpdate solid blaCK
2334  + I TitleStyleAndUpdate solid blaCK
2335  + I TitleStyleAndUpdate simple
2336
2337 AddTest "Test gradients" gradients-Func
2338 AddToFunc gradients-Func
2339  + I TitleStyleAndUpdate hgradient 16 green red
2340  + I TitleStyleAndUpdate hgradient 16 green red
2341  + I TitleStyleAndUpdate hgradient 16 red blue
2342  + I TitleStyleAndUpdate hgradient 32 red blue
2343  + I TitleStyleAndUpdate hgradient 128 red blue
2344  + I TitleStyleAndUpdate hgradient 2 red blue
2345  + I TitleStyleAndUpdate vgradient 16 green red
2346  + I TitleStyleAndUpdate vgradient 16 green red
2347  + I TitleStyleAndUpdate vgradient 16 red blue
2348  + I TitleStyleAndUpdate vgradient 32 red blue
2349  + I TitleStyleAndUpdate vgradient 128 red blue
2350  + I TitleStyleAndUpdate vgradient 2 red blue
2351  + I TitleStyleAndUpdate VGradient 16 3 Red 20 Blue 30 Black 50 Grey
2352  + I TitleStyleAndUpdate VGradient 16 3 Red 20 Blue 30 Black 50 Grey
2353  + I TitleStyleAndUpdate VGradient 16 4 Red 20 Blue 30 Black 20 Grey 30 yellow
2354  + I TitleStyleAndUpdate VGradient 16 2 Red 20 Blue 80
2355  + I TitleStyleAndUpdate VGradient 128 2 Red 20 Blue 80
2356  + I TitleStyleAndUpdate VGradient 2 2 Red 20 Blue 80
2357  + I TitleStyleAndUpdate hGradient 16 3 Red 20 Blue 30 Black 50 Grey
2358  + I TitleStyleAndUpdate hGradient 16 3 Red 20 Blue 30 Black 50 Grey
2359  + I TitleStyleAndUpdate hGradient 16 4 Red 20 Blue 30 Black 20 Grey 30 yellow
2360  + I TitleStyleAndUpdate hGradient 16 2 Red 20 Blue 80
2361  + I TitleStyleAndUpdate hGradient 128 2 Red 20 Blue 80
2362  + I TitleStyleAndUpdate hGradient 2 2 Red 20 Blue 80
2363
2364 AddTest "Test vector_buttons" vector_buttons-Func
2365 AddToFunc vector_buttons-Func
2366  + I TitleStyleAndUpdate Vector 5 45x60@0 80x60@0 80x80@1 45x80@1 45x60@0
2367  + I TitleStyleAndUpdate Vector 5 45x60@0 80x60@0 80x80@1 45x80@1 45x60@0
2368  + I TitleStyleAndUpdate 4 50x35@1 65x65@0 35x65@0 50x35@1
2369  + I TitleStyleAndUpdate 4 50x65@1 35x35@1 65x35@1 50x65@0
2370  + I TitleStyleAndUpdate 5 40x40@1 60x40@1 60x60@0 40x60@0 40x40@1
2371  + I TitleStyleAndUpdate 5 40x40@1 60x40@1 60x60@0 40x60@0 40x40@1
2372
2373 AddTest "Test pixmaps" pixmaps-Func
2374 AddToFunc pixmaps-Func
2375  + I TitleStyleAndUpdate Pixmap test1.xpm
2376  + I TitleStyleAndUpdate Pixmap test2.xpm
2377  + I TitleStyleAndUpdate Pixmap test.png
2378  + I TitleStyleAndUpdate Pixmap xtrek_fed_e.xbm
2379  + I TitleStyleAndUpdate TiledPixmap test2.xpm
2380  + I TitleStyleAndUpdate TiledPixmap test2.xpm
2381  + I TitleStyleAndUpdate TiledPixmap test.png
2382  + I TitleStyleAndUpdate TiledPixmap xtrek_fed_e.xbm
2383  + I TitleStyleAndUpdate TiledPixmap test1.xpm
2384  + I TitleStyleAndUpdate ActiveUp (Pixmap test3.xpm) ActiveDown (Pixmap test2.xpm)
2385  + I TitleStyleAndUpdate Inactive Pixmap nonexistent.xpm
2386  + I TitleStyleAndUpdate Inactive Pixmap test3.xpm
2387  + I TitleStyleAndUpdate Inactive Pixmap test3.xpm
2388  + I TitleStyleAndUpdate Inactive Pixmap
2389  + I TitleStyleAndUpdate MiniIcons
2390  + I TitleStyleAndUpdate miniicons
2391
2392 # UpdateDecor test is above in "DecorCommands".
2393
2394 # This test removed, "Desk" is replaced by "GotoDesk"
2395 # AddTest "Test Desk" Desk-Func
2396 # AddToFunc Desk-Func
2397 #  + I Desk
2398 #  + I Desk    2
2399 #  + I Desk             +3
2400 #  + I Desk -2
2401 #  + I Desk 0 1
2402 #  + I Desk   0    3
2403 #  + I Desk             0               1923874
2404 #  + I Desk +1 0 10
2405 #  + I Desk -1 0 10
2406 #  + I Desk 0 0 5 7
2407 #  + I Desk 0 -11111 5 7
2408 #  + I Desk 0 0
2409
2410 AddTest "Test DesktopName" DesktopName-Func
2411 AddToFunc DesktopName-Func
2412  + I DesktopName 0 www
2413  + I DesktopName 1 devel
2414  + I DesktopName 2 Games
2415  + I DesktopName 3 "éà %ûîïü"
2416  + I DesktopName 0 www
2417  + I DesktopName 1
2418  + I DesktopName 2 Games
2419  + I DesktopName 3 "éà %ûîïü"
2420  + I DesktopName 10 www
2421  + I DesktopName -10 sdhdh
2422  + I DesktopName 2 Games
2423  + I DesktopName 3 "éà %ûîïü"
2424  + I DesktopName www
2425  + I DesktopName
2426  + I DesktopName 2 Games "éà %ûîïü"
2427  + I DesktopName "éà %ûîïü"
2428
2429 AddTest "Test DeskTopSize" DeskTopSize-Func
2430 AddToFunc DeskTopSize-Func
2431  + I DeskTopSize
2432  + I DeskTopSize ödslajf
2433  + I DeskTopSize   2x2
2434  + I DeskTopSize                 2x2
2435  + I DeskTopSize 2x3
2436  + I DeskTopSize 2x3
2437  + I DeskTopSize 3x3
2438  + I DeskTopSize 3x1
2439  + I DeskTopSize 1x1
2440  + I DeskTopSize 0x2
2441  + I DeskTopSize 2x0
2442  + I DeskTopSize 0x0
2443  + I DeskTopSize 1000x1000
2444  + I DeskTopSize 2x2
2445
2446 AddTest "Test EdgeResistance" EdgeResistance-Func
2447 AddToFunc EdgeResistance-Func
2448  + I EdgeResistance
2449  + I EdgeResistance     300   10
2450  + I EdgeResistance             300             10
2451  + I EdgeResistance 400 400
2452  + I EdgeResistance 400 400
2453  + I EdgeResistance 300 10
2454  + I EdgeResistance 0 20
2455  + I EdgeResistance -1 20
2456  + I EdgeResistance 20 0
2457  + I EdgeResistance 20 -1
2458
2459 AddTest "Test EdgeScroll" EdgeScroll-Func
2460 AddToFunc EdgeScroll-Func
2461  + I EdgeScroll
2462  + I EdgeScroll    50    50
2463  + I EdgeScroll         50              50
2464  + I EdgeScroll 100 100
2465  + I EdgeScroll -125 111
2466  + I EdgeScroll 100000 100000
2467  + I EdgeScroll 0 0
2468  + I EdgeScroll 75 75
2469
2470 # Need EdgeThickness tests
2471 AddTest "Test EdgeThickness" EdgeThickness-Func
2472 AddToFunc EdgeThickness-Func
2473 + I EdgeThickness
2474 + I EdgeThickness 0
2475 + I EdgeThickness 1
2476 + I EdgeThickness 2
2477 + I EdgeThickness
2478 + I EdgeThickness -12
2479 + I EdgeThickness jksdcnbjk nsddnckjdn kljsncsjknckljs
2480 + I EdgeThickness 36
2481 + I EdgeThickness
2482
2483 AddTest "Test EwmhBaseStruts" EwmhBaseStruts-Func
2484 AddToFunc EwmhBaseStruts-Func
2485 + I EwmhBaseStruts
2486 + I EwmhBaseStruts 25 30 40 10
2487 + I Next (window1) Maximize
2488 + I Next (window1) Maximize
2489 + I Next (window1) Maximize ewmhiwa
2490 + I Next (window1) Maximize ewmhiwa
2491 + I EwmhBaseStruts -10 -23 -12 -3
2492 + I EwmhBaseStruts 1 uu zz 10
2493 + I EwmhBaseStruts ;d,vnf,ndvdfnvndf,vfd:;fv:fkvfkvklfvnklfnv
2494 + I EwmhBaseStruts
2495
2496 AddTest "Test EWMHNumberOfDesktops" EWMHNumberOfDesktops-Func
2497 AddToFunc EWMHNumberOfDesktops-Func
2498 + I EWMHNumberOfDesktops 4
2499 + I EWMHNumberOfDesktops 4 8
2500 + I EWMHNumberOfDesktops 8 1
2501 + I EWMHNumberOfDesktops
2502 + I EWMHNumberOfDesktops -1 -7
2503 + I EWMHNumberOfDesktops sdklcdksv,cdksn,vckdsv
2504 + I EWMHNumberOfDesktops 4 8
2505
2506 AddTest "Test GotoDesk" GotoDesk-Func
2507 AddToFunc GotoDesk-Func
2508 + I GotoDesk 1
2509 + I GotoDesk 1
2510 + I GotoDesk prev
2511 + I GotoDesk 0
2512 + I GotoDesk -1
2513 + I GotoDesk 0 36
2514 + I GotoDesk 0 -28
2515 + I GotoDesk 0 0
2516 + I GotoDesk 0 2147483647
2517 + I GotoDesk 0 -2147483648
2518 + I GotoDesk 0 0
2519 + I GotoDesk 1 -8 8
2520 + I GotoDesk 26 -8 8
2521 + I GotoDesk -26 -8 8
2522 + I GotoDesk 0 4 -8 8
2523 + I GotoDesk 0 26 -8 8
2524 + I GotoDesk 0 -26 -8 8
2525 + I GotoDesk 0 0
2526 #
2527 + I GotoDesk 0 2147483649
2528 + I GotoDesk 0 -2147483650
2529 + I GotoDesk 0 0
2530 + I GotoDesk 2147483649
2531 + I GotoDesk -2147483650
2532 + I GotoDesk 0 4 -8 8 5
2533 + I GotoDesk dgh
2534 + I GotoDesk
2535 + I GotoDesk 0 0
2536
2537 # Need GotoDeskAndPage tests
2538 AddTest "Test GotoDeskAndPage" GotoDeskAndPage-Func
2539 AddToFunc GotoDeskAndPage-Func
2540 + I GotoDeskAndPage 1 0 0
2541 + I GotoDeskAndPage 1 1 36
2542 + I GotoDeskAndPage prev
2543 + I GotoDeskAndPage 0 0 0
2544 + I GotoDeskAndPage -1 0 0
2545 + I GotoDeskAndPage 2147483647 0 0
2546 + I GotoDeskAndPage -2147483648 0 1
2547 + I GotoDeskAndPage 0 0 0
2548 #
2549 + I GotoDeskAndPage 2147483649 0 0
2550 + I GotoDeskAndPage -2147483650 0 0
2551 + I GotoDeskAndPage 0 0 -3
2552 + I GotoDeskAndPage 6 0
2553 + I GotoDeskAndPage 6 0 7 8 9
2554 + I GotoDeskAndPage dgh
2555 + I GotoDeskAndPage
2556 + I GotoDeskAndPage dgh df df
2557 + I GotoDeskAndPage a b c d e
2558 + I GotoDeskAndPage 0 0 0
2559
2560 AddTest "Test GotoPage" GotoPage-Func
2561 AddToFunc GotoPage-Func
2562  + I GotoPage
2563  + I GotoPage  2  2
2564  + I GotoPage           1               1
2565  + I GotoPage -1 -100
2566  + I GotoPage 10000 1000000
2567  + I GotoPage 2 1
2568  + I GotoPage 2 1
2569  + I GotoPage 1 1
2570
2571 AddTest "Test Scroll" Scroll-Func
2572 AddToFunc Scroll-Func
2573  + I Scroll
2574  + I Scroll 50p
2575  + I Scroll   10p   -10p
2576  + I Scroll             -50             +50
2577  + I Scroll -0 +0
2578  + I Scroll -50p -50p
2579  + I Scroll -1000 -1000
2580
2581 # Should update this with an Xinerama setup
2582 AddTest "Test Xinerama" Xinerama-Func
2583 AddToFunc Xinerama-Func
2584  + I XineramaPrimaryScreen 2
2585  + I Xinerama on
2586  + I Xinerama off
2587  + I XineramaSlsSize 2x1
2588  + I XineramaSls On
2589  + I XineramaPrimaryScreen 1
2590  + I Xinerama On
2591  + I XineramaSlsScreens 3 512x768+0+0 512x300+512+0 512 300 512 468
2592  + I XineramaSls On
2593  + I XineramaPrimaryScreen 1
2594  + I Xinerama On
2595  + I Xinerama off
2596  + I XineramaSls On
2597
2598 # Need to add more "action" tests, actions are I!M|C|H|D
2599 AddTest "Test AddToFunc_DestroyFunc" AddToFunc_DestroyFunc-Func
2600 AddToFunc AddToFunc_DestroyFunc-Func
2601  + I AddToFunc
2602  + I AddToFunc   foo
2603  + I AddToFunc          bar
2604
2605  + I AddToFunc   suicide_func
2606  + I AddToFunc          suicide_func
2607  + I AddToFunc suicide_func
2608  + I AddToFunc suicide_func I DestroyFunc suicide_func
2609  + I AddToFunc suicide_func I DestroyFunc suicide_func
2610  + I AddToFunc suicide_func I DestroyFunc suicide_func
2611  + I AddToFunc suicide_func
2612  + I AddToFunc suicide_func I DestroyFunc suicide_func
2613  + I function suicide_func
2614
2615 ### coredump! Fixed but ...
2616 # + I AddToFunc loop1 I function loop2
2617 # + I AddToFunc loop2 I function loop1
2618 # + I function loop1
2619
2620 ### coredump!! Fixed but ...
2621 #AddToFunc grow1
2622 # + I AddToFunc grow2 nop
2623 # + I function grow2
2624 #AddToFunc grow2
2625 # + I AddToFunc grow1 nop
2626 # + I function grow1
2627 #function grow1
2628
2629  + I addtofunc foo
2630  + I addtofunc foo I nop $w $d $1 $10298097
2631  + I function
2632  + I function   foo
2633  + I function           foo
2634  + I function nonexist
2635  + I DestroyFunc
2636  + I DestroyFunc    grow2
2637  + I DestroyFunc                grow1
2638  + I DestroyFunc loop1
2639  + I DestroyFunc loop2
2640  + I AddtoFunc variable I Echo "This should display as 1 dollar sign: $$."
2641  + I Function variable
2642 # Test from man page
2643  + I DestroyFunc PrintFunction
2644
2645 AddTest "Test Beep" Beep-Func
2646 AddToFunc Beep-Func
2647  + I Beep
2648  + I Beep
2649  + I Beep ü30 23äö ü9823r ,l.öapü39
2650
2651 AddTest "Test Echo" Echo-Func
2652 AddToFunc Echo-Func
2653  + I Echo
2654  + I Echo
2655  + I Echo ädsa           iopq9 $SHELL "'lksaä"
2656 # Test from man page, extra quotes around I intentional:
2657  + "I" Echo Beginning style definitions...
2658
2659 AddTest "Test Exec" Exec-Func
2660 AddToFunc Exec-Func
2661  + I Exec
2662  + I Exec                       ""
2663  + I Exec echo "Test of exec using echo"
2664  + I Exec echo "Exec test, value of \$$d $d, \$$v $v, \$$[screen] $[screen]"
2665  + I Exec exec echo "Test with recommended extra exec"
2666  + I Exec echo "Test with unnecessary trailing ampersand" &
2667
2668 AddTest "Test ExecUseShell" ExecUseShell-Func
2669 AddToFunc ExecUseShell-Func
2670  + I ExecUseShell
2671  + I ExecUseShell ''
2672  + I ExecUseShell     /bin/bash
2673  + I ExecUseShell               /bin/bash
2674  + I ExecUseShell /bin/ksh /bin/sh
2675  + I ExecUseShell /nonexistent/foo/bar
2676  + I ExecUseShell
2677
2678 # Function test:
2679 # Function is already pretty well tested, add a test that creates a function
2680 # That matches a built in fvwm function:
2681 AddTest "Test Function" Function-Func
2682 AddToFunc Function-Func
2683  + I DestroyFunc Style
2684  + I AddToFunc Style I Exec echo "Style Function just ran"
2685  + I Function Style
2686
2687 AddTest "Test Nop" Nop-Func
2688 AddToFunc Nop-Func
2689  + I Nop
2690  + I NOP
2691  + I nOp allöoawqj _Ö:K_ÖL\a ökq
2692
2693 AddTest "Test PipeRead" PipeRead-Func
2694 AddToFunc PipeRead-Func
2695  + I piperead
2696  + I piperead `sleep 2`
2697 ## hangs !!
2698 #piperead cat
2699  + I piperead "cat /nonexistent/foo/bar"
2700  + I piperead "         cat       /tmp/purify.read"
2701
2702 AddTest "Test Read" Read-Func
2703 AddToFunc Read-Func
2704  + I read
2705  + I read
2706  + I read /nonexistent/foo/bar
2707  + I read         /tmp/purify.read
2708  + I Echo "Next test reads a non-existing file quietly, there should not be any message"
2709  + I Read "There is no file with this name!" quiet
2710
2711 # Silent test:
2712 AddTest "Test Silent" Silent-Func
2713 AddToFunc Silent-Func
2714  + I Silent Move
2715 # Need a function that has a window target:
2716  + I DestroyFunc User_defined_function
2717  + I AddToFunc User_defined_function I Move
2718  + I Silent Function User_defined_function
2719
2720 AddTest "Test UnsetEnv" UnsetEnv-Func
2721 AddToFunc UnsetEnv-Func
2722  + I UnsetEnv FOO         BAR
2723  + I UnsetEnv       FOO
2724  + I SetEnv   NICEVAR
2725  + I UnSetEnv NICEVAR
2726  + I UnSetEnv NICEVAR
2727  + I UnSetEnv "   ""ölwäökkü"''
2728
2729 # Wait tested elsewhere.  A Wait meant to be aborted by Ctrl-Alt-Escape
2730 # would be a nice addition.  You'd need to guide the tester thru it.
2731
2732 # Conditional command "All" tested elsewhere.
2733
2734 # FIXME: Any
2735
2736 # FIXME: Break
2737
2738 # KeepRc TestRc tested with the conditional cmds
2739
2740 DestroyFunc CurrentEchoFunc
2741 AddToFunc CurrentEchoFunc
2742 + I Current ($*) Nop
2743 + I KeepRc TestRc (Match) Echo Current ($*) Match
2744 + I KeepRc TestRc (NoMatch) Echo Current ($*) NoMatch
2745 + I KeepRc TestRc (Error) Echo Current ($*) Error
2746
2747 # Need lots more conditions, (visible/iconic, etc.)
2748 AddTest "Test Current" Current-Func
2749 AddToFunc Current-Func
2750  + I current
2751  + I current
2752  + I current  ()
2753  + I Current   (*)   focus 97ö.,j1n, mp12l
2754  + I current            (*)             flipfocus
2755  + I next (window6) FlipFocus
2756 # All One test
2757  + I CurrentEchoFunc *
2758  + I CurrentEchoFunc !*
2759  + I CurrentEchoFunc window*
2760  + I CurrentEchoFunc window6
2761  + I CurrentEchoFunc !window*
2762  + I CurrentEchoFunc !window6
2763  + I CurrentEchoFunc AcceptsFocus
2764  + I CurrentEchoFunc !AcceptsFocus
2765  + I CurrentEchoFunc Focused
2766  + I CurrentEchoFunc !Focused
2767  + I CurrentEchoFunc HasPointer
2768  + I CurrentEchoFunc !HasPointer
2769  + I CurrentEchoFunc Iconic
2770  + I CurrentEchoFunc !Iconic
2771  + I CurrentEchoFunc Visible
2772  + I CurrentEchoFunc !Visible
2773  + I CurrentEchoFunc Raised
2774  + I CurrentEchoFunc !Raised
2775  + I CurrentEchoFunc Layer 4
2776  + I CurrentEchoFunc Layer 6
2777  + I CurrentEchoFunc Layer 2
2778  + I CurrentEchoFunc Layer
2779  + I CurrentEchoFunc Layer upgff
2780  + I CurrentEchoFunc !Layer 4
2781  + I CurrentEchoFunc !Layer 6
2782  + I CurrentEchoFunc !Layer 2
2783  + I CurrentEchoFunc !Layer
2784  + I CurrentEchoFunc !Layer upgff
2785  + I CurrentEchoFunc State 0
2786  + I CurrentEchoFunc State 32
2787  + I CurrentEchoFunc State
2788  + I CurrentEchoFunc State -12
2789  + I CurrentEchoFunc State 45
2790  + I CurrentEchoFunc State bvbhvgh
2791  + I CurrentEchoFunc !State 0
2792  + I CurrentEchoFunc !State 32
2793  + I CurrentEchoFunc !State
2794  + I CurrentEchoFunc !State -12
2795  + I CurrentEchoFunc !State 45
2796  + I CurrentEchoFunc !State bvbhvgh
2797  + I CurrentEchoFunc Sticky
2798  + I CurrentEchoFunc !Sticky
2799  + I CurrentEchoFunc FixedSize
2800  + I CurrentEchoFunc !FixedSize
2801  + I CurrentEchoFunc HasHandles
2802  + I CurrentEchoFunc !HasHandles
2803  + I CurrentEchoFunc Closable
2804  + I CurrentEchoFunc !Closable
2805  + I CurrentEchoFunc Iconifiable
2806  + I CurrentEchoFunc !Iconifiable
2807  + I CurrentEchoFunc Maximizable
2808  + I CurrentEchoFunc !Maximizable
2809  + I CurrentEchoFunc StickyAcrossPages
2810  + I CurrentEchoFunc !StickyAcrossPages
2811  + I CurrentEchoFunc StickyAcrossDesks
2812  + I CurrentEchoFunc !StickyAcrossDesks
2813  + I CurrentEchoFunc Maximized
2814  + I CurrentEchoFunc !Maximized
2815  + I CurrentEchoFunc Shaded
2816  + I CurrentEchoFunc !Shaded
2817  + I CurrentEchoFunc Transient
2818  + I CurrentEchoFunc !Transient
2819  + I CurrentEchoFunc PlacedByButton3
2820  + I CurrentEchoFunc !PlacedByButton3
2821  + I CurrentEchoFunc PlacedByFvwm
2822  + I CurrentEchoFunc !PlacedByFvwm
2823  + I CurrentEchoFunc CurrentDesk
2824  + I CurrentEchoFunc !CurrentDesk
2825  + I CurrentEchoFunc CurrentPage
2826  + I CurrentEchoFunc !CurrentPage
2827  + I CurrentEchoFunc CurrentScreen
2828  + I CurrentEchoFunc !CurrentScreen
2829  + I CurrentEchoFunc CurrentGlobalPage
2830  + I CurrentEchoFunc !CurrentGlobalPage
2831  + I CurrentEchoFunc CurrentPageAnyDesk
2832  + I CurrentEchoFunc !CurrentPageAnyDesk
2833  + I CurrentEchoFunc CurrentGlobalPageAnyDesk
2834  + I CurrentEchoFunc !CurrentGlobalPageAnyDesk
2835 # All test
2836  + I CurrentEchoFunc * \
2837  !* \
2838  window* \
2839  window6 \
2840  !window* \
2841  !window6 \
2842  AcceptsFocus \
2843  !AcceptsFocus \
2844  Focused \
2845  !Focused \
2846  HasPointer \
2847  !HasPointer \
2848  Iconic \
2849  !Iconic \
2850  Visible \
2851  !Visible \
2852  Raised \
2853  !Raised \
2854  Layer 4 \
2855  Layer 6 \
2856  Layer 2 \
2857  !Layer 2\
2858  !Layer 4 \
2859  !Layer 6 \
2860  State 0 \
2861  State 32 \
2862  !State 0 \
2863  !State 32 \
2864  !State 45 \
2865  Sticky \
2866  !Sticky \
2867  FixedSize \
2868  !FixedSize \
2869  HasHandles \
2870  !HasHandles \
2871  Closable \
2872  !Closable \
2873  Iconifiable \
2874  !Iconifiable \
2875  Maximizable \
2876  !Maximizable \
2877  StickyAcrossPages \
2878  !StickyAcrossPages \
2879  StickyAcrossDesks \
2880  !StickyAcrossDesks \
2881  Maximized \
2882  !Maximized \
2883  Shaded \
2884  !Shaded \
2885  Transient \
2886  !Transient \
2887  PlacedByButton3 \
2888  !PlacedByButton3 \
2889  PlacedByFvwm \
2890  !PlacedByFvwm \
2891  CurrentDesk \
2892  !CurrentDesk \
2893  CurrentPage \
2894  !CurrentPage \
2895  CurrentScreen \
2896  !CurrentScreen \
2897  CurrentGlobalPage \
2898  !CurrentGlobalPage \
2899  CurrentPageAnyDesk \
2900  !CurrentPageAnyDesk \
2901  CurrentGlobalPageAnyDesk \
2902  !CurrentGlobalPageAnyDesk
2903
2904 DestroyFunc DirectionEchoFunc
2905 AddToFunc DirectionEchoFunc
2906 + I Direction $* Nop
2907 + I KeepRc TestRc (Match) Echo Direction ($*) Match
2908 + I KeepRc TestRc (NoMatch) Echo Direction ($*) NoMatch
2909 + I TestRc (Error) Echo Direction ($*) Error
2910
2911 AddTest "Test Direction" Direction-Func
2912 AddToFunc Direction-Func
2913 + I DirectionEchoFunc North
2914 + I DirectionEchoFunc Northeast
2915 + I DirectionEchoFunc East
2916 + I DirectionEchoFunc Southeast
2917 + I DirectionEchoFunc South
2918 + I DirectionEchoFunc Southwest
2919 + I DirectionEchoFunc West
2920 + I DirectionEchoFunc Northwest
2921 + I DirectionEchoFunc Center
2922 #
2923 + I DirectionEchoFunc FromPointer North
2924 + I DirectionEchoFunc FromPointer Northeast
2925 + I DirectionEchoFunc FromPointer East
2926 + I DirectionEchoFunc FromPointer Southeast
2927 + I DirectionEchoFunc FromPointer South
2928 + I DirectionEchoFunc FromPointer Southwest
2929 + I DirectionEchoFunc FromPointer West
2930 + I DirectionEchoFunc FromPointer Northwest
2931 + I DirectionEchoFunc FromPointer Center
2932 #
2933 + I DirectionEchoFunc FromPointer North (*)
2934 + I DirectionEchoFunc FromPointer Northeast (!Sticky)
2935 + I DirectionEchoFunc FromPointer East (Sticky)
2936 + I DirectionEchoFunc FromPointer Southeast (Shaded)
2937 + I DirectionEchoFunc FromPointer South (!Shaded)
2938 + I DirectionEchoFunc FromPointer Southwest (Iconic)
2939 + I DirectionEchoFunc FromPointer West (!Iconic)
2940 + I DirectionEchoFunc FromPointer Northwest (!PlacedByFvwm)
2941 + I DirectionEchoFunc FromPointer Center (PlacedByFvwm)
2942 #
2943 + I DirectionEchoFunc aNort
2944 + I DirectionEchoFunc
2945 + I DirectionEchoFunc FromPoir East
2946 + I DirectionEchoFunc FromPointer gfcfgffg
2947
2948
2949 DestroyFunc NextEchoFunc
2950 AddToFunc NextEchoFunc
2951 + I Next ($*) Nop
2952 + I KeepRc TestRc (Match) Echo Next ($*) Match: $[w.name]
2953 + I KeepRc TestRc (NoMatch) Echo Next ($*) NoMatch
2954 + I KeepRc TestRc (Error) Echo Next ($*) Error
2955
2956 # Need more conditions like Current, with exceptions, see man page.
2957 AddTest "Test Next" Next-Func
2958 AddToFunc Next-Func
2959  + I next
2960  + I next
2961  + I Next  ()
2962  + I next   (*)   focus
2963  + I next               (*)             flipfocus
2964  + I NextEchoFunc CirculateSkip
2965  + I NextEchoFunc CirculateHit
2966  + I NextEchoFunc !CirculateSkip
2967  + I NextEchoFunc !CirculateHit
2968  + I NextEchoFunc CirculateSkipIcon
2969  + I NextEchoFunc CirculateHitIcon
2970  + I NextEchoFunc !CirculateSkipIcon
2971  + I NextEchoFunc !CirculateHitIcon
2972  + I NextEchoFunc CirculateSkipShaded
2973  + I NextEchoFunc CirculateHitShaded
2974  + I NextEchoFunc !CirculateSkipShaded
2975  + I NextEchoFunc !CirculateHitIconShaded
2976  + I NextEchoFunc (sddsddsfd)
2977
2978 DestroyFunc NoneEchoFunc
2979 AddToFunc NoneEchoFunc
2980 + I None ($*) Nop
2981 + I KeepRc TestRc (Match) Echo None ($*) Match
2982 + I KeepRc TestRc (NoMatch) Echo None ($*) NoMatch
2983 + I KeepRc TestRc (Error) Echo None ($*) Error
2984
2985 # Needs more conditions like Current
2986 AddTest "Test None" None-Func
2987 AddToFunc None-Func
2988  + I none
2989  + I None
2990  + I none  ()
2991  + I none   (*)   focus
2992  + I none               (*)             flipfocus olöiqwehj
2993 # All One test
2994  + I NoneEchoFunc *
2995  + I NoneEchoFunc !*
2996  + I NoneEchoFunc window*
2997  + I NoneEchoFunc window6
2998  + I NoneEchoFunc !window*
2999  + I NoneEchoFunc !window6
3000  + I NoneEchoFunc AcceptsFocus
3001  + I NoneEchoFunc !AcceptsFocus
3002  + I NoneEchoFunc Focused
3003  + I NoneEchoFunc !Focused
3004  + I NoneEchoFunc HasPointer
3005  + I NoneEchoFunc !HasPointer
3006  + I NoneEchoFunc Iconic
3007  + I NoneEchoFunc !Iconic
3008  + I NoneEchoFunc Visible
3009  + I NoneEchoFunc !Visible
3010  + I NoneEchoFunc Raised
3011  + I NoneEchoFunc !Raised
3012  + I NoneEchoFunc Layer 4
3013  + I NoneEchoFunc Layer 6
3014  + I NoneEchoFunc Layer 2
3015  + I NoneEchoFunc Layer
3016  + I NoneEchoFunc Layer upgff
3017  + I NoneEchoFunc !Layer 4
3018  + I NoneEchoFunc !Layer 6
3019  + I NoneEchoFunc !Layer 2
3020  + I NoneEchoFunc !Layer
3021  + I NoneEchoFunc !Layer upgff
3022  + I NoneEchoFunc State 0
3023  + I NoneEchoFunc State 32
3024  + I NoneEchoFunc State
3025  + I NoneEchoFunc State -12
3026  + I NoneEchoFunc State 45
3027  + I NoneEchoFunc State bvbhvgh
3028  + I NoneEchoFunc !State 0
3029  + I NoneEchoFunc !State 32
3030  + I NoneEchoFunc !State
3031  + I NoneEchoFunc !State -12
3032  + I NoneEchoFunc !State 45
3033  + I NoneEchoFunc !State bvbhvgh
3034  + I NoneEchoFunc Sticky
3035  + I NoneEchoFunc !Sticky
3036  + I NoneEchoFunc FixedSize
3037  + I NoneEchoFunc !FixedSize
3038  + I NoneEchoFunc HasHandles
3039  + I NoneEchoFunc !HasHandles
3040  + I NoneEchoFunc Closable
3041  + I NoneEchoFunc !Closable
3042  + I NoneEchoFunc Iconifiable
3043  + I NoneEchoFunc !Iconifiable
3044  + I NoneEchoFunc Maximizable
3045  + I NoneEchoFunc !Maximizable
3046  + I NoneEchoFunc StickyAcrossPages
3047  + I NoneEchoFunc !StickyAcrossPages
3048  + I NoneEchoFunc StickyAcrossDesks
3049  + I NoneEchoFunc !StickyAcrossDesks
3050  + I NoneEchoFunc Maximized
3051  + I NoneEchoFunc !Maximized
3052  + I NoneEchoFunc Shaded
3053  + I NoneEchoFunc !Shaded
3054  + I NoneEchoFunc Transient
3055  + I NoneEchoFunc !Transient
3056  + I NoneEchoFunc PlacedByButton3
3057  + I NoneEchoFunc !PlacedByButton3
3058  + I NoneEchoFunc PlacedByFvwm
3059  + I NoneEchoFunc !PlacedByFvwm
3060  + I NoneEchoFunc CurrentDesk
3061  + I NoneEchoFunc !CurrentDesk
3062  + I NoneEchoFunc CurrentPage
3063  + I NoneEchoFunc !CurrentPage
3064  + I NoneEchoFunc CurrentScreen
3065  + I NoneEchoFunc !CurrentScreen
3066  + I NoneEchoFunc CurrentGlobalPage
3067  + I NoneEchoFunc !CurrentGlobalPage
3068  + I NoneEchoFunc CurrentPageAnyDesk
3069  + I NoneEchoFunc !CurrentPageAnyDesk
3070  + I NoneEchoFunc CurrentGlobalPageAnyDesk
3071  + I NoneEchoFunc !CurrentGlobalPageAnyDesk
3072  + I NoneEchoFunc CirculateSkip
3073  + I NoneEchoFunc CirculateHit
3074  + I NoneEchoFunc !CirculateSkip
3075  + I NoneEchoFunc !CirculateHit
3076  + I NoneEchoFunc CirculateSkipIcon
3077  + I NoneEchoFunc CirculateHitIcon
3078  + I NoneEchoFunc !CirculateSkipIcon
3079  + I NoneEchoFunc !CirculateHitIcon
3080  + I NoneEchoFunc CirculateSkipShaded
3081  + I NoneEchoFunc CirculateHitShaded
3082  + I NoneEchoFunc !CirculateSkipShaded
3083  + I NoneEchoFunc !CirculateHitIconShaded
3084  + I NoneEchoFunc sddsddsfd
3085 # All test (stupid!)
3086  + I NoneEchoFunc * \
3087  !* \
3088  window* \
3089  window6 \
3090  !window* \
3091  !window6 \
3092  AcceptsFocus \
3093  !AcceptsFocus \
3094  Focused \
3095  !Focused \
3096  HasPointer \
3097  !HasPointer \
3098  Iconic \
3099  !Iconic \
3100  Visible \
3101  !Visible \
3102  Raised \
3103  !Raised \
3104  Layer 4 \
3105  Layer 6 \
3106  Layer 2 \
3107  !Layer 2\
3108  !Layer 4 \
3109  !Layer 6 \
3110  State 0 \
3111  State 32 \
3112  !State 0 \
3113  !State 32 \
3114  !State 45 \
3115  Sticky \
3116  !Sticky \
3117  FixedSize \
3118  !FixedSize \
3119  HasHandles \
3120  !HasHandles \
3121  Closable \
3122  !Closable \
3123  Iconifiable \
3124  !Iconifiable \
3125  Maximizable \
3126  !Maximizable \
3127  StickyAcrossPages \
3128  !StickyAcrossPages \
3129  StickyAcrossDesks \
3130  !StickyAcrossDesks \
3131  Maximized \
3132  !Maximized \
3133  Shaded \
3134  !Shaded \
3135  Transient \
3136  !Transient \
3137  PlacedByButton3 \
3138  !PlacedByButton3 \
3139  PlacedByFvwm \
3140  !PlacedByFvwm \
3141  CurrentDesk \
3142  !CurrentDesk \
3143  CurrentPage \
3144  !CurrentPage \
3145  CurrentScreen \
3146  !CurrentScreen \
3147  CurrentGlobalPage \
3148  !CurrentGlobalPage \
3149  CurrentPageAnyDesk \
3150  !CurrentPageAnyDesk \
3151  CurrentGlobalPageAnyDesk \
3152  !CurrentGlobalPageAnyDesk \
3153  CirculateSkip \
3154  CirculateHit \
3155  !CirculateSkip \
3156  !CirculateHit \
3157  CirculateSkipIcon \
3158  CirculateHitIcon \
3159  !CirculateSkipIcon \
3160  !CirculateHitIcon \
3161  CirculateSkipShaded \
3162  CirculateHitShaded \
3163  !CirculateSkipShaded \
3164  !CirculateHitIconShaded \
3165  sddsddsfd
3166
3167 # Need "Pick" tests
3168
3169 # FIXME: PointerWindow
3170
3171 AddTest "Test Prev" Prev-Func
3172 AddToFunc Prev-Func
3173  + I prev
3174  + I prev
3175  + I prev  ()
3176  + I prev   (*)   focus
3177  + I prev               (*)             flipfocus
3178
3179 # FIXME: ScanForWindow
3180
3181 # FIXME: ThisWindow
3182
3183 AddTest "Test WindowId" WindowId-Func
3184 AddToFunc WindowId-Func
3185  + I WindowID
3186  + I WindowID
3187  + I WindowID 0x7491
3188  + I WindowID  3ölu -öirü2i 4li<F2><F5><F4>7z90
3189  + I WindowID 0x00110011 nop
3190  + I WindowID   0x00110011   nop
3191  + I WindowID           0x00110011              nop
3192  + I WindowId root 1 WarpToWindow 50 50
3193  + I WindowId root WarpToWindow 0 0
3194
3195 # FIXME: NoWindow
3196
3197 AddTest "Test Test" Test-Func
3198 AddToFunc Test-Func
3199 + I Test (Version 2.5.*) Echo 2.5.x detected
3200 + I TestRc (NoMatch) Test (!Version 2.6.*) Echo Future version
3201 + I TestRc (NoMatch) Echo 2.6.x is detected
3202 + I Test (!Version 2.4.*) Echo Not runing 2.4.x
3203 + I Test (Version) Nop
3204 + I TestRc (Match) Echo (Version) -> match
3205 + I TestRc (Match) Echo (Version) -> nomatch
3206 + I TestRc (Match) Echo (Version) -> error
3207 + I Test (!Init) Echo not at init
3208 + I Test (!Start) Echo not at start
3209 + I Test (!ReStart) Echo not at restart
3210 + I Test (!quit) Echo not at quit
3211 + I Test (!exit) Echo not at exit
3212 + I Test (Init) Echo At init -- error
3213 + I TestRc (NoMatch) Echo relly not at init
3214 + I Test (Start) Echo At start -- error
3215 + I TestRc (NoMatch) Echo relly not at start
3216 + I Test (ReStart) Echo At restart -- error
3217 + I TestRc (NoMatch) Echo relly not at restart
3218 + I Test (Exit) Echo At exit -- error
3219 + I TestRc (NoMatch) Echo relly not at exit
3220 + I Test (Quit) Echo At quit -- error
3221 + I TestRc (NoMatch) Echo relly not at quit
3222 #
3223 + I Test (x xterm) Echo xterm is in path
3224 + I TestRc (NoMatch) Echo xterm is not in path
3225 + I Test (x plouf) Echo plouf is in path
3226 + I TestRc (NoMatch) Echo plouf is not in path
3227 + I Test (x $[HOME]/.fvwm) Echo $[HOME]/.fvwm is traversable
3228 + I Test (!x $[HOME]/.uuuuuuuuuuu) Echo $[HOME]/.uuuuuuuuuu is not traversable
3229 + I Test (x) Echo Test (x) True error (NoMatch)
3230 + I TestRc (NoMatch) Echo  Test (x) True error (Match)
3231 + I TestRc (Error) Echo  Test (x) gives error
3232 + I Test (x          ) Echo Test (x) True error (NoMatch)
3233 + I TestRc (NoMatch) Echo  Test (x) True error (Match)
3234 + I TestRc (Error) Echo  Test (x) gives error
3235 #
3236 + I Test (r /root) Echo Outch /root is readable
3237 + I Test (!r $[HOME]) Echo Outch $[HOME] is not readable
3238 + I Test (r) Echo Test (r) True error (NoMatch)
3239 + I TestRc (NoMatch) Echo  Test (r) True error (Match)
3240 + I TestRc (Error) Echo  Test (r) gives error
3241 + I Test (r          ) Echo Test (r) True error (NoMatch)
3242 + I TestRc (NoMatch) Echo  Test (r) True error (Match)
3243 + I TestRc (Error) Echo  Test (r      ) gives error
3244 #
3245 + I Test (w /root) Echo Outch /root is writable
3246 + I Test (!w $[HOME]) Echo Outch $[HOME] is not writable
3247 + I Test (w) Echo Test (r) True error (NoMatch)
3248 + I TestRc (NoMatch) Echo  Test (w) True error (Match)
3249 + I TestRc (Error) Echo  Test (w) gives error
3250 + I Test (w          ) Echo Test (w) True error (NoMatch)
3251 + I TestRc (NoMatch) Echo  Test (w) True error (Match)
3252 + I TestRc (Error) Echo  Test (w         ) gives error
3253 #
3254 + I Test (!f $[HOME]) Echo Outch $[HOME] is does not exist
3255 + I Test (f $[HOME]/uuuuuuuuuu) Echo Outch $[HOME]/uuuuuuuuuuu exists
3256 + I Test (f) Echo Test (r) True error (NoMatch)
3257 + I TestRc (NoMatch) Echo  Test (f) True error (Match)
3258 + I TestRc (Error) Echo  Test (f) gives error
3259 + I Test (f          ) Echo Test (f) True error (NoMatch)
3260 + I TestRc (NoMatch) Echo  Test (f) True error (Match)
3261 + I TestRc (Error) Echo  Test (f         ) gives error
3262 #
3263 + I Test (i test.png) Echo  test.png is in imagepath
3264 + I TestRc (NoMatch) Echo  test.png is not in path
3265 + I TestRc (Error) Echo Test (i test.png) true error
3266 + I Test (i plouf) Echo plouf is in imagepath
3267 + I TestRc (NoMatch) Echo plouf is not in path
3268 + I Test (i /tmp/test.png) Echo /tmp/test.png is in imagepath
3269 + I TestRc (NoMatch) Echo  /tmp/test.png is not in imagepath -- true error?
3270 + I TestRc (Error) Echo Test (i /tmp/test.png) true error
3271 + I Test (i /tmp/uuuu) Echo /tmp/uuuu is in imagepath
3272 + I TestRc (NoMatch) Echo  /tmp/uuuu is not in imagepath
3273 + I TestRc (Error) Echo Test (i /tmp/uuuu) true error
3274 + I Test (i) Echo Test (i) True error (NoMatch)
3275 + I TestRc (NoMatch) Echo  Test (i) True error (Match)
3276 + I TestRc (Error) Echo  Test (i) gives error
3277 + I Test (i          ) Echo Test (i) True error (NoMatch)
3278 + I TestRc (NoMatch) Echo  Test (i) True error (Match)
3279 + I TestRc (Error) Echo  Test (i) gives error
3280
3281 AddTest "Test ModuleConfig" ModuleConfig-Func
3282 AddToFunc ModuleConfig-Func
3283  + I DestroyModuleConfig dummymodule
3284  + I *dummymodule
3285  + I *dummymodule
3286  + I *dummymodule ÖLq- ö.qljüpßi+123
3287  + I *dummymodule1fooqmnld Ä"§k
3288  + I *dummymodule1p     o q#köpiü
3289  + I *dummymodule1wqwq  lkjöö 13
3290  + I *dummymodule1r 13r  g3w
3291  + I *dummymodule2r 13r  g3w
3292  + I *dummymodule2r 13r  g3w
3293  + I *dummymodule2 121 32
3294  + I *dummymodule2 qw 124
3295  + I *xFvwmIconBox: MaxIconSize 48x48
3296  + I *xFvwmPager: WindowBorderWidth 1
3297  + I *xFvwmIconBox: Max*IconSize 48x48
3298  + I *xFvwmPager: Windo:wBor:derWidth 1
3299
3300 AddTest "Test DestroyModuleConfig" DestroyModuleConfig-Func
3301 AddToFunc DestroyModuleConfig-Func
3302  + I DestroyModuleConfig
3303  + I DestroyModuleConfig
3304  + I DestroyModuleConfig  dummymodule1
3305  + I DestroyModuleConfig                dummymodule1
3306  + I DestroyModuleConfig dummymod*
3307  + I DestroyModuleConfig dummymod*
3308  + I *dummymodule
3309  + I *dummymodule
3310  + I *dummymodule ÖLq- ö.qljüpßi+123
3311  + I *dummymodule1fooqmnld Ä"§k
3312  + I *dummymodule1p     o q#köpiü
3313  + I *dummymodule1wqwq  lkjöö 13
3314  + I *dummymodule1r 13r  g3w
3315  + I *dummymodule2r 13r  g3w
3316  + I *dummymodule2r 13r  g3w
3317  + I *dummymodule2 121 32
3318  + I *dummymodule2 qw 124
3319  + I DestroyModuleConfig *
3320  + I DestroyModuleConfig xFvwmButtons*
3321  + I DestroyModuleConfig xFvwmForm: Fore
3322  + I DestroyModuleConfig xFvwmIconBox: Max*
3323
3324 AddTest "Test KillModule" KillModule-Func
3325 AddToFunc KillModule-Func
3326 # First try no name:
3327  + I KillModule
3328  + I KillModule
3329 # Now try a module that doesn't exist
3330  + I KillModule         NoSuchModule
3331 # Now create a module and kill it twice:
3332  + I Module FvwmBanner
3333  + I KillModule FvwmBanner
3334  + I KillModule FvwmBanner
3335 # Need some tests using module aliased and the : syntax
3336
3337 # Module command already tested.
3338
3339 # ModulePath tested near end since it hurts...
3340
3341 AddTest "Test ModuleSynchronous" ModuleSynchronous-Func
3342 AddToFunc ModuleSynchronous-Func
3343  + I ModuleSynchronous FvwmBanner
3344  + I KillModule FvwmBanner
3345  + I ModuleSynchronous Timeout 1 FvwmBanner
3346  + I KillModule FvwmBanner
3347  + I ModuleSynchronous Expect Nothing Timeout 0 FvwmBanner
3348  + I KillModule FvwmBanner
3349
3350 AddTest "Test ModuleTimeout" ModuleTimeout-Func
3351 AddToFunc ModuleTimeout-Func
3352  + I ModuleTimeout 0
3353  + I ModuleTimeout
3354  + I ModuleTimeout Junk
3355  + I ModuleTimeout 01111111111111111
3356  + I ModuleTimeout 2e222
3357  + I ModuleTimeout 30
3358
3359
3360 AddTest "Test SendToModule" SendToModule-Func
3361 AddToFunc SendToModule-Func
3362  + I SendToModule
3363  + I SendToModule
3364  + I SendToModule       FvwmBanner      .-, q-l  ,j
3365  + I SendToModule               FvwmBanner              .-, q-l  ,j
3366
3367 # Quit is tested later, for obvious reasons.
3368
3369 # QuitScreen isn't tested at all.
3370
3371 # QuitSession isn't tested at all.
3372
3373 # Need a restart test
3374
3375 AddTest "Test SaveSession" SaveSession-Func
3376 AddToFunc SaveSession-Func
3377  + I SaveSession
3378
3379 # SaveQuitSession isn't tested.
3380
3381 # Ending ManPage Order
3382
3383
3384 # start Module tests.  Might make sense to put these in another file:
3385 AddTest "Test FvwmBanner" FvwmBanner-Func
3386 AddToFunc FvwmBanner-Func
3387  + I *FvwmBannerTimeout 10
3388  + I *FvwmBannerTimeout 1000
3389  + I *FvwmBannerTimeout 9182743120348908713204
3390  + I Module
3391  + I Module
3392  + I Module FvwmBanner
3393  + I Module    FvwmBanner
3394  + I Module             FvwmBanner
3395
3396
3397 # I disabled all of these since they are mostly tested above and
3398 # lots of them have random targets, making them unpredictable.
3399
3400 # # ShortHand Function for next test:
3401 # DestroyFunc EchoDo
3402 # AddToFunc EchoDo
3403 #  + I AddToFunc AllFunctionsNoParams-Func I Echo Doing $0
3404 #  + I AddToFunc AllFunctionsNoParams-Func I $0
3405
3406
3407 # AddTest "Test AllFunctionsNoParams" AllFunctionsNoParams-Func
3408 # AddToFunc AllFunctionsNoParams-Func
3409 # EchoDo AddButtonStyle
3410 # EchoDo AddTitleStyle
3411 # EchoDo AddToDecor
3412 # EchoDo AddToFunc
3413 # EchoDo AddToMenu
3414 # EchoDo AnimatedMove
3415 # EchoDo Beep
3416 # EchoDo BorderStyle
3417 # EchoDo ButtonStyle
3418 # EchoDo ChangeDecor
3419 # EchoDo ClickTime
3420 # EchoDo Close
3421 # EchoDo ColorLimit
3422 # EchoDo ColormapFocus
3423 # EchoDo Current
3424 # EchoDo CursorMove
3425 # EchoDo CursorStyle
3426 # EchoDo Delete
3427 # EchoDo Desk
3428 # EchoDo DeskTopSize
3429 # EchoDo Destroy
3430 # EchoDo DestroyDecor
3431 # EchoDo DestroyFunc
3432 # EchoDo DestroyMenu
3433 # EchoDo DestroyModuleConfig
3434 # EchoDo Echo
3435 # EchoDo EdgeResistance
3436 # EchoDo EdgeScroll
3437 # EchoDo Exec
3438 # EchoDo ExecUseShell
3439 # EchoDo FlipFocus
3440 # EchoDo Focus
3441 # EchoDo Function
3442 # EchoDo GlobalOpts
3443 # EchoDo GotoPage
3444 # EchoDo HilightColor
3445 # EchoDo IconFont
3446 # EchoDo Iconify
3447 # EchoDo IconPath
3448 # EchoDo Key
3449 # EchoDo KillModule
3450 # EchoDo Lower
3451 # EchoDo Maximize
3452 # EchoDo Menu
3453 # EchoDo MenuStyle
3454 # EchoDo Module
3455 # EchoDo ModulePath
3456 # EchoDo Move
3457 # EchoDo MoveToPage
3458 # EchoDo Nop
3459 # EchoDo Next
3460 # EchoDo None
3461 # EchoDo OpaqueMoveSize
3462 # EchoDo PipeRead
3463 # EchoDo PixmapPath
3464 # EchoDo Popup
3465 # EchoDo Prev
3466 # EchoDo Raise
3467 # EchoDo RaiseLower
3468 # EchoDo Read
3469 # EchoDo Recapture
3470 # EchoDo Refresh
3471 # EchoDo RefreshWindow
3472 # EchoDo Resize
3473 # EchoDo SendToModule
3474 # EchoDo SetAnimation
3475 # EchoDo SetMenuDelay
3476 # EchoDo SetEnv
3477 # EchoDo Scroll
3478 # EchoDo Stick
3479 # EchoDo Style
3480 # EchoDo Title
3481 # EchoDo TitleStyle
3482 # EchoDo TitleStyle
3483 # EchoDo UpdateDecor
3484 # EchoDo WarpToWindow
3485 # #Log "Test hang"
3486 # #Wait
3487 # EchoDo MoveToDesk
3488 # EchoDo WindowFont
3489 # EchoDo WindowId
3490 # EchoDo WindowList
3491 # EchoDo WindowShade
3492 # EchoDo XORvalue
3493
3494 AddTest "Test ModulePath" ModulePath-Func
3495 AddToFunc ModulePath-Func
3496 # the proper config does not have ModulePath, this overwrites a good default
3497 # This is near the end because it kills module execution.
3498  + I ModulePath
3499  + I ModulePath
3500  + I ModulePath $HOME/bin/fvwm2:/usr/local/libexec/fvwm/2.1.2
3501  + I ModulePath /usr/local/libexec/fvwm/2.1.2:/nonexisT/FOO/bar:$HOME/bin/fvwm2
3502  + I ModulePath /usr/local/libexec/fvwm/2.1.2:/nonexisT/FOO/bar:$HOME/bin/fvwm2
3503  + I ModulePath $HOME/bin/fvwm2
3504  + I ModulePath +:+:+
3505  + I ModulePath   $HOME/bin/fvwm2:/usr/local/libexec/fvwm/2.1.2:/nonexist/foo/bar
3506  + I ModulePath                 $HOME/bin/fvwm2:/usr/local/libexec/fvwm/2.1.2:/nonexist/foo/bar
3507  + I ModulePath
3508  + I ModulePath $HOME/bin/fvwm2:/usr/local/libexec/fvwm/2.3.22:/opt/public/src/fvwm/2.3.22:/home/olivier/local/opt/fvwm/libexec/2.5.7
3509
3510 AddTest "Test Cleanup" Cleanup-Func
3511 AddToFunc Cleanup-Func
3512  + I All (window1) destroy
3513 # Old [] syntax tested intentionally
3514  + I All [window2] destroy
3515  + I All (window3) destroy
3516  + I All (window4) destroy
3517  + I All (window5) destroy
3518  + I All (window6) destroy
3519  + I All (window_iconic) destroy
3520  + I All (window_shaded) destroy
3521  + I beep
3522  + I Echo ------------ ok ------------
3523  + I TestQuitFunc
3524 # + I quit poesfj apäuofw ük-lnlöiooüp. ..a,sjdms.,x-,
3525
3526 DestroyFunc PurifyInit
3527 AddToFunc   PurifyInit
3528  + I ImagePath /tmp
3529  + I mouse 1 1 a close
3530  + I mouse 1 2 a Maximize
3531  + I mouse 1 t a move
3532  + I mouse 2 t a lower
3533  + I mouse 3 t a raiselower
3534  + I Exec xterm -geometry 10x5+0-0 -T window0 -n window0 -e sleep 1000
3535  + I Wait window0
3536 # + I CreateWindows-Func
3537 # + I Menu TestMenu
3538
3539 # Now Display the tests:
3540 AddToFunc InitFunction
3541  + I ImagePath /tmp
3542  + I mouse 1 1 a close
3543  + I mouse 1 2 a Maximize
3544 # + I mouse 1 3 a Stick
3545 # + I mouse 1 4 a WindowShade
3546  + I mouse 1 t a move
3547  + I mouse 2 t a lower
3548  + I mouse 3 t a raiselower
3549  + I Exec xterm -geometry 10x5+0-0 -T window0 -n window0 -e sleep 1000
3550  + I Wait window0
3551  + I Menu TestMenu
3552 # ... and bind it to a button
3553 Mouse 1 r a Menu TestMenu
3554
3555 Log "After Menu-Prompt, Done."