diff options
Diffstat (limited to 'xts5/bin/xts-config.in')
-rwxr-xr-x | xts5/bin/xts-config.in | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/xts5/bin/xts-config.in b/xts5/bin/xts-config.in index 9e30b5f5..e22ba56b 100755 --- a/xts5/bin/xts-config.in +++ b/xts5/bin/xts-config.in @@ -99,6 +99,14 @@ BEGIN } else { + $::vars{"XT_TCP"} = "Yes"; + my $hostname = ""; + my $offset = rindex($::vars{"DISPLAY"}, ':'); + if ($offset >= 0) { + $hostname = substr($::vars{"DISPLAY"}, 0, $offset); + } + $::vars{"XT_DISPLAYHOST"} = $hostname; + # Not a local display; admin is responsible for placing # xtest fonts on the font path before running xts-config. $::vars{"XT_FONTPATH"} = $::vars{"XT_FONTPATH_GOOD"}; |