--- a/keyboard.rc Mon Feb 21 13:49:23 2005 +0100
+++ b/keyboard.rc Fri Feb 25 12:27:44 2005 +0100
@@ -122,9 +122,7 @@
line notNil ifTrue:[
line notEmpty ifTrue:[
line := '' '' , line.
- self list at:lineNr put:line.
- "/ self withoutRedrawAt:lineNr put:line.
- "/ self invalidateLine:lineNr.
+ self withoutRedrawAt:lineNr put:line.
]
]
].
@@ -163,9 +161,7 @@
line notEmpty ifTrue:[
(line startsWith:'' '') ifTrue:[
line := line copyFrom:5.
- self list at:lineNr put:line.
- "/ self withoutRedrawAt:lineNr put:line.
- "/ self invalidateLine:lineNr.
+ self withoutRedrawAt:lineNr put:line.
]
]
]
@@ -196,18 +192,23 @@
]
].
line1 notNil ifTrue:[
- line1 to:line2-1 do:[:lineNr |
- |line|
+ self withExecuteCursorDo:[
+ line1 to:line2-1 do:[:lineNr |
+ |line|
- line := self listAt:lineNr.
- line notNil ifTrue:[
- line notEmpty ifTrue:[
- line := '' '' , line.
- self withoutRedrawAt:lineNr put:line.
- self invalidateLine:lineNr.
+ line := self listAt:lineNr.
+ line notNil ifTrue:[
+ line notEmpty ifTrue:[
+ line := '' '' , line.
+ self withoutRedrawAt:lineNr put:line.
+ ]
]
- ]
- ].
+ ].
+ self textChanged.
+ line1 to:line2-1 do:[:lineNr |
+ self invalidateLine:lineNr.
+ ].
+ ]
]
'.
@@ -229,19 +230,24 @@
]
].
line1 notNil ifTrue:[
- line1 to:line2-1 do:[:lineNr |
- |line|
+ self withExecuteCursorDo:[
+ line1 to:line2-1 do:[:lineNr |
+ |line|
- line := self listAt:lineNr.
- line notNil ifTrue:[
- line notEmpty ifTrue:[
- (line startsWith:'' '') ifTrue:[
- line := line copyFrom:2.
- self withoutRedrawAt:lineNr put:line.
- self invalidateLine:lineNr.
+ line := self listAt:lineNr.
+ line notNil ifTrue:[
+ line notEmpty ifTrue:[
+ (line startsWith:'' '') ifTrue:[
+ line := line copyFrom:2.
+ self withoutRedrawAt:lineNr put:line.
+ ]
]
]
- ]
+ ].
+ self textChanged.
+ line1 to:line2-1 do:[:lineNr |
+ self invalidateLine:lineNr.
+ ].
].
]
'.
@@ -706,7 +712,6 @@
"/ F4 -> uncommentSelection
"/ map bindValue:#ReplaceSelectionByUnixCommandsOutput to:#F5.
-map bindValue:#CodeCompletion to:#F2.
"/ map bindValue:#CmdF97 to:#F7.
"/ map bindValue:#CmdF96 to:#F6.
map bindValue:#IndentBy4 to:#F10.