diff options
Diffstat (limited to 'wps/wpsbuild.pl')
-rwxr-xr-x | wps/wpsbuild.pl | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/wps/wpsbuild.pl b/wps/wpsbuild.pl index 735a63830a..e9e5c29a30 100755 --- a/wps/wpsbuild.pl +++ b/wps/wpsbuild.pl | |||
@@ -53,6 +53,8 @@ my $iconset; | |||
53 | my $viewericon; | 53 | my $viewericon; |
54 | my $lineselecttextcolor; | 54 | my $lineselecttextcolor; |
55 | my $filetylecolor; | 55 | my $filetylecolor; |
56 | my $listviewport; | ||
57 | my $remotelistviewport; | ||
56 | 58 | ||
57 | # LCD sizes | 59 | # LCD sizes |
58 | my ($main_height, $main_width, $main_depth); | 60 | my ($main_height, $main_width, $main_depth); |
@@ -293,6 +295,12 @@ MOO | |||
293 | if($rwps && $has_remote ) { | 295 | if($rwps && $has_remote ) { |
294 | push @out, "rwps: /$rbdir/wps/$rwps\n"; | 296 | push @out, "rwps: /$rbdir/wps/$rwps\n"; |
295 | } | 297 | } |
298 | if(defined($listviewport)) { | ||
299 | push @out, "ui viewport: $listviewport\n"; | ||
300 | } | ||
301 | if(defined($remotelistviewport) && $has_remote) { | ||
302 | push @out, "remote ui viewport: $listviewport\n"; | ||
303 | } | ||
296 | if(-f "$rbdir/wps/$cfg") { | 304 | if(-f "$rbdir/wps/$cfg") { |
297 | print STDERR "wpsbuild warning: wps/$cfg already exists!\n"; | 305 | print STDERR "wpsbuild warning: wps/$cfg already exists!\n"; |
298 | } | 306 | } |
@@ -347,6 +355,8 @@ while(<WPS>) { | |||
347 | undef $viewericon; | 355 | undef $viewericon; |
348 | undef $lineselecttextcolor; | 356 | undef $lineselecttextcolor; |
349 | undef $filetylecolor; | 357 | undef $filetylecolor; |
358 | undef $listviewport; | ||
359 | undef $remotelistviewport; | ||
350 | 360 | ||
351 | next; | 361 | next; |
352 | } | 362 | } |
@@ -513,6 +523,12 @@ while(<WPS>) { | |||
513 | elsif($l =~ /^filetype colours: *(.*)/i) { | 523 | elsif($l =~ /^filetype colours: *(.*)/i) { |
514 | $filetylecolor = $1; | 524 | $filetylecolor = $1; |
515 | } | 525 | } |
526 | elsif($l =~ /^ui viewport: *(.*)/i) { | ||
527 | $listviewport = $1; | ||
528 | } | ||
529 | elsif($l =~ /^remote ui viewport: *(.*)/i) { | ||
530 | $remotelistviewport = $1; | ||
531 | } | ||
516 | else{ | 532 | else{ |
517 | #print "Unknown line: $l!\n"; | 533 | #print "Unknown line: $l!\n"; |
518 | } | 534 | } |