Subversion Repositories Kolibri OS

Rev

Rev 9180 | Rev 9190 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9180 Rev 9181
Line 2200... Line 2200...
2200
 
2200
 
2201
    IF drawCursor THEN
2201
    IF drawCursor THEN
2202
        cursor(text)
2202
        cursor(text)
2203
    END;
2203
    END;
2204
    G.SetColor(canvas, K.borderColor);
-
 
2205
    G.HLine(canvas, size.Y - 1, 0, size.X - 1);
2204
    G.SetColor(canvas, K.borderColor);
2206
    G.VLine(canvas, 0, 0, size.Y - 1);
-
 
2207
    G.VLine(canvas, size.X - 1, 0, size.Y - 1)
2205
    G.VLine(canvas, 0, 0, size.Y - 1);
Line 2208... Line 2206...
2208
END draw;
2206
END draw;
2209
 
2207