summaryrefslogtreecommitdiff
path: root/wps/wpsbuild.pl
diff options
context:
space:
mode:
Diffstat (limited to 'wps/wpsbuild.pl')
-rwxr-xr-xwps/wpsbuild.pl13
1 files changed, 13 insertions, 0 deletions
diff --git a/wps/wpsbuild.pl b/wps/wpsbuild.pl
index d6d8085449..52492f6b71 100755
--- a/wps/wpsbuild.pl
+++ b/wps/wpsbuild.pl
@@ -55,6 +55,8 @@ my $font;
55my $remotefont; 55my $remotefont;
56my $fgcolor; 56my $fgcolor;
57my $bgcolor; 57my $bgcolor;
58my $sepcolor;
59my $sep;
58my $statusbar; 60my $statusbar;
59my $remotestatusbar; 61my $remotestatusbar;
60my $author; 62my $author;
@@ -291,6 +293,9 @@ MOO
291 push @out, "line selector start color: $lineselectstart\n" if($lineselectstart); 293 push @out, "line selector start color: $lineselectstart\n" if($lineselectstart);
292 push @out, "line selector end color: $lineselectend\n" if($lineselectend);; 294 push @out, "line selector end color: $lineselectend\n" if($lineselectend);;
293 push @out, "line selector text color: $lineselecttextcolor\n" if($lineselecttextcolor); 295 push @out, "line selector text color: $lineselecttextcolor\n" if($lineselecttextcolor);
296 # list separator actually depends on HAVE_TOUCSCREEN
297 push @out, "list separator height: $sep\n" if($sep);
298 push @out, "list separator color: $sepcolor\n" if($sepcolor);
294 } 299 }
295 300
296 push @out, "font: $font\n" if (defined($font)); 301 push @out, "font: $font\n" if (defined($font));
@@ -430,6 +435,8 @@ while(<WPS>) {
430 undef $remotefont; 435 undef $remotefont;
431 undef $fgcolor; 436 undef $fgcolor;
432 undef $bgcolor; 437 undef $bgcolor;
438 undef $sepcolor;
439 undef $sep;
433 undef $statusbar; 440 undef $statusbar;
434 undef $remotestatusbar; 441 undef $remotestatusbar;
435 undef $author; 442 undef $author;
@@ -502,6 +509,12 @@ while(<WPS>) {
502 elsif($l =~ /^Background Color: *(.*)/i) { 509 elsif($l =~ /^Background Color: *(.*)/i) {
503 $bgcolor = $1; 510 $bgcolor = $1;
504 } 511 }
512 elsif($_ = check_res_feature($l, "list separator color")) {
513 $sepcolor = $_;
514 }
515 elsif($_ = check_res_feature($l, "list separator height")) {
516 $sep = $_;
517 }
505 elsif($l =~ /^line selector start color: *(.*)/i) { 518 elsif($l =~ /^line selector start color: *(.*)/i) {
506 $lineselectstart = $1; 519 $lineselectstart = $1;
507 } 520 }