Use Windows.pkg

Register_Procedure mRemoveLine
Register_Procedure mInsertLine

// Language Definition
Struct tSCLanguage
    String   sName
    Integer  iProcedural
    Integer  iCaseSensitive
    String   sLineComments
    String   sStringDelimiter
    String   sMultiLineCommentStart
    String   sMultiLineCommentStop
    String   sEscapeChar
    String   sLineTerminationChar
    String   sMetaStart
    String   sMetaStop
    String[] saScopeStart
    String[] saScopeStop
    String[] saKeywords
    String[] saOperators
    String[] saTags
    String[] saEntities
    String[] saAttributes
End_Struct

Class cSCWsGrid is a Grid
    Procedure Construct_Object
        Forward Send Construct_Object

        Set Size to 115 233
        Set Location to 11 7
        //        Set CurrentCellColor     to (RGB(39,150,216))
        //        Set CurrentCellTextColor to clWhite
        //        Set CurrentRowColor      to (RGB(39,150,216))
        //        Set CurrentRowTextColor  to clWhite
        Set Resize_Column_State to False
        Set Highlight_Row_State to True
        Set GridLine_Mode to Grid_Visible_Horz
        Set Select_Mode to No_Select

        On_Key Key_Delete Send mRemoveLine
        On_Key Key_Insert Send mInsertLine
        On_Key Key_Enter  Send Next
    End_Procedure

    Procedure DoFillGrid
    End_Procedure

    Function Base_Row_Item Integer iItem Returns Integer
        Function_Return (iItem - Mod(iItem, Low(Matrix_Size(Self))))
    End_Function

End_Class