OPT MODULE
OPT EXPORT

MODULE 'afc/localer','*locnums'


PROC startlocale(loc:PTR TO localer); DEF str[256]:STRING
NEW loc.localer()
StrCopy(str,loc.language()) ; StrCopy(str,str,InStr(str,'.'))
StringF(str,'locale:catalogs/\s/Scalos_Rename.catalog',str)
loc.load(str)
ENDPROC loc


PROC locs(loc:PTR TO localer,id)
SELECT id

CASE MSG_EnterName	; RETURN loc.ret(id,'Enter new name for selected')
CASE MSG_Open			; RETURN loc.ret(id,'Failed to Open')
CASE MSG_NotCli		; RETURN loc.ret(id,'Cannot be run from CLI !')
CASE MSG_NoFiles		; RETURN loc.ret(id,'No Files selected !')
CASE MSG_NoApp	   	; RETURN loc.ret(id,'Failed to Create MUI Application')
CASE MSG_EXCEPT		; RETURN loc.ret(id,'Exception Caused')

CASE MSG_Disk		; RETURN loc.ret(id,'\e1Disk')
CASE MSG_Dir		; RETURN loc.ret(id,'\e1Dir')
CASE MSG_File		; RETURN loc.ret(id,'File')
CASE MSG_Error		; RETURN loc.ret(id,'Error')
CASE MSG_Type		; RETURN loc.ret(id,'\eu\eiType')
CASE MSG_Name		; RETURN loc.ret(id,'\eu\eiName')
CASE MSG_Path		; RETURN loc.ret(id,'\eu\eiPath')
CASE MSG_VolExists; RETURN loc.ret(id,'Already Exists!\n\nThis May confuse your System')
CASE MSG_LabelErr	; RETURN loc.ret(id,'Error with Relabel')
CASE MSG_RenameErr; RETURN loc.ret(id,'Error with Rename')
CASE MSG_RenameTo	; RETURN loc.ret(id,'Could not be renamed to')
CASE MSG_Reason	; RETURN loc.ret(id,'Reason')
CASE MSG_StringEmpty	; RETURN loc.ret(id,'String Gadget was Empty!')

CASE MSG_DirErr	; RETURN loc.ret(id,'Error Creating Dir')
CASE MSG_DirIsFile; RETURN loc.ret(id,'Cannot MakeDir..\n\n%s\n\nBecause it is a File\n')
CASE MSG_NewDir	; RETURN loc.ret(id,'Dir Does not exist\n\n%s\n\nCreate a new one ?\n')

CASE MSG_RenAcrossDev; RETURN loc.ret(id,'Cannot Rename Across Devices\n\nSupport may be added later')

CASE MSG_FileExists; RETURN loc.ret(id,'File already exists')
CASE MSG_FileExOpts; RETURN loc.ret(id,'Options:\n\nReplace= Overwrite file\nNumber = Use "name.1"\nGo Back= Try another name\nForget = Remove from queue')
CASE GAD_FileExOpts; RETURN loc.ret(id,'_Replace|_Number|_Go Back|_Forget')
CASE GAD_RenCan;     RETURN loc.ret(id,'_Rename|_Cancel')

CASE MNU_Main			; RETURN loc.ret(id,'Main')
CASE MNU_About			; RETURN loc.ret(id,'  About')
CASE MNU_Quit			; RETURN loc.ret(id,'Quit')
CASE MNU_Settings		; RETURN loc.ret(id,'Settings..')

CASE MSG_YesNo       ; RETURN loc.ret(id,'_Yes|_No')

CASE GAD_Ok		      ; RETURN loc.ret(id,'_OK')
CASE GAD_Skip  		; RETURN loc.ret(id,'_Skip')
CASE GAD_Cancel		; RETURN loc.ret(id,'_Cancel')

CASE MSG_NewVerGads; RETURN loc.ret(id,'\eb_Download|_Forget it')
CASE MSG_chk       ; RETURN loc.ret(id,'Update\en\e0\nCheck online for newer Versions\n\n(Must have an active internet connection)')
CASE MSG_unfound	 ; RETURN loc.ret(id,'was not found in versions.dat?\nPlease Email the author about this')
CASE MSG_latest	 ; RETURN loc.ret(id,'You Have The Latest Version :)')
CASE MSG_better	 ; RETURN loc.ret(id,'Your Version Seems to be better than mine ?')
CASE MSG_found	    ; RETURN loc.ret(id,'Upgrade Found :)')
CASE MSG_aborted	 ; RETURN loc.ret(id,'Process was Aborted')
CASE MSG_UpdError  ; RETURN loc.ret(id,'Update Error!')
CASE MSG_complete  ; RETURN loc.ret(id,'Dowload Completed..\n\nNew Archive Saved to Ram:')

CASE MSG_InfoLab; RETURN loc.ret(id,'Info Label:')
CASE MSG_ShowLab; RETURN loc.ret(id,'Show Label:')
CASE MSG_LabItems; RETURN loc.ret(id,'Label Items:')
CASE MSG_ShowType; RETURN loc.ret(id,'Show Type:')
CASE MSG_ShowName; RETURN loc.ret(id,'Show Name:')
CASE MSG_StringGad; RETURN loc.ret(id,'String Gadget')
CASE MSG_StrPaths; RETURN loc.ret(id,'\erShow Full paths in String:')
CASE MSG_ShowPop; RETURN loc.ret(id,'\erShow PopFile Gadget:')
CASE MSG_Highlight; RETURN loc.ret(id,'\erAuto highlight Filenames:')
CASE MSG_OnReturn; RETURN loc.ret(id,'\erRename on <Return>:')
CASE MSG_QueueList; RETURN loc.ret(id,'Queue List')
CASE MSG_ShowQueue   ; RETURN loc.ret(id,'Show the Queue List:')
CASE MSG_ShowTitles  ; RETURN loc.ret(id,'Show Titles in List:')
CASE MSG_ListColumns ; RETURN loc.ret(id,'List Columns')
CASE MSG_ShowPath   ; RETURN loc.ret(id,'Show Path:')
CASE GAD_Save   ; RETURN loc.ret(id,'_Save & Quit')
CASE GAD_Use   ; RETURN loc.ret(id,'_Use & Quit')
CASE GAD_Refresh; RETURN loc.ret(id,'Use & _Refresh')
CASE GAD_Update   ; RETURN loc.ret(id,'_Online Update Check')
CASE GAD_Ignore   ; RETURN loc.ret(id,'Ignore and _Quit')
CASE MSG_PrefChange   ; RETURN loc.ret(id,'\ec\eu\e1Your configuration has Changed\en.\e0\n\n\el   Use = Save to Env:\n  Save = Save to ENVARC:\nIgnore = Don''t Save')
CASE MSG_InList   ; RETURN loc.ret(id,'Is already in the list')

->CASE MSG_   ; RETURN loc.ret(id,)
->CASE MSG_   ; RETURN loc.ret(id,'')
->CASE MSG_   ; RETURN loc.ret(id,)


ENDSELECT
ENDPROC