; Cloanto Personal Paint Configuration Scripts
; Copyright (C) Cloanto Italia srl 1992-1995  All Rights Reserved

GetEnv >NIL: PPaintLanguage
If WARN
  If EXISTS PPAINTROOT:PPaint_Prefs/PP_Locale/PP_SETENV
    Execute PPAINTROOT:PPaint_Prefs/PP_Locale/PP_SETENV
  EndIf
EndIf

GetEnv >NIL: PPaintLanguage
If WARN
  If $Language EQ "english"
    SetEnv PPaintLanguage 0
  EndIf
  If $Language EQ "deutsch"
    SetEnv PPaintLanguage 1
  EndIf
  If $Language EQ "français"
    SetEnv PPaintLanguage 3
  EndIf
  If $Language EQ "italiano"
    SetEnv PPaintLanguage 2
  EndIf
EndIf

GetEnv >NIL: PPaintLanguage
If WARN
  SetEnv PPaintLanguage 0
EndIf