bermudi/diakonos
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Added Readline delete and

Browse source 
fixed Readline backspace.
This commit is contained in:
pistos 2005-06-21 19:16:53 +00:00
parent c8aa3e2351
commit 1854eb3507
1 changed files with 15 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
diakonos
View file

@ -2063,7 +2063,7 @@ class Diakonos
attr_reader :indenters, :unindenters, :clipboard, :current_buffer, :list_filename
VERSION = "0.7.6"
LAST_MODIFIED = "May 13, 2005"
LAST_MODIFIED = "June 21, 2005"
DONT_ADJUST_ROW = false
ADJUST_ROW = true
@ -3884,13 +3884,22 @@ class Diakonos::Readline
redrawInput
end
@input_cursor += 1
when Diakonos::BACKSPACE, Diakonos::CTRL_H
if @input.length > 0 and @input_cursor > 0
@window.setpos( @window.cury, @window.curx - 1 )
when KEY_DC
if @input_cursor < @input.length
@window.delch
@input = @input[ 0..@input_cursor - 2 ] + @input[ @input_cursor..-1 ]
#@input = @input[ 0..-2 ]
@input = @input[ 0...@input_cursor ] + @input[ (@input_cursor + 1)..-1 ]
end
when Diakonos::BACKSPACE, Diakonos::CTRL_H
# KEY_LEFT
if @input_cursor > 0
@input_cursor += -1
@window.setpos( @window.cury, @window.curx - 1 )
# KEY_DC
if @input_cursor < @input.length
@window.delch
@input = @input[ 0...@input_cursor ] + @input[ (@input_cursor + 1)..-1 ]
end
end
when Diakonos::ENTER
break