//*****************************************************************************************
// Copyright (c) 2000 Michael Kurz 
// All rights reserved.
// If you want to use this source in your applications conatct: <MichaelKurz@gmx.at> 
//
// $FileName    : mEditorEditor.pkg
// $ProjectName : CODEMAX EDITOR
// $Author      : Michael Kurz <MichaelKurz@gmx.at>
// $Created     : 02-20-2001 @ 19:00
//
// Contents:
//      Save adjustments to a file:
//          -Bookmarks
//          -Current Line
//          -Opened Files
//      
// $Rev History
//
//*****************************************************************************************
Open  Editor

Use mUserAndComputerName.pkg


Procedure FindEditor for Desktop String sFile String sType
    Clear Editor
    move gsUserName             to Editor.User
    move sType                  to Editor.TYPE
    move sFile                  to Editor.File
    Find eq Editor by Index.1 // USER,TYPE,FILE 
End_Procedure    

Procedure SaveEditor for Desktop String sFile String sType String sData Integer iCount
    Lock
        send FindEditor sFile sType
        move sData              to Editor.Data
        move iCount             to Editor.Count
        SaveRecord Editor
    Unlock    
End_Procedure

    // Deletes all Records of a specific type.
Procedure DeleteEditorAll String sType
    Clear Editor
    move gsUserName to Editor.User
    move sType      to Editor.TYPE
    Repeat
        Find gt Editor by Index.1
        if Editor.TYPE ne sType         indicate Found False
        if Editor.User ne gsUserName    indicate Found False
        [Found] Begin
            Lock
                Delete Editor
            Unlock
        End
    Until [Not Found]
End_Procedure