modules/FvwmForm/FvwmForm-Form

   1 # -*- Mode: fvwm -*-
   2 DestroyModuleConfig FvwmForm-Form: *
   3 *FvwmForm-Form: WarpPointer
   4 *FvwmForm-Form: Line  center
   5 *FvwmForm-Form: Text  "FvwmForm Set Form Defaults:"
   6 *FvwmForm-Form: Line  left
   7 *FvwmForm-Form: Text  ""
   8 *FvwmForm-Form: Line  left
   9 *FvwmForm-Form: Text  "Font for text:  "
  10 *FvwmForm-Form: Input Font 63 "8x13bold"
  11 *FvwmForm-Form: Line  left
  12 *FvwmForm-Form: Text  "Font for input: "
  13 *FvwmForm-Form: Input InputFont 63 "8x13bold"
  14 *FvwmForm-Form: Line  left
  15 *FvwmForm-Form: Text  "Font for button:"
  16 *FvwmForm-Form: Input ButtonFont 63 "8x13bold"
  17 *FvwmForm-Form: Line  left
  18 *FvwmForm-Form: Text  "Font for timeout text:"
  19 *FvwmForm-Form: Input TimeoutFont 63 "8x13bold"
  20 *FvwmForm-Form: Line  left
  21 *FvwmForm-Form: Text  "Color of text f/g:   "
  22 *FvwmForm-Form: Input Fore 15 "Wheat"
  23 *FvwmForm-Form: Text  "b/g:"
  24 *FvwmForm-Form: Input Back 15 "Gray50"
  25 *FvwmForm-Form: Text  "colorset:"
  26 *FvwmForm-Form: Input Colorset 5 "-1"
  27 *FvwmForm-Form: Line  left
  28 *FvwmForm-Form: Text  "Color of buttons f/g:"
  29 *FvwmForm-Form: Input ItemFore 15 "Black"
  30 *FvwmForm-Form: Text  "b/g:"
  31 *FvwmForm-Form: Input ItemBack 15 "Light Gray"
  32 *FvwmForm-Form: Text  "colorset:"
  33 *FvwmForm-Form: Input ItemColorset 5 "-1"
  34
  35 *FvwmForm-Form: Line left
  36 *FvwmForm-Form: Text  "Pointer over button:    "
  37 *FvwmForm-Form: Input ButtonPointer 20 "hand2"
  38 *FvwmForm-Form: Text  "f/g"
  39 *FvwmForm-Form: Input ButtonPointerFore 20 "white"
  40 *FvwmForm-Form: Text  "b/g"
  41 *FvwmForm-Form: Input ButtonPointerBack 20 "black"
  42
  43 *FvwmForm-Form: Line left
  44 *FvwmForm-Form: Text  "Pointer while button in:"
  45 *FvwmForm-Form: Input ButtonInPointer 20 "hand2"
  46 *FvwmForm-Form: Text  "f/g"
  47 *FvwmForm-Form: Input ButtonInPointerFore 20 "black"
  48 *FvwmForm-Form: Text  "b/g"
  49 *FvwmForm-Form: Input ButtonInPointerBack 20 "white"
  50 *FvwmForm-Form: Line left
  51 *FvwmForm-Form: Text  "Pointer over input:     "
  52 *FvwmForm-Form: Input InputPointer 20 "xterm"
  53 *FvwmForm-Form: Text  "f/g"
  54 *FvwmForm-Form: Input InputPointerFore 20 "white"
  55 *FvwmForm-Form: Text  "b/g"
  56 *FvwmForm-Form: Input InputPointerBack 20 "black"
  57
  58 *FvwmForm-Form: Line left
  59 *FvwmForm-Form: Text  "Activate buttons:"
  60 *FvwmForm-Form: Selection ActivateOnPress single
  61 *FvwmForm-Form: Choice    OnRelease off off " on release (default)"
  62 *FvwmForm-Form: Choice    OnPress on on " on press"
  63
  64 *FvwmForm-Form: Line left
  65 *FvwmForm-Form: Message
  66 *FvwmForm-Form: Line         expand
  67 *FvwmForm-Form: Button       quit "F1 - Save & Restart This Form" F1
  68 *FvwmForm-Form: Command DestroyModuleConfig FvwmFormDefault: *
  69 # Caution, this command is getting too long, if you add something,
  70 # you might have some truncation occur:
  71 *FvwmForm-Form: Command !(/bin/echo \
  72  "# This file last created by FvwmForm-Form on: `/bin/date`."; /bin/echo \
  73  '*FvwmFormDefault: Font $(Font)'            ; /bin/echo \
  74  '*FvwmFormDefault: InputFont $(InputFont)'  ; /bin/echo \
  75  '*FvwmFormDefault: ButtonFont $(ButtonFont)'; /bin/echo \
  76  '*FvwmFormDefault: TimeoutFont $(TimeoutFont)'; /bin/echo \
  77  '*FvwmFormDefault: Fore $(Fore)'            ; /bin/echo \
  78  '*FvwmFormDefault: Back $(Back)'            ; /bin/echo \
  79  '*FvwmFormDefault: Colorset $(Colorset)'    ; /bin/echo \
  80  '*FvwmFormDefault: ItemFore $(ItemFore)'    ; /bin/echo \
  81  '*FvwmFormDefault: ItemBack $(ItemBack)'    ; /bin/echo \
  82  '*FvwmFormDefault: ItemColorset $(ItemColorset)'       ; /bin/echo \
  83  '*FvwmFormDefault: ButtonPointer $(ButtonPointer)'     ; /bin/echo \
  84  '*FvwmFormDefault: ButtonInPointer $(ButtonInPointer)' ; /bin/echo \
  85  '*FvwmFormDefault: InputPointer $(InputPointer)' ; /bin/echo  \
  86  '*FvwmFormDefault: ActivateOnPress $(ActivateOnPress)'\
  87 ) > ${FVWM_USERDIR}/.FvwmForm
  88 # This would have surely hit a limit so its appended with >>:
  89 *FvwmForm-Form: Command !(\
  90  /bin/echo '*FvwmFormDefault: ButtonPointerFore $(ButtonPointerFore)';\
  91  /bin/echo '*FvwmFormDefault: ButtonPointerBack $(ButtonPointerBack)';\
  92  /bin/echo '*FvwmFormDefault: ButtonInPointerFore $(ButtonInPointerFore)';\
  93  /bin/echo '*FvwmFormDefault: ButtonInPointerBack $(ButtonInPointerBack)';\
  94  /bin/echo '*FvwmFormDefault: InputPointerFore $(InputPointerFore)';\
  95  /bin/echo '*FvwmFormDefault: InputPointerBack $(InputPointerBack)';\
  96 ) >> ${FVWM_USERDIR}/.FvwmForm
  97
  98 *FvwmForm-Form: Command *FvwmFormDefault: Read n
  99 *FvwmForm-Form: Command Module FvwmForm FvwmForm-Form
 100 *FvwmForm-Form: Button       restart   "F3 - Reset" F3
 101 *FvwmForm-Form: Button       quit "F4 - Dismiss" F4
 102 *FvwmForm-Form: Command Nop
 103 # Tell FvwmForm to read and save vars from the .FvwmForm file.
 104 *FvwmForm-Form: UseData .FvwmForm *FvwmFormDefault