scripts/FvwmScript-GlobalFeel

   1 # This script is free software; you can redistribute it and/or modify
   2 # it under the terms of the GNU General Public License as published by
   3 # the Free Software Foundation; either version 2 of the License, or
   4 # (at your option) any later version.
   5 #
   6 # This program is distributed in the hope that it will be useful,
   7 # but WITHOUT ANY WARRANTY; without even the implied warranty of
   8 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   9 # GNU General Public License for more details.
  10 #
  11 # You should have received a copy of the GNU General Public License
  12 # along with this program; if not, write to the Free Software
  13 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  14 #
  15
  16 #-----------------------------------------------------------------------------
  17 # Copyright 2000, Olivier Chapuis
  18 #-----------------------------------------------------------------------------
  19
  20
  21 WindowTitle {FVWM Themes Global Feel}
  22 WindowSize 610 480
  23 Font    -adobe-helvetica-bold-r-*-*-12-*
  24
  25 Init
  26 Begin
  27     #Do {Echo CC started}
  28     Do {FvwmScript FvwmScript-NoteMessage "Loading Configuration"}
  29
  30     Set $Lang = {}
  31     Set $ViewerColorset = 33
  32     Set $TextColorset = 36
  33     Set $IconColorset = 5
  34     # Arguments
  35     Set $i = 1
  36     Set $arg = (GetScriptArgument $i)
  37     While $arg <> {} Do
  38     Begin
  39         Set $j = (Add $i 1)
  40         If $arg == {--viewer-colorset} Then
  41             Set $ViewerColorset = (GetScriptArgument $j)
  42         If $arg == {--text-colorset} Then
  43             Set $TextColorset = (GetScriptArgument $j)
  44         If $arg == {--icon-colorset} Then
  45             Set $IconColorset = (GetScriptArgument $j)
  46         If $arg == {--lang} Then
  47             Set $Lang = (GetScriptArgument $j)
  48         Set $i = (Add $i 2)
  49         Set $arg = (GetScriptArgument $i)
  50     End
  51
  52     If $TextColorset <> {} Then
  53     Begin
  54         ChangeColorset 35 $TextColorset
  55         ChangeColorset 46 $TextColorset
  56         ChangeColorset 51 $TextColorset
  57         ChangeColorset 53 $TextColorset
  58         ChangeColorset 58 $TextColorset
  59         ChangeColorset 68 $TextColorset
  60         ChangeColorset 71 $TextColorset
  61         ChangeColorset 78 $TextColorset
  62         ChangeColorset 81 $TextColorset
  63         ChangeColorset 98 $TextColorset
  64         ChangeColorset 102 $TextColorset
  65         ChangeColorset 104 $TextColorset
  66     End
  67
  68     If $ViewerColorset <> {} Then
  69     Begin
  70         ChangeColorset 990 $ViewerColorset
  71     End
  72
  73 # -----------------------------------------------------------------------------
  74 # Initialization of the com loop and first query
  75
  76     # found the FvwmScript pid
  77     Set $cmd = {exec perl -e 'print getppid . "\n"'}
  78     Set $pid = (GetOutput $cmd 1 -1)
  79
  80     # Run fvwm-themes-script until the end of the script
  81     Do {Exec fvwm-themes-script --globalfeel --com-name=script-}$pid{ &}
  82
  83     # to send fvwm-themes-com command
  84     Set $SendMsgAndGet = {fvwm-themes-com --name script-}$pid{ --lock-and-get --message=}
  85     Set $SendMsg = {fvwm-themes-com --name script-}$pid{ --message=}
  86     Set $GetLine = {fvwm-themes-com --name script-}$pid{ --get-buffer --line=}
  87
  88
  89     Set $GF_FileName = {globalfeel}
  90
  91     # component at start
  92     Set $Component = $GF_FileName
  93
  94     ### personal themes; widget 1 signal 1
  95     Set $PersonalThemes = {}
  96
  97     ### ------------------- Loading GF config
  98     # GF save, current and themes
  99     # the next two: widget 1 signal 2
 100     Set $GF_CurrentTheme = {}
 101     Set $GF_ThemesWith = {}
 102     # Loading GF configuration:
 103     #Do {Echo CC: going to load GF config}
 104     Set $cmd = $SendMsgAndGet{"get-config current globalfeel All" --line=1}
 105     Set $GF_error = (GetOutput $cmd 1 -1)
 106     Set $cmd = $GetLine{2 --clear-buffer}
 107     Set $GF_Config = (GetOutput $cmd 1 -1)
 108     #Do {Echo CC: GF config loaded}
 109
 110     ###
 111     Set $cmd = $SendMsgAndGet{"get-preferences"}
 112     Set $tmp = (GetOutput $cmd 1 -1)
 113     Set $GF_TryIsGlobal = (StrCopy $tmp 1 1)
 114     Set $GF_DefaultIsGlobal = (StrCopy $tmp 2 2)
 115     Set $GF_SaveIsGlobal = (StrCopy $tmp 3 3)
 116     ChangeValue 962 $GF_TryIsGlobal
 117     ChangeValue 963 $GF_DefaultIsGlobal
 118     ChangeValue 964 $GF_SaveIsGlobal
 119
 120 # ----------------------------------------------------------------------------
 121 # Internationalization.
 122
 123     Set $SelFont = {-adobe-helvetica-bold-r-*-*-12-*}
 124     Set $ShadeFont = {-adobe-helvetica-medium-r-*-*-12-*}
 125     Set $nonDefaultFont = 0
 126
 127     #Set $Lang = {en}
 128     #Set $Lang = {ru}
 129     If $Lang == {} Then
 130     Begin
 131         Set $cmd = {echo "$LANG" | cut -c1-2}
 132         Set $Lang = (GetOutput $cmd 1 -1)
 133     End
 134     If $Lang == {} Then
 135         Set $Lang = {C}
 136
 137     Set $msg = {}
 138     Set $id = {}
 139     Set $cmd = {fvwm-themes-script --get-msg }FvwmScript-GlobalFeel{ --lang }$Lang
 140     Set $MSG = (GetOutput $cmd 1 -1)
 141     Set $index = 0
 142     Set $notdone = 1
 143     While $notdone == 1 Do
 144     Begin
 145         Set $index = (Add $index 1)
 146         Set $id = (StrCopy $MSG $index (Add $index 11))
 147         Set $index = (Add $index 12)
 148         Set $tmp = (StrCopy $MSG $index (Add $index 3))
 149         Set $index = (Add $index 4)
 150         Set $pos = (Add $index $tmp)
 151         Set $msg = (StrCopy $MSG $index $pos)
 152         Set $index = (Add $index $tmp)
 153
 154         If $index > 9999 Then
 155             Set $notdone = 0
 156         If $id == {END         } Then
 157             Set $notdone = 0
 158         If $id == {} Then
 159             Set $notdone = 0
 160
 161         ### Menus
 162         If $id == {Menu1       } Then
 163             ChangeTitle 1 $msg
 164         If $id == {Menu2       } Then
 165             ChangeTitle 2 $msg
 166
 167         ### Focus
 168         If $id == {FocusPolicy } Then
 169             ChangeTitle 10 $msg
 170         If $id == {ClickToFocus} Then
 171             ChangeTitle 11 $msg
 172         If $id == {MouseFocus  } Then
 173             ChangeTitle 12 $msg
 174         If $id == {SloppyFocus } Then
 175             ChangeTitle 13 $msg
 176         If $id == {FocusOptions} Then
 177             ChangeTitle 14 $msg
 178         If $id == {PassClick   } Then
 179             ChangeTitle 15 $msg
 180         If $id == {ClickRaise  } Then
 181             ChangeTitle 16 $msg
 182         If $id == {ColorMap    } Then
 183             ChangeTitle 17 $msg
 184
 185         ### Placement
 186         If $id == {WinPlacement} Then
 187             ChangeTitle 18 $msg
 188         If $id == {SmartRandom } Then
 189             ChangeTitle 19 $msg
 190         If $id == {SmartActive } Then
 191             ChangeTitle 20 $msg
 192         If $id == {CleverPlace } Then
 193             ChangeTitle 21 $msg
 194         If $id == {CleverPlaceP} Then
 195             ChangeTitle 22 $msg
 196         If $id == {DumbActive  } Then
 197             ChangeTitle 23 $msg
 198         If $id == {DumbRandom  } Then
 199             ChangeTitle 24 $msg
 200         If $id == {PlacementOpt} Then
 201             ChangeTitle 25 $msg
 202         If $id == {GrabFocus   } Then
 203             ChangeTitle 26 $msg
 204         If $id == {PPosition   } Then
 205             ChangeTitle 27 $msg
 206
 207         ### Move & Resize
 208         If $id == {MoveResize  } Then
 209             ChangeTitle 30 $msg
 210         If $id == {OpaqueResize} Then
 211             ChangeTitle 32 $msg
 212         If $id == {OutLineRes  } Then
 213             ChangeTitle 33 $msg
 214         If $id == {Resizing    } Then
 215             ChangeTitle 31 $msg
 216         If $id == {OpaqueMove  } Then
 217             ChangeTitle 34 $msg
 218         If $id == {ScreenPer   } Then
 219             ChangeTitle 36 $msg
 220         If $id == {GeoPosition } Then
 221             ChangeTitle 37 $msg
 222         If $id == {GeoCenter   } Then
 223             ChangeTitle 38 $msg
 224         If $id == {GeoTopLeft  } Then
 225             ChangeTitle 39 $msg
 226         If $id == {HideGeoWin  } Then
 227             ChangeTitle 40 $msg
 228         If $id == {HideResize  } Then
 229             ChangeTitle 41 $msg
 230         If $id == {HideMove    } Then
 231             ChangeTitle 42 $msg
 232         If $id == {BuggyMove   } Then
 233             ChangeTitle 43 $msg
 234
 235         ### Snap attraction
 236         If $id == {SnapAttract } Then
 237             ChangeTitle 44 $msg
 238         If $id == {SnapDist    } Then
 239             ChangeTitle 45 $msg
 240         If $id == {SnapContext } Then
 241             ChangeTitle 47 $msg
 242         If $id == {SnapPopup   } Then
 243             ChangeTitle 48 $msg
 244         If $id == {SnapGrid    } Then
 245             ChangeTitle 49 $msg
 246         If $id == {ColorOrPix  } Then
 247             ChangeTitle 54 $msg
 248         If $id == {UseAColor   } Then
 249             ChangeTitle 55 $msg
 250         If $id == {UseAPixmap  } Then
 251             ChangeTitle 56 $msg
 252         # line colors
 253         If $id == {OneColor    } Then
 254             Set $l_OneColor = $msg
 255         If $id == {OnePixmap   } Then
 256             Set $l_OnePixmap = $msg
 257         If $id == {SColorSel   } Then
 258             Set $l_StartColorSel = $msg
 259         If $id == {StartImages } Then
 260             Set $l_StartImages = $msg
 261
 262         ### Pagination
 263         If $id == {Paging      } Then
 264             ChangeTitle 60 $msg
 265         If $id == {HPaging     } Then
 266             ChangeTitle 61 $msg
 267         If $id == {CirPaging   } Then
 268         Begin
 269             ChangeTitle 63 $msg
 270             ChangeTitle 66 $msg
 271         End
 272         If $id == {VPaging     } Then
 273             ChangeTitle 64 $msg
 274         If $id == {PagingList  } Then
 275         Begin
 276             ChangeTitle 62 $msg
 277             ChangeTitle 65 $msg
 278         End
 279         If $id == {PagingDelay } Then
 280             ChangeTitle 67 $msg
 281         If $id == {EdgeResist  } Then
 282             ChangeTitle 70 $msg
 283         If $id == {PanFrame    } Then
 284             ChangeTitle 73 $msg
 285         If $id == {Msec        } Then
 286         Begin
 287             ChangeTitle 69 $msg
 288             ChangeTitle 79 $msg
 289         End
 290         If $id == {Pixels      } Then
 291         Begin
 292             ChangeTitle 72 $msg
 293             ChangeTitle 75 $msg
 294             ChangeTitle 82 $msg
 295         End
 296
 297         ### Mouse Parameters
 298         If $id == {MousePara   } Then
 299             ChangeTitle 76 $msg
 300         If $id == {DoubleClick } Then
 301             ChangeTitle 77 $msg
 302         If $id == {MouseDrag   } Then
 303             ChangeTitle 80 $msg
 304
 305         ### Transient
 306         If $id == {TransientWin} Then
 307             ChangeTitle 90 $msg
 308         If $id == {TransNDecor } Then
 309             ChangeTitle 91 $msg
 310         If $id == {TransRaise  } Then
 311             ChangeTitle 92 $msg
 312         If $id == {TransLower  } Then
 313             ChangeTitle 93 $msg
 314         If $id == {TransMore   } Then
 315             ChangeTitle 94 $msg
 316         If $id == {TransGrab   } Then
 317             ChangeTitle 95 $msg
 318
 319         ### Animation speed
 320         If $id == {AnimTitle   } Then
 321             ChangeTitle 96 $msg
 322         If $id == {ShadeStep   } Then
 323             ChangeTitle 97 $msg
 324         If $id == {ShadeScroll } Then
 325             ChangeTitle 99 $msg
 326         If $id == {AnimMenu    } Then
 327             ChangeTitle 100 $msg
 328         If $id == {AnimSpeed   } Then
 329             ChangeTitle 101 $msg
 330         If $id == {AnimSeq     } Then
 331             ChangeTitle 103 $msg
 332         If $id == {AnimEx      } Then
 333             ChangeTitle 105 $msg
 334         If $id == {AnimList    } Then
 335             ChangeTitle 106 $msg
 336
 337         ### Hints
 338         If $id == {HintsTitle  } Then
 339             ChangeTitle 110 $msg
 340         If $id == {MWMDecor    } Then
 341             ChangeTitle 111 $msg
 342         If $id == {OLDHints    } Then
 343             ChangeTitle 112 $msg
 344         If $id == {ButShade    } Then
 345             ChangeTitle 113 $msg
 346         If $id == {MWMFunctions} Then
 347             ChangeTitle 114 $msg
 348         If $id == {GNOMEHints  } Then
 349             ChangeTitle 115 $msg
 350         If $id == {ButModal    } Then
 351             ChangeTitle 116 $msg
 352
 353         ### Busy cursor
 354         If $id == {BusyTitle   } Then
 355             ChangeTitle 117 $msg
 356
 357         ### Advenced
 358         If $id == {AdvTitle    } Then
 359             ChangeTitle 122 $msg
 360         If $id == {ColorLimit  } Then
 361             ChangeTitle 123 $msg
 362         If $id == {ModTimeOut  } Then
 363             ChangeTitle 127 $msg
 364
 365         ### GF Preference
 366         If $id == {PrefFile    } Then
 367             ChangeTitle 950 $msg
 368         If $id == {BPrefLoaded } Then
 369             Set $l_BPrefLoaded = $msg
 370         If $id == {MPrefLoaded } Then
 371             Set $l_MPrefLoaded = $msg
 372         If $id == {APrefLoaded } Then
 373             Set $l_APrefLoaded = $msg
 374         If $id == {PrefLoad    } Then
 375             ChangeTitle 952 $msg
 376         If $id == {PrefSave    } Then
 377             ChangeTitle 956 $msg
 378         If $id == {PrefAnother } Then
 379             ChangeTitle 958 $msg
 380         If $id == {Load        } Then
 381             ChangeTitle 955 $msg
 382         If $id == {Ok          } Then
 383             ChangeTitle 960 $msg
 384         If $id == {Preference  } Then
 385             ChangeTitle 961 $msg
 386         If $id == {TryIsGlobal } Then
 387             ChangeTitle 962 $msg
 388         If $id == {DefIsGlobal } Then
 389             ChangeTitle 963 $msg
 390         If $id == {SaveIsGlobal} Then
 391             ChangeTitle 964 $msg
 392
 393         ### End
 394         If $id == {ConfigLoaded} Then
 395             Set $l_ConfigLoaded = $msg
 396         If $id == {Save        } Then
 397             ChangeTitle 991 $msg
 398         If $id == {SavedInter  } Then
 399             Set $l_SavedInternally = $msg
 400         If $id == {SavedExter  } Then
 401             Set $l_SavedExternally = $msg
 402         If $id == {Try         } Then
 403             ChangeTitle 992 $msg
 404         If $id == {AppliedInter} Then
 405             Set $l_AppliedInternally = $msg
 406         If $id == {AppliedExter} Then
 407             Set $l_AppliedExternally = $msg
 408         If $id == {NoEffectHere} Then
 409             Set $l_NoEffectHere = $msg
 410         If $id == {Error       } Then
 411             Set $l_Error = $msg
 412         If $id == {Default     } Then
 413             ChangeTitle 993 $msg
 414         If $id == {Help        } Then
 415             ChangeTitle 994 $msg
 416         If $id == {Quit        } Then
 417             ChangeTitle 995 $msg
 418
 419         ### Fonts
 420         If $id == {ChangeFont  } Then
 421             Set $nonDefaultFont = $msg
 422         If $id == {SelFont     } Then
 423             Set $SelFont = $msg
 424         If $id == {ShadeFont   } Then
 425             Set $ShadeFont = $msg
 426         If $id == {FixedFont   } Then
 427             Set $FixedFont = $msg
 428     End
 429
 430     ChangeTitle 59 $l_StartColorSel
 431     If $nonDefaultFont == 1 Then
 432     Begin
 433         ChangeFont 2 $SelFont
 434         ChangeFont 10 $SelFont
 435         ChangeFont 11 $FixedFont
 436         ChangeFont 12 $FixedFont
 437         ChangeFont 13 $FixedFont
 438         ChangeFont 14 $SelFont
 439         ChangeFont 15 $FixedFont
 440         ChangeFont 16 $FixedFont
 441         ChangeFont 17 $FixedFont
 442         ChangeFont 18 $SelFont
 443         ChangeFont 19 $FixedFont
 444         ChangeFont 20 $FixedFont
 445         ChangeFont 21 $FixedFont
 446         ChangeFont 22 $FixedFont
 447         ChangeFont 23 $FixedFont
 448         ChangeFont 24 $FixedFont
 449         ChangeFont 25 $SelFont
 450         ChangeFont 26 $FixedFont
 451         ChangeFont 27 $FixedFont
 452         ChangeFont 30 $SelFont
 453         ChangeFont 31 $FixedFont
 454         ChangeFont 32 $FixedFont
 455         ChangeFont 33 $FixedFont
 456         ChangeFont 34 $FixedFont
 457         ChangeFont 35 $FixedFont
 458         ChangeFont 36 $FixedFont
 459         ChangeFont 37 $FixedFont
 460         ChangeFont 38 $FixedFont
 461         ChangeFont 39 $FixedFont
 462         ChangeFont 40 $FixedFont
 463         ChangeFont 41 $FixedFont
 464         ChangeFont 42 $FixedFont
 465         ChangeFont 43 $FixedFont
 466         ChangeFont 44 $SelFont
 467         ChangeFont 45 $FixedFont
 468         ChangeFont 46 $FixedFont
 469         ChangeFont 47 $FixedFont
 470         ChangeFont 48 $FixedFont
 471         ChangeFont 49 $FixedFont
 472         ChangeFont 50 $FixedFont
 473         ChangeFont 51 $FixedFont
 474         ChangeFont 52 $FixedFont
 475         ChangeFont 53 $FixedFont
 476         ChangeFont 54 $SelFont
 477         ChangeFont 55 $FixedFont
 478         ChangeFont 56 $FixedFont
 479         ChangeFont 57 $FixedFont
 480         ChangeFont 58 $FixedFont
 481         ChangeFont 59 $FixedFont
 482         ChangeFont 60 $SelFont
 483         ChangeFont 61 $FixedFont
 484         ChangeFont 62 $FixedFont
 485         ChangeFont 63 $FixedFont
 486         ChangeFont 64 $FixedFont
 487         ChangeFont 65 $FixedFont
 488         ChangeFont 66 $FixedFont
 489         ChangeFont 67 $FixedFont
 490         ChangeFont 68 $FixedFont
 491         ChangeFont 69 $FixedFont
 492         ChangeFont 70 $FixedFont
 493         ChangeFont 71 $FixedFont
 494         ChangeFont 72 $FixedFont
 495         ChangeFont 73 $FixedFont
 496         ChangeFont 74 $FixedFont
 497         ChangeFont 75 $FixedFont
 498         ChangeFont 76 $SelFont
 499         ChangeFont 77 $FixedFont
 500         ChangeFont 78 $FixedFont
 501         ChangeFont 79 $FixedFont
 502         ChangeFont 80 $FixedFont
 503         ChangeFont 81 $FixedFont
 504         ChangeFont 82 $FixedFont
 505         ChangeFont 90 $SelFont
 506         ChangeFont 91 $FixedFont
 507         ChangeFont 92 $FixedFont
 508         ChangeFont 93 $FixedFont
 509         ChangeFont 94 $FixedFont
 510         ChangeFont 95 $FixedFont
 511         ChangeFont 96 $SelFont
 512         ChangeFont 97 $FixedFont
 513         ChangeFont 98 $FixedFont
 514         ChangeFont 99 $FixedFont
 515         ChangeFont 100 $FixedFont
 516         ChangeFont 101 $FixedFont
 517         ChangeFont 102 $FixedFont
 518         ChangeFont 103 $FixedFont
 519         ChangeFont 104 $FixedFont
 520         ChangeFont 105 $FixedFont
 521         ChangeFont 106 $FixedFont
 522         ChangeFont 110 $SelFont
 523         ChangeFont 111 $FixedFont
 524         ChangeFont 112 $FixedFont
 525         ChangeFont 113 $FixedFont
 526         ChangeFont 114 $FixedFont
 527         ChangeFont 115 $FixedFont
 528         ChangeFont 116 $FixedFont
 529         ChangeFont 117 $SelFont
 530         ChangeFont 118 $FixedFont
 531         ChangeFont 119 $FixedFont
 532         ChangeFont 120 $FixedFont
 533         ChangeFont 121 $FixedFont
 534         ChangeFont 122 $SelFont
 535         ChangeFont 123 $FixedFont
 536         ChangeFont 124 $FixedFont
 537         ChangeFont 125 $FixedFont
 538         ChangeFont 126 $FixedFont
 539         ChangeFont 127 $FixedFont
 540         ChangeFont 128 $FixedFont
 541         ChangeFont 129 $FixedFont
 542         ChangeFont 130 $FixedFont
 543
 544         ChangeFont 950 $SelFont
 545         ChangeFont 951 $FixedFont
 546         ChangeFont 952 $FixedFont
 547         ChangeFont 953 $SelFont
 548         ChangeFont 954 $SelFont
 549         ChangeFont 955 $SelFont
 550         ChangeFont 956 $FixedFont
 551         ChangeFont 957 $FixedFont
 552         ChangeFont 958 $FixedFont
 553         ChangeFont 959 $SelFont
 554         ChangeFont 960 $SelFont
 555         ChangeFont 961 $SelFont
 556         ChangeFont 956 $FixedFont
 557         ChangeFont 957 $FixedFont
 558         ChangeFont 958 $FixedFont
 559
 560         ChangeFont 990 $SelFont
 561         ChangeFont 991 $SelFont
 562         ChangeFont 992 $SelFont
 563         ChangeFont 993 $SelFont
 564         ChangeFont 994 $SelFont
 565         ChangeFont 995 $SelFont
 566     End
 567
 568     ChangeFont 991 $ShadeFont
 569     Set $SaveFont = {Sel}
 570     ChangeFont 992 $ShadeFont
 571     Set $TryFont = {Shade}
 572
 573     # not yet implemented
 574     ChangeFont 1 $ShadeFont
 575
 576     #Do {Echo ConfigCenter: GF inter loaded}
 577 #------------------------------------------------------------------------------
 578 # Main variables, i.e. "Global one" (see also the com loop init !)
 579
 580     ### Perodic Task Test:
 581     Set $GF_UpdateConfig = 1
 582     Set $GF_BuildConfig = 1
 583     Set $GF_BuildAllConfig = 1
 584     # Others:
 585     # $GF_UpdateButtonFont
 586     # Is the color sel is up for XorValue ? (GF)
 587     Set $GF_XorBrowser = {}
 588
 589     ### CommonFeel specific (initialized during $GF_BuilConfig = 1)
 590     # $GF_Focus, $GF_Placement, $GF_ResizeOutLine,  $GF_Emulate,
 591     # $GF_HideGeoSize, $HideGeoMove, $GF_Xor, $GF_XorPixmap, $GF_XorValue,
 592     # GF Hide/Show{Focus,Move,Paging,Transient,Hints}
 593
 594     Set $ThemeToLoad = {current}
 595     Set $InStart = 1
 596
 597     Set $ConfigTool = {Focus}
 598
 599     # type of command for Apply and save
 600     Set $CmdType = {}
 601
 602     Do {All (FvwmScript-NoteMessage) Delete}
 603 End
 604
 605 # ---------------------------------------------------------------------------
 606 #
 607 # Periodic Task
 608 #
 609 # ---------------------------------------------------------------------------
 610
 611 PeriodicTasks
 612 Begin
 613
 614 #----------------------------------------------------------------------------
 615 # Build (Update) the config
 616
 617     If $GF_UpdateConfig == 1 Then
 618     Begin
 619         Set $GF_UpdateConfig = 0
 620         Set $GF_BuildConfig = 1
 621         If $InStart == 1 Then
 622         Begin
 623             Set $LoadFocus = 1
 624             Set $LoadMove = 1
 625             Set $LoadPaging = 1
 626             Set $LoadTransient = 1
 627             Set $LoadHints = 1
 628             Set $GF_BuildAllConfig = 1
 629         End
 630         Else
 631         Begin
 632             Set $test = 1
 633             Set $tmp = 1
 634             If $LoadFromPreference == 1 Then
 635                 Set $test = 0
 636             Set $LoadFromPreference = 0
 637             If $GF_DefaultIsGlobal == 1 Then
 638                 Set $tmp = 0
 639             Set $test = (Mult $test $tmp)
 640             If $test == 0 Then
 641             Begin
 642                 Set $LoadFocus = 1
 643                 Set $LoadMove = 1
 644                 Set $LoadPaging = 1
 645                 Set $LoadTransient = 1
 646                 Set $LoadHints = 1
 647                 Set $ct = {All}
 648                 Set $GF_BuildAllConfig = 1
 649             End
 650             Else
 651             Begin
 652                 Set $GF_BuildConfig = 1
 653                 Set $LoadFocus = 0
 654                 Set $LoadMove = 0
 655                 Set $LoadPaging = 0
 656                 Set $LoadTransient = 0
 657                 Set $LoadHints = 0
 658                 Set $ct = $ConfigTool
 659                 If $ct == {Focus} Then
 660                    Set $LoadFocus = 1
 661                 If $ct == {Move} Then
 662                    Set $LoadMove = 1
 663                 If $ct == {Paging} Then
 664                    Set $LoadPaging = 1
 665                 If $ct == {Transient} Then
 666                    Set $LoadTransient = 1
 667                 If $ct == {Hints} Then
 668                    Set $LoadHints = 1
 669             End
 670             Set $cmd = $SendMsgAndGet{"get-config }$ThemeToLoad{ }$GF_FileName{ }$ct{" --line=1}
 671             Set $GF_error = (GetOutput $cmd 1 -1)
 672             Set $cmd = $GetLine{2 --clear-buffer}
 673             Set $GF_Config = (GetOutput $cmd 1 -1)
 674         End
 675
 676         If $GF_error <> {0} Then
 677         Begin
 678             Set $LoadFocus = 0
 679             Set $LoadMove = 0
 680             Set $LoadPaging = 0
 681             Set $LoadTransient = 0
 682             Set $LoadHints = 0
 683             Set $msg = $GF_error{ (when loading }$ThemeToLoad{)}
 684         End
 685         Else
 686             Set $msg = $l_ConfigLoaded
 687
 688         Set $index = 0
 689         ### Focus
 690         If $LoadFocus == 1 Then
 691         Begin
 692             Set $index = (Add $index 1)
 693             Set $tmp = 11
 694             While $tmp <> 24 Do
 695             Begin
 696                 ChangeValue $tmp 0
 697                 Set $tmp = (Add $tmp 1)
 698             End
 699             Set $tmp = (StrCopy $GF_Config $index $index)
 700             Set $GF_Focus = (Add 10 $tmp)
 701             ChangeValue $GF_Focus 1
 702             Set $index = (Add $index 1)
 703             Set $tmp = (StrCopy $GF_Config $index $index)
 704             ChangeValue 15 $tmp
 705             Set $index = (Add $index 1)
 706             Set $tmp = (StrCopy $GF_Config $index $index)
 707             ChangeValue 16 $tmp
 708             Set $index = (Add $index 1)
 709             Set $tmp = (StrCopy $GF_Config $index $index)
 710             ChangeValue 17 $tmp
 711             Set $index = (Add $index 1)
 712             Set $tmp = (StrCopy $GF_Config $index $index)
 713             Set $GF_Placement = (Add 18 $tmp)
 714             ChangeValue $GF_Placement 1
 715             Set $index = (Add $index 1)
 716             Set $tmp = (StrCopy $GF_Config $index $index)
 717             ChangeValue 26 $tmp
 718             Set $index = (Add $index 1)
 719             Set $tmp = (StrCopy $GF_Config $index $index)
 720             ChangeValue 27 $tmp
 721         End
 722         ### Move
 723         If $LoadMove == 1 Then
 724         Begin
 725             # Opaque/OutLine
 726             ChangeValue 32 0
 727             ChangeValue 33 0
 728             Set $index = (Add $index 1)
 729             Set $tmp = (StrCopy $GF_Config $index $index)
 730             Set $GF_ResizeOutLine = (Add 32 $tmp)
 731             ChangeValue $GF_ResizeOutLine 1
 732             # ResizeOpaque
 733             Set $index = (Add $index 1)
 734             Set $tmp = (StrCopy $GF_Config $index $index)
 735             Set $value = {}
 736             While $tmp <> {!} Do
 737             Begin
 738                 Set $value = $value $tmp
 739                 Set $index = (Add $index 1)
 740                 Set $tmp = (StrCopy $GF_Config $index $index)
 741                 If $index > 3200 Then
 742                     Set $tmp = {!}
 743             End
 744             ChangeTitle 35 $value
 745             # Emulate
 746             ChangeValue 38 0
 747             ChangeValue 39 0
 748             Set $index = (Add $index 1)
 749             Set $tmp = (StrCopy $GF_Config $index $index)
 750             Set $GF_Emulate = (Add 38 $tmp)
 751             ChangeValue $GF_Emulate 1
 752             # Hide Geo
 753             Set $index = (Add $index 1)
 754             Set $GF_HideGeoSize = (StrCopy $GF_Config $index $index)
 755             ChangeValue 41 $GF_HideGeoSize
 756             Set $index = (Add $index 1)
 757             Set $GF_HideGeoMove = (StrCopy $GF_Config $index $index)
 758             ChangeValue 42 $GF_HideGeoMove
 759             # FlickeringMoveWorkaround
 760             Set $index = (Add $index 1)
 761             Set $tmp = (StrCopy $GF_Config $index $index)
 762             ChangeValue 43 $tmp
 763             # Snap distance
 764             Set $index = (Add $index 1)
 765             Set $tmp = (StrCopy $GF_Config $index $index)
 766             Set $value = {}
 767             While $tmp <> {!} Do
 768             Begin
 769                 Set $value = $value $tmp
 770                 Set $index = (Add $index 1)
 771                 Set $tmp = (StrCopy $GF_Config $index $index)
 772                 If $index > 3200 Then
 773                     Set $tmp = {!}
 774             End
 775             ChangeTitle 46 $value
 776             # Snap behavior
 777             Set $index = (Add $index 1)
 778             Set $tmp = (StrCopy $GF_Config $index $index)
 779             ChangeValue 48 $tmp
 780             # Snap Grid X
 781             Set $index = (Add $index 1)
 782             Set $tmp = (StrCopy $GF_Config $index $index)
 783             Set $value = {}
 784             While $tmp <> {!} Do
 785             Begin
 786                 Set $value = $value $tmp
 787                 Set $index = (Add $index 1)
 788                 Set $tmp = (StrCopy $GF_Config $index $index)
 789                 If $index > 3200 Then
 790                     Set $tmp = {!}
 791             End
 792             ChangeTitle 51 $value
 793             # Snap Grid Y
 794             Set $index = (Add $index 1)
 795             Set $tmp = (StrCopy $GF_Config $index $index)
 796             Set $value = {}
 797             While $tmp <> {!} Do
 798             Begin
 799                 Set $value = $value $tmp
 800                 Set $index = (Add $index 1)
 801                 Set $tmp = (StrCopy $GF_Config $index $index)
 802                 If $index > 3200 Then
 803                     Set $tmp = {!}
 804             End
 805             ChangeTitle 53 $value
 806             # XOR
 807             ChangeValue 55 0
 808             ChangeValue 56 0
 809             Set $index = (Add $index 1)
 810             Set $GF_Xor = (StrCopy $GF_Config $index $index)
 811             Set $tmp = (Add $GF_Xor 55)
 812             ChangeValue $tmp 1
 813             # XorValue
 814             Set $index = (Add $index 1)
 815             Set $tmp = (StrCopy $GF_Config $index $index)
 816             Set $value = {}
 817             While $tmp <> {!} Do
 818             Begin
 819                 Set $value = $value $tmp
 820                 Set $index = (Add $index 1)
 821                 Set $tmp = (StrCopy $GF_Config $index $index)
 822                 If $index > 3200 Then
 823                     Set $tmp = {!}
 824             End
 825             Set $GF_XorValue = $value
 826             # XorPixmap
 827             Set $index = (Add $index 1)
 828             Set $tmp = (StrCopy $GF_Config $index $index)
 829             Set $value = {}
 830             While $tmp <> {!} Do
 831             Begin
 832                 Set $value = $value $tmp
 833                 Set $index = (Add $index 1)
 834                 Set $tmp = (StrCopy $GF_Config $index $index)
 835                 If $index > 3200 Then
 836                     Set $tmp = {!}
 837             End
 838             Set $GF_XorPixmap = $value
 839             If $GF_Xor == 0 Then
 840             Begin
 841                 ChangeTitle 58 $GF_XorValue
 842                 ChangeTitle 57 $l_OneColor
 843                 ChangeTitle 59 $l_StartColorSel
 844             End
 845             Else
 846             Begin
 847                 ChangeTitle 58 $GF_XorPixmap
 848                 ChangeTitle 57 $l_OnePixmap
 849                 ChangeTitle 59 $l_StartImages
 850             End
 851         End
 852         ### Paging
 853         If $LoadPaging == 1 Then
 854         Begin
 855             # Horizontal:
 856             Set $index = (Add $index 1)
 857             Set $tmp = (StrCopy $GF_Config $index $index)
 858             Set $tmp = (Add 1 $tmp)
 859             ChangeValue 62 $tmp
 860             Set $index = (Add $index 1)
 861             Set $tmp = (StrCopy $GF_Config $index $index)
 862             ChangeValue 63 $tmp
 863             # Vertical:
 864             Set $index = (Add $index 1)
 865             Set $tmp = (StrCopy $GF_Config $index $index)
 866             Set $tmp = (Add 1 $tmp)
 867             ChangeValue 65 $tmp
 868             Set $index = (Add $index 1)
 869             Set $tmp = (StrCopy $GF_Config $index $index)
 870             ChangeValue 66 $tmp
 871             # Resitance
 872             Set $index = (Add $index 1)
 873             Set $tmp = (StrCopy $GF_Config $index $index)
 874             Set $value = {}
 875             While $tmp <> {!} Do
 876             Begin
 877                 Set $value = $value $tmp
 878                 Set $index = (Add $index 1)
 879                 Set $tmp = (StrCopy $GF_Config $index $index)
 880                 If $index > 3200 Then
 881                     Set $tmp = {!}
 882             End
 883             ChangeTitle 68 $value
 884             Set $index = (Add $index 1)
 885             Set $tmp = (StrCopy $GF_Config $index $index)
 886             Set $value = {}
 887             While $tmp <> {!} Do
 888             Begin
 889                 Set $value = $value $tmp
 890                 Set $index = (Add $index 1)
 891                 Set $tmp = (StrCopy $GF_Config $index $index)
 892                 If $index > 3200 Then
 893                     Set $tmp = {!}
 894             End
 895             ChangeTitle 71 $value
 896             # thickness
 897             Set $index = (Add $index 1)
 898             Set $tmp = (StrCopy $GF_Config $index $index)
 899             ChangeValue 74 $tmp
 900             # Click time
 901             Set $index = (Add $index 1)
 902             Set $tmp = (StrCopy $GF_Config $index $index)
 903             Set $value = {}
 904             While $tmp <> {!} Do
 905             Begin
 906                 Set $value = $value $tmp
 907                 Set $index = (Add $index 1)
 908                 Set $tmp = (StrCopy $GF_Config $index $index)
 909                 If $index > 3200 Then
 910                     Set $tmp = {!}
 911             End
 912             ChangeTitle 78 $value
 913             # MoveThreshold
 914             Set $index = (Add $index 1)
 915             Set $tmp = (StrCopy $GF_Config $index $index)
 916             Set $value = {}
 917             While $tmp <> {!} Do
 918             Begin
 919                 Set $value = $value $tmp
 920                 Set $index = (Add $index 1)
 921                 Set $tmp = (StrCopy $GF_Config $index $index)
 922                 If $index > 3200 Then
 923                     Set $tmp = {!}
 924             End
 925             ChangeTitle 81 $value
 926         End
 927         ### Transient
 928         If $LoadTransient == 1 Then
 929         Begin
 930             # NakedTransient
 931             Set $index = (Add $index 1)
 932             Set $tmp = (StrCopy $GF_Config $index $index)
 933             ChangeValue 91 $tmp
 934             # RaiseTransient
 935             Set $index = (Add $index 1)
 936             Set $tmp = (StrCopy $GF_Config $index $index)
 937             ChangeValue 92 $tmp
 938             # LowerTransient
 939             Set $index = (Add $index 1)
 940             Set $tmp = (StrCopy $GF_Config $index $index)
 941             ChangeValue 93 $tmp
 942             # StackTransientParent
 943             Set $index = (Add $index 1)
 944             Set $tmp = (StrCopy $GF_Config $index $index)
 945             ChangeValue 94 $tmp
 946             # GrabFocusTransient
 947             Set $index = (Add $index 1)
 948             Set $tmp = (StrCopy $GF_Config $index $index)
 949             ChangeValue 95 $tmp
 950             # WindowShadeSteps
 951             Set $index = (Add $index 1)
 952             Set $tmp = (StrCopy $GF_Config $index $index)
 953             Set $value = {}
 954             While $tmp <> {!} Do
 955             Begin
 956                 Set $value = $value $tmp
 957                 Set $index = (Add $index 1)
 958                 Set $tmp = (StrCopy $GF_Config $index $index)
 959                 If $index > 3200 Then
 960                     Set $tmp = {!}
 961             End
 962             ChangeTitle 98 $value
 963             # WindowShadeScrolls
 964             Set $index = (Add $index 1)
 965             Set $tmp = (StrCopy $GF_Config $index $index)
 966             ChangeValue 99 $tmp
 967             # SetAnimation: speed
 968             Set $index = (Add $index 1)
 969             Set $tmp = (StrCopy $GF_Config $index $index)
 970             Set $value = {}
 971             While $tmp <> {!} Do
 972             Begin
 973                 Set $value = $value $tmp
 974                 Set $index = (Add $index 1)
 975                 Set $tmp = (StrCopy $GF_Config $index $index)
 976                 If $index > 3200 Then
 977                     Set $tmp = {!}
 978             End
 979             ChangeTitle  102 $value
 980             # SetAnimation: frac
 981             Set $index = (Add $index 1)
 982             Set $tmp = (StrCopy $GF_Config $index $index)
 983             Set $value = {}
 984             While $tmp <> {!} Do
 985             Begin
 986                 Set $value = $value $tmp
 987                 Set $index = (Add $index 1)
 988                 Set $tmp = (StrCopy $GF_Config $index $index)
 989                 If $index > 3200 Then
 990                     Set $tmp = {!}
 991             End
 992             ChangeTitle 104 $value
 993         End
 994         ### Hints
 995         If $LoadHints == 1 Then
 996         Begin
 997             Set $t = 111
 998             While $t <> 117 Do
 999             Begin
1000                 Set $index = (Add $index 1)
1001                 Set $tmp = (StrCopy $GF_Config $index $index)
1002                 ChangeValue $t $tmp
1003                 Set $t = (Add $t 1)
1004             End
1005             # BusyCursor
1006             Set $t = 118
1007             While $t <> 122 Do
1008             Begin
1009                 Set $index = (Add $index 1)
1010                 Set $tmp = (StrCopy $GF_Config $index $index)
1011                 ChangeValue $t $tmp
1012                 Set $t = (Add $t 1)
1013             End
1014             # color limit
1015             Set $index = (Add $index 1)
1016             Set $tmp = (StrCopy $GF_Config $index $index)
1017             ChangeValue 124 $tmp
1018             # MixedVisualWorkaround
1019             Set $index = (Add $index 1)
1020             Set $tmp = (StrCopy $GF_Config $index $index)
1021             ChangeValue 125 $tmp
1022             # RaiseOverNativeWindows
1023             Set $index = (Add $index 1)
1024             Set $tmp = (StrCopy $GF_Config $index $index)
1025             ChangeValue 126 $tmp
1026             # SaveUnder
1027             Set $index = (Add $index 1)
1028             Set $tmp = (StrCopy $GF_Config $index $index)
1029             ChangeValue 129 $tmp
1030             # BackingStore
1031             Set $index = (Add $index 1)
1032             Set $tmp = (StrCopy $GF_Config $index $index)
1033             ChangeValue 130 $tmp
1034             # ModuleTimeOut
1035             Set $index = (Add $index 1)
1036             Set $tmp = (StrCopy $GF_Config $index $index)
1037             ChangeValue 128 $tmp
1038         End
1039
1040         If $index > 3200 Then
1041         Begin
1042             Do {Echo ConfigCenter: problems when loading globalfeel config!}
1043             Do {Echo ConfigCenter: can you send a bug report to:}
1044             Do {Echo ConfigCenter: <fvwm-themes-devel@lists.sourceforge.net>}
1045             SendSignal 995 1
1046         End
1047
1048         If $InStart == 1 Then
1049         Begin
1050             Set $GF_ShowFocus = 1
1051         End
1052
1053         ChangeTitle 990 $msg
1054     End
1055
1056 #----------------------------------------------------------------------------
1057 # config tool switching
1058
1059     If $GF_HideFocus == {1} Then
1060     Begin
1061         Set $GF_HideFocus = 0
1062         Set $tmp = 10
1063         While $tmp <> 28 Do
1064         Begin
1065             HideWidget $tmp
1066             Set $tmp = (Add $tmp 1)
1067         End
1068     End
1069
1070     If $GF_HideMove == {1} Then
1071     Begin
1072         Set $GF_HideMove = 0
1073         Set $tmp = 30
1074         While $tmp <> 60 Do
1075         Begin
1076             HideWidget $tmp
1077             Set $tmp = (Add $tmp 1)
1078         End
1079     End
1080
1081     If $GF_HidePaging == {1} Then
1082     Begin
1083         Set $GF_HidePaging = 0
1084         Set $tmp = 60
1085         While $tmp <> 83 Do
1086         Begin
1087             HideWidget $tmp
1088             Set $tmp = (Add $tmp 1)
1089         End
1090     End
1091
1092     If $GF_HideTransient == {1} Then
1093     Begin
1094         Set $GF_HideTransient = 0
1095         Set $tmp = 90
1096         While $tmp <> 107 Do
1097         Begin
1098             HideWidget $tmp
1099             Set $tmp = (Add $tmp 1)
1100         End
1101     End
1102
1103     If $GF_HideHints == {1} Then
1104     Begin
1105         Set $GF_HideHints = 0
1106         Set $tmp = 110
1107         While $tmp <> 131 Do
1108         Begin
1109             HideWidget $tmp
1110             Set $tmp = (Add $tmp 1)
1111         End
1112     End
1113
1114     If $GF_HidePreference == {1} Then
1115     Begin
1116         Set $GF_HidePreference = 0
1117         Set $tmp = 950
1118         While $tmp <> 965 Do
1119         Begin
1120             HideWidget $tmp
1121             Set $tmp = (Add $tmp 1)
1122         End
1123     End
1124
1125     If $GF_ShowFocus == {1} Then
1126     Begin
1127         Set $GF_ShowFocus = 0
1128         Set $ConfigTool = {Focus}
1129         Set $tmp = 10
1130         While $tmp <> 28 Do
1131         Begin
1132             ShowWidget $tmp
1133             Set $tmp = (Add $tmp 1)
1134         End
1135     End
1136
1137     If $GF_ShowMove == {1} Then
1138     Begin
1139         Set $GF_ShowMove = 0
1140         Set $ConfigTool = {Move}
1141         Set $tmp = 30
1142         While $tmp <> 60 Do
1143         Begin
1144             ShowWidget $tmp
1145             Set $tmp = (Add $tmp 1)
1146         End
1147     End
1148
1149     If $GF_ShowPaging == {1} Then
1150     Begin
1151         Set $GF_ShowPaging = 0
1152         Set $ConfigTool = {Paging}
1153         Set $tmp = 60
1154         While $tmp <> 83 Do
1155         Begin
1156             ShowWidget $tmp
1157             Set $tmp = (Add $tmp 1)
1158         End
1159     End
1160
1161     If $GF_ShowTransient == {1} Then
1162     Begin
1163         Set $GF_ShowTransient = 0
1164         Set $ConfigTool = {Transient}
1165         Set $tmp = 90
1166         While $tmp <> 107 Do
1167         Begin
1168             ShowWidget $tmp
1169             Set $tmp = (Add $tmp 1)
1170         End
1171     End
1172
1173     If $GF_ShowHints == {1} Then
1174     Begin
1175         Set $GF_ShowHints = 0
1176         Set $ConfigTool = {Hints}
1177         Set $tmp = 110
1178         While $tmp <> 131 Do
1179         Begin
1180             ShowWidget $tmp
1181             Set $tmp = (Add $tmp 1)
1182         End
1183     End
1184
1185     If $GF_ShowPreference == {1} Then
1186     Begin
1187         Set $GF_ShowPreference = 0
1188         Set $ConfigTool = {GF_Preference}
1189         Set $tmp = 950
1190         While $tmp <> 965 Do
1191         Begin
1192             ShowWidget $tmp
1193             Set $tmp = (Add $tmp 1)
1194         End
1195     End
1196
1197 #----------------------------------------------------------------------------
1198 # Update "font" : first part
1199
1200     If (RemainderOfDiv (GetTime) 2)==0 Then
1201     Begin
1202         If $Component == {globalfeel} Then
1203         Begin
1204             Set $GF_UpdateButtonFont = 1
1205             Set $GF_BuildConfig = 1
1206         End
1207     End
1208
1209 #----------------------------------------------------------------------------
1210 # Build config for fvwm-themes-script:
1211
1212     If $GF_BuildConfig == 1 Then
1213     Begin
1214         Set $GF_BuildConfig = 0
1215
1216         # Focus
1217         Set $tmp = (Add $GF_Focus -10)
1218         Set $t = (Add $GF_Placement -18)
1219         Set $GF_LastConfigFocus = $tmp (GetValue 15) (GetValue 16) (GetValue 17) $t (GetValue 26) (GetValue 27)
1220         # Move
1221         Set $tmp = (Add $GF_ResizeOutLine  -32)
1222         Set $t = (Add $GF_Emulate -38)
1223         Set $GF_LastConfigMove = $tmp (GetTitle 35) {!} $t (GetValue 41) (GetValue 42) (GetValue 43) (GetTitle 46) {!} (GetValue 48) (GetTitle 51) {!}
1224         Set $GF_LastConfigMove = $GF_LastConfigMove (GetTitle 53) {!} $GF_Xor (GetTitle 58) {!}
1225         # Paging
1226         Set $tmp = (Add  (GetValue 62)  -1)
1227         Set $t = (Add (GetValue 65) -1)
1228         Set $GF_LastConfigPaging = $tmp (GetValue 63) $t (GetValue 66) (GetTitle 68) {!} (GetTitle 71) {!} (GetValue 74) (GetTitle 78) {!} (GetTitle 81) {!}
1229         # Transient
1230         Set $GF_LastConfigTransient = (GetValue 91) (GetValue 92) (GetValue 93) (GetValue 94) (GetValue 95) (GetTitle 98) {!} (GetValue 99) (GetTitle 102) {!} (GetTitle 104) {!}
1231         # Hints
1232         Set $GF_LastConfigHints = (GetValue 111) (GetValue 112) (GetValue 113) (GetValue 114) (GetValue 115) (GetValue 116) (GetValue 118) (GetValue 119) (GetValue 120) (GetValue 121)
1233         Set $GF_LastConfigHints = $GF_LastConfigHints (GetValue 124) (GetValue 125) (GetValue 126) (GetValue 129) (GetValue 130) (GetValue 128)
1234
1235         Set $GF_LastConfig = $GF_LastConfigFocus $GF_LastConfigMove $GF_LastConfigPaging $GF_LastConfigTransient $GF_LastConfigHints
1236         Set $test1 = 0
1237         Set $test2 = 0
1238         If $InStart == 1 Then
1239         Begin
1240             Set $test1 = 1
1241             Set $test2 = 1
1242         End
1243         Else
1244         Begin
1245             If $CmdType == {Try} Then
1246                 Set $test1 = 1
1247             If $CmdType == {Save} Then
1248                 Set $test2 = 1
1249         End
1250
1251         If $GF_BuildAllConfig == 1 Then
1252         Begin
1253             Set $GF_BuildAllConfig = 0
1254             If $test1 == 1 Then
1255             Begin
1256                 Set $GF_TryConfigFocus = $GF_LastConfigFocus
1257                 Set $GF_TryConfigMove = $GF_LastConfigMove
1258                 Set $GF_TryConfigPaging = $GF_LastConfigPaging
1259                 Set $GF_TryConfigTransient = $GF_LastConfigTransient
1260                 Set $GF_TryConfigHints = $GF_LastConfigHints
1261             End
1262             If $test2 == 1 Then
1263             Begin
1264                 Set $GF_SaveConfigFocus = $GF_LastConfigFocus
1265                 Set $GF_SaveConfigMove = $GF_LastConfigMove
1266                 Set $GF_SaveConfigPaging = $GF_LastConfigPaging
1267                 Set $GF_SaveConfigTransient = $GF_LastConfigTransient
1268                 Set $GF_SaveConfigHints = $GF_LastConfigHints
1269             End
1270         End
1271         Else
1272         Begin
1273             If $test1 == 1 Then
1274             Begin
1275                 If $ConfigTool == {Focus} Then
1276                     Set $GF_TryConfigFocus = $GF_LastConfigFocus
1277                 If $ConfigTool == {Move} Then
1278                     Set $GF_TryConfigMove = $GF_LastConfigMove
1279                 If $ConfigTool == {Paging} Then
1280                     Set $GF_TryConfigPaging = $GF_LastConfigPaging
1281                 If $ConfigTool == {Transient} Then
1282                     Set $GF_TryConfigTransient = $GF_LastConfigTransient
1283                 If $ConfigTool == {Hints} Then
1284                     Set $GF_TryConfigHints = $GF_LastConfigHints
1285             End
1286             If $test2 == 1 Then
1287             Begin
1288                 If $ConfigTool == {Focus} Then
1289                     Set $GF_SaveConfigFocus = $GF_LastConfigFocus
1290                 If $ConfigTool == {Move} Then
1291                     Set $GF_SaveConfigMove = $GF_LastConfigMove
1292                 If $ConfigTool == {Paging} Then
1293                     Set $GF_SaveConfigPaging = $GF_LastConfigPaging
1294                 If $ConfigTool == {Transient} Then
1295                     Set $GF_SaveConfigTransient = $GF_LastConfigTransient
1296                 If $ConfigTool == {Hints} Then
1297                     Set $GF_SaveConfigHints = $GF_LastConfigHints
1298             End
1299         End
1300
1301         If $test1 == 1 Then
1302             Set $GF_TryConfig = $GF_TryConfigFocus $GF_TryConfigMove $GF_TryConfigPaging $GF_TryConfigTransient $GF_TryConfigHints
1303         If $test2 == 1 Then
1304             Set $GF_SaveConfig = $GF_SaveConfigFocus $GF_SaveConfigMove $GF_SaveConfigPaging $GF_SaveConfigTransient $GF_SaveConfigHints
1305
1306         If $InStart == 1 Then
1307         Begin
1308             Set $InStart = 0
1309             Set $GF_CurrentConfig = $GF_TryConfig
1310         End
1311     End
1312
1313 # ----------------------------------------------------------------------------
1314 # Apply and Try
1315
1316     If $DoApplyCmd == 1 Then
1317     Begin
1318         Set $DoApplyCmd = 0
1319
1320         If $CmdType == {Try} Then
1321         Begin
1322             If $GF_TryIsGlobal == 0 Then
1323             Begin
1324                 Set $msg = $l_AppliedInternally
1325                 Set $tmp = $ConfigTool
1326             End
1327             Else
1328             Begin
1329                 Set $msg = $l_AppliedExternally
1330                 Set $tmp = {All}
1331             End
1332             Set $conf = $GF_TryConfig
1333         End
1334
1335         If $CmdType == {Save} Then
1336         Begin
1337             If $GF_SaveIsGlobal == 0 Then
1338             Begin
1339                 Set $msg = $l_SavedInternally
1340                 Set $tmp = $ConfigTool
1341             End
1342             Else
1343             Begin
1344                 Set $msg = $l_SavedExternally
1345                 Set $tmp = {All}
1346             End
1347             Set $conf = $GF_SaveConfig
1348         End
1349
1350         Set $cmd = $SendMsgAndGet{'save-try-config }$Component{ }$tmp{ 0 }$conf{'}
1351         Set $check = (GetOutput $cmd 1 -1)
1352         If $check == {ok} Then
1353         Begin
1354             If $CmdType == {Try} Then
1355             Begin
1356                 Set $cmd = $SendMsgAndGet{'save-try-last-build 1'}
1357                 Do {PipeRead "}$cmd{"}
1358                 Set $GF_CurrentConfig = $GF_TryConfig
1359             End
1360             If $CmdType == {Save} Then
1361             Begin
1362                 # there some problems here ...
1363                 If $GF_SaveConfig <> $GF_CurrentConfig Then
1364                 Begin
1365                    Set $cmd = $SendMsgAndGet{'save-try-last-build 3'}
1366                    Do {PipeRead "}$cmd{"}
1367                    Set $msg = $msg { and Pipe}
1368                    Set $GF_TryConfig = $GF_SaveConfig
1369                    Set $GF_TryConfigFocus = $GF_SaveConfigFocus
1370                    Set $GF_TryConfigMove = $GF_SaveConfigMove
1371                    Set $GF_TryConfigPaging = $GF_SaveConfigPaging
1372                    Set $GF_TryConfigTransient = $GF_SaveConfigTransient
1373                    Set $GF_TryConfigHints = $GF_SaveConfigHints
1374                 End
1375                 Else
1376                 Begin
1377                     Set $cmd = $SendMsgAndGet{'save-try-last-build 2'}
1378                     Do {Exec }$cmd
1379                 End
1380                 Set $GF_CurrentConfig = $GF_SaveConfig
1381             End
1382         End
1383         Else
1384         Begin
1385             Set $msg = $l_Error { }$check
1386         End
1387         ChangeTitle 990 $msg
1388         Set $CmdType = {}
1389     End
1390
1391 #----------------------------------------------------------------------------
1392 # Update "font" : 2nd part
1393
1394     If $GF_UpdateButtonFont == 1 Then
1395     Begin
1396         Set $GF_UpdateButtonFont = 0
1397         # Update default font
1398         If $DefaultFont <> {Sel} Then
1399         Begin
1400             Set $DefaultFont = {Sel}
1401             ChangeFont 993 $SelFont
1402         End
1403         # Update Try font
1404         Set $test = 1
1405         If $GF_TryIsGlobal == 1 Then
1406         Begin
1407             If $GF_TryConfig == $GF_LastConfig Then
1408                 Set $test = 0
1409         End
1410         Else
1411         Begin
1412             If $ConfigTool == {Focus} Then
1413             Begin
1414                 If $GF_TryConfigFocus == $GF_LastConfigFocus Then
1415                     Set $test = 0
1416             End
1417             If $ConfigTool == {Move} Then
1418             Begin
1419                 If $GF_TryConfigMove == $GF_LastConfigMove Then
1420                     Set $test = 0
1421             End
1422             If $ConfigTool == {Paging} Then
1423             Begin
1424                 If $GF_TryConfigPaging == $GF_LastConfigPaging Then
1425                     Set $test = 0
1426             End
1427             If $ConfigTool == {Transient} Then
1428             Begin
1429                 If $GF_TryConfigTransient == $GF_LastConfigTransient Then
1430                     Set $test = 0
1431             End
1432             If $ConfigTool == {Hints} Then
1433             Begin
1434                 If $GF_TryConfigHints == $GF_LastConfigHints  Then
1435                     Set $test = 0
1436             End
1437         End
1438         If $test == 0 Then
1439         Begin
1440             If $TryFont == {Sel} Then
1441             Begin
1442                 ChangeFont 992 $ShadeFont
1443                 Set $TryFont = {Shade}
1444             End
1445         End
1446         Else
1447         Begin
1448             If $TryFont == {Shade} Then
1449             Begin
1450                 ChangeFont 992 $SelFont
1451                 Set $TryFont = {Sel}
1452             End
1453         End
1454
1455         # Update Save font
1456         Set $test = 1
1457         If $GF_SaveIsGlobal == 1 Then
1458         Begin
1459             If $GF_SaveConfig == $GF_LastConfig Then
1460                 Set $test = 0
1461         End
1462         Else
1463         Begin
1464             If $ConfigTool == {Focus} Then
1465             Begin
1466                 If $GF_SaveConfigFocus == $GF_LastConfigFocus Then
1467                     Set $test = 0
1468             End
1469             If $ConfigTool == {Move} Then
1470             Begin
1471                 If $GF_SaveConfigMove == $GF_LastConfigMove Then
1472                     Set $test = 0
1473             End
1474             If $ConfigTool == {Paging} Then
1475             Begin
1476                 If $GF_SaveConfigPaging == $GF_LastConfigPaging Then
1477                     Set $test = 0
1478             End
1479             If $ConfigTool == {Transient} Then
1480             Begin
1481                 If $GF_SaveConfigTransient == $GF_LastConfigTransient Then
1482                     Set $test = 0
1483             End
1484             If $ConfigTool == {Hints} Then
1485             Begin
1486                 If $GF_SaveConfigHints == $GF_LastConfigHints  Then
1487                     Set $test = 0
1488             End
1489         End
1490         If $test == 0 Then
1491         Begin
1492             If $SaveFont == {Sel} Then
1493             Begin
1494                 ChangeFont 991 $ShadeFont
1495                 Set $SaveFont = {Shade}
1496             End
1497         End
1498         Else
1499         Begin
1500             If $SaveFont == {Shade} Then
1501             Begin
1502                 ChangeFont 991 $SelFont
1503                 Set $SaveFont = {Sel}
1504             End
1505         End
1506     End
1507 #----------------------------------------------------------------------------
1508 # Messages
1509
1510     If $GF_XorBrowser <> {} Then
1511     Begin
1512         Set $msg = (ReceivFromScript $GF_XorBrowser)
1513         If $msg <> {No message} Then
1514         Begin
1515             Set $GF_XorBrowser = {}
1516             If $msg <> {Cancel} Then
1517             Begin
1518                 If $GF_Xor == 1 Then
1519                     Set $GF_XorPixmap = $msg
1520                 Else
1521                 Begin
1522                     # Hex -> Value conversion
1523                     Set $cmd = $SendMsgAndGet{"hexcolor-2-value }$msg{"}
1524                     Set $msg = (GetOutput $cmd 1 -1)
1525                     Set $GF_XorValue = $msg
1526                 End
1527                 ChangeTitle 58 $msg
1528             End
1529         End
1530     End
1531
1532     If $NullMessage == {1} Then
1533     Begin
1534         Set $NullMessage = 0
1535         Set $msg = {}
1536         ChangeTitle 990 $msg
1537     End
1538
1539     If $SpecialMessage <> {} Then
1540     Begin
1541         ChangeTitle 990 $SpecialMessage
1542         Set $SpecialMessage = {}
1543     End
1544
1545 End
1546
1547 # ---------------------------------------------------------------------------
1548 #
1549 # Now the widgets
1550 #
1551 # ---------------------------------------------------------------------------
1552
1553 # ---------------------------------------------------------------------------
1554 #
1555 # Head: GUI chooser and rectangle delimiter
1556 #
1557 # ---------------------------------------------------------------------------
1558
1559 Widget 1
1560 Property
1561     Flags NoReliefString
1562     Position 90 10
1563     Size 175 20
1564     Type Menu
1565     Title {                           }
1566 Main
1567 Case message of
1568
1569  SingleClic :
1570  Begin
1571     Set $tmp = (GetValue 1)
1572     If $tmp == 1 Then
1573     Begin
1574         Set $GF_HideFocus = 1
1575         Set $GF_HideMove = 1
1576         Set $GF_HidePaging = 1
1577         Set $GF_HideTransient = 1
1578         Set $GF_HideHints = 1
1579         Set $GF_HidePreference = 1
1580         Set $BD_HideKeyboard = 1
1581         Set $NullMessage = 1
1582         ChangeFont 2 $ShadeFont
1583         ChangeFont 1 $SelFont
1584         If $GF_CurrentTheme == {} Then
1585             SendSignal 1 2
1586         If $PersonalThemes == {} Then
1587             SendSignal 1 1
1588         Set $GF_ShowPreference = 1
1589         If $TryFont <> {Shade} Then
1590         Begin
1591             ChangeFont 992 $ShadeFont
1592             Set $TryFont = {Shade}
1593         End
1594         If $SaveFont <> {Sel} Then
1595         Begin
1596             ChangeFont 991 $SelFont
1597             Set $SaveFont = {Sel}
1598         End
1599         ChangeFont 993 $ShadeFont
1600         Set $DefaulFont = {Shade}
1601         Set $Component = {GF_Preference}
1602     End
1603     If $tmp == 2 Then
1604         SendSignal 995 1
1605  End
1606
1607  1 :
1608  Begin
1609     ### personal themes
1610     Set $cmd = $SendMsgAndGet{"get-perso-themes"}
1611     Set $PersonalThemes = (GetOutput $cmd 1 -1)
1612     ChangeTitle 959 $PersonalThemes
1613  End
1614
1615  # --- GF themes config
1616  2 :
1617  Begin
1618     ### GF save, current and themes
1619     Set $cmd = $SendMsgAndGet{"get-themes-info }$GF_FileName{" --line=1}
1620     # where we save: the theme
1621     Set $tmp = (GetOutput $cmd 1 -1)
1622     ChangeTitle 957 $tmp
1623     # current theme
1624     Set $cmd = $GetLine{2}
1625     Set $GF_CurrentTheme = (GetOutput $cmd 1 -1)
1626     # themes with a globalfeel component
1627     Set $cmd = $GetLine{3 --clear-buffer}
1628     Set $GF_ThemesWith = (GetOutput $cmd 1 -1)
1629     ChangeTitle 953 $GF_ThemesWith
1630     Set $tmp = $l_BPrefLoaded $Component $l_MPrefLoaded $GF_CurrentTheme $l_APrefLoaded
1631     ChangeTitle 951 $tmp
1632  End
1633
1634 End
1635
1636 Widget 2
1637 Property
1638     Flags NoReliefString
1639     Position 270 5
1640     Type Menu
1641     Title {                                      }
1642 Main
1643 Case message of
1644  SingleClic :
1645  Begin
1646     Set $tmp = (GetValue 2)
1647     If $tmp <> 0 Then
1648     Begin
1649         Set $Component = {globalfeel}
1650         Set $GF_HideFocus = 1
1651         Set $GF_HideMove = 1
1652         Set $GF_HidePaging = 1
1653         Set $GF_HideTransient = 1
1654         Set $GF_HideHints = 1
1655         Set $GF_HidePreference = 1
1656         Set $NullMessage = 1
1657         ChangeFont 1 $ShadeFont
1658         ChangeFont 2 $SelFont
1659         ChangeFont 993 $SelFont
1660         Set $DefaultFont = {Sel}
1661     End
1662     If $tmp == 1 Then
1663     Begin
1664         Set $GF_ShowFocus = 1
1665         Set $GF_HideFocus = 0
1666     End
1667     If $tmp == 2 Then
1668     Begin
1669         Set $GF_ShowMove = 1
1670         Set $GF_HideMove = 0
1671     End
1672     If $tmp == 3 Then
1673     Begin
1674         Set $GF_ShowPaging = 1
1675         Set $GF_HidePaging = 0
1676     End
1677     If $tmp == 4 Then
1678     Begin
1679         Set $GF_ShowTransient = 1
1680         Set $GF_HideTransient = 0
1681     End
1682     If $tmp == 5 Then
1683     Begin
1684         Set $GF_ShowHints = 1
1685         Set $GF_HideHints = 0
1686     End
1687  End
1688 End
1689
1690 Widget 9
1691 Property
1692     Size 600 410
1693     Position 5 35
1694     Type Rectangle
1695 Main
1696 Case message of
1697     SingleClic :
1698     Begin
1699     End
1700 End
1701
1702 ##############################################################################
1703 #
1704 # Global Feel
1705 #
1706 ##############################################################################
1707
1708 #-----------------------------------------------------------------------------
1709 #
1710 # Focus and Placement
1711 #
1712 #-----------------------------------------------------------------------------
1713
1714 # Focus Title:
1715 Widget 10
1716 Property
1717     Size 280 15
1718     Position 15 45
1719     Type ItemDraw
1720     Flags NoReliefString Hidden NoFocus
1721     Title {Load Configuration ...}
1722 Main
1723 Case message of
1724     SingleClic :
1725     Begin
1726     End
1727 End
1728
1729 # ClicToFocus
1730 Widget 11
1731 Property
1732     Position 15 70
1733     Type CheckBox
1734     Font -*-fixed-medium-r-semicondensed-*-13-*
1735     Flags NoReliefString Hidden
1736     Title {                                           }
1737 Main
1738 Case message of
1739 SingleClic :
1740  Begin
1741     ChangeValue $GF_Focus 0
1742     ChangeValue 11 1
1743     Set $GF_Focus = 11
1744  End
1745 End
1746
1747 # MouseFocus
1748 Widget 12
1749 Property
1750     Position 15 95
1751     Type CheckBox
1752     Font -*-fixed-medium-r-semicondensed-*-13-*
1753     Flags NoReliefString Hidden
1754     Title {                                           }
1755 Main
1756 Case message of
1757 SingleClic :
1758  Begin
1759     ChangeValue $GF_Focus 0
1760     ChangeValue 12 1
1761     Set $GF_Focus = 12
1762  End
1763 End
1764
1765 # SloppyFocus
1766 Widget 13
1767 Property
1768     Position 15 120
1769     Type CheckBox
1770     Font -*-fixed-medium-r-semicondensed-*-13-*
1771     Flags NoReliefString Hidden
1772     Title {                                           }
1773 Main
1774 Case message of
1775 SingleClic :
1776  Begin
1777     ChangeValue $GF_Focus 0
1778     ChangeValue 13 1
1779     Set $GF_Focus = 13
1780  End
1781 End
1782
1783
1784 # Focus Options
1785 Widget 14
1786 Property
1787     Size 275 15
1788     Position 310 45
1789     Type ItemDraw
1790     Flags NoReliefString Hidden NoFocus
1791     Title {}
1792 Main
1793 Case message of
1794     SingleClic :
1795     Begin
1796     End
1797 End
1798
1799 # ClickToFocusPassesClick/ClickToFocusDoesntPassClick
1800 Widget 15
1801 Property
1802     Position 310 70
1803     Type CheckBox
1804     Font -*-fixed-medium-r-semicondensed-*-13-*
1805     Flags NoReliefString Hidden
1806     Title {                                           }
1807 Main
1808  Case message of
1809   SingleClic :
1810   Begin
1811   End
1812 End
1813
1814 # ClickToFocusRaises/ClickToFocusRaisesOff &
1815 # MouseFocusClickRaises/MouseFocusClickDoesntRaise
1816 Widget 16
1817 Property
1818     Position 310 95
1819     Type CheckBox
1820     Font -*-fixed-medium-r-semicondensed-*-13-*
1821     Flags NoReliefString Hidden
1822     Title {                                           }
1823 Main
1824  Case message of
1825   SingleClic :
1826   Begin
1827   End
1828 End
1829
1830 # ColormapFocus FollowsMouse  / FollowsFocus
1831 Widget 17
1832 Property
1833     Position 310 120
1834     Type CheckBox
1835     Font -*-fixed-medium-r-semicondensed-*-13-*
1836     Flags NoReliefString Hidden
1837     Title {                                           }
1838 Main
1839  Case message of
1840   SingleClic :
1841   Begin
1842   End
1843 End
1844
1845 #---------------------------
1846 # Placement of windows, Title
1847 Widget 18
1848 Property
1849     Size 580 15
1850     Position 15 155
1851     Type ItemDraw
1852     Flags NoReliefString Hidden NoFocus
1853     Title {}
1854 Main
1855 Case message of
1856     SingleClic :
1857     Begin
1858     End
1859 End
1860
1861 # TileCascadePlacement
1862 Widget 19
1863 Property
1864     Position 30 180
1865     Type CheckBox
1866     Font -*-fixed-medium-r-semicondensed-*-13-*
1867     Flags NoReliefString Hidden
1868     Title {                                                                               }
1869 Main
1870 Case message of
1871 SingleClic :
1872  Begin
1873     ChangeValue $GF_Placement 0
1874     ChangeValue 19 1
1875     Set $GF_Placement = 19
1876  End
1877 End
1878
1879 # TileManualPlacement
1880 Widget 20
1881 Property
1882     Position 30 205
1883     Type CheckBox
1884     Font -*-fixed-medium-r-semicondensed-*-13-*
1885     Flags NoReliefString Hidden
1886     Title {                                                                               }
1887 Main
1888 Case message of
1889 SingleClic :
1890  Begin
1891     ChangeValue $GF_Placement 0
1892     ChangeValue 20 1
1893     Set $GF_Placement = 20
1894  End
1895 End
1896
1897
1898 # MinOverlapPlacement
1899 Widget 21
1900 Property
1901     Position 30 230
1902     Type CheckBox
1903     Font -*-fixed-medium-r-semicondensed-*-13-*
1904     Flags NoReliefString Hidden
1905     Title {                                                                               }
1906 Main
1907 Case message of
1908 SingleClic :
1909  Begin
1910     ChangeValue $GF_Placement 0
1911     ChangeValue 21 1
1912     Set $GF_Placement = 21
1913  End
1914 End
1915
1916
1917 # MinOverlapPercentPlacement
1918 Widget 22
1919 Property
1920     Position 30 255
1921     Type CheckBox
1922     Font -*-fixed-medium-r-semicondensed-*-13-*
1923     Flags NoReliefString Hidden
1924     Title {                                                                               }
1925 Main
1926 Case message of
1927 SingleClic :
1928  Begin
1929     ChangeValue $GF_Placement 0
1930     ChangeValue 22 1
1931     Set $GF_Placement = 22
1932  End
1933 End
1934
1935
1936 # ManualPlacement
1937 Widget 23
1938 Property
1939     Position 30 280
1940     Type CheckBox
1941     Font -*-fixed-medium-r-semicondensed-*-13-*
1942     Flags NoReliefString Hidden
1943     Title {                                                                               }
1944 Main
1945 Case message of
1946 SingleClic :
1947  Begin
1948     ChangeValue $GF_Placement 0
1949     ChangeValue 23 1
1950     Set $GF_Placement = 23
1951  End
1952 End
1953
1954 # CascadePlacement
1955 Widget 24
1956 Property
1957     Position 30 305
1958     Type CheckBox
1959     Font -*-fixed-medium-r-semicondensed-*-13-*
1960     Flags NoReliefString Hidden
1961     Title {                                                                               }
1962 Main
1963 Case message of
1964 SingleClic :
1965  Begin
1966     ChangeValue $GF_Placement 0
1967     ChangeValue 24 1
1968     Set $GF_Placement = 24
1969  End
1970 End
1971
1972
1973 # "Options" for Placement of windows:
1974 Widget 25
1975 Property
1976     Size 580 15
1977     Position 15 335
1978     Type ItemDraw
1979     Flags NoReliefString Hidden NoFocus
1980     Title {}
1981 Main
1982 Case message of
1983     SingleClic :
1984     Begin
1985     End
1986 End
1987
1988 # GrabFocus/GrabFocusOff
1989 Widget 26
1990 Property
1991     Position 30 360
1992     Type CheckBox
1993     Font -*-fixed-medium-r-semicondensed-*-13-*
1994     Flags NoReliefString Hidden
1995     Title {                                                                               }
1996 Main
1997  Case message of
1998   SingleClic :
1999   Begin
2000   End
2001 End
2002
2003 # UsePPosition/NoPPosition
2004 Widget 27
2005 Property
2006     Position 30 385
2007     Type CheckBox
2008     Font -*-fixed-medium-r-semicondensed-*-13-*
2009     Flags NoReliefString Hidden
2010     Title {                                                                               }
2011 Main
2012  Case message of
2013   SingleClic :
2014   Begin
2015   End
2016 End
2017
2018 #-----------------------------------------------------------------------------
2019 #
2020 # Move and Resize
2021 #
2022 #-----------------------------------------------------------------------------
2023
2024 # Opaque Title:
2025 Widget 30
2026 Property
2027     Size 580 15
2028     Position 15 50
2029     Type ItemDraw
2030     Flags NoReliefString Hidden NoFocus
2031     Title {}
2032 Main
2033 Case message of
2034     SingleClic :
2035     Begin
2036     End
2037 End
2038
2039 # Move Opaque/OutLine
2040 Widget 31
2041 Property
2042     Position 20 75
2043     Type ItemDraw
2044     Font -*-fixed-medium-r-semicondensed-*-13-*
2045     Flags NoReliefString Hidden NoFocus
2046     Title {                        }
2047 Main
2048  Case message of
2049   SingleClic :
2050   Begin
2051   End
2052 End
2053
2054 # ResizeOpaque
2055 Widget 32
2056 Property
2057     Position 170 75
2058     Type RadioButton
2059     Font -*-fixed-medium-r-semicondensed-*-13-*
2060     Flags NoReliefString Hidden
2061     Title {                    }
2062 Main
2063 Case message of
2064 SingleClic :
2065  Begin
2066     ChangeValue $GF_ResizeOutLine 0
2067     ChangeValue 32 1
2068     Set $GF_ResizeOutLine = 32
2069  End
2070 End
2071
2072 # ResizeOutline
2073 Widget 33
2074 Property
2075     Position 310 75
2076     Type RadioButton
2077     Font -*-fixed-medium-r-semicondensed-*-13-*
2078     Flags NoReliefString Hidden
2079     Title {                    }
2080 Main
2081 Case message of
2082 SingleClic :
2083  Begin
2084     ChangeValue $GF_ResizeOutLine 0
2085     ChangeValue 33 1
2086     Set $GF_ResizeOutLine = 33
2087  End
2088 End
2089
2090 # Opaque move size (%)
2091 Widget 34
2092 Property
2093     Position 20 105
2094     Type ItemDraw
2095     Font -*-fixed-medium-r-semicondensed-*-13-*
2096     Flags NoReliefString Hidden NoFocus
2097     Title {                                                           }
2098 Main
2099  Case message of
2100   SingleClic :
2101   Begin
2102   End
2103 End
2104
2105 # OpaqueMoveSize
2106 Widget 35
2107 Property
2108     Position 385 100
2109     Size 30 15
2110     Type TextField
2111     Font -*-fixed-medium-r-semicondensed-*-13-*
2112     Flags NoReliefString Hidden
2113     Title {}
2114 Main
2115  Case message of
2116   SingleClic :
2117   Begin
2118   End
2119 End
2120
2121
2122 Widget 36
2123 Property
2124     Position 425 105
2125     Type ItemDraw
2126     Font -*-fixed-medium-r-semicondensed-*-13-*
2127     Flags NoReliefString Hidden  NoFocus
2128     Title {                    }
2129 Main
2130  Case message of
2131   SingleClic :
2132   Begin
2133   End
2134 End
2135
2136 # Geometry windows position
2137 Widget 37
2138 Property
2139     Position 20 135
2140     Type ItemDraw
2141     Font -*-fixed-medium-r-semicondensed-*-13-*
2142     Flags NoReliefString Hidden NoFocus
2143     Title {                                          }
2144 Main
2145  Case message of
2146   SingleClic :
2147   Begin
2148   End
2149 End
2150
2151 Widget 38
2152 Property
2153     Position 280 135
2154     Type RadioButton
2155     Font -*-fixed-medium-r-semicondensed-*-13-*
2156     Flags NoReliefString Hidden
2157     Title {                       }
2158 Main
2159 Case message of
2160 SingleClic :
2161  Begin
2162     ChangeValue $GF_Emulate 0
2163     ChangeValue 38 1
2164     Set $GF_Emulate = 38
2165  End
2166 End
2167
2168 Widget 39
2169 Property
2170     Position 440 135
2171     Type RadioButton
2172     Font -*-fixed-medium-r-semicondensed-*-13-*
2173     Flags NoReliefString Hidden
2174     Title {                       }
2175 Main
2176 Case message of
2177 SingleClic :
2178  Begin
2179     ChangeValue $GF_Emulate 0
2180     ChangeValue 39 1
2181     Set $GF_Emulate = 39
2182  End
2183 End
2184
2185 # Hide Geometry windows
2186 Widget 40
2187 Property
2188     Position 20 165
2189     Type ItemDraw
2190     Font -*-fixed-medium-r-semicondensed-*-13-*
2191     Flags NoReliefString Hidden NoFocus
2192     Title {                                          }
2193 Main
2194  Case message of
2195   SingleClic :
2196   Begin
2197   End
2198 End
2199
2200 # Size
2201 Widget 41
2202 Property
2203     Position 280 165
2204     Type RadioButton
2205     Font -*-fixed-medium-r-semicondensed-*-13-*
2206     Flags NoReliefString Hidden
2207     Title {                       }
2208 Main
2209 Case message of
2210 SingleClic :
2211  Begin
2212     If $GF_HideGeoSize == 1 Then
2213         ChangeValue 41 0
2214     Set $GF_HideGeoSize = (GetValue 41)
2215  End
2216 End
2217
2218 # Move
2219 Widget 42
2220 Property
2221     Position 440 165
2222     Type RadioButton
2223     Font -*-fixed-medium-r-semicondensed-*-13-*
2224     Flags NoReliefString Hidden
2225     Title {                       }
2226 Main
2227 Case message of
2228  SingleClic :
2229  Begin
2230     If $GF_HideGeoMove == 1 Then
2231         ChangeValue 42 0
2232     Set $GF_HideGeoMove = (GetValue 42)
2233  End
2234 End
2235
2236 # BugOpts FlickeringMoveWorkaround
2237 Widget 43
2238 Property
2239     Position 20 195
2240     Type CheckBox
2241     Font -*-fixed-medium-r-semicondensed-*-13-*
2242     Flags NoReliefString Hidden
2243     Title {                                                                                       }
2244 Main
2245  Case message of
2246   SingleClic :
2247   Begin
2248   End
2249 End
2250
2251 #-------------------------
2252 # Snap Attraction:
2253 Widget 44
2254 Property
2255     Size 580 15
2256     Position 15 225
2257     Type ItemDraw
2258     Flags NoReliefString Hidden NoFocus
2259     Title {}
2260 Main
2261 Case message of
2262     SingleClic :
2263     Begin
2264     End
2265 End
2266
2267 # distance
2268 Widget 45
2269 Property
2270     Position 65 255
2271     Type ItemDraw
2272     Font -*-fixed-medium-r-semicondensed-*-13-*
2273     Flags NoReliefString Hidden NoFocus
2274     Title {               }
2275 Main
2276 Case message of
2277     SingleClic :
2278     Begin
2279     End
2280 End
2281
2282 # distance value
2283 Widget 46
2284 Property
2285     Position 155 250
2286     Size 30 15
2287     Type TextField
2288     Font -*-fixed-medium-r-semicondensed-*-13-*
2289     Flags NoReliefString Hidden
2290     Title {}
2291 Main
2292 Case message of
2293     SingleClic :
2294     Begin
2295     End
2296 End
2297
2298 # context
2299 Widget 47
2300 Property
2301     Position 260 255
2302     Type ItemDraw
2303     Font -*-fixed-medium-r-semicondensed-*-13-*
2304     Flags NoReliefString Hidden NoFocus
2305     Title {              }
2306 Main
2307 Case message of
2308     SingleClic :
2309     Begin
2310     End
2311 End
2312
2313 # context value
2314 Widget 48
2315 Property
2316     Position 350 250
2317     Type PopupMenu
2318     Font -*-fixed-medium-r-semicondensed-*-13-*
2319     Flags NoReliefString Hidden
2320     Title {                           }
2321 Main
2322 Case message of
2323     SingleClic :
2324     Begin
2325     End
2326 End
2327
2328 # SnapGrid
2329 Widget 49
2330 Property
2331     Position 65 295
2332     Type ItemDraw
2333     Font -*-fixed-medium-r-semicondensed-*-13-*
2334     Flags NoReliefString Hidden NoFocus
2335     Title {                          }
2336 Main
2337 Case message of
2338     SingleClic :
2339     Begin
2340     End
2341 End
2342
2343 # SnapGrid X title
2344 Widget 50
2345 Property
2346     Position 230 295
2347     Type ItemDraw
2348     Font -*-fixed-medium-r-semicondensed-*-13-*
2349     Flags NoReliefString Hidden NoFocus
2350     Title {X:}
2351 Main
2352 Case message of
2353     SingleClic :
2354     Begin
2355     End
2356 End
2357
2358 Widget 51
2359 Property
2360     Position 250 290
2361     Type TextField
2362     Font -*-fixed-medium-r-semicondensed-*-13-*
2363     Flags NoReliefString Hidden
2364     Title {}
2365 Main
2366 Case message of
2367     SingleClic :
2368     Begin
2369     End
2370 End
2371
2372 # SnapGrid Y title
2373 Widget 52
2374 Property
2375     Position 330 295
2376     Type ItemDraw
2377     Font -*-fixed-medium-r-semicondensed-*-13-*
2378     Flags NoReliefString Hidden NoFocus
2379     Title {Y:}
2380 Main
2381 Case message of
2382     SingleClic :
2383     Begin
2384     End
2385 End
2386
2387 Widget 53
2388 Property
2389     Position 350 290
2390     Type TextField
2391     Font -*-fixed-medium-r-semicondensed-*-13-*
2392     Flags NoReliefString Hidden
2393     Title {}
2394 Main
2395 Case message of
2396     SingleClic :
2397     Begin
2398     End
2399 End
2400
2401 #-------------------------
2402 # XOR Color or Pixmap:
2403 Widget 54
2404 Property
2405     Size 580 15
2406     Position 15 330
2407     Type ItemDraw
2408     Flags NoReliefString Hidden NoFocus
2409     Title {}
2410 Main
2411 Case message of
2412     SingleClic :
2413     Begin
2414     End
2415 End
2416
2417 # Color or Pixmap? Color
2418 Widget 55
2419 Property
2420     Position 90 355
2421     Type CheckBox
2422     Font -*-fixed-medium-r-semicondensed-*-13-*
2423     Flags NoReliefString Hidden
2424     Title {                               }
2425 Main
2426 Case message of
2427  SingleClic :
2428  Begin
2429     ChangeValue 55 1
2430     ChangeValue 56 0
2431     If $GF_Xor == 1 Then
2432     Begin
2433         Set $GF_Xor = 0
2434         Set $GF_XorPixmap = (GetTitle 58)
2435         ChangeTitle 58 $GF_XorValue
2436         ChangeTitle 57 $l_OneColor
2437         ChangeTitle 59 $l_StartColorSel
2438     End
2439  End
2440 End
2441
2442 # Color or Pixmap? Pixmap
2443 Widget 56
2444 Property
2445     Position 310 355
2446     Type CheckBox
2447     Font -*-fixed-medium-r-semicondensed-*-13-*
2448     Flags NoReliefString Hidden
2449     Title {                                   }
2450 Main
2451 Case message of
2452  SingleClic :
2453  Begin
2454     ChangeValue 56 1
2455     ChangeValue 55 0
2456     If $GF_Xor == 0 Then
2457     Begin
2458         Set $GF_Xor = 1
2459         Set $GF_XorValue = (GetTitle 58)
2460         ChangeTitle 58 $GF_XorPixmap
2461         ChangeTitle 57 $l_OnePixmap
2462         ChangeTitle 59 $l_StartImages
2463     End
2464  End
2465 End
2466
2467 # XOR: Title
2468 Widget 57
2469 Property
2470     Position 70 390
2471     Type ItemDraw
2472     Font -*-fixed-medium-r-semicondensed-*-13-*
2473     Flags NoReliefString Hidden NoFocus
2474     Title {                           }
2475 Main
2476 Case message of
2477     SingleClic :
2478     Begin
2479     End
2480 End
2481
2482 # XOR: Value
2483 Widget 58
2484 Property
2485     Position 210 385
2486     Size 90 20
2487     Type TextField
2488     Font -*-fixed-medium-r-semicondensed-*-13-*
2489     Flags NoReliefString Hidden
2490     Title {}
2491 Main
2492 Case message of
2493     SingleClic :
2494     Begin
2495     End
2496 End
2497
2498 # XOR: Browse
2499 Widget 59
2500 Property
2501     Position 340 385
2502     Size 90 20
2503     Type PushButton
2504     Font -*-fixed-medium-r-semicondensed-*-13-*
2505     Flags NoReliefString Hidden
2506     Title {}
2507 Main
2508 Case message of
2509  SingleClic :
2510  Begin
2511     If $GF_Xor == 1 Then
2512         Set $arg={FvwmScript-IconBrowser --icon-colorset }$ViewerColorset{ --text-colorset }$TextColorset
2513     Else
2514     Begin
2515         Set $tmp = (GetTitle 58)
2516         Set $cmd = $SendMsgAndGet{"value-2-hexcolor }$tmp{"}
2517         Set $tmp = (GetOutput $cmd 1 -1)
2518         Set $arg={FvwmScript-ColorSelector --launched yes --return-type pixels --viewer-colorset } $ViewerColorset { --color }$tmp
2519         ChangeTitle 990 {The color selector returns good values only with a TrueColor visual (16, 24 or 32 bpp)}
2520     End
2521     Set $GF_XorBrowser = (LaunchScript $arg)
2522  End
2523 End
2524
2525
2526 #-----------------------------------------------------------------------------
2527 #
2528 # Pagination and Mouse Parameters
2529 #
2530 #-----------------------------------------------------------------------------
2531
2532 # Pagination Title:
2533 Widget 60
2534 Property
2535     Size 580 15
2536     Position 15 50
2537     Type ItemDraw
2538     Flags NoReliefString Hidden NoFocus
2539     Title {}
2540 Main
2541 Case message of
2542     SingleClic :
2543     Begin
2544     End
2545 End
2546
2547 # Horizontal Paging: title
2548 Widget 61
2549 Property
2550     Position 20 85
2551     Type ItemDraw
2552     Font -*-fixed-medium-r-semicondensed-*-13-*
2553     Flags NoReliefString Hidden  NoFocus
2554     Title {                              }
2555 Main
2556  Case message of
2557   SingleClic :
2558   Begin
2559   End
2560 End
2561
2562 # Horizontal Paging: Value
2563 Widget 62
2564 Property
2565     Position 205 80
2566     Type PopupMenu
2567     Font -*-fixed-medium-r-semicondensed-*-13-*
2568     Flags NoReliefString Hidden
2569     Title {                }
2570 Main
2571  Case message of
2572   SingleClic :
2573   Begin
2574   End
2575 End
2576
2577 # Horizontal Paging: circular ?
2578 Widget 63
2579 Property
2580     Position 385 85
2581     Type CheckBox
2582     Font -*-fixed-medium-r-semicondensed-*-13-*
2583     Flags NoReliefString Hidden
2584     Title {                              }
2585 Main
2586  Case message of
2587   SingleClic :
2588   Begin
2589   End
2590 End
2591
2592 # Vertical Paging: title
2593 Widget 64
2594 Property
2595     Position 20 125
2596     Type ItemDraw
2597     Font -*-fixed-medium-r-semicondensed-*-13-*
2598     Flags NoReliefString Hidden NoFocus
2599     Title {                              }
2600 Main
2601  Case message of
2602   SingleClic :
2603   Begin
2604   End
2605 End
2606
2607 # Vertical Paging: Value
2608 Widget 65
2609 Property
2610     Position 205 120
2611     Type PopupMenu
2612     Font -*-fixed-medium-r-semicondensed-*-13-*
2613     Flags NoReliefString Hidden
2614     Title {                }
2615 Main
2616  Case message of
2617   SingleClic :
2618   Begin
2619   End
2620 End
2621
2622 # Vertical Paging: circular ?
2623 Widget 66
2624 Property
2625     Position 385 125
2626     Type CheckBox
2627     Font -*-fixed-medium-r-semicondensed-*-13-*
2628     Flags NoReliefString Hidden
2629     Title {                              }
2630 Main
2631  Case message of
2632   SingleClic :
2633   Begin
2634   End
2635 End
2636
2637 # Paging Delay : title
2638 Widget 67
2639 Property
2640     Position 20 165
2641     Type ItemDraw
2642     Font -*-fixed-medium-r-semicondensed-*-13-*
2643     Flags NoReliefString Hidden NoFocus
2644     Title {                                                   }
2645 Main
2646  Case message of
2647   SingleClic :
2648   Begin
2649   End
2650 End
2651
2652
2653 # Paging Delay: value
2654 Widget 68
2655 Property
2656     Position 330 160
2657     Size 60 15
2658     Type TextField
2659     Font -*-fixed-medium-r-semicondensed-*-13-*
2660     Flags NoReliefString Hidden
2661     Title {}
2662 Main
2663  Case message of
2664   SingleClic :
2665   Begin
2666   End
2667 End
2668
2669 # Paging Delay : ms
2670 Widget 69
2671 Property
2672     Position 400 165
2673     Type ItemDraw
2674     Font -*-fixed-medium-r-semicondensed-*-13-*
2675     Flags NoReliefString Hidden NoFocus
2676     Title {    }
2677 Main
2678  Case message of
2679   SingleClic :
2680   Begin
2681   End
2682 End
2683
2684 # Moving Edge resistance: title
2685 Widget 70
2686 Property
2687     Position 20 200
2688     Type ItemDraw
2689     Font -*-fixed-medium-r-semicondensed-*-13-*
2690     Flags NoReliefString Hidden NoFocus
2691     Title {                                                   }
2692 Main
2693  Case message of
2694   SingleClic :
2695   Begin
2696   End
2697 End
2698
2699
2700 # Moving Edge resistance: value
2701 Widget 71
2702 Property
2703     Position 330 195
2704     Size 60 15
2705     Type TextField
2706     Font -*-fixed-medium-r-semicondensed-*-13-*
2707     Flags NoReliefString Hidden
2708     Title {}
2709 Main
2710  Case message of
2711   SingleClic :
2712   Begin
2713   End
2714 End
2715
2716 # Paging Delay : pixels
2717 Widget 72
2718 Property
2719     Position 400 200
2720     Type ItemDraw
2721     Font -*-fixed-medium-r-semicondensed-*-13-*
2722     Flags NoReliefString Hidden NoFocus
2723     Title {        }
2724 Main
2725  Case message of
2726   SingleClic :
2727   Begin
2728   End
2729 End
2730
2731 # PanFrame: title
2732 Widget 73
2733 Property
2734     Position 20 235
2735     Type ItemDraw
2736     Font -*-fixed-medium-r-semicondensed-*-13-*
2737     Flags NoReliefString Hidden NoFocus
2738     Title {                                                      }
2739 Main
2740  Case message of
2741   SingleClic :
2742   Begin
2743   End
2744 End
2745
2746
2747 # PanFrame: value
2748 Widget 74
2749 Property
2750     Position 350 230
2751     Type PopupMenu
2752     Font -*-fixed-medium-r-semicondensed-*-13-*
2753     Flags NoReliefString Hidden
2754     Title {1|2}
2755 Main
2756  Case message of
2757   SingleClic :
2758   Begin
2759   End
2760 End
2761
2762 # Pame Farme : pixels
2763 Widget 75
2764 Property
2765     Position 400 235
2766     Type ItemDraw
2767     Font -*-fixed-medium-r-semicondensed-*-13-*
2768     Flags NoReliefString Hidden NoFocus
2769     Title {        }
2770 Main
2771  Case message of
2772   SingleClic :
2773   Begin
2774   End
2775 End
2776
2777 #----------------------------------------
2778 # Mouse Parameters
2779
2780 # Title:
2781 Widget 76
2782 Property
2783     Size 580 15
2784     Position 15 285
2785     Type ItemDraw
2786     Flags NoReliefString Hidden NoFocus
2787     Title {}
2788 Main
2789 Case message of
2790     SingleClic :
2791     Begin
2792     End
2793 End
2794
2795 # Double click: title
2796 Widget 77
2797 Property
2798     Position 20 325
2799     Type ItemDraw
2800     Font -*-fixed-medium-r-semicondensed-*-13-*
2801     Flags NoReliefString Hidden NoFocus
2802     Title {                                                        }
2803 Main
2804  Case message of
2805   SingleClic :
2806   Begin
2807   End
2808 End
2809
2810
2811 # Double Click: value
2812 Widget 78
2813 Property
2814     Position 335 320
2815     Size 30 15
2816     Type TextField
2817     Font -*-fixed-medium-r-semicondensed-*-13-*
2818     Flags NoReliefString Hidden
2819     Title {}
2820 Main
2821  Case message of
2822   SingleClic :
2823   Begin
2824   End
2825 End
2826
2827 # Double Click : pixels
2828 Widget 79
2829 Property
2830     Position 380 325
2831     Type ItemDraw
2832     Font -*-fixed-medium-r-semicondensed-*-13-*
2833     Flags NoReliefString Hidden NoFocus
2834     Title {    }
2835 Main
2836  Case message of
2837   SingleClic :
2838   Begin
2839   End
2840 End
2841
2842 # MoveThreshold: title
2843 Widget 80
2844 Property
2845     Position 20 360
2846     Type ItemDraw
2847     Font -*-fixed-medium-r-semicondensed-*-13-*
2848     Flags NoReliefString Hidden NoFocus
2849     Title {                                                        }
2850 Main
2851  Case message of
2852   SingleClic :
2853   Begin
2854   End
2855 End
2856
2857
2858 # MoveThreshold: value
2859 Widget 81
2860 Property
2861     Position 335 355
2862     Size 30 15
2863     Type TextField
2864     Font -*-fixed-medium-r-semicondensed-*-13-*
2865     Flags NoReliefString Hidden
2866     Title {}
2867 Main
2868  Case message of
2869   SingleClic :
2870   Begin
2871   End
2872 End
2873
2874 # MoveThreshold: pixels
2875 Widget 82
2876 Property
2877     Position 380 360
2878     Type ItemDraw
2879     Font -*-fixed-medium-r-semicondensed-*-13-*
2880     Flags NoReliefString Hidden NoFocus
2881     Title {        }
2882 Main
2883  Case message of
2884   SingleClic :
2885   Begin
2886   End
2887 End
2888
2889 #-----------------------------------------------------------------------------
2890 #
2891 # Transient windows
2892 #
2893 #-----------------------------------------------------------------------------
2894
2895 # Transient Title:
2896 Widget 90
2897 Property
2898     Size 580 15
2899     Position 15 50
2900     Type ItemDraw
2901     Flags NoReliefString Hidden NoFocus
2902     Title {}
2903 Main
2904 Case message of
2905     SingleClic :
2906     Begin
2907     End
2908 End
2909
2910 # NakedTransient/DecorateTransient
2911 Widget 91
2912 Property
2913     Position 30 80
2914     Type CheckBox
2915     Font -*-fixed-medium-r-semicondensed-*-13-*
2916     Flags NoReliefString Hidden
2917     Title {                                                                               }
2918 Main
2919  Case message of
2920   SingleClic :
2921   Begin
2922   End
2923 End
2924
2925 # DontRaiseTransient/RaiseTransient
2926 Widget 92
2927 Property
2928     Position 30 105
2929     Type CheckBox
2930     Font -*-fixed-medium-r-semicondensed-*-13-*
2931     Flags NoReliefString Hidden
2932     Title {                                                                                         }
2933 Main
2934  Case message of
2935   SingleClic :
2936   Begin
2937   End
2938 End
2939
2940 # DontLowerTransient/LowerTransient
2941 Widget 93
2942 Property
2943     Position 30 130
2944     Type CheckBox
2945     Font -*-fixed-medium-r-semicondensed-*-13-*
2946     Flags NoReliefString Hidden
2947     Title {                                                                                         }
2948 Main
2949  Case message of
2950   SingleClic :
2951   Begin
2952   End
2953 End
2954
2955 # DontStackTransientParent/StackTransientParent
2956 Widget 94
2957 Property
2958     Position 30 155
2959     Type CheckBox
2960     Font -*-fixed-medium-r-semicondensed-*-13-*
2961     Flags NoReliefString Hidden
2962     Title {                                                                                       }
2963 Main
2964  Case message of
2965   SingleClic :
2966   Begin
2967   End
2968 End
2969
2970 # GrabFocusTransient/GrabFocusTransientOff
2971 Widget 95
2972 Property
2973     Position 30 180
2974     Type CheckBox
2975     Font -*-fixed-medium-r-semicondensed-*-13-*
2976     Flags NoReliefString Hidden
2977     Title {                                                                                       }
2978 Main
2979  Case message of
2980   SingleClic :
2981   Begin
2982   End
2983 End
2984
2985 #-------------------------
2986 # Animations Speed:
2987 Widget 96
2988 Property
2989     Size 580 15
2990     Position 15 220
2991     Type ItemDraw
2992     Flags NoReliefString Hidden NoFocus
2993     Title {}
2994 Main
2995 Case message of
2996     SingleClic :
2997     Begin
2998     End
2999 End
3000
3001 # ShadeSetps title
3002 Widget 97
3003 Property
3004     Position 30 255
3005     Type ItemDraw
3006     Font -*-fixed-medium-r-semicondensed-*-13-*
3007     Flags NoReliefString Hidden NoFocus
3008     Title {                                      }
3009 Main
3010 Case message of
3011     SingleClic :
3012     Begin
3013     End
3014 End
3015
3016 # ShadeSetps
3017 Widget 98
3018 Property
3019     Position 260 250
3020     Size 40 15
3021     Type TextField
3022     Font -*-fixed-medium-r-semicondensed-*-13-*
3023     Flags NoReliefString Hidden
3024     Title {}
3025 Main
3026 Case message of
3027     SingleClic :
3028     Begin
3029     End
3030 End
3031
3032 # ShadeScroll/Shrinks
3033 Widget 99
3034 Property
3035     Position 30 287
3036     Type CheckBox
3037     Font -*-fixed-medium-r-semicondensed-*-13-*
3038     Flags NoReliefString Hidden
3039     Title {                                                                               }
3040 Main
3041 Case message of
3042     SingleClic :
3043     Begin
3044     End
3045 End
3046
3047 # SetAnimation title
3048 Widget 100
3049 Property
3050     Position 30 320
3051     Type ItemDraw
3052     Font -*-fixed-medium-r-semicondensed-*-13-*
3053     Flags NoReliefString Hidden NoFocus
3054     Title {                               }
3055 Main
3056 Case message of
3057     SingleClic :
3058     Begin
3059     End
3060 End
3061
3062 # SetAnimation speed title
3063 Widget 101
3064 Property
3065     Position 250 320
3066     Type ItemDraw
3067     Font -*-fixed-medium-r-semicondensed-*-13-*
3068     Flags NoReliefString Hidden NoFocus
3069     Title {                       }
3070 Main
3071 Case message of
3072     SingleClic :
3073     Begin
3074     End
3075 End
3076
3077 # SetAnimation speed value
3078 Widget 102
3079 Property
3080     Position 395 315
3081     Type TextField
3082     Font -*-fixed-medium-r-semicondensed-*-13-*
3083     Flags NoReliefString Hidden
3084     Title {}
3085 Main
3086 Case message of
3087     SingleClic :
3088     Begin
3089     End
3090 End
3091
3092 # SetAnimation fractions-to-move-list title
3093 Widget 103
3094 Property
3095     Position 50 352
3096     Type ItemDraw
3097     Font -*-fixed-medium-r-semicondensed-*-13-*
3098     Flags NoReliefString Hidden NoFocus
3099     Title {                                 }
3100 Main
3101 Case message of
3102     SingleClic :
3103     Begin
3104     End
3105 End
3106
3107 # SetAnimation fractions-to-move-list value
3108 Widget 104
3109 Property
3110     Position 255 347
3111     Size 335 15
3112     Type TextField
3113     Font -*-fixed-medium-r-semicondensed-*-13-*
3114     Flags NoReliefString Hidden
3115     Title {}
3116 Main
3117 Case message of
3118     SingleClic :
3119     Begin
3120     End
3121 End
3122
3123 # Some preconfigured value title
3124 Widget 105
3125 Property
3126     Position 50 382
3127     Type ItemDraw
3128     Font -*-fixed-medium-r-semicondensed-*-13-*
3129     Flags NoReliefString Hidden NoFocus
3130     Title {               }
3131 Main
3132 Case message of
3133     SingleClic :
3134     Begin
3135     End
3136 End
3137
3138 # Some preconfigured value: value
3139 Widget 106
3140 Property
3141     Position 255 379
3142     Type PopupMenu
3143     Font -*-fixed-medium-r-semicondensed-*-13-*
3144     Flags NoReliefString Hidden
3145     Title {                       }
3146 Main
3147 Case message of
3148     SingleClic :
3149     Begin
3150     End
3151 End
3152
3153 #-----------------------------------------------------------------------------
3154 #
3155 # Hints, Busy Cursor
3156 #
3157 #-----------------------------------------------------------------------------
3158
3159 # Hints Title:
3160 Widget 110
3161 Property
3162     Size 580 15
3163     Position 15 50
3164     Type ItemDraw
3165     Flags NoReliefString Hidden NoFocus
3166     Title {}
3167 Main
3168 Case message of
3169     SingleClic :
3170     Begin
3171     End
3172 End
3173
3174 # Mwm Decor
3175 Widget 111
3176 Property
3177     Position 35 80
3178     Type CheckBox
3179     Font -*-fixed-medium-r-semicondensed-*-13-*
3180     Flags NoReliefString Hidden
3181     Title {                                      }
3182 Main
3183  Case message of
3184   SingleClic :
3185   Begin
3186   End
3187 End
3188
3189 # OLD
3190 Widget 112
3191 Property
3192     Position 35 105
3193     Type CheckBox
3194     Font -*-fixed-medium-r-semicondensed-*-13-*
3195     Flags NoReliefString Hidden NoFocus
3196     Title {                                      }
3197 Main
3198  Case message of
3199   SingleClic :
3200   Begin
3201   End
3202 End
3203
3204 # HintsOverRead
3205 Widget 113
3206 Property
3207     Position 35 130
3208     Type CheckBox
3209     Font -*-fixed-medium-r-semicondensed-*-13-*
3210     Flags NoReliefString Hidden
3211     Title {                                      }
3212 Main
3213  Case message of
3214   SingleClic :
3215   Begin
3216   End
3217 End
3218
3219 # Mwm Functions
3220 Widget 114
3221 Property
3222     Position 310 80
3223     Type CheckBox
3224     Font -*-fixed-medium-r-semicondensed-*-13-*
3225     Flags NoReliefString Hidden
3226     Title {                                      }
3227 Main
3228  Case message of
3229   SingleClic :
3230   Begin
3231   End
3232 End
3233
3234 # GNOME
3235 Widget 115
3236 Property
3237     Position 310 105
3238     Type CheckBox
3239     Font -*-fixed-medium-r-semicondensed-*-13-*
3240     Flags NoReliefString Hidden
3241     Title {                                      }
3242 Main
3243  Case message of
3244   SingleClic :
3245   Begin
3246   End
3247 End
3248
3249 # ModalityIsEvil
3250 Widget 116
3251 Property
3252     Position 310 130
3253     Type CheckBox
3254     Font -*-fixed-medium-r-semicondensed-*-13-*
3255     Flags NoReliefString Hidden
3256     Title {                                      }
3257 Main
3258  Case message of
3259   SingleClic :
3260   Begin
3261   End
3262 End
3263
3264 #---------------------
3265 # Busy cursor Title:
3266 Widget 117
3267 Property
3268     Size 580 15
3269     Position 15 170
3270     Type ItemDraw
3271     Flags NoReliefString Hidden NoFocus
3272     Title {}
3273 Main
3274 Case message of
3275     SingleClic :
3276     Begin
3277     End
3278 End
3279
3280 # Read
3281 Widget 118
3282 Property
3283     Position 55 200
3284     Type CheckBox
3285     Font -*-fixed-medium-r-semicondensed-*-13-*
3286     Flags NoReliefString Hidden
3287     Title {Read}
3288 Main
3289  Case message of
3290   SingleClic :
3291   Begin
3292   End
3293 End
3294
3295 # Recapture
3296 Widget 119
3297 Property
3298     Position 170 200
3299     Type CheckBox
3300     Font -*-fixed-medium-r-semicondensed-*-13-*
3301     Flags NoReliefString Hidden
3302     Title {Recapture}
3303 Main
3304  Case message of
3305   SingleClic :
3306   Begin
3307   End
3308 End
3309
3310 # Wait
3311 Widget 120
3312 Property
3313     Position 285 200
3314     Type CheckBox
3315     Font -*-fixed-medium-r-semicondensed-*-13-*
3316     Flags NoReliefString Hidden
3317     Title {Wait}
3318 Main
3319  Case message of
3320   SingleClic :
3321   Begin
3322   End
3323 End
3324
3325 # ModuleSynchronous
3326 Widget 121
3327 Property
3328     Position 400 200
3329     Type CheckBox
3330     Font -*-fixed-medium-r-semicondensed-*-13-*
3331     Flags NoReliefString Hidden
3332     Title {ModuleSynchronous}
3333 Main
3334  Case message of
3335   SingleClic :
3336   Begin
3337   End
3338 End
3339
3340 #--------------------------------
3341 # Advanced (defaults are good!)
3342 Widget 122
3343 Property
3344     Size 580 15
3345     Position 15 240
3346     Type ItemDraw
3347     Flags NoReliefString Hidden NoFocus
3348     Title {}
3349 Main
3350 Case message of
3351     SingleClic :
3352     Begin
3353     End
3354 End
3355
3356 # ColorLimit: title
3357 Widget 123
3358 Property
3359     Position 35 275
3360     Type ItemDraw
3361     Font -*-fixed-medium-r-semicondensed-*-13-*
3362     Flags NoReliefString Hidden NoFocus
3363     Title {                                               }
3364 Main
3365 Case message of
3366     SingleClic :
3367     Begin
3368     End
3369 End
3370
3371 # ColorLimit: value
3372 Widget 124
3373 Property
3374     Position 320 270
3375     Type PopupMenu
3376     Font -*-fixed-medium-r-semicondensed-*-13-*
3377     Flags NoReliefString Hidden
3378     Title {Default|2|9|19|29|39|49|61|No Limit}
3379 Main
3380 Case message of
3381     SingleClic :
3382     Begin
3383     End
3384 End
3385
3386 # MixedVisualWorkaround
3387 Widget 125
3388 Property
3389     Position 35 310
3390     Type CheckBox
3391     Font -*-fixed-medium-r-semicondensed-*-13-*
3392     Flags NoReliefString Hidden
3393     Title { MixedVisualWorkaround}
3394 Main
3395  Case message of
3396   SingleClic :
3397   Begin
3398   End
3399 End
3400
3401 # RaiseOverNativeWindows
3402 Widget 126
3403 Property
3404     Position 35 345
3405     Type CheckBox
3406     Font -*-fixed-medium-r-semicondensed-*-13-*
3407     Flags NoReliefString Hidden
3408     Title { RaiseOverNativeWindows}
3409 Main
3410  Case message of
3411   SingleClic :
3412   Begin
3413   End
3414 End
3415
3416 # SaveUnder
3417 Widget 129
3418 Property
3419     Position 280 310
3420     Type CheckBox
3421     Font -*-fixed-medium-r-semicondensed-*-13-*
3422     Flags NoReliefString Hidden
3423     Title { SaveUnder}
3424 Main
3425  Case message of
3426   SingleClic :
3427   Begin
3428   End
3429 End
3430
3431 # BackingStore
3432 Widget 130
3433 Property
3434     Position 280 345
3435     Type CheckBox
3436     Font -*-fixed-medium-r-semicondensed-*-13-*
3437     Flags NoReliefString Hidden
3438     Title { BackingStore}
3439 Main
3440  Case message of
3441   SingleClic :
3442   Begin
3443   End
3444 End
3445
3446
3447 # ModuleTimeOut
3448 Widget 127
3449 Property
3450     Position 35 380
3451     Type ItemDraw
3452     Font -*-fixed-medium-r-semicondensed-*-13-*
3453     Flags NoReliefString Hidden NoFocus
3454     Title {                                                            }
3455 Main
3456 Case message of
3457     SingleClic :
3458     Begin
3459     End
3460 End
3461
3462 # ModuleTimeOut: value
3463 Widget 128
3464 Property
3465     Position 400 375
3466     Type PopupMenu
3467     Font -*-fixed-medium-r-semicondensed-*-13-*
3468     Flags NoReliefString Hidden
3469     Title {2 sec|5 sec|7 sec|10 sec|15 sec |30 sec|45 sec|60 sec|120 sec}
3470 Main
3471 Case message of
3472     SingleClic :
3473     Begin
3474     End
3475 End
3476
3477 #-----------------------------------------------------------------------------
3478 #
3479 # GF_Preference
3480 #
3481 #-----------------------------------------------------------------------------
3482
3483 #theme and files title
3484 Widget 950
3485 Property
3486     Size 580 15
3487     Position 15 50
3488     Type ItemDraw
3489     Flags NoReliefString Hidden NoFocus
3490     Title {}
3491 Main
3492 Case message of
3493     SingleClic :
3494     Begin
3495     End
3496 End
3497
3498 # some explaination
3499 Widget 951
3500 Property
3501     Position 15 80
3502     Type ItemDraw
3503     Flags NoReliefString Hidden NoFocus
3504     Font -*-fixed-medium-r-semicondensed-*-13-*
3505     Title {                                                                                             }
3506 Main
3507 Case message of
3508     SingleClic :
3509     Begin
3510     End
3511 End
3512
3513 # load an other config: title
3514 Widget 952
3515 Property
3516     Position 35 115
3517     Type ItemDraw
3518     Flags NoReliefString Hidden NoFocus
3519     Font -*-fixed-medium-r-semicondensed-*-13-*
3520     Title {                                    }
3521 Main
3522 Case message of
3523     SingleClic :
3524     Begin
3525     End
3526 End
3527
3528 # load an other config: choices
3529 Widget 953
3530 Property
3531     Position 265 110
3532     Type PopupMenu
3533     Flags NoReliefString Hidden
3534     Title {                          }
3535 Main
3536 Case message of
3537     SingleClic :
3538     Begin
3539     End
3540 End
3541
3542 # reserved!
3543 Widget 954
3544 Property
3545     Position 608 110
3546     Size 1 1
3547     Type ItemDraw
3548     Flags NoReliefString Hidden NoFocus
3549     Title {}
3550 Main
3551 Case message of
3552     SingleClic :
3553     Begin
3554     End
3555 End
3556
3557 # load an other config: apply
3558 Widget 955
3559 Property
3560     Position 430 110
3561     Size 80 20
3562     Type PushButton
3563     Flags NoReliefString Hidden
3564     Title {}
3565 Main
3566 Case message of
3567  SingleClic :
3568  Begin
3569     Set $ThemeToLoad = (GetValue 953)
3570     Set $GF_UpdateConfig = 1
3571     Set $LoadFromPreference = 1
3572     Set $CmdType = {}
3573  End
3574 End
3575
3576 # where we save: title
3577 Widget 956
3578 Property
3579     Position 35 155
3580     Type ItemDraw
3581     Flags NoReliefString Hidden NoFocus
3582     Font -*-fixed-medium-r-semicondensed-*-13-*
3583     Title {                         }
3584 Main
3585 Case message of
3586     SingleClic :
3587     Begin
3588     End
3589 End
3590
3591 # where we save: theme
3592 Widget 957
3593 Property
3594     Position 150 155
3595     Type ItemDraw
3596     Flags NoReliefString Hidden NoFocus
3597     Font -*-fixed-medium-r-semicondensed-*-13-*
3598     Title {                        }
3599 Main
3600 Case message of
3601     SingleClic :
3602     Begin
3603     End
3604 End
3605
3606 # change where we save: title
3607 Widget 958
3608 Property
3609     Position 50 185
3610     Type ItemDraw
3611     Flags NoReliefString Hidden NoFocus
3612     Font -*-fixed-medium-r-semicondensed-*-13-*
3613     Title {                                }
3614 Main
3615 Case message of
3616     SingleClic :
3617     Begin
3618     End
3619 End
3620
3621 # change where we save: choice
3622 Widget 959
3623 Property
3624     Position 265 180
3625     Type PopupMenu
3626     Flags NoReliefString Hidden
3627     Title {                            }
3628 Main
3629 Case message of
3630     SingleClic :
3631     Begin
3632     End
3633 End
3634
3635 # change where we save: apply
3636 Widget 960
3637 Property
3638     Position 430 180
3639     Size 80 20
3640     Type PushButton
3641     Flags NoReliefString Hidden
3642     Title {}
3643 Main
3644 Case message of
3645  SingleClic :
3646  Begin
3647     Set $tmp = (GetValue 959)
3648     Set $cmd = $SendMsgAndGet{"set-save-file }$Component{ }$tmp{"}
3649     Set $tmp = (GetOutput $cmd 1 -1)
3650     ChangeTitle 957 $tmp
3651  End
3652 End
3653
3654 # Preference
3655 Widget 961
3656 Property
3657     Size 580 15
3658     Position 15 235
3659     Type ItemDraw
3660     Flags NoReliefString Hidden NoFocus
3661     Title {}
3662 Main
3663 Case message of
3664     SingleClic :
3665     Begin
3666     End
3667 End
3668
3669 #
3670 Widget 962
3671 Property
3672     Position 30 270
3673     Type CheckBox
3674     Font -*-fixed-medium-r-semicondensed-*-13-*
3675     Flags NoReliefString Hidden
3676     Title {                                                                                          }
3677 Main
3678 Case message of
3679  SingleClic :
3680  Begin
3681     Set $GF_TryIsGlobal = (GetValue 962)
3682  End
3683 End
3684
3685 Widget 963
3686 Property
3687     Position 30 305
3688     Type CheckBox
3689     Font -*-fixed-medium-r-semicondensed-*-13-*
3690     Flags NoReliefString Hidden
3691     Title {                                                                                          }
3692 Main
3693 Case message of
3694  SingleClic :
3695  Begin
3696     Set $GF_DefaultIsGlobal = (GetValue 963)
3697  End
3698 End
3699
3700 Widget 964
3701 Property
3702     Position 30 340
3703     Type CheckBox
3704     Font -*-fixed-medium-r-semicondensed-*-13-*
3705     Flags NoReliefString Hidden
3706     Title {                                                                                          }
3707 Main
3708 Case message of
3709  SingleClic :
3710  Begin
3711     Set $GF_SaveIsGlobal = (GetValue 964)
3712  End
3713 End
3714
3715
3716 ##############################################################################
3717 #
3718 # EEEEEEEEEEEEEEENNNNNNNNNNNNNNNNNNNNNNNNDDDDDDDDDDDDDDDDDDDD
3719 #
3720 ##############################################################################
3721
3722 #-----------------------------------------------------------------------------
3723 #
3724 # Message, Apply, quit, ...
3725 #
3726 #-----------------------------------------------------------------------------
3727
3728 # Message
3729 Widget 990
3730 Property
3731     Flags NoReliefString NoFocus
3732     Position 20 417
3733     Size 560 20
3734     Type ItemDraw
3735     Title {}
3736 Main
3737 Case message of
3738     SingleClic :
3739     Begin
3740     End
3741 End
3742
3743 # Save
3744 Widget 991
3745 Property
3746     Flags NoReliefString
3747     Position 30 450
3748     Size 85 20
3749     Type PushButton
3750     Title {}
3751 Main
3752 Case message of
3753  SingleClic :
3754  Begin
3755     #Execute 1 : just below
3756     #If $Component == {globalfeel} Then
3757         SendSignal 991 1
3758  End
3759  1 :
3760  Begin
3761     If $ConfigTool == {GF_Preference} Then
3762     Begin
3763         Set $msg = {Preference Saved}
3764         Set $cmd = $SendMsgAndGet{"save-preferences }$GF_TryIsGlobal $GF_DefaultIsGlobal $GF_SaveIsGlobal{"}
3765         Set $dummy = (GetOutput $cmd 1 -1)
3766         ChangeTitle 990 $msg
3767     End
3768     Else
3769     Begin
3770         Set $GF_BuildConfig = 1
3771         If $GF_SaveIsGlobal == 1 Then
3772             Set $GF_BuildAllConfig = 1
3773         Else
3774             Set $GF_BuildAllConfig = 0
3775         Set $DoApplyCmd = 1
3776         Set $CmdType = {Save}
3777     End
3778  End
3779 End
3780
3781 # Try
3782 Widget 992
3783 Property
3784     Flags NoReliefString
3785     Position 145 450
3786     Size 85 20
3787     Type PushButton
3788     Title {}
3789 Main
3790 Case message of
3791  SingleClic :
3792  Begin
3793     #Execute 1 : just below
3794     SendSignal 992 1
3795  End
3796  1 :
3797  Begin
3798     If $ConfigTool <> {GF_Preference} Then
3799     Begin
3800         Set $GF_BuildConfig = 1
3801         If $GF_TryIsGlobal == 1 Then
3802             Set $GF_BuildAllConfig = 1
3803         Else
3804             Set $GF_BuildAllConfig = 0
3805         Set $DoApplyCmd = 1
3806         Set $CmdType = {Try}
3807     End
3808     Else
3809     Begin
3810         ChangeTitle 990 $l_NoEffectHere
3811     End
3812  End
3813 End
3814
3815 # Load Default
3816 Widget 993
3817 Property
3818     Flags NoReliefString
3819     Position 260 450
3820     Size 85 20
3821     Type PushButton
3822     Title {}
3823 Main
3824 Case message of
3825  SingleClic :
3826  Begin
3827     #Execute 1 : just below
3828     SendSignal 993 1
3829  End
3830  1 :
3831  Begin
3832     If $ConfigTool <> {GF_Preference} Then
3833     Begin
3834         Set $GF_UpdateConfig = 1
3835         Set $ThemeToLoad = {default}
3836         Set $LoadFromPreference = 0
3837     End
3838     Else
3839     Begin
3840         ChangeTitle 990 $l_NoEffectHere
3841     End
3842  End
3843 End
3844
3845 # Help
3846 Widget 994
3847 Property
3848     Flags NoReliefString
3849     Position 375 450
3850     Size 85 20
3851     Type PushButton
3852     Title {}
3853 Main
3854 Case message of
3855  SingleClic :
3856  Begin
3857     #Execute 1 : just below
3858     SendSignal 994 1
3859  End
3860  1 :
3861  Begin
3862     Set $arg={FvwmScript-Help --text-colorset }$TextColorset{ --message "                    Documentation in progress" --title "Help for the Main Config}
3863     Set $dummy = (LaunchScript $arg)
3864  End
3865 End
3866
3867 # Quit
3868 Widget 995
3869 Property
3870     Flags NoReliefString
3871     Position 490 450
3872     Size 85 20
3873     Type PushButton
3874     Title {Quit}
3875 Main
3876 Case message of
3877  SingleClic :
3878  Begin
3879  #Execute 1 : just below
3880     SendSignal 995 1
3881  End
3882  1 :
3883  Begin
3884    Set $cmd = $SendMsg{"exit"}
3885    Do {Exec }$cmd
3886    Quit
3887  End
3888 End