Copyright (C) 1994, Digital Equipment Corp.
MODULE VBTKitEnv;
IMPORT Env, Text;
BEGIN
WITH s = Env.Get ("SCROLLBARLOC") DO
IF s # NIL THEN
IF Text.Equal (s, "north") OR
Text.Equal (s, "northeast") OR
Text.Equal (s, "northwest")THEN ScrollbarSouth := FALSE
END;
IF Text.Equal (s, "east") OR
Text.Equal (s, "northeast") OR
Text.Equal (s, "southeast")THEN ScrollbarWest := FALSE
END
END
END;
WITH s = Env.Get ("TEXTPORTMODEL") DO
IF s # NIL THEN
IF Text.Equal (s, "ivy") THEN TextPortModel := "ivy"
ELSIF Text.Equal (s, "mac") THEN TextPortModel := "mac"
ELSIF Text.Equal (s, "xterm") THEN TextPortModel := "xterm"
END
END
END;
END VBTKitEnv.