themes/default/functions

   1 # The functions from this component can be overwritten in the personal theme.
   2
   3 DestroyFunc WindowListFunc
   4 AddToFunc   WindowListFunc
   5 + I Iconify false
   6 + I FlipFocus
   7 + I Raise
   8 + I WarpToWindow 10p 10p
   9
  10 DestroyFunc FuncFvwmSelectWindow
  11 AddToFunc   FuncFvwmSelectWindow
  12 + I Focus
  13 + I Raise
  14 + I WarpToWindow 50 50
  15
  16 # ----------------------------------------------------------------------------
  17
  18 DestroyFunc FuncFvwmDeiconifyFocusAndRaise
  19 AddToFunc   FuncFvwmDeiconifyFocusAndRaise
  20 + I Iconify off
  21 + I Focus
  22 + I Raise
  23
  24 DestroyFunc FuncFvwmIconifyOrFocusAndRaise
  25 AddToFunc   FuncFvwmIconifyOrFocusAndRaise
  26 + I ThisWindow (Iconic) Iconify off
  27 + I TestRc (NoMatch) ThisWindow (!Overlapped) Iconify on
  28 + I ThisWindow (!Iconic) Focus
  29 + I ThisWindow (!Iconic) Raise
  30
  31 DestroyFunc FuncFvwmDeiconifyFocusAndWarp
  32 AddToFunc   FuncFvwmDeiconifyFocusAndWarp
  33 + I Iconify off
  34 + I Focus
  35 + I WarpToWindow 10p 10p
  36
  37 DestroyFunc FuncFvwmRestore
  38 AddToFunc   FuncFvwmRestore
  39 + I ThisWindow (!Iconic !Shaded Maximized) Maximize    false
  40 + I ThisWindow (!Iconic  Shaded          ) WindowShade false
  41 + I ThisWindow ( Iconic                  ) Iconify     false
  42
  43 DestroyFunc FuncFvwmDelete
  44 AddToFunc   FuncFvwmDelete
  45 + I Delete
  46
  47 DestroyFunc FuncFvwmDeleteOrDestroy
  48 AddToFunc   FuncFvwmDeleteOrDestroy
  49 + H Nop
  50 + M Nop
  51 + C Delete
  52 + D Destroy
  53
  54 #DestroyFunc FuncFvwmMaximize
  55 #AddToFunc   FuncFvwmMaximize
  56 #+ M Nop
  57 #+ H Maximize 0 95
  58 #+ C Maximize 100 95
  59 #+ D Maximize 100 100
  60
  61 DestroyFunc FuncFvwmMaximize
  62 AddToFunc   FuncFvwmMaximize
  63 + M Nop
  64 + H Nop
  65 + C Maximize
  66 + D Menu MenuFvwmWindowMaximize
  67
  68 DestroyFunc FuncFvwmMaximizeVertically
  69 AddToFunc   FuncFvwmMaximizeVertically
  70 + H Maximize 0 100
  71 + M Maximize 0 100
  72 + C Maximize 0 100
  73
  74 DestroyFunc FuncFvwmMaximizeHorizontally
  75 AddToFunc   FuncFvwmMaximizeHorizontally
  76 + H Maximize 100 0
  77 + M Maximize 100 0
  78 + C Maximize 100 0
  79
  80 DestroyFunc FuncFvwmSimpleMaximize
  81 AddToFunc   FuncFvwmSimpleMaximize
  82 + I Maximize $0
  83
  84 DestroyFunc FuncFvwmSimpleMaximizeVertically
  85 AddToFunc   FuncFvwmSimpleMaximizeVertically
  86 + I Maximize $0 0 100
  87
  88 DestroyFunc FuncFvwmSimpleMaximizeHorizontally
  89 AddToFunc   FuncFvwmSimpleMaximizeHorizontally
  90 + I Maximize $0 100 0
  91
  92 DestroyFunc FuncFvwmSimpleMaximizePartially
  93 AddToFunc   FuncFvwmSimpleMaximizePartially
  94 + I Maximize $0 0 95
  95
  96 DestroyFunc FuncFvwmIconifySameResource
  97 AddToFunc   FuncFvwmIconifySameResource
  98 + I All ($r) Iconify $0
  99
 100 DestroyFunc FuncFvwmIconify
 101 AddToFunc   FuncFvwmIconify
 102 + C Iconify
 103
 104 DestroyFunc FuncFvwmConsole
 105 AddToFunc   FuncFvwmConsole
 106 + I Module FvwmConsole -fg $[fg.cs22] -bg $[bg.cs22] $*
 107
 108 # ----------------------------------------------------------------------------
 109 # These functions probably need not be configurable (move to themes-rc?).
 110
 111 DestroyFunc FuncFvwmShowMessage
 112 AddToFunc   FuncFvwmShowMessage
 113 + I Test (x xmessage) Exec echo "$1" | \
 114         perl -pe 's/\^n/\n/g; s/\^t/\t/g; s/\^d/\$/g; s/^q/"/g; s/\^\^/^/g' - | \
 115         xmessage -g 480x124 -nearmouse -title "$0" -file - \
 116         -xrm "*textSink*font:lucidasans-14" \
 117         -xrm "*form*scrollVertical:false" \
 118         -xrm "*form*foreground:$[fg.cs35]" \
 119         -xrm "*form*background:$[bg.cs35]" \
 120         -xrm "*form*message*foreground:$[fg.cs36]" \
 121         -xrm "*form*message*background:$[bg.cs36]" $2
 122 + I TestRc (!Match) FvwmPerl -e \
 123         '$_ = qq{$1}; s/\^n/\n/g; s/\^t/\t/g; s/\^d/\044/g; s/\^\^/^/g; showMessage($_, $0, 1)'
 124
 125 DestroyFunc FuncFvwmShowButtonInfo
 126 AddToFunc   FuncFvwmShowButtonInfo
 127 + I FuncFvwmShowMessage "Button Info" "$0"
 128
 129 DestroyFunc FuncFvwmWithGtk
 130 AddToFunc   FuncFvwmWithGtk
 131 + I PipeRead `fvwm-config --supports-gtk && echo '$*' || \
 132         echo 'FuncFvwmShowMessage "FVWM Error" "There is no GTK support in your FVWM.^nThe requested command is not executed."'`
 133
 134 DestroyFunc FuncFvwmConfirm
 135 AddToFunc   FuncFvwmConfirm
 136 + I FvwmScript FvwmScript-Confirm --line2 `$0` --command `$1` \
 137         `$2` `$3` `$4` `$5` `$6` `$7` `$8` `$9`
 138
 139 DestroyFunc FuncFvwmShowColorset
 140 AddToFunc   FuncFvwmShowColorset
 141 + I FvwmPerl -e 'cmd("FuncFvwmShowMessage `Colorset $0 Information` `" . $module->track("Colorsets")->dump($0) . "`")'
 142
 143 DestroyFunc FuncFvwmShowAllColorsets
 144 AddToFunc   FuncFvwmShowAllColorsets
 145 + I FvwmButtons X $[FT_DATADIR]/FvwmButtons-Colorsets
 146
 147 DestroyFunc FuncFvwmNoColourTable
 148 AddToFunc   FuncFvwmNoColourTable
 149 + I FuncFvwmShowMessage "Information" "No palette defined for the current colors component"
 150
 151 DestroyFunc FuncFvwmShowColourTable
 152 AddToFunc   FuncFvwmShowColourTable
 153 + I FuncFvwmNoColourTable