//AB/ Project memtest
//AB/ Object prj is a View_Project
    //AB/ Set Size to 230 325
    //AB/ Set ProjectName to "memtest"
    //AB/ Set ProjectFileName to "Memtest.vw"
    //AB/ Set GenerateFileName to "NONAME"

// Project Object Structure
//   memtest is a cGlDbView
//     Customer_DD is a DataDictionary
//     oRereadTest_bn is a Button
//     oLockTest_bn is a Button

// Register all objects
Register_Object Customer_DD
Register_Object memtest
Register_Object oLockTest_bn
Register_Object oRereadTest_bn

//AB-IgnoreStart
Use cGlDbView.pkg
Use DataDict.pkg
Use Windows.pkg
//AB-IgnoreEnd

//AB-IgnoreStart
Use CUSTOMER.DD
//AB-IgnoreEnd


DEFERRED_VIEW Activate_memtest FOR ;
;
Object memtest is a cGlDbView
    Set Border_Style to Border_Thick
    Set Label to "Memory test"
    Set Location to 2 2
    Set Size to 200 300

    //AB-DDOStart

    Object Customer_DD is a Customer_DataDictionary
    End_Object    // Customer_DD

    Set Main_DD to Customer_DD
    Set Server to Customer_DD

    //AB-DDOEnd

    Object oRereadTest_bn is a Button
        Set Label to "Start test on REREAD"
        Set Size to 14 102
        Set Location to 62 96

        //AB-StoreStart
        // fires when the button is clicked
        Procedure OnClick
            Send DoStartTestReread
        End_Procedure // OnClick
        //AB-StoreEnd

    End_Object    // oRereadTest_bn

    Object oLockTest_bn is a Button
        Set Label to "Start test on LOCK"
        Set Size to 14 102
        Set Location to 108 96

        //AB-StoreStart
        // fires when the button is clicked
        Procedure OnClick
            Send DoStartTestLock
        End_Procedure // OnClick
        //AB-StoreEnd

    End_Object    // oLockTest_bn


    //AB-StoreStart
    
    // This has memory problems
    Procedure DoStartTestReread
    
        Clear customer
        Find gt customer by recnum
    
        While (1)   // Never ending
    
            Reread customer
    
            Unlock
    
        Loop
    
    End_Procedure
    
    
    // This does not have memory problems
    Procedure DoStartTestLock
    
        While (1)   // Never ending
    
            Clear customer
            Lock
                Find gt customer by recnum
    
            Unlock
    
        Loop
    
    End_Procedure
    //AB-StoreEnd

CD_End_Object    // memtest

//AB/ End_Object    // prj