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.
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.
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
16 #-----------------------------------------------------------------------------
17 # This fvwm-themes "module" is all original code by Olivier Chapuis
18 # Copyright 2000, Olivier Chapuis
19 #-----------------------------------------------------------------------------
21 # For text with 70 characters per line
23 WindowTitle {FVWM Themes Documentation}
25 Font -adobe-helvetica-bold-r-*-*-12-*
33 Set $font = {-*-fixed-medium-r-semicondensed-*-13-*}
37 Set $arg = (GetScriptArgument $i)
41 If $arg == {--lang} Then
42 Set $Lang = (GetScriptArgument $j)
43 If $arg == {--message} Then
44 Set $Message = (GetScriptArgument $j)
45 If $arg == {--title} Then
46 Set $Title = (GetScriptArgument $j)
47 If $arg == {--text-colorset} Then
48 Set $TextColorset = (GetScriptArgument $j)
49 If $arg == {--in-line-doc} Then
50 Set $InLineDoc = (GetScriptArgument $j)
51 If $arg == {--text-font} Then
52 Set $TextFont = (GetScriptArgument $j)
54 Set $arg = (GetScriptArgument $i)
57 If $TextColorset <> {} Then
58 ChangeColorset 2 $TextColorset
59 If $Message <> {} Then
60 ChangeTitle 2 $Message
63 If $InLineDoc <> {} Then
65 Set $cmd = {fvwm-themes-script --in-line-doc }$InLineDoc{ --line-length 70}
66 # if the --lang is not used, ft-script computes it itself
68 Set $cmd = $cmd { --lang }$Lang
69 Set $Doc = (GetOutput $cmd 1 -1)
71 # first "line" is the font, evaluate it
77 Set $tmp = (StrCopy $Doc $index $index)
81 Set $font = $font $tmp
82 Set $index = (Add $index 1)
85 Set $font = "-*-fixed-medium-r-semicondensed-*-13-*"
90 Set $Doc = (StrCopy $Doc $index 32000)
94 If $TextFont <> {} Then
121 Font -*-fixed-medium-r-semicondensed-*-13-*