; Copyright (C) Cloanto (R) 1992, 1993  All Rights Reserved  Reproduction Prohibited


; Reset Personal Paint Disk Name

Assign >NIL: " PPaint:" EXISTS
If NOT WARN
   Relabel >NIL: " PPaint:" PPaint
   EndIf

Assign >NIL: "Copy of PPaint:" EXISTS
If NOT WARN
   Relabel >NIL: "Copy of PPaint:" PPaint
   EndIf

Assign >NIL: Copy_of_PPaint: EXISTS
If NOT WARN
   Relabel >NIL: Copy_of_PPaint: PPaint
   EndIf

PPaint:c/Print >RAM:PP_WriteOK ";"
Copy >NIL: RAM:PP_WriteOK PPaint:PPaint_Prefs/PP_Locale
Delete >NIL: RAM:PP_WriteOK
If NOT EXISTS PPaint:PPaint_Prefs/PP_Locale/PP_WriteOK
   PPaint:c/Print "Error during Personal Paint disk configuration."
   Wait 3 SECS
   Skip End
   EndIf


; Reset Personal Paint Installation Local Texts and Commands

If EXISTS PPaint:PPaint_Prefs/PP_Locale/PP_SET_ENG
   Rename PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub.eng
EndIf

If EXISTS PPaint:PPaint_Prefs/PP_Locale/PP_SET_DEU
   Rename PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub.deu
EndIf

If EXISTS PPaint:PPaint_Prefs/PP_Locale/PP_SET_ITA
   Rename PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub.ita
EndIf

If EXISTS PPaint:PPaint_Prefs/PP_Locale/PP_SET_FRA
   Rename PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub.fra
EndIf

If EXISTS PPaint:PPaint_Prefs/PP_Locale/PP_SET_SWE
   Rename PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub.swe
EndIf


; Reset Personal Paint User Interface Language Preferences

PPaint:c/Print > PPaint:PPaint_Prefs/Startup_A.set "PPAINT SETTINGS*N; Country and Language Dependent Settings*N"


Delete >NIL: PPaint:PPaint_Prefs/PP_Locale/PP_SET_#?


; Set Personal Paint 1.x/2.x-3.x Icons

Version >NIL: graphics.library 36
If WARN
  If NOT EXISTS PPaint:PPaint_Prefs/PP_Locale/PP_CurrentWB13
    PPaint:c/Print >RAM:MEMO_NEWCOL ";"
    CD PPaint:PPaint_Icons_1
  EndIf
Else
  If EXISTS PPaint:PPaint_Prefs/PP_Locale/PP_CurrentWB13
    PPaint:c/Print >RAM:MEMO_NEWCOL ";"
    CD PPaint:PPaint_Icons_2
  EndIf
EndIf

If EXISTS RAM:MEMO_NEWCOL
  Copy PPaint:c/CopyIcon RAM:
  RAM:CopyIcon >NIL: -r def_Disk PPaint:Disk
  RAM:CopyIcon >NIL: -r def_PPaint PPaint:PPaint
  RAM:CopyIcon >NIL: -r def_Config PPaint:English
  RAM:CopyIcon >NIL: -r def_Config PPaint:Deutsch
  RAM:CopyIcon >NIL: -r def_Config PPaint:Italiano
  RAM:CopyIcon >NIL: -r def_InstallPPaint PPaint:InstallPPaint
  RAM:CopyIcon >NIL: -r def_PPaint.man PPaint:PPaint.man
  RAM:CopyIcon >NIL: -r def_PPaint_PS PPaint:PPaint_PS
  RAM:CopyIcon >NIL: -r def_CloantoAudio PPaint:CloantoAudio
  RAM:CopyIcon >NIL: -r def_Drawer PPaint:PPaint_Prefs
  RAM:CopyIcon >NIL: -r def_Settings PPaint:PPaint_Prefs/Startup_1.set
  RAM:CopyIcon >NIL: -r def_Settings PPaint:PPaint_Prefs/Startup_2.set
  RAM:CopyIcon >NIL: -r def_UIText PPaint:PPaint_Prefs/UIText.#?
  RAM:CopyIcon >NIL: -r def_Brush PPaint:PPaint_Prefs/UIColors.#?
  RAM:CopyIcon >NIL: -r def_Drawer PPaint:PPaint_Tools
  RAM:CopyIcon >NIL: -r def_AskAssign PPaint:PPaint_Tools/AskAssign
  RAM:CopyIcon >NIL: -r def_Drawer PPaint:PPaint_Icons_1
  RAM:CopyIcon >NIL: -r def_Drawer PPaint:PPaint_Icons_2

  Version >NIL: graphics.library 36
  If WARN
    PPaint:c/Print >PPaint:PPaint_Prefs/PP_Locale/PP_CurrentWB13 ";"
  Else
    Delete PPaint:PPaint_Prefs/PP_Locale/PP_CurrentWB13 QUIET
  EndIf

  Delete RAM:CopyIcon QUIET
  Delete RAM:MEMO_NEWCOL QUIET
EndIf

Lab End